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16 OPTION CODE 2C0MP OCTAL ONLY FOR EACH 

LOADINo NOUN C,7 rtILL SET UK RESET ShLECTcD BITS IN ANY ERASABLE RESIST ER 


•jI ECADK of word TU BE MODIFIED 
ONES FUR BITS TO 3c MUOIFIED 

1 To SET OR J TO RESlT SELECTED 
C8 ALARM DATA 
09 ALARM CODES 

channcL to Be specified 
11 TIl. of csi 


12 OPTION CODE 

(USED BY EXTENDED VERBS ONLY! 

13 Tib OF CDH 


14 INIkTIAL' VEL HAG AT TLl CUfUFF 
13 INCkBIENT MACHINE ADDRESS 

16 TIME uF EVENT 

(USED BY EXTENDED VERBS ONLY) 

17 astronaut total attitude 

18 AUTO MANEUVER CALL ANGLES 

19 SPAKE 

20 iCOU ANGLES 

21 PiPAS 

22 new’ ICDU ANGLES 
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24 DELTA TIME FUk A GC C L DC K 
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3C0MP OCTAL ONLY FOR EACH 


t>l Ts 

3CQMP OCTAL UNLY FDR EACH 

3C0MP OCTAL ONLY FOR EACH 

iCJMP OCTAL ONLY 

3 C Oh P J c X X X HRS 

i' bJXX.^ MIN 

TxXjXX sec 

2L0MP OCTAL ONLY FUR EACH 

3C0MP wOXaX H<<> 

0 7^ XX - MIN 
uXX J XX SEC 

ICJMP XXXXTnrl/ScC 
ICOMP octal only 

300MP ,3XXX, HRS 

s^-jjxx^ min 

vXX,. XX SEC"' 

_ XXXaXX PEG FUR EACH 

3CUMP XXX, XX Dtb FOR EACH 

ibOMP XXX XA DEG FOR EACH 

3CUMP XXXXa . PUL:>t-S FOR EACH 
3C0MP XXX, XX DEG FOR EACH 


3CUMP ,,jXXX. rikS 

jXX, min 

uXX-XX StC 

3COMP XXXXX FuR cACri 
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xxxx.< 
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3CUMP 

CL XXX 

t<''267S 




uUuXXa 

H' 2677 




OXX XX 

K' 266 

32 

TIML FROM PERlGEc 

3CaMP 

u XXX 

k 27 




C Cj XX . 

K':2 72 




» X X o X A 

K027 3 

33 

r i M h J F 1 bN 1 f 1 ON 

3COMP 

oo x x x , 

K' 275 




OOoxx 

R( 277 




OXXoXX 

K'.278 

34 

UHL JF EYEWT 

3C0MP 

U'CXXX 

R C 2 d 0 




^xx 

Rt 282 




CXX,. XX 

R^i28 3 

35 

TIME FROM EVENT 

3C0KP 

00 XXX 

R'ZaS 




DuOXX 

:U28 7 




OXX. X 'V 

R^'2d8 

36 

T IHE JF CLOCK 

3C UM P 

■ X X X 

i<C290 




..‘"C-XX . 

R .2 92 




XX.. XX 

RC293 

37 

Tic OF IP I 

SCOWP 

C‘ XXX 

RC2S5 




'XX 

RC297 




cxx XX 

Ru29 8 

38 

TIME JF STATE VECTOR 

3 COMP 

.. X XX . 

R 3 1 




u j JXX., 

R • 3v’ 2 




J<<,X< 

R V 3 C 3 

39 

DELTA TIME FUR TRANSFER 

-.vGsP 


Rc305 
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MIN 

SEC 

HkC 

MIN 

ScC 

l"i '. ■. j 

Ml i 
j c 

NC > 

M i iSi 
SEC 

H .< i 

M i N 

S w ^ 

rirt c 
HI H 
Sck!/ 
Hk5 
ML 4 
S£C 
riKS 
MIN 

ScC 


DcC NNLY 

MU Si LUAD 3 CUHP5 


U£C ONLY 

MUST LUAD 3 COMPS 
UEC''ONLY 

MUST LOAD 3 COMPS 


dec only 

MUST LOAD 3 CCMPS 


DEC ONLY 

MUST LOAD 3 COMPS 


DEC ONLY 

MUST LUAD 3 COMPS 
DEC ONLY 

MUST LOAD 3 COMPS 


DEC ONLY 

MUST LOAD 3 COMPS 
DEC'ONLY 

MUST LOAD 3 COMPS 
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K 3 1 A 

41 

kE313 


kF'316 

42 

kr 3lb 


K 3 1 


R ',32- 

43 

R .322 


R»-323 


K 324 

44 

K 326 


Rr 327 


KC32b 

45 

RC33v 


R :331 


RC332 

^6 

R ' . 533 

47 

R‘-335 
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VGi 

OcLTA V 
TARGET 

APUGtc t 
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jJCiMEL 


I ACtUMULATEDl 
AZIMUTHf 
ELEVATI 


ZDUhP 


SCUMP 
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K 684 
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XXXXX 


3P uCTAL 


KF683 

HC686 
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-B- 
FRACI I 


o XXxXX 
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(<■ 688 
Kf689 
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XXXXXo 
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RC693 
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R 716 
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MAX MIN CjHP=39 

SEC C3rtP=^9e^^9 
MAX CAPACiTY=74p HRS 

39 .HI NS 
14.55 StCS 


8HcN LCAjINGt ALL 3 
CO-HP JNEHTS HJ.sT 8 £ 
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R 1 7 7 6 

PCSITIUN5 

XXX, XX NAJT Ml 

DP 

RC777 
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CODE * 

1 YPt 

SET oY 



R l 828 

C, 11l 

AO MARK SINCE LA3T MARK RcJECf 

sxtmakk 



R C 83 L 

ceil i 

NU Ir-JdirS 

SXTMAKK 



RCSia 

C 114 

MARK MADE BUT NuT DESIRED 

SaTMaRk 



R C8J4 

00115 

JPTICS TOKLiUE REJUESTWITH SrtlTCH NOT AT 

EXT VERB 

JPTICS 

CDU 

RLR36 


CGC 




j< .837 

OOllo 

JPTICS SR ITCH ALTERED BEFURE 15 SEC ZERO 

fARUP 1 



RL839 


TIME ELAPSEDo 




R C 84 c 

0 G 1 1 7 

JPTICS IUkwUE request WITH UPTICS NUT 

t:XT VtXJ 

OPT I CS 

CDU 

~l<xe‘42 ■ ^ 


~ yv AlLlOTF TORTTnu^^ 




fN 'w 6 ^ 3 

CL 120 

JPTICS lUkwUE REQUEST WITH OPTICS 

TAKUPT 



Rt 845 


NOT ZERO ED 




RC846 

: : 1 2 1 

COUS NO GOOD AT TIME OF MARK 

sxtmakk 



RC 84 a 

■ a.21.5 

BAD PIPA READING 

S fcRV I imER 



R 085 

0i.2' 6 

ZERJ ENCUDL NUT ALLOdcD WITH COARSE ALIGN 

IMU MODE 

SW 1 T CH i NG 

RC852 


+ GIKBAL LOCK 




R - 65 3 

1 C2C7 

iSS TURNON REQUEciT NOT PRESENT FOR 90 SEC 

T4RUPr 



“R^855 

VGJ21;- 

IMU NOT OPERATING 

IMU MODE 

r Lri f 

1 f Kw 2 t 

K 65 7 

1 C211 

COARSE ALIbN cKKUR - DRIVE > 2 DEGREES 

IMJ iJOt 

SW 1 1 CH 


R f 859 

00212 

PIPA FAIL BUT PIPA IS NUT BEING USED 

IMU MujE 

Swl T CH, 

T4RPT 

R real 

C '213 

IMU NOT OPERATING WITH TURN-ON REQUEST 

T4RUP T 



RCe 63 

^ C214 

PROGRAM USING IMU wHEN TURNED OFF 

TARUPT 



RCfcbS 

0-217 

dAD RETURN FROM STALL ROUTINES. 

bURT A I NS 



RL 867 

O'-- 2 2'. 

IMU NOT ALIGNED - NO KEFSHMAT 
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RL 869 

C0 4( 1 
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IMF ALIGN, iHU-2 


K 08701 
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P52 




«-■ 04'i,. 4 

TARGET OUT GF VIEW - TRUN ANGLE > 9. DEG 

R52 
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T w u "staks Nonr^rATLAb l e 

“P32',p54 



R‘, 6 75 

CC 4 L 6 

RENO NAVIGATiuN NOT OP ERA TING 

R2l,R23 



RC877 

00421 

W-MATRIX uVEkFLUW 

iNT..GKV 
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wSl 10 CDH TIME Lf PMIN22 
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number of iterations EXCEcDS lucp maximum 
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R->7 
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00611 

,va TIG FDR GIVEN ELEV ANGLE 
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K .895 

1 C612 

jTATE vector in wrong GPHERE of iNFLUENCt 

P37 



RL697 

CO 615 

reentry ANGLE OUT OF LIMITS 

p‘37 



R0899 

• 777 

PIPA FAIL CAUSLu ISS rfAkNING. 

T4RUPT 



R 090 1 

nii 2 

CMC SELF TeST ERRUR 




R09r5 
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jOWNlINK too FAST 

f 4 RUP 1 
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UPLINK TOO FAST 

T4KUPT 
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ALARM ROJTINP 

ALARM 

ALARM 

ALARM 

ALARM 


ALARM 


ALARM 
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ALARM 

ALARM 

ALARM 


ALARM 

ALARM, \/ ARAL ARM 

ALARM 

ALARM 

ALARM 

ALARM 

A L A RM 2 

ALARM 

ALARM 

PRIOLAKM 

ALARM 
V ARAL ARM 
VARALAKM 
V ARAL ARM 

VARA LA KM 
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V ARALAkM 
VAKALARH 
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R5 92i 
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Gil 7 PHASc TABLE FAILURE. ASSUilB 

ERASABLE hEMURY IS OESTKUYED 

liri ARCS IN -AKC CCS AKbU MENT T QU LAK b E 

'14'. 7 VG INCREASING 

1426 IMU U.MSAT1SFACTJKY 

1427 IMU REVEkSEU 

152. 7.>7 REQUEST NUT PERMITTED AT THIS TIME 

cl6C: oVERFLUrt IN URIET TEST 

C'16C1 SAD IMU lOkuUE 
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212^4 * NEGATIVE OK ZERO WAITLIST CA LL 
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71 A KEYBOARD AND DISPLAY PROGRAM 
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2i5ri 4« KtYBUARD AND DISPLAY ALARM DURING 
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21502 * ILLEGAL FLASH INo DISPLAY 
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illL4 > DELAY kOJTINE BUSY 
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r4RUPT 
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P37 

W A 1 V L I G 1 

HINBALl 


iMu MODE Switch 
INI t.RPRETEK 
PINBALL 


GO Play 
p I , Pt.' I 

gEKVI CE ROullNES 
cXECU TI VE 
EX ECU I iVii 
WAI TL 1 G T 

g'XTMAKK ~ 


ALARM 


AL ARM 
ALAPM 
ALARM 
ALARM 
ALARM 
ALARM 
ALARM 

ALARM 

VAR ALARM 

VAkALARH 

VARALARM 

V ARAL ARM 

VARALARM 

VARALARM 

POUDDO 

PGODOO 

PODDOO 
P OOD 00 
POODOO 


POQDDU 
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POODOO 
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POUOUO 
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R<.97 7 0Gil4 KcY IN FINE ALIGNHENT OPTION 
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1ST979 CCUlG KcY IN TERMINATE MARK SEUUENCt 
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Tu CKC^A'UTD 
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SWITCH 
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SWITCH 
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UCNJUNCUJM WITH V EKb .AN jUNi.6 T J KcJUtST THE ASTRuHAUT TO LOAD iNTC 
CCMPONfcNT t<Z THE OPIIDH HE DESlRtSo 


K'S/9A Vi 7 




*ll tJLOi^N 


k SASc L FT I ON 

k‘-90Y CODE PJkPOSE 


INPUT FOR CurtPuNcHT 2 


PROGRAM tS) APPL ICARILITY 


RL99S 

H iC L» i 

OCCl2 

SPECIFY 

SPECIFY 

IMO ORIENTATIO'^ 

VEHICLE 

l=PKtF 2=NGM 3=RErSMMAr 

1=1H1S 2=0THbR 

PS'S 

P21tK3 

ALL 

ALL 

K it T3 

0^^' . . 3 

SPECIFY 

TRACK IMG ATTITUDE 

1 = Pk fchtRKbJ 

f<63 

ALL 

R it u S 

C v». < 

SPECIFY 

STATE OF TRACKING=FULTKFLA 

vsFUEL i=PARflAL 

P2 

COLOSSUS 

K !<: 7 

CCt 6 

SPECIFY 

Kk COARSE ALIGN OPTION 

1=L0CKUN 2=CJNTlNUuUS OESIG* 

V 41i 1 Y2 

SUNDANCE + LUMINARY 

K IF 

0 0 ■ t f 

SPECI FY 

PkOPULSIQN SYSTEM 

1=SPS 2=kCS 

P3 7 

COLOSSUS 

RICH 

' . F 1 . 

SPECI FY 

ALIGNMENT MODE 

C-=ANY TIME i = K£FSMrtAT +G 

P5r 

LUMINARY 

R K13 




2 — ThQ idQuIEis ^=QNE BODY + u 



Rlt lA 

w vU 1 1 

SPEC! FY 

SEPaRmTION monitor phase 

1 = 0ELTAV 2=:iTAIc VECTOR UPDATE 

P46 

LUMlNAkY 

k li 1 6 

C’C'f' 12 

SPECIFY 

CSM QR6II UPTIJN 

1=NU ORBIT change 2=CHANGt 

PZZ 

LUMINAkY 

RH 16 




CR3IT TO PASS OVER LM 



R l< 2< 

I.C024 

SPECI FY 

TRACKING OPTION 

L' = REi>i JtZ VO US f VfcL-POiiJl 

P2 . 

COLDSSUi 

R If 22 




1 - CELESTIAL BODY, VECPulNT 



R li 23 




2 = ROT AT I CH 



R K 24 




4 = REWDEZVDUSt 3-AXlS 



K It 2 b 




b = CELESTIAL sODY, 3-AXIS 






,ZfuXSJ,I 


(HAINJ 


f AGh ijL2 


— r 


ASimt'Lc KLja^lUd. /rX-Jj£.^.t^.edUldiAH--AiiIcl4I5^J^^ ^ i2iiX£-^ii 


TAGS FUK K£LAriVL StTtOC AND iiUAt^K BANK CAKuS 


USER'S KAGfc.NO> 


I 1 


Rtf 


44*2^0^1 44f2i,)e 


FlXLu 


MEMORY i2uL. .: - 167777 

Count b an k b om 


f ^ 'i 23 

vCC3 
tv )4 

. i ' . 3 

V , ' } 6 

NODOLt 1 

luntains banks . THkGUGH 5 

4ijO 0 

4jS V FFTAGl 

4ui FFTAG2 

4JL 0 FFTAOB 

BLOCK 

EQUALS 

E wUAL^ 

l: kJUALS 

T 

_i^ 





9 

y< . 9 

-n,' 9 

■ . 'L' 1 1 

Lr lr 5 

<011 


4oCO 

40C*0 

4300 
4-; CO 

40 V. w' 
40'jC 

• ■ ■ - - 

FFTAUA 
FFTAb7 
FFT Ab6 
EXElF2 
MAI T F2 
FFTAblL 

tUUALS 
c <i^U ALS 

EQUALS 
b QU ALS 
b w U A L 5 




- - 

- — 

1 

"1 

L 

( 125 
( 126 
a' 13 

0 WUKb>j LEFT 

4o u 0 
4000 

4 o V* i i 

40 C >j 

NU N£t.U 

'Fft:^gT2 

P3v SU bS 
STOP RAT 

lUUALo 

buUALS 

EQUALS 

BNKSUrt 




- 

- 


^114 


0 J 1 0 



liLCCK 

J 






; 1 5 


^ «■' 


I NT EK F3 

£««} UAL ^ 







£16 


6 U C u 


FFTAb6 

cUUALs 







1-0162 


6vi' 


FF r Abl3 

E -iUA 






1 

U 17 

41 ttUKCi LEFT 

7726 

,.112t> 


BNKSUM 

3 





# 

.017 


112.1 

^llZl 1 










it 

V 1 i':^ 

. ( 1 S 1 

‘U 2‘" 

6 hi UK Li 

LEFT 

OC f 26Ct/ 

C C # 200 0 

C 0,2 00 0 
■- ,3767 

0376? 

1 

DLAYJOB 
INTER BO 

BANK 

E mO AL S 

EOUALb 

BNKSUM 








1 2 ' 



V V 1 -J' 7 7 ' 

r377 

1 










O'O 2 1 

22 

Ci 222 



01 , 2QU 0 
3i,2OC0 
01,200'^ 



restart 

R 2 

SANK 1 

EQUALo 

EUtlAL^ 







1 

CC23 
' 023 

22 WUKCo 

LEFT 

01, 3751 
w 1,3752 

03 731 
,3752 

1 

1 


BNKSUM i 








231 
<1 232 



u 1 , 20C U 
il, 20 O.C 



INTEKBl 

EXECbl 

EUUALi 

UAL ^ 








• i 2A 
^025 

L '26 
\-:26 
■:L29 



J ^ f Z U C SO 

04 f Z JU *0 
o4 1 Zu ^ t 
*,4 f Zu U 
J4,2G00 



y6R&37 

P p S4 
Cpl/COHi 
INTPRLI 2 

3mNK 4 

iiUUALS 

EgUALS 

EQUALS 

EwUALb 







*1 


uAPl A.Si£MidLLL ‘ 7.a-JJF„.AbL-iLliUk&Ai4-_AfcaiLi41S-^y . Z 


1 

TAGS i-UR RtLAFJVL jETCUC ANU BLANK BANK 

CARDS 


2 S' 4 


KIDOGIM 

tUUALS 

< ' 29 5 

t- ^ f ^ j C' o 

P31TAG 

t vijUALS 

0296 

V 

Cl J3ANK 

L wUALo 

. 0 2 S 6 

Of 3 c 

i zi J w 

1 W JK LcPT k3T7m 1 

P6 >S6 

E WOALS 
BNKSUM 4 


£631 

C032 

.*5 1 2 U u 0 

V 5 t2Uub 


FRANDHt 

BANK 5 

E WUALS 

1 1-33 

^ f ^OG 0 


DUWNTELH 

£ GOALS 

• - 33 5 

3 f ^ U 0 W 


OAPrtASS 

cOU ALS 

■ '336 

J i f J L/ C 


CUN 1 C j4 

L gOAL::j 

' '-337 

t f ^ool 


X T A GX 

G ^ UAL 

<338 

u5,2CCD 


17^1 1N1T3 

L«^UALs> 

•:C34 3 WUHLS LEFl 

5i 3774 

L 37 74 

i. 

dWKiiUM ^ 

Ci 34 

v5,3775 

13775 

1 



f<Cl3A5 -iJDULE I CUlMTAjif^iS 6 THROUGH 13 


Vl;3A»- 



.j6f 




BAfllG jb 

vA 36 



J 6 t ^ 0 C 



IMUCUHP 

t wU AL G 

'( 37 



CO f 20C''.i 



T4I<UP 

cGUALS 

f c377 



G o f ^L* C 2 



CSIPrvOG 

EUUALS 

C 3 7 0 



I Z J L 



P6cS7 

EgUALS 

0038 

rJuK DG 

LEFT 

^ G f ZU i 

Nu 

NirEU 


J iM K S U M ^ \j 

L S 3 9 



. 7 f 2 j j ci- 




BANK 7 

' ' 4l 



^7 f Z G G 



sxtmarke 

EgUALS 

M 42 



:7tZooo 



RGDlSW 

EUUALS 

Of 44 



07 f 2iJuO 



KEYKUPT 

EgUALS 

' C 445 



07,2000 



CG i PRUGia 

fcgUAL^ 

)446 



07,2000 



RATEBNK 

EgUAL j 

.245 

iftURD^ 

LEFT 

) 7 1 2 ‘ L - 

NU 

NEED 


dNKSUH 7 


Cf 46 

CG47 

10, 2 b C J 

10, 2 JC-v 

display j 

BANK 

E U U A L G 

i : 

c'C48 

X G f Z L/ 

PH AS ET rtii 

EgUALo 


■0049 

X * > f Z Jf G c 

C0MGb0K2 

t WUAL d 


v'C51 

L L f Z J u 

PO- S4 

tgUALS 


0052 

1 ^ i 2 J L- ' 

UPTLir V 

tgUALS 


SC 52 5 

i 0, 200' 

C ^ X P K OG 3 

c jUAL S 


Of 526 

X J f ZG L 

KALCHUN3 

tgUALS 


fC 527 

i 

C 

<v 

C 

CUN 1C 35 

E QU ALS 


c':53 

0 LEFT iCfZ'GL'.^ 

40 NEED 

B N K > Uri 

i . 


1 1 » 2c c . . 


-.154 


BANK 


li 


. iX;A_ .£biU.„26,<.IQ.7J IHAl Mt 

USER'S PAGE NQo 2 


clSs r ALL - CHANGE CODE I t- IHIS \ 


Aa AP : ASS ja£^ LhLiM - . 7Z CH Al, L PKU ^kAA Aiil-EiU S BJf .JiASA^ Zltlk- . 


L 

TAGS rJK KdLAriVc 

>ltloc and 

tiLANK SANK CARDS 





L J. f J U b 

UKDITAL 

E OUALo 


« • 5 6 


X 1 > JV 

CR3ITAL1 

c^jUALS 


i- i' 3 7 


11, 2 JOG 

I NI V t: L 

t juAlo 


' L i>6 


1 1 » 2oi ' j 

S52/2 

ti^UALb 


' 58 5 


1 X i2jv>u 

CUi^I CS3 

£ WU ALS 


c 586 


11,2000 

INFINITI 

£«iUALS 


:x59 

5 WORDS LtFT 

11,3772 

u37/2 w 

SiMKSUM 

11 

1 ^ 


11, j773 

3773 1 



<w L b - 


i ^ f 4. ^ ' 


BANK 

12 

V Cbl 


1 9 U L. L 

CUNICS 

dUUALG 


V0611 


12,2og;' 

E/PRUG 

c Q U A L ^ 


vC6i5 


i z f u L L 

CS1PKUS2 

EQUALS 


^C616 


f . 

CS1/GDH2 

t30ALS 


"u?r61T“ 


r?, 2 ggC 

^j90 Tag 

c wOAXb 


ct6i 

5 WORDS LEFT 

12,3772 

3772 S 

BNKSUM 

12 

CG62 


i2,:>773 

377:> 1 




0063 


13.2000 



BANK 

13 

Ct 64 

• V. 65 

G( 6 6 
wC '67 

t:t 675 
677 


i 3 , 2 JC 0 

13,2000 

13 , 2006 ' 

1 3 , 2 D D 
13 , 2 GC>: 
13 , 200 : 

- — 

P 76 LUC 
LATLONG 
INTI NIT 
Sk 52/ 1 
QK 31 TAL 2 
E/PROGl 

two ALS 
£ ^0 AL S 
EuUAlc) 
tUUALj 
tWUALS 
EQUALS 


C V 67 d 
< C 69 

UV 69 

6 WORDS LEFT 

1 3 , 20 o V. 

13.3771 

13.3772 

• 3771 0 
3772 ' 

P 24 PR 0 G 

EUUAL 6 
3 NKS JM 

13 

RGC 7 ii 

SPACtK 







RCC7 b 'iUDULii 3 CONTmIi^^ 3Ai4>iS 14 THKUUGH Zi. 


C071 

^072 

^: 73 

« .74 


i 4 f 2UbO 
i ^ I ^ o 0 

X ^ f ^ 


P5u S 

KT53 

P5osl 

GA»NK 

E W U A L 0 

Equals 

EQUALS 

14 

DC 7 5 

LG 75 

4 WURCS LEFT 

14.3773 

14. 3774 

G3773 1 
v3774 . 


dNKSUM' 

14' 


• 4 


LL: 7 6 
GG77 


15,2000 
15, 2 J 0 O 

STARTA3 

DANK 

E QUALS 

13 

.l78 


i5,20uo 

£ TRYUAP 

E wUALo 


A. 0 7 ^ 


15,200U 

CDHi AGs 

c wU AL6 


; GC795 


1 5 f ^ 0 C* ^3 

CONIC SI 

0 QUALo 


. COSO 

9 ' — - - 

1 WORDS LEFT 

15,3776 

' 3770 1 

3NKSUM 

15 


uia-iJ 



ISLll 


UStR'S PAGfc Nu.. 



CCJilS i AN I G 




ASi-ErtJjLfc. □£ — ijkjL PAtii.ikAM AkT 4-M1S ri Y L _% /* i t 1 -4- 


L TAGS FUR ALLAriYt; SLTLUL AND BLAfJK l3ANK CAKUS 


• 1 

i .. ■ j 2 

k.«' 33 

X o f -idLi iu 

X o f ^ Vi t* ' / 
16 f ZuUv 

P4uSl 

DAPRULL 

6>4i»lK iu 

tk^UALb 

t WUALi 

C 1 34 

lo t 20u w 

Pbv; 

LkjUAL-. 

•: i 8 A 1 

1 6 f L - 

iwrvLLi 

EQUALS 

rcriA2 

1 6 f Z w' 

kTc2 

EQUALS 

■A. 84 3 

1 6 1 'C j 

CSlPKUub 

C iaiUAL 6 

‘ 844 

1 6 f Z U L u 

LATLUNGi 

EQUALS 

<t3b 1 WURDS LEFT 

16,3776 

k,37 76 1 

3NKSUM lo 


L t 86 

•.'CS65 

(87 

Liae 

i7,2uU0 

17,2000 

17,2000 

17,2000 

EXT VR BS 1 

DAPS4 

DAPsb 

3A.TK 

bquals 

Equals 

equals 

17 

jca9 

1 T f Z U U 6 

CAPi7 

EQUALS 


CC3^1 

1 T f 2aj 0 

P50S3 

c i^UAL6 


C< S9i) 

17,2000 

CUi\tloS2 

t jU AL6 


Ct9( 5 WUR05 LEFT 

17,3772 

37 72 V 

BNKSU/^ 

17 


CtQC lit ^773 3773 i 


'.091 

. _ 2Q,2QUi} _ 



udinK Z 

^ 1 9 2 

20,2000 


DAP So 

h ;4UALZ> 

1 93 

z J f z J u ^ 


DAP SI 

EqUALo 

00 94 

Z u f Z J 0 ^ ' 


DaPSZ 

EQUALS 

B(. 041 

Z*j f ZOOC' 


MANU6TUF 

equals 

943 

20 , 2'J(.t 


VAC5L0G 

Equals 

L945 

2 jf 2Q'L.C 


P15LUC 

E: wJ AL^ 

00 946 

2 u , 2vj u U 


P29TAG2 

EQUALS 

C( 9 5 

23 WORDS LEFT 2vi,3750 

[i375o G 


DimKSUM 2 

Cl. 95 

20,3751 

u3751 1 




C( 96 


21,2qD0 


SANK 

21 

K(91 


Z1 f zuc c 


CAPS3 cw^Al^ 


Ch 9 3 


Z 1 f Z ^ K. 


MYSUaS cQUALj 


00 985 


Z 1 f Z'J L 


PilTHREE Equals 


00 99 

6 WORDS LEFT 

21,3771 

:.3771 0 

BNKSUrt 

21 

4 {>OQ 


21f s772‘ 

o3772 0 




R CO 995 

... ■' 

i-IQDULE 4 CURTAINS BANKS 

22 ,2ol' 

22 THROUGH 27 

BANK 

1. 1 

Z Z f Z u L 

RTBCODES 

n WUALS 

i- 1' 3 

ZZ r ZuC 

DAPsb 

n hJU AL 6 

1.4 

22,2000 

APJPERl 

EQUALS 

'"1l6 

22,2000 

KALCM0N2 

E w L> A L S 

cm? 

22,2qvi0 

KALCMUNi 

EQUALS 


■r 


IJIIVII III I ^ an 




ij LLJ-<1 Ft-a. f M:\1 4 j 


UiiiR'S PAGt r.U- 


7Z.JU£ 6i^i._£tUJUKiiA_APvLtM ib ..bY iiASA A.Zlll-i- 


it AH I 


L 

T AOb 

PiJK fshLATiVh 

bETLuC AND 

3LANK dANK 

CAKiib 


1 JUT5 

1 10 7 6 



^ 9 E V ^ 1 

ZZf^UUi'' 


CSIPKUbi 
P36T Ali 

tUUALS 

L. 0 u A L S 

C108 

4 

WORDS LEFT 

1 377 3 

■3771 1 


bNKSUM ZZ 

vies 



22,3774 

L3774 1 




' 1 ^ 

23,2000 



dAi^K 23 

'll'. 

23,2000 


P2uS2 

c UUAL^ 

illl 

23, 2 JO 0 


INFLi jriT 

b ALS 

iiT2 

-- - 2rS,Z5Ul~~ 


CDMo E Ui'i 1 

LjU AL;i 

V 113 

23,2000 


po wp Lire 

3 A L 

1 1 4 

23 r2u JO 


POrtFL ill 

EQUALS 

t 116 

^3 f ^0 w 


PUrfPLlT2 

b AL^ 

.:ii7 

2i,2J02 


R3oLUO 

E i^UAL S 

lias 

23 f 2'J C V 


CblPRU64 

c«iUALS 

'^1T9 ■ 

“4 ■ Wk DTXHTT ~2 d ,177T~ 

'J3T7n, 


3]^KSUi-i 23 

<119 

23,3774 

C 3 7 ^ 4 u 




C12 

24 f 2ii0 



BANK 

24 

<121 

24,2000 


k 1 dLUDEi 

E wUALb 


122 

24,2000 


P4 jS 

tOUALj 


'122 5 

24 f 2 ^ X- j 


Cb 1 PROijT 

tiQUALb 


C1226 

Z 4 f u‘ w 


RJoCiA 

EQUALi 


C1228 

» jOl 2.1 r'"* 

f ^ tJ •> ' 


P2;S5 

EtjUALb 


(125 7 WUKDi LE FI 

24,377<. 

^377J 1 


3 N K S U H 

24 

C125 

24,3771 

. 3771 o 





(126 

^127 


25,2000 

25,2w.c:- 


3ANK 

KtvNTRY tOUALo 

25 

0126 

C128 

6 VJOROb LtFT 

25, j771 
25,3772 

„3771 V 
037 7 Z . 

6NKSUH 

23 


<129 

L130 

'131 

0132 

26,2000 
26,2000 
26,2000 
26,2G:, 0 

- 

IMIPRtl 1 
RkENIRYl 
Po'ji 

b A NK 
cwU AL3 
tjOALb 
tOUALb 

26 

■ 133 
0134 
0133 
136 
i 137 

0 138 

26, 2o'J0 
Zot 2000 
26,2uD(- 
26f 2J00 

2 o , 2000 

2 o , 2 0 0 0 

- 

P6vSl 

Po^ 62 

P 6 J S 3 
PLANT IN 
EPHEM 
p!.5Pu6 

EUUAL^ 
cJUALj 
E jUALb 
EgUALb 
c WtJAL3 
E jaALd 


1331 

4^ 6 1 ^ j L U 


26P5\.S 

EyJAL3 


'1333 

26, 2000 


pji.. 3i A 

tOUALb 


. 1334 

ZOfZuL'^ 


FilFLiUR 

E 4^ AL S 


0139 

4 WUr\C> L£FI 26f J773 

37 73 1 




r 130 

Zot ^ 774 

37 74 





11 - - 





. 11 : 1- .. lEB^ . Z6^197i Lilli.a JLL 

UbEK*b PA'oi!:- hU . .? i. 


LJ.'^^AR 1' 


1 


Ai 

3 L t"! 8L t A vt V 131 Uil . 

7^_„UF MUL .PRJiiRAMiiRlFMlS EY NASA ^:2il.i4-.il .. . .. 1 x:4l .. 26^19_?^ (MAX31 

. Pjr2UL 3Z 

1 

TAOS FUK iCcLAnVE 

SETUJC AND 

Blank bank 

CAKU6 

USI.t * -• f A'jL ilGv h 


f ' L H ^ 







lAl 


- - ZJtZiiCO . 



BANK 27 


1 -t / 


f 1 ^ ij' w 1 


TUF— PF 

EQUALS 

L 

' 144 


27,2u6C 


MANUVtk 

EQUAL.> 


^ 14 1> 


Z 7 1 ZU OG 


MA.'iOVERl 

c ^ UAL 3 


< 14&b 


Z 7 f Z C G G 


P4 S5 

t wU AL^ 


> 146 


2 7» 2DUC 


VECPi 

EuUALS 

It 

147 


z 7 f ZG O'j 


MvjI M 

hQUALS 


^-146 


ZT f ZvHi u 


UPDATh2 

LUUALi 


14^ 


Z 7 f Z ' j U f ' 


R22S1 

EQUALS 


1495 


Z 7 f Z 4 C L 


Po jS6 

c w U A L 3 

! 

it^ 

14 96 


2 TuiOuC. 


COHTAG 

EQUALS 

t * 

ul497 


2 7t 2 JU0 


JANES UB 

EQUALS 


list 

1C aORD^ LtfT 

27,3765 

L 3 7 6 3 V 


3NKSUH 27 


C 1 ^ 


27,3766 

03766 w 




K 15' 5 

MODULE 5 

CUNT AI NS 8ANKS 3^ THKOUGH 33 

- 

« 

C151 





.a . _ . . . . . .. , 


'153 


30,2000 


LUWSUPtR 



156 


36,2000 


P2.iSi 

fcjUALB 


«:157 


3 U 1 2 J u U 


P2jS6 

cuUAL6 


Cl 5 7 5 


30,20CC 


P4 63 

cUUALS 


.15 76 


34,2u'C’' 


P29TAol 

tQUALS 


1136 

8 huRCS LEFT 

3U # 3 7 Q 7 

37o7 1 


BNKSUM 3 


Visa 


3^, 377' 

'-37 7 1 




1 5 9 


3 J. f 



dAi^^K 31 


V 161 


31,2JC' 


RT23 

t^wUALS 


0162 1 


3i,2voC 


R34 

Equals 


'162 5 


3 1 1 Zu Z • . 


COriT AG2 

equals 


•1626 


31,2 jtL 


CSI PRUl>9 

t WU AL3 


C 1627 


3i,2QuO 


K3i 

EQUALS 


0162 8 


31,2000 


P226 

L wUALi 


• 1629 


31,2000 


RTES 

bQUAL.i 


c 16295 


31,2000 


MEA^INCS 

fc uual ^ 


t 16296 


3 i f Z u 0 


V89T AG 

£ yU AL3 


C 163 

7 WORC;> LEFT 

31 f a77 C 

.-377. 1 


ONKSJi< 3i 


^ 16 jj 


31,3771 

C3T/1 V 



r 1 

.164 


32,2000 



oANK 32 


' 165 


32,2000 


P2 .-'S':# 

t UUALS 


' 166 


32, 2GD6 


Kl c 

equals 


. 167 


32,2600 


JELK3 PL 1 

£2 ^ 6 M L o 


' 1675 


3 2 7 ZU If '-r 


I Mu G AL 3 

c4GAL3 


K 168 

2 WURDS LEFT 

32,3775 

i3775 1 


ttNKSUM 32 


ci6e 


32, 377o 

.^776 1 



, - — — ^ — — — — — — — — 


> 


4 




Aii :> tM L U S ION. QF. PRUGRAri A.U EMIS bV NA^A 1 1-. ^ 


uAP: 


116 9 

. lYi 

: 171 

TAGS 

hut\ KcLA T 1 Vc, 

StTLUC AND 

3 3 « ZGGc 
33,i?U0t 

33,^oau 

BLANK bank 

C akU^ 

1 1 L £ A D 

IrUtAL 

3Aa'K 33 

c ^ ui ^ 

t: 3 3 A L 3 

1 ni 



33 1 ZC CV 


P X X I 3 

c 43 AL3 

' 1 us 



J3 I ZuD '^1’ 


PisuUGi 

i_ w3A L3 

174 

1 

WURC^i LEFT 

^ 3 f 37 7 6 

^7To 1 


3NK3UM 


L173 

34 f 2000 



BANK 

14 

V 175 
■ 1/6 
1177 

34 f 2000 
34,20CC 
34,2C0G 

- 

PliUNt 

P2 J.3 

P2 .S4 

c DUALS 
c. iU aL j 
caUAL-> 


1771 

ei76 

34,2000 

5 mUkCS left 34,3772 

j^ni j 

luF-FFl 

c D 0 A 6 
tiNKS JH 

34 

0178 

34, 3773 

.,3773 1 





1179 

C179S 

CISC 

nsi 


35,2goU 

35,2005>_ 

o3, 200^ 

35,2UGG 

RTtCUNl 

CSl/C'Ori 

Pi^rSi 

3ArJK 33 

t; AL^ 

£ UU/\L3 

EwU AL 

i 183 


35,20QC 

P2' Sci 

cDUAL:! 

11846 


35, ZUL't. 

lNTlNiT2 

£ 4 (JALS 

C185 

7 GORDS LEFT 

35,377u ..j77*. 1 


bHKSUi^t 35 

C185 


35,3771 ^.3 771 V 





RUSS 5 


MODULE 6 CONTAINS BANKS 36 THROUGH 43 




*-186 


3 6 f ^ 



BANK 

36 


C188 


36,2U‘-6 


Me A3 I NL 

c lUAL^ 



0189 


3 6 f Z 0 M 0 


MEaSINCI 

c DUALS 



Cl 9 • } 


36, 201; u 


P13LOC2 

£ U U A L 3 



~I9(J3 


36,2000 


P2v S7 

1* nil 0 A iu ^ 



C191 


3 6 1 ZOO o 


HTEl 

EDUALS 


_ 

'U911 


36,2uUC; 


S3435LUC 

EQUALS 


f 4 

1192 

9 

-WORDS LEFT 36,3766 

03766 i- 


BNKSUrt 

36 

1 ^ 

tl9 2 


36,37o7 

C37o7 1 





01Q3 


37,2000 



3 Ai'^iK 

37 

3 - 

C194 


3 7 , 2C 0 1.' 


P2.S 

L QUA L 3 


* 

119 5 


37,2u06 


6uDY ATT 

E ALO 


u _ 

6196 


37,2006 


R£i« JbZ 

LDUALS 



C197 


3 T t Z U ti c 


SEKV 1 CE S 

EDUALS 


7 — 

01977 


37,20GO 


CD IT A 03 

£ mU A L 3 



< l^H 

59 

WORDS LEFT 37,3704 

^ 3 7 J 4 1 


BNKSOH 

37 

0 

■- 196 


37, j>765 

.3765 ^ 




e 











11; 4. 2 6. ISLli t MAI Ml 

t 


USER'S page NOft 


7 


▼ 



L< At' 


j lUUiLL r. L ^ 1 S 1 tJfj ^ 7x1 LF Al.L .t i l £M Ji dY i^A 


E£a^ Z6i,. I axi 


_a 


V*^l. ■ ' 

J.-IUr^ 


1 fiJ. 


iliaiJL 


Jilt. 


L I AGS FuK f<;.t,LATlVL ;itlLUC AND BLANK cANK CAi^DS 


UStR'S PAoF 




1. 1 9 ■-> 

- 

1 2v 2 



40 * 2u.w V _ 

4<.. y 2000 

4v f 2i)U' 



FiN^UFER 

PINBALL! 

BANK 

EQUALS 

EQUALS 

4. 




’ 

,23 

2 

WORDS LEFT 

4 f J ? 7 5 

J 7 73 

1 


BNKSUrt 

4 





Z* 3 



4 . y 3776 

3776 

1 






— _ _ , 


^ Z ' . 4 



Alt Zw L "i w 




BANK 

41 



- 

r 

2^ 



A 1 f Z c V 



pinballz 

Equal s 






' Z o 

lA5 

WORC^ LEFT 

41 t3^56 

VZ^^o 

4 

X 


3NKSUM 

41 





2 0 



41,3557 

3557 

t- 





- 

- - - . . 

- -- 

2<- 7 



AZ f Zo 




BANK 

42 



- 

- - - 

•'2i. e 



42 y 201 V 



SBAND 

equals 






■ 2^9 



42,2000 



PIN BALL 3 

fc uiUALi^ 






^2-95 



A2 f Z^/* 7 



EXTVBS 

vjU ALS 






C2L97 



42,231 J 



LPDAT c3 

equals 






2 1 » 

2 

worLj left 

42,3 775 

l377 5 

1 


BNKSJrt 





A 

21 



42 f o>7 fo 

03776 

1 









211 





43,2:;jU .. 



BANK 

4 i 




. 

' 212 





43 f 2< U 1 


S ELFCHtC 

i: WUALS 






^213 





43 f Z'3 vJ L 


EXT Verbs 

Equals 






^214 

45 

WOKLo LuFT 


43 1 3722 

0^7 ZZ ') 


6NKSUM 

43 





1214 





43,3723 

3723 1 








'213 

R EF 

1 



2o, 3335 


HI oZtKOS 

E QUALo 

ZEKUVtCS 

ZERO 

VEGTuR ALri^#XY3 

i\' 

h I H Ml "'1 L> R 

216 

REF 

i 



- A t 3 / 6 1 


LaBZtKOS 

t:UUALS 

ZERavEO 

ZERO 

VECTOR ALW/iYS 

IN 

LUa H£f!UK\ 

-217 

REF 

1 



26,3333 


HIDPHALF 

tr UUAL^ 

UNll X 





21S 

REF 

1 



4,3757 


LQDPHALF 

t Q U A L S 

X U \ 1 1 





-219 

REF 

i 



26,3325 


HI DP 1/4 

EQUALS 

CFi/4Tn 





f-22 

REF 

1 



13,3411 


LUuPi/4 

EQUAL o 

Zi/ 4 

2DEC 

.:,25 



,221 

REF 

2 

L A^T 

3A 

26 ff 333 3 


HI UNI TX 

EQUALS 

UNI r f\ 





0 222 

REF 

1 



26,3331 


hlUNI TV 

EQUALS 

UNITY 





-223 

REF 

1 



^^9 332 7 


HIUNl rz 

t QUALS 

LNITZ 





0224 

F< t F 

2 

LAST 

jA 

4,3737 


LuuNi rx 

EQUALS 

auni r 

20E0 





REF 

i 



4,3755 


LUJNITY 


YUNlT 

2060 




0226 

REF 

i 



-4,3753 


LUUNi TZ 

Z Q U A L3 

ZUu! T 

20EO 

1 



227 

REF 

1 



11 1 3 7 6 O 


3/4LUWDP 

Equals 

3/4 

2D lC 

3oo B*-2 



<228 

REF 

1 



3 . ,2C’Uu 



SBANK= 

LJWSUPeK 




f 


R‘.22« 

ROPE 

SPEC! FIG 

ASSIGNS OoYlAUNG NEEL TO CHECK CUHPU1E.\ FLAG L i EuTVrNUZVlNG 

iNTLbRATiUN AREA ENTRIES 



<231 

REF 

i 

13,3161 0THPR5C EQUALS LEHPRcL 




< 232 

REF 

1 

13,3034 AIuPUTH EQUALS AlUPLEl 



V 

i.233 

REF 

1 

13,^761 ATUPTHIS EQUALS ATUPCSH 




0234 

REF 

i 

173 MDUNTHI^ EQUALS CHGUNELG 





> 


ASi> fcmUL JL51 iJN-il 12^ A WU. , i?RU SRAM- AALEMIS Ji t JiiA^A ll;4,^F:EB . 26.1971 (MAIMI PAGi^ ib 



TAGS 

FUK 

KtlAnVE SLTLOC AND BLANK 

BANK CARDS 



USER'S PAGE NU, _ .X 


rttF 

i 

vi 74 

MUONUTH 

taUALS 

LMiJUi^FLb 



KEF 

k 

13,2774 

MGVATHI S 

EQUALS 

KOVEACSM 


23 o 

REF 

i 

31,2031 

STATcST 

EQUALS 

V 33 CALL 

* r EM PUR ARY 

zn 

KEF 

i 

i 3 , 3 i 4 t> 

rHISPRtL 

EQUALS 

CSMPKtC 


' ^ib 

KEF 

V 

LAST 34 26,3333 

THISAXIS 

= 

UNiTX 



REF 

1 

3 U 41 

EKAol U 

EQUAL;> 

LQwI 

UUrtNLINK ERASABLE DUMf 10 

i .23 8 8 

REF 

1 

6214 

CELAYNUH 

EQUALS 

THREE 



RC239 *♦♦★♦♦♦♦ **4cX»* ^:# ****:# 4!<csjc:<t V';^: jje ;Jt 4iji« jjt ^ajssj. 4;<c 4:;*sSi;;j£^ )(:#: 4e t ^ 


1 


iin 


U AK ; £MaLi . KlM ISIUM UJ^-Uin-AbC .PKajaAil AATi^CU. AJlX - ftl A ^ 2^^X±±4- r.^ L L 


II ; 4 - f g li^ jLhrl ^3_L 


f MaJ 1 i t 


£ 



• « 


A0SULUTE LJCAriUNi PCK UPDATES 


USuH'S HAGt '^U 


1 


_ J 


fr 


U‘ li 
kMII 



ECAUK 


ilEP 

i 

1 

=ECAUK UFSVFLAG 

f:l 3 l 

REF 

i 

_ . 003 i^cj 1 

=hGAUR XSMU 

< 14 ' 

REF 

1 

.1733 1 

= ECADK REFbMHiAT 


atf 

_.l 

_ . 034 c 4 1 

=£CAUR CELVSLtf 

• lb. 

REF 

1 

L 3 ^ ^ idt u 

=ECAJR LATtbPL) 

' 1 7 C 

. REF 

1 

u 34 - 1 2 

=£CADR TIG 

’C 18 C 

jt.Ef, 

i 

i 20 25 1 

.=£CAUR R 1 _S. - 




: 

- - — - - 


CSM/uM bTATE VECTDH UPDATE 
J3 tS 1 K EU_ Rf: F A T U F 0 A T h 


. lFSMMAT UFQ/UE 


EXlEK NAt DELTA-V UFDAT_E 


RtJRjFIRE lXT DELTA-V UR bHTRT UPDAl 


tz 


r • I , 


LAMBERT TARGET UPUATt 


lANUING RlTh vector UPUATE 





gz 


id! 











to 




f - 




e - 



1 > 


✓ 




7 


♦ 


A 






4 




1*- 





7 


4 





UAH? 


■iUA_Lig« Z6»13J.l IMlHi 



L StSRUUTINc CALLS _ , UStKVS PAGfc NUo _ i t S/ 


n J 1 

< L ' 2 

COL' J 

— — — ■ 

CCwL 

■JUuC 

UCGO 

SUQ.KG 

SUBRU 

^ U d H Q 

tRAiTUT L 
ClJGEISiLS 

yEOUS A 

- 41 

1 64 

0 35 






T t iM 


0000 

SUBRO 

MEN t L aos 

v;61 






OOC5 


0000 

oUBRO 

ULYSSES 

W.29 






oc';6 


yOCO 

:>UBRQ 

ZEUS 

1 46 







* «* END C F HA li^ PK UGRA M ♦** _ — 
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^ J; 

IT 7 .L /• /,- 
*' .'L - ■ ** 

’If -■ 


\0 


1 



■-? 


i 


» • 


5 

4 


I ^ 






¥ 




y 


-A^ t 


7 


— -- -■ J 

.72 I^F Ai ^CL. PROGRAM ARl£ MlS_iiY_j4A^ 2^ 2 lX14-_lJ. lt:4 h ... ;>fc.lQ73 f-RASTOTL. 4i bL£.bL- . 


L 

tRASA^Lt: Ai i I :i f>iT S ^ USER* S PAbL 1 . t . _S - 

K C L {. 1 

CCNVLAriU^>iS ANl) AuTATIjUj UTlHitO RUR ERAAAtiLt Ao^iGMMENIba 

k 3 

K * t ' 4 

fcQUAL^ USEiL IN -Tyu WAYJio IT lo .Lli-IPN Uihi) TC. t.HAlNAGkLUP . .. .. - - .. , 

Ue ASSIGNMENTS SO THAT THE GKOJF MAY dE MOVLO fJlTH THE 

CHANGING OF ONLY ONE CARCo fcXAMPLto ^ 

A V 4 -, i) 

A - ' 0 

A_.j. 7 

X taUALS START 

Y EajUaLS X kilZfcoX 

L fc^UALS Y +SlZE.y 

K C ». ^ 

R ^ v * S 

l;-vl' 

IX, Yt AND 2 ARE CuNSECUTiVE AND BEGIN AT STARTs i _ 

ISIZE.X AND SIZEcY ARE THE RtSPcCfIVE ^iZCS OF X AND Y, 

USUALLY NUMERIC, IE, 1, 2, o, IBD ETCo » 

K. 1 ' 1 i 
kv; 12 

EOUALS OFTEN IMPLIES THE SHAKING OF l■;EGlJTERS {OIFFEKENT iMMES 

AND different uATA), EXAMPLE* _ . 

A*.* 13 

X CkiUALS Y - ^ 

R<.M4 
Rut 15 

= MEANS THAT MULTIPLE NAMES HAVE BtLN GIVEN Tu THE SAME DATA* 

(THIS IS LOGICAL EQUIVALENCE, NOT SHARING) EXaMPL6» . _ _ . 

A <- \ ‘ 1 6 

X - Y ^ . 

ft Cl 1 7 
RCLlb 

THE SIZE AND UTILIZATION OF AN ERASABLE ARE 0F1 LN INCLUDED IN 

Trit COMMENTS IN THE FOLLOWING FORM, KlblZDN. 

KCC19 

R002t’ 

Rr,( 21 

~ k CC2 ~2i ■ 

Ri::i23 

RC124 

M REFERS TO THE MOBILITY OF THE ASSIGNMENT* 

G MEANS THAT THE SYMaOL IS REFEKENCEu gY SASIC 

INSTRUCTIONS AND THUS IS fc-BAiviK StNSifIVt* . 

1 MEANS THAT THE SYMBOL IS REFtisENCED ONLY GY 

INTEaPRETIVE INSTRUCTIONS, ANu IS THUS E-BANK 

INSENSITIVE AND MAY APPEAR IN ANY E-BANK. 

■H 

R0€>25 

SIZE is THE NUMBER UF REGISTERS INCLUDED BY THE SYMBOL. 

10^ 

RtC 26 

R ‘ L 2 7 
R3028 
, kw029 

Rll 3 
, RCC'3i 

RLC32 
, Ru(33 

R6C34 

4^5 RCC35 
'RLC'36 

N INDICATES THE NATURE OR PERMANENCE UF THE CUNTENIS^ 

PL MEANS THAT 1 HE CONTcNTS ARE PAD LOAuEG, 

DSP MEANS THAI THE REGISTER is USED FUR A OIoPLaVo 

PRrt MEANS THAT THE REGISTER IS PErMANEUT, I E. I T . ► 

IS USED DURING THE ENTIRE MISSICN FUk ONE 

PURPOSE AND CANNOT BE SHAKtUo - - 

TMP MEANS THAT THE REGISTER IS USED TEMPDKAKILY OR 
!:> A SCRATCH REGlSTuK FUR The RUUf INE TO hHICH 

11 IS ASSIGNED. THAT IS, IT NteJ NUT BE SET 

PRIUR TU INVOCATION Ur THE RUUTINc NUR UUcS IT 

CONTAIN USEFUL OUTPUT TO ANUTHER kOUTINEo THUS 

A 

— — - ■ ■ 




i .** 






l^U.QSLAxiL 


L 


tKASA^LE Aoo I tNTii 


ilSJt 




1^71 F H AS T l;TL _ 4 1 t Aufc 


UifcR'S PAGE_NU 


b S? 


K v< 37 
k tA io 
KCt 39 

-. --W, 

RCt 4 ‘ 
Ki l Ai 
R\.': 


iT HAY BE SHARED WITH ANY QTHkK KJUTlisiL WHILH 
IS NUl ACTIVE IN PARALLEL. 


IN MEANS INPUT 

TO THt 1 

kUUTiNE AND IT J 

. S PROBABLY 

TEMP UK ARY FUR A HIGHER-L 

cVEL RUUnNE/PKQGRAM. 


OUT MEA?4S OUTPUT FROM THE ROUTiNfci PKObABLY 

TEMPORARY FUR A HIGHER-LEVEL KQU FI iVE/PRGGRAM. 


...iiJfcEi. ;L_JUiji^-LSXUXi j L*L u£_ AuL_Jmii.Ail- ART E MI^ bY 

L tRASAbLt A^SluNMtHlS 


PEL 30 

^.PLCIAL KEulSTEftS* 


„CL’.3.I_- 

juOG 

A - 

lC 5 2 

•J 0 0 1 

L 

. 33 

■J Q 02 

Q 

' i 34 

uOO 3 

ESAiMK 

tl35 

■jjij 4 

FdANK 

V.36 

000 5 

2 

cr57 

€306 

aSANK 

A CO 50 



CC59 

. D 1 ./ 

ARUPT 

0060 

wil 

LKUPT 

\ 6 i 

' j 0 1 2 

ERUPT 

i‘l 62 

fwi3 

SAHPTIME 

xC63 

‘j 0 1 5 

ZKUPT 

lL 64 

J 016 

EANKRUPr 

L''65 

w 0 1 7 

eROPT 

L i- 6 <3 

'' J 2 C 

CYR 

C(5o7 

cti2 1 

SR 

Cl 6 8 

3022 

CYL 

CC69 

D023 

EOUP 

CC70 

SO 24 

T1ME2 

€0 71 

-U3 2i> 

f IMEl 

<A 72 

o 2 o 

T iA t3 

DC 7 3 

JG 2 7 

TIME4 


:33E 

T I 

CC75 

uv3i 

TlMt6 

€c76 

:v32 

CDUX 

v( 77 

0033 

CDUY 

Lr.78 

0034 

CDU2 

CC79 

0035 

CDJT 

'.nei 

CO '3 6 

CDJS 

oC 8 3 

003 7 

PI PAX 

Cc84 

j ^ L. ' 

PIPAY 

CC85 

G04 1 

F1PA2 

CC86 

0642 

bMAGX 

EC 87 

,043 

3MAGY 

CC 8 8 

U044 

BrtAGZ 

Oc 8 ? 

L 0 4 -i 

INLINK 

" LC:90'‘ 

.. 0 4 6 

RNRAD 

.C92 

U047 

GYROCMD 

l93 

w050 

cpuxcmo 

0094 

JO b 1 

CDUY C Hu 

CCQ5 

v^32 

CDU2C Mu 

€t 96 

C ’.J 3 3 

CDJTCMD 

““ iL98 REF 

i 0 3 5 3 

TVCYAw 


y 




ll;4, Fbrt. 26 . 1971 hkASTiyrL 


j j' J * (— 

. i ijj.im 


USUH'S PAGE ru 


'•> 


.b QGALi.. _ 
EQUALS 1 

twUALG 2 
tQUALi 3 
EQUALi 4 
tyUALS 3 
EQUAL3 o 


L AND M 


ARE BOTH CHAfVhLL A40 f lGI^T -^3 


ADJACENT TO F3AIMK AND dBANA POR D'Ch f 
(OTCB) AND CXCH F6ANA tDTCF) 

KEGISTER'7 is a ZrR0-3_ijKCE, U:.L-s ,f ZL 


twUALS 1 INTEKRUPf STOkAGE, 

EUUALS li _ _ 

EliUALS 12 

£>JUALS iJ SAMPLED TIME 1 & 2 _ _ _ 

tiUALo Xh ’ (13 "and 14 AKE SPARES. I 

EaOALS io USJALLY HOLES F3ANK 0R BJAN*'. 

EQUALS 17 RESUME address AS WELL 

EUUALS 20 

EWJALS 21 

E^JUAlS 22 

EwUALi 23 EDITS INTERPf L 1 I \/_E cPERAi ION CU, E PAIRS 


EQUALS 24 

EDUALS 23 

EwUALS 2o 
E ‘4 U A L S d 
EwUALS 3 j 
tgUALs 3i 
EwUALS 32 
EQUALS 33 
EU UAlTs”* 34 " 
EwUALs 33 
EQUALS 3o 
E wU A L S s 7 
EwUALs 4 ‘ 

EQ UALS 41 

EwUALS 42 
EwUALs 43 
EwUALs 44 

Equals tS 

EQUALS 45 

EwUA Ls 47 

EQUALS 3 . 

Equals si 

qQUALS 32 
EQUALo 33 
EQUALS CuUTCHd 


OPTICS TRUNNION CDU ( a .. i pr ij 
OPTICS SHAFT CjU(WAi PIN) 


OPTICS TkU^NIOl^l COMMA.lu (rtAs lPTYCMD)<, 
SPS YAW COMMAND I(i TVC '^JuE 


kAP : U OF AbC „tiy ^ ZXliJt- 11 


ll:_^ 


19_/1 ., Lr.ASTJiL. .41 PAGE ^ 


L 

cRAbADLE Assignments 



f v'-jO 

( 

K L 1 ‘ 

KEF 1 l:Zit 

KEGiSTtRS 35-6 ! AKb CQUNTEKS WHICH ARE 

COUSCMO bjUALS 54 
TVCPITCH bOUALS CUUSCMD 

NCT PKCStNTLY WlKEO. AND 

K A y 

I NTE RPliET I V£ RE^jISTEKS AOUkESSEC KfcLATiVL: TO VAC AKt:A<» 

108 

^ 1 3 9 

0042 

6044 

LVSwUAKb bwUALS 
LV bOUALS 

340 

360 

i lir 

111 

112 

113 

114 

0046 

304 7 

V 0 5 V 

0051 

0052 

XI tgUALS 

X2 EQUALS 

51 EQUALS 

52 EQUALS 

GPRtT twUALS 

Jdo 

3S0 

4 .0 

41Q 

42 D 


SU MAY 


U SLj{^ * S r- 

UPTICS SHAf': 

SPS ®IICH CiUiMAND i\ 

tit USLD WITH Cake 


S? 

{»LA^. UPTXkMD)^ 
; VC ‘tOuE-. 


SwJm/E oF VtCiCJR I jPUT I • AbVAL AND U?<1T 
LtNGfH OF VECIOR I;. PUT TiJ UNIT, 

I iN rtRPRFTlVt SPtCifU fu bT b T .; K S RtLATJ 

TO THE ViURK AREA 


ij AP -ASSlMaLt.Jtii; V Uiim ^I2_JJf_ALiL_ejiQbAAll ART EM J .v f^ASA z 21 i 


I tRASABL£ Assignments 

H lis INPUT /OUTPUT CHANNELS 


A..iiii 

lisp KEF 1 uOOl 

'1153 BEF 1 .UU2 

v.il6 L»U0 3 

Uil7 U004 

»ii8 uaus 

'1185 KEF 1 0 00 5 

■Jll^ 1/U06 

1195 REF 1 __U0U6 

'12' 000 7 

.121 00 10 

0122 “’Juil 

L'123 0012 

C124 JOii 

0125 u014 

0126 0015 

<127 _U01o 

<1271 003 J 

1272 u031 

t.l273 CU32 

0128 0333 

I 129 0034 

13' u 03 5 

t i3<' 1 007 6 

‘13.2 0C77 

. - - Ml ■ I .^11 ■■ M f MIL W M I 1 ^^ ~ • II I ^ M 


RV131 END OF CHANNEL ASSIGNMENTS 


. CH A NN EL Z 

LoiiAN tOUAL.;} 
yCHAN L.wUALs 

HlsCALAR EOUAL:> 
LUSCALAR LOUALs 
EYJ tTS hUUALs 

CHANS _ = 

KULLJETS tOUALs 
CHano = 
SUPEKCNK EQUALS 

uur equals 

DSALMGUT EQUALS 

CHAN 12 £ w U A L .a 

CHANIS cQUALS 
CHAN14 EQUALS 
MNKEYIN EQUALa 
NAVKEYIN EQUALS 
CHAN30 EQUALS 
CHA N31 E^lM L a 
CHAN32 ‘“equals’ 
CHAN33 EQUALS 
DNTMi t^jUALS 
0NTM2 EwUALa 
CHAN7b equals 
CHAN 77 EQ UAL _S 


^6fl971 ERASTf3TL«U41 PAOE 42 




UaL.v'S Page JLU,. . 5 ,E> S? 


Klj is iu be G3.-LJ IN .uN li^DEXLu UPEkAIION OMLY^_^» 
L 

Q ..., 

3 

A _ 

S 

PYa i:. t a 

0 

ROLL Jc la 
7 

1 

11 

12 

13 ' 

15 

10 

J 

31 

32 

33 

34 

35 
I o 
77 


w AP : t KtVJiiiiJtL J 7iL-illi-AkC-PJrvUtf tlAH-ART Eti JL^ BlY i 

L tPAS^^eLE AS^JoNMENIo 


P 135 


FLAGWDHD3 


k i i 6 

FLAtwKOi 

STATE +0 

( U -• -u 14 ) 

KLli? 

FLAGriKUi 

STATE +1 

t 15-^29) 

R ' 1 3 G 

HAtWRU^i 

STATE +2 

t ‘ ,'3 . — 44 T 

K‘ 

FLAGWRDa 

STATE +3 

( ;,45— U 59 ) 

H V 14'': 

FLAbWRD4 

STATE +4 

T o0~6 74 T 

K'U^l 

FLAGWRU5 

STATE +5 

( 75-089 ) 

1R"145“ 

f LAGMRDb 

siaTe +o 

1 9i^-i 1 4 ) 

R( 143 

f LAGWRl)? 

STATE ^7 

t 195-1 191 

K 144 

FLA Gifi k D ti 

STATE +8U 

1 12-134) 

K .145 

FLAGWKD'^ 

:5TATE +9L> 

t ii:J-149 ) 

A i 146 





K'^ 147 


SORTED LIST OF 



-R^i4a 


1 NTS RPITlVt SWITCH BIT ASbIGNhtNTS 

__t 14'' 

INTEKPRtTi Vt SWITCH BIT 

ASSIGNMEMi 


R. 15 

FLAGWCKU 

DEC NUH 

BIT 

+ FLAG 

R015- 5 

*• C 56SH 

19 2D 

BIT 

3 FLAG 6 

RM5i 

22CSPFLb 

•93 2D 

BIT 
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o{Zl 


R6131 



TVC ZcRQlNG 

LGDP ENDS HtKh 



tl 

6132 

kzF 

1 


Q 6t 161 1 

n>lFi twUALS 

YOcLUFF +2 

2(2) 


6i3-i 

REF 

1 


E6f lo 13 

TTMP2 EQUALS 

TTMPl 

3(2) 

_ . 

6134 

REF 

1 


c6 f iol 5 

DARI equals 

TTMP2 +2 

6(2) 


6135 

REF 

i 


E6, 1617 

LAR2 equals 

CAP! 

d(2 ) 


6136 

REF 

1 


E6 1 162 1 

CAPS EgUALS 

CAP2 +2 

6(2) 


6137 

kEF 

1 


£6,1623 

PCiHD EQUALS 

CAPS +2 

6(1) 


613b 

KEF 

1 


c 6 1 X6Z4 

YCrtD EwuALS 

PCMU +l 

B(l), CCNSECUl IVE dlTH PCML 


6139 

REF 

X 


E6,1625 

T 5 T V C 01 ir si U AL 6 

YC.’iu +1 

6(1} 


6141 

REF 

1 


E6f 1626 

KPRi Mcu T i:: UOAL S 

T T V wO r +1 

1(2) 


6142 

R hF 

1 


E b f 1 6 3 i 

KTLX/l tQUAL* 

KPRP-ltST +2 

8(1) 


6144 

REF 

1 


£6,1631 

i/cuNACC Equals 

KTK/ i +1 

b( ij 


t>145 

REF 

i 


E6, 1632 

VARK EQUAL 3 

i / Ui'^AO C + 1 

B( 1 ) 


6146 

REF 

1 


E6f 1533 

REPFRAC EuUAL^ 

VARA -*-1 

6(1) 


cl47 

KEF 

1 


E 6 f X o3 4 

VCNTR EQUALo 

REPlRAL +1 

6(1 ) 

-- — 

6146 

REF 

1 


£6, io35 

TVLPHASE Equals 

Vl 1 4 1 R +1 

d(l) 


6149 

REF 

1 


E6,1636 

PCUUYR*! EQUALS 

1 Yk^P dMa L +1 

6(1) 


^ > imrn ■ 

615: 

REF 

i 


E 6 1 1 6 3 7 

p'ljuzpst Equals 

P;,DJYPS r +i 

£(1) 


615/1 

REF 

X 


1 6 1 164 u 

YCDUYPST EQUALS 

PUDuZPjT +1 

6(1 ) 


615:2 

REF 

1 


E6 f 164 1 

YLUUZP*T EQUAL* 

'(i^DJYr'ST -t i 

b( i) 

k 

\ 

6151 

RtF 

1 


c 6 f X 6 4 2 

RCUUYOOT EQUAL* 

y:d*zp*t +i 

tid ) 

L 

6152 

RtF 

1 


E6, 1643 

mcuuzujT Equals 

PLUUYJ'JT Li 

6(1 ) 

j 



ii /ii"; 

Aa3 1143 


tiiMUM U72 iJ* Ai.L PK.Ji,kAM Ai 




li:A. l-rB^ 1 kAiTuTL^, 41 1 Ij.. li.. 

L 

tHASAbLc 

4 i>Sl Gi>lM L |N| f a 





liStis'S PAUL NL'. /3 L w: 

lTj J 

U L i 

1 

E6t io4^» 

T Vl L^<r^H ^ 

i jU-\Lj 

KoUuiuuT 

+1 

B(1 ) 

f ' 6 1 1. <« 



i VC HULL UAP VAKlAbLLb 






” K6i65 

( jDi 








61c 6 

r< b 

1 

£6f 164!> 

Ck^Ai'4u W 

i I j ' J A L 0 

1 VCcAPIlS 

+ 1 


o lo 7 

t<fcF 

X 

ho f lu4b 

LuA H A > 1 

L vOALb 

C ^ A 1 4 U#i 

+1 

6(1) 

tioa 

Kff- 

i 

bo f io4 J 

Go -4 

A Lo 

L O A R A j 1 

+1 

B( 1 ) TMP 

6ib^ 

K F F 

i 

E6t 164/ 

bRK 


L- sj, 1 


(ROLL OAP UbhS OuAi MEANS ObAbRkuK) 

61 / ^ 

H 1 1 

2 

L A G f i 1 . t: 6 f 1 0 b 

EttUGAKI 

EwUALi 

OGA 

+ 1 

S( 1) f KP 

6171 

K tF 

1 

c6 » 10 3 1 

^ui4k 1 

EUUAL.'s 

c E ld Gar T 

+1 

SIGN DP OGA RAl e 

61 7 ^ 

R£F 

1 

bo t io!> Z 

DEEbuA 

b Oa L ^ 

S^jNK I 

+ 1 

U:»£lJ IN ROLL LDDIL 

6173 

RtP 

1 

E6 t JlOO J 

1 

cQUALa 

b Eh u b. 1 

*■ 1 

UG h U IN ROLL L 0 b 1 C 

617 

KtF 

i 

t 6t lo64 

1 iJv>ARAT h 

b wUALA 

1 

<■1 

Uc.fcD IN KCLL logic 

61 



IVC_X!AP liEjJAtil 






6176 

Rtl 

1 

h6t 16^3 

FACT I HP 

£QU AL^ 

1 C jfA KA i L 

+1 

b(2) 

0177 

RtP 

1 

L6i 1 63 7 

YACTTMP 

E4UAL^ 

PAL 1 ( HP 

+ Z 

6(2) 

61/6 

REF 

1 

1 6 f ibo 1 

CNF R 1 rtP 

EQUAL 6 

YACTTViP 

+ 2 

6(1) 

fciar 

R cF 

1 

b 6f iOOdh 

DEL3K THP 

CWUAL^ 

CM K frtP 

+ 1 

3(2) 

6131 

HEP 

4 

1 

£6f i6o4 

EKRbTrtP 

E WUALO 

DEL 3 Ri HP 

+ 2 

fi(2) 

6lb2 

REF 

1 

t:0 « i 6 o6 

CHCTMP 

twUALo 

t ri/v ^ r HP 

+ 2 

6(2) 

613 3 

REP 

1 

t6f i07 

rapi 

0 U A !_ 0 

CrtuTHP 

+ 4 

6(2) 

61 o 4 

REP 

1 

£o » 167 2 

1 KP Z 

cwUALo 

THPi 

*■2 

6(2) 

61 1;6 

REF 

1 

h6» 1674 

riMP3 

tuu AL6 

1 y.P2 

*2 

C(2) 

6136 

REF 

1 

b 6 1 i O 7 0 

1.4 P 4 

b wUAlS 

TRP3 

tz 

l(2) 

6187 

REF 

i 

E 6 1 17l/’ 

THP 3 

tUUALo 

THP 4 

42 

6(2) 

6138 

REF 

1 

E6 f 1 

1 MP6 

t ALO 

t RP3 


6(2) 

Keiay 



IVC LAP PILIEK CUEFFlCifcNTS 

T lHpDRAK 1 1 i> 




— - ■' 

iiV)- 

REF 


bo j 1 r,. 4 

XLittPAUtl 

EQil ALo 

1 MP q ^2. _ 


..Jill) . - .. 

oici 

KEP 

1 

e6f 1 / 6 

N1 - 

EUCALb 

COtF FAuK 

+1 

1 ( 16) 


£6192 

6 1 

u r F 

4 

jVtKLAYb vllTHif)! TVC OAP 

1 A <;t 1 h I- a . I ^ 

1 !,iiR AT 


CfHb G Ail. ■ 






— --- i J A J ■J 

619 A 

RtP 

z 

LA6T 

L ,'J £6,1611 

PHAStTMP 


1 IMPl 


b(i ) 

RtSTARl FOa 

CSM/LM 

i/44j Si'll TLH- lYEK 

hl7£i 

H £F 

2 

LAST 

i 7 b 6 f 1 u 1 J 

RTRNLUC 

— 

ITMP2 


6(1) 

P 1 6 F AkI FUK 

CSM/Lr4 

V46 SWIIlH-Z/FK 

K 62* C 



. - - 










^ 1 i i 



\4tj. <3 

1 S T ik At^r 









62< 2 

k£P 

1 


L 0 t i 7 Z 4 

N6KC Y CL S 

£UOAL:) 

1 ^ i J 

+ 150 

n ( 1 ) 

COUNT £k FOR 

P4 ,41 

STEfcHlfib 

62v3 

REP 

1 


b 6 1 i 7 h 

■nBRCYlLP 

L %^UAL<> 

AbRC YC l S 

4 1 

6(1 ) 

MAINTAIN □ROFT. 


62* ’4 

REF 

1 


£6,1726 

OlLVSUM 

La ^ 0 4 b 

nbrcyclp 

+ 1 

1(6} 

P4 fH'^ll 



62'^ 3 

REF 

1 

i. 


66, 1 734 

CtL VSUmP 

£ wU AL S 

LbL VSUrt 

+ 6 

1(6) 

P4 f f^4 i 
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ii62i2i 




..irJIERUPJ. TRLLL 

i FM P5i 

•jU -U - - ■ 

TT* 4' 'r' 


UZi 

Kt F 

2 

LASF 

l,d 

t6f 15L6 

SPNuX 

EwUAL^ 

li^ FEMP 


6211 

REP 

1 



c6f 16 c 7 

CPHuX 


:>P J X 

+ 1 

6212 

RtF 

1 



E6f 151! 

KMPau 

cUUALi* 

rp 

<■1 

6213 

REF 

1 



t:6f i:> i 2 

KHP TEMP 

E yUALS 

KMPau 

+2 

6214 

REF 

1 



E6,i5i3 

XNDXl 

euual s 

KMPTEMP 

+ 1 

6215 

REF 

1 



E6f 1514 

,<MJX2 

C yj JmLS 

X.NUXi 

+ 1 

6216 

KEF 

1 



t6t 151 5 

YHiJ A 

E jUALS 

X 1 yt) X 2 

+ 1 

6217 

REF 

1 



c 6 f 1 6 1 6 

Z i'i J X 

*;gUAL:* 

YNUX 

+ 1 

62ia 

K EF 

1 



E6f 1517 

R I NO b X 

bUUALS 

2NUX 


6219 

REF 

1 



c 6 1 162 

PINDEX 

C-a{UAL^ 

R I RU E X 

+ 1 

62 2 > 

REF 

1 



E6 1 152 1 

YlNUtX 

k.wUALS 

P 1 14 6 E X 

+ 1 

6221 

REF 

1 



£6f 1322 

NRJcTS 

EUUALS 

YlNocX 

+ 1 

6222 

REF 

1 



c6 y 1523 

N P J u T 3 

EbjiJALS 

NRj t rs 

+ 1 

6223 

REF 

i 



£6 f 132 4 

RYJEF S 

iz 0 3 A b ijj* 

MPJiTS 

+ i 

6224 

REE 

2 

L.AaI_ 

ilZ 

F6 1 13 13 

WTcHP 

E^klUAL 3 XiVilXJ. 


6225 

REF 

i 



EOf 1515 

LtLf cHPX 

c y 0 AL 3 

WFErtP 

+ 2 

6226 

RtF 

1 



d 6 1 1317 

DELT E MP V 

c ^^UALS 

CELF cHP.X 

+ 2 

6227 

KEF 

1 



E6» 1321 

UELTEMPZ 

cUUALS 

CEL 1 LrtP Y 

+ 2 

622 8 

REF 

2 

A S T 

112 

E6 f 15 1 5 

LOOT 

E ^ U A L 3 

Y .40 X 


62 2 « 

REF 

1 



E 6 1 1317 

AERR 

ttJUALS 

EUUF 

+ 2 

623 

REF 

1 



£6 f 152 . 

EDOT V EL 

cUUALs 

AtRR 

+ 1 

62 J 1 

REF 

1 



£6,1522 

AERRVEL 

EwUALi 

ELUTVEl 


623 2 

REF 

1 



tOf 1^23 

AD6 Vt L 

EQUALS 

AEKRVEl 

+ 1 

R 02 3 3 



REGULAR 

RC3 TEMi- 




i< 6235 



RCS 

ZEKUFNG LOOP STARTS HtRE^^** ** ** 

-4? ^ ^ 


623 7 

REF 

3 

LAST 

CO 

c6 f i.52l 5 

U BjO Y 

EQUALS 

1 VCRCS 


6238 

REF 

i 



E6,1527 

WBUDYl 

c y U A L S 

h E J j Y 

+2 

623 9 

REF 

> 

LAST 

112 

CO, 13S i 

WBUDY2 

cwUALS 

waoD Y 

*■4 

624v 

REF 

1 



c5 1 1533 

AOUT 

2^UAL_S_ 

WaUQY 2 

»2 

6241 

REF 

1 



E 6 f 13^5 

ADUTl 

cgUALS 

AD‘jr 

+ 2 

6242 

REF 

i 



ii6 f A. 3 3 7 

ADUT2 

Ew JAL3 

AUu J 1 

+ 2 

6243 

HEF 

1 



I tf , 1541 

F EKiiUKX 

EUblAL^ 

AiJO 1 -iC 

■4" 2 

6244 

REF 

1 



26, 1343 

PERK DRY 

ii vtiOA b ^ 

F ERRORX 

+ 2 

6245 

REF 

1 



i6 , 1345 

MtKKORZ 

E-JUALS 

McKRUFU 

+ 2 

6246 

REF 

1 



E6, 1347 

CFT 

cWUALS 

MtRKJKZ 

+2 

6247 

REF 

1 



b6, 155s^ 

UFTi 

t3UAi.S 

CFT 

+ 1 

6248 

REF 

1 



u6 i i>3 1 

OFT 2 

EwUAL5 

LFT jL 

t i 

6249 

REF 

1 

Jl 



£6 , 1552 

URHU 

cUUAlS 

LF 1 2 

+ 1 

t25< 

REF 

1 



CO, 1534 

ORHUl 

t:’w6ALS 

D KH lJ 

+ 2 


J -,il^-^fc.U.SIl. 1 l^A5>T 0TL^ J4^ PAf,r 11^ 

U5tR*S PAUE NtU 75 b i»? 


( 75 D ( 


£li) 
bl 1 » TMP 

BtidJTMP 
B( 1 F IMP 


BFDVMP XKOXl THRU NYJETS ARE UVERLAYEU 
adUMP BY ETHER DAP ERA SABLES SO 
adiTMP SHOULD ALWAYS BE DtFINED IN 
BtDTMP A BLDLK 
aa JTMP 

d( I) THP 

btDTMP 
B(iJTK.P 
B 1 1 ) T NP 
Bii) T MP 


W TEMP THRU DEL TE HPZ GVERLAY 
3(2) TMP XNDKi THRU NRJETS AND fcOUT THRU 
d{2)TMP ACBVEL 
at 2) THP 

B{2)TMP EDOT THRU ADBVEL OVERLAY 
B(I FTMP _Y MJX THRU NPJETS AND D E LTEMPX 
Bt2>TMP THRU DEL TEMP 2 
b( 1 JTMP 
a(i JTMP 

t )• 


t37 J 


Bt2JTNP 
b(2J IMP 

btai TMP 
B t 2 J F MP 
6(2 JTMP 
b ( 2 ) F MP 


(2t 

(2) 



Bl 1 JTMP 

atl JTMP 
&( i ) IMP 
BlbJFMP 
b(2JTMP 


AH • 
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KEF 

i 

t6tl55o 

DKHa2 

EWU AL5 

CKrlui 

+2 

Bt2TTMP 

6262 

KtF 

1 

C O t 1 !> D \ 

AITSEC 

bUOALS 

DRHU2 

+ 2 

ri t i ) T M P 

041^3 

KEF 

1 

E 6f ii>6 1 

TAU 

EwU AL5 

ATTS hC- 

+ 1 

a( DTMP 

626 A 

KEF 

1 

b 6f i!>62 

1 AUl 

c ijUAL^ 

TAU 

+ 1 

eTT) TMH 

6266 

KEF 

i 

t6r 1563 

TAU2 

equals 

TAUi 

+ 1 

b( 1) IMP 

6256 

KEF 

1 

c6f 1564 

eiA6 

t uUALi 

T AU2 

+ 1 

bUiTMP 

6257 

KEF 

1 

E 6t 1565 

31 A5i 

c ^UAL^ 

BIAS 

+ 1 

6(1 ) IMP 

625 b 

KEF 

1 

E6f 1^66 

EIAS2 

E 14 UAL 3 

BIAS 1 

*■1 

B( IJTHP 

62 5 9 

REF 

i 

E 6t it? 6 7 

ERRUfiX 

b wU AL3 

BIAS2 

+ 1 

tt( 1 ) TMP 

6^i> 

KEF 

1 

E6f 157! ' 

ERRUKV 

Equals 

ERRuKX 

+ i 

a(i )tMP 

6261 

KEF 

i 

E6,1571 

EKRGKt 

EQUALS 

LRRURY 

+ 1 

Bt 1) I MP 


A 6^62 


A 626 3 RC5 7ERU LOOP c KDS HERE ^ 

R6264 MOKE RCS t69ti 


|>26o 

R bP 

i 

E6f 1372 

JiJtJAiiX E 4 lU.Ati__t.iiR.QjiZ. 

_PJL_- 

BUTTHP 

MUST BE CDNSEC UL t^PLJaLlIil EJiR-QKZ 

6267 

- — ^ a - - 

REF 

1 

E6| 1573 

THETADY 

EQUALS 

T Ht T AUX 

+ 1 

B( DTMP 


6268 

REF 

1 

E6,1574 

THETAOZ 

EQUAL6 

T hb T AU Y 

j-i 

BdUMP 


6265 

RcF 

1 

c6f 1575 

CElLOUX 

Eq JALS 

THcl AUZ 

+ 1 

_B( 2)TMH 


627 

KEF 

1 

£6,1577 

lELCUUY 

EQUALS 

CtLCUUX 

+2 

B(2}rMP 


6271 

R tP 

I 

c c>f 160 1 

DELCUUZ 

cqUALS 

CELCUUY 

+ 2 

B ( 2 » T HP 


6272 

KEF 

1 

16, iou 3 

BCDU 

cUUAL S 

DELGUU2 

+2 

t> 1 6 } T HP 

USED DURING P2 

6273 

KEF 

1 

£6, 161 1 

C T tl £ 1 A6 M 

EQUALS 

ecu J 

+ 6 

8(6) TMP 

STEER LOk OUTPUT, 

62 7 4 

REP 

1 

ii6, lol7 

ATTRALMjM 

c 0 bl A L S 

OTHE TAsM 

+ 6 

BtDTMP 


tll:i 

KEF 

1 

E6 , lo2 

KMJ 

b 4 UAL S 

An KALMN 

+ 1 

B( Dfi.P 


62 76 

KEF 

1 

E 6 f 162 1 

KMJi 

t: wUALb 

KMJ 

+1 

3(1)1 MP 


6277 

KEF 

1 

da f 

KMJ 2 

£%tUA Li 

KPJi 

+ 1 

;j(l)THP 


6276 

KEF 

i. 

£6 1 io23 

J/rt 

EUU ALi 

KMj2 

+ i 

o( 1) TMP 


627 9 

REF 

i 

£6, 1624 

J/Ml 

EUUALi 

J/M 


B( i)THP 


62 8 ■ 

REF 

1 

£6, 1625 

j/rt2 

EouAL^ 

J/Ml 

j-i 

B( 1 ) TMP 


62 6 1 

HEF 

i 

i^6 f 1626 

KAGFA IL 

EQUAL6 

J/M2 

'*■ 1 

8 1 1 ) T MP 


623 2 

KEF 

1 

£6, 1627 

i-^BurAi L 

iz ^46 A Lb 

K ACF A I L 

i-i 

B(1 )TMP 


6233 

REF 

1 

E6,i63. 

ACURBO 

cQUALS 

RBDF.aiL 

+ 1 

B ( 1 ) T HP 


6264 

KEF 

L 

E 6 f 1 6 3 1 

X 4 KAN S 

hUu ALa 

A ClJ K 30 

+1 

B ( 1 J T HP 


6265 

HEF 

1 

£6f lo 

Crib 11 EMH 

'iZ 0 U A L S 

X TKA;'iS 

■*■1 

B ( I ) T MP 


62 80 

b t F 

i 

£6, 1633 

CHANT EMP 

cQUALS 

CHjI TcMP 

+1 

3 ( 1 ) T MP 


62 3 7 

REF 

1 

£6, 1634 

T5TIME 

c OU AL i 

ChA N r £rt p 

+1 

B ( 1 ) r HP 


62 b 3 

RcF 

1 

E6, 1635 

KHU 

Equals 

1 ^ f 1 Mb 

+ 1 

B( DTMP 


6289 

REF 

1 

E6 f 1636 

Kriul 

CuiUALo 

ri-# 

^1 

B( 1) TMH 


62 ^ 

REF 

1 

E6f 1637 

Rri02 

t w ij A L b 

khui 

+ 1 

e ( 1 ) 1 P 


6291 

R EF 

i 

£6 f 1 64' 

Ac'! \j b 1 

t vUALS 

KHJ2 

j-i 

B( DTMP 


6292 

R EF 

1 

c6 f ia4 1 

AMbb4 

c W6 ALb 

A MU b i 

+1 

b ( 1 ) 1 MH 
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6xyj 

i<EF 

L 

E6fio42 

AMv^ 63 

£v4^AL3 

Ai4G34 . 

+ i 

BID IMP , .. 

C2l^4 

REF 

1 

E6,i643 

AHGB7 

c wO AL6 

AMGaS 

+ 1 

b( DTrtP 

o2^3 

REE 

i 

c6» 1644 

AMG&6 

EwUALS 

A K(j 6 7 

+ 1 

6(1 )TMP 

o29t 

REF 

i 

£6 T 164b 

CARSi 

twU AL3 

AHuii 6 

+ 1 

B 1 1 y rMP 

ttHi 

KcF 

1. 

b 6 1 lo46 

GOUXD 

b wUAL3 

CAP a I 

*1 

a(2)rMP 

t^9e 

KEF 

i 

E6, 16i)‘_ 

CDJYD 

t: ^ J ALS 

C J U X l1 

+ 2 

Ct2lTMP 


KEF 

I 

bd-f 1632 

CDJZO 

cOUALS 

COUYO 

+ 2 

B(2)TMP 

63 . V 

KhF 

i 

t6, 1654 

SLOPE 

b 4UALS 

CCJZJ 

+ 2 

BtDFMP 

63 Ji 

REF 

i 

cd f 163 3 

AU6 

E0UAL6 

SLuPL 

■n 

Etl> TMP 

63 .2 

REF 

i 

1 6 # 1636 

RMANl^ CX 

tUUALb 

ADd 

+ 1 

b{ DTMP 

63< 3 

REF 

1 

Efaj 1637 

PMAtNNaK 

L^UAL6 

RRANNDA 

+ 1 

BCD TMP 

63 L 4 

REF 

1 

E6f 166 1 

YMAr^NOX 

EQUALS 

PMANI'JUX 

*■ 1 

cl 11 TMP MUST BE LAST VARIABLE IN RCS 


_ U.AF; Kb\/ISiQN j IZ ZljLLlX^- 
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bKAl^ABLE a:>GX 


i-^ > 


41 S 
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4 




i i : 4 u F E: B «> Z 6 . 15. 7_1 . D t 14. 'i 


UStR'S PAbt 1.1 


5 J 


iVUUj 

ZtRtJ 

L^KUPTbR 

DSPCInT 

N t j 

b i P \* N T 
OSRC'MT 
LbPT A if 
L SPC NT 
b^PawAN “Z 

OSPLAY 

224 ^ 

L SkUP I cM 

. -jr^sur ^ 

1 a 3 f c. 

NuUl 

b 

bbKUPl tR 
lAdLNTH 
UiPiCAN -i 


StT (I - J=OK iST PASS 'l.ikU uSPrAB 
fu PkCVtNT + 


IF uSPTAb ENTRY +, SKIP 
IF DSPCNT +, AbAIN 
IF DSPTAB ENTRY DISPLAY 

Cannot get here 

IF DSRUprEM=+ »2NL PASS THRU uS 1 AB 

TTKpnn~^ r:~+T mrirTjntrr 


1 F DS HUPltM— ”■ fiST PASS THkU 
{DSPCNT=- )o + INTO DSKUPTF.I'I ‘>>vS:. A'.aI 


CNF - -- - 

CSPCNl 

CSPEAB REPLACE POSITIVELY 

Luriii ' ' REMOVE BITS 12 TO IS 

CSRU PTEM 

hi S 

CSPCIi 

REE TAB PICK UP SITS 12 TO IS jF RELsAb h iK^ 

l.SRUPT£M 


Cjr WRITE CHANNEL 1' 

“C+1 RLTURN SKiPi Crii- 


L. 1 H V ACa 

BiNCON DEC I- LENGTH UF USPTAB 

FLAG wKD S 

USK V BIT 


NCDSPuUT 

i\<ju r 

U SPOUTS b 

_ i\U DI SPLAY REQUESTS 

Ilf l 4 » V 
JSKUPTsW 


2 .MR UP T 
T I Mc4 


uARJ 


Fl< 9 i 
H < 9 i 

RCC 9 b 
Ri.l 9 / 

8C» 9 8 


i i 
1.2 

1 , 3 
ClM^ 

^ 1(^5 

■- 1 o 
1 . ; 7 

1 vi 8 

■ i ; 9 

^11 
<111 
-112 
> IIJ 

.116 

117 

117 


Ai9Ei^faLi_jvL7 loIlJN j 7Z UF AoL ^RD^KA H AftThMiS fl y Uix5,A 


1 1:£IS 2 8.19 71 n lG6L 


1*1 ' 




'D Z 


ij.L. 


T 4 RUPT PROv^RA.M USER’S FA&E f.U. 4 i 

IHt oTATLi Ui- The PROCEEJ PUSHdUTTUN IS KU.-^ITUHED EVERY 12. MIELISECONOS VIA THE _CHAMMEL iZr-lI 14 iii,j>iT^ 
THE STAIt UF fhl^ INBIT !:> COMPARED WITH ITS STATE DUkINC TH- PKtVlUUS TAkUP! AND IS PROCESSED AS FOLLCrES 


If- PRFV ON AND NCW QN 
U PRtV ON AND NOW OFF 


BYPASS 

UPDATE IKUD£Si3 


IF PKtV OFF ANU NOW QN 


UPDATE IMUDtSj-i ANu PRQC6S-> VIA PINUALL 


IF PREV OFF AND NOW OFF - BYPASS 


IJiE_l.UuIC,Jci4ejL0.YtU .RLiUJjiuS ONLY 9 MCT .(APP.RUXo 


iw d. m CJiCSECdJNJlSJ _ LP x.a:; 


XEiANOES UC L UR - 


KEF 

i 



uty f 7 ii 

ji> f 2077 

3 1334 

u Lc.'vO 

1 

1 

PROCEtuE 

Ca 

Ex I ENu 

I MODES 3 3 

KEF 

1 



J ^ T ^ T 

1.6 632 

, i. 

u 


kXQR 

CH AN jz 

REF 

1 



06 , 21^1 

7 4733 

\ 

U 


MASK 

PRJCUBI T 





ui> ^ 2 , h > 2 

L/ 0 0 tj 

1 


EXTEND 


REF 

1 



\}i^t 2 lx 3 

1 2116 

1 


BZF 

I 4 JUMP 

KEf 

2 

LAST 

i 4 -+ 

_ l 6 * 2 l^ ^ 

. o 1 21 c. S 

20*334 

u ' J )b 

1 

1 


LXCH 

tXTEND 

IriJUnSS 3 

REF 

1 



y t 2 1 6 

U ^ C V 1 

1 ' 


K XOR 

LCH A N 

REF 

3 

LAST 

144 

^ f 2 1 b# 7 

53*334 

V# 


rs 

l* 4 uDcS 33 

REF 

d 

last 

144 

D 6 1 2 1 1 C 

7 4733 



MASK 


REF 

1 



06,2111 

1 u UJ\j 

w 


CCS 

A 

REF 

2 

A ST 


06,2112 

1 2116 

1 


TCP 

T 4 JUMP 

REF 

1 




.,.i^.. 3 ±Z- 

1 


TC 

■KOVACBU 

REF 

1 



12 1 2 




EBAHK= 

DsPC JONT 

REF 

1 



c 6 , 21 i 4 

w 3311 

1 


2 CA 0 R 

PR'JCN tY 

REF 

1 



^ 6,2113 

bl iu 2 

1 





MONITICR FCK PROCEED BUTTON 
CHECK IF BIT 14 DIFFERENT 


NO CHANGE 


UPDATE IMUDEsJS 

WAS jN - NOW OFF 
WAS OFF — IlOlfii iM 


AS bi.M n t j< h V i 5 i^. ... iiA- ■ .ia 


L IAKU<"1 PrtJGKAM 


i* ii 



JUr)P 1 

[L APPK 

UPRI AT L 

UNCb-PEK 

. SECOND («96 

) StC ACfUriLLY) 

i 1 i. •-> 

REF 


LAST 

141 

G 6 1 21 1 o 

6 7 

i ' 

T 4 JUMP 

IiS|UEX 

RUPT Rod 






. 6,2117 

1 212 

1 


TCF 

+ 1 

C 121 

REF 

1 



■o , 212 . 

1 ^^124 



TO ^ 

lP TTeST 

-.122 

KEF 

1 



. 6,2121 

1 3 ’J.a 

1 


1 CF 

lpt HUi'j 

: 123 

KEF 

2 

last 

145 

. 6,2122 

1 2124 

•0 


TCF 

CPTTEST 

<124 

K tF 

1 



. 6 , 212 3 

i ^ 1 o 7 

1 


TCF 

INJMON 

iri 2 S 

KEF 

1 



, 2 124 

.. . 4714 

1 

CPTTtSl 

1 C 

IbNKCALL 

t 13 > 

REF 

1 


- 

. 6,2125 

2 ‘. 



CAJk 

CPTDKii^t 

.131 

KfcF 

1 



760 3 



ZOr^KUPT 


CC r ^ 77 7 6 

0132 





0 6 f 2 1 ^ 6 

6 i-Uw 6 

1 

NOOSPOUT 

EXTEND 


133 

REF 


LAs [ 

143 

.< 6 , 212 7 

1 

c 

1 , 

1 


WRITE 

CUT 

- i j 4 

nEF 

1 



, 6 f 4 - 1 3 

3 V 4 1 



CAF 

12 ,.MKUP 1 

^ 133 

?< t F 

1 



J 6 f 4 l iJ 1 

1 2-76 



TCF 

SErTiMt 4 

vl 36 

KEF 

16 

L AST 

63 

v 6 , 2 i 32 

3 47 66 

1 

gUlKUSP 

uaf 

BI T 14 

< 137 

REF 

J 

LA .;>1 

143 

^ 6 # 4 ll 33 

7 1322 

1 


MAa K 

D 6 RUPT:.W 

^ 138 





G 6 , 4 i ,134 

i, 0 L w O 

1 


c X r ENU 


<139 

REF 

1 



6,2136 

1 21 0.3 

J 


3 ZF 

QUIKJFF 

1396 

REF 

4 

LAST 

14 ^ 

. 6 , 2 1 3 6 

11*221 

s 


CCS 

j\u u r 

14 

REF 

2 

LAST 

143 

. 6,2167 

L 2024 



TC 

OSPOUTSb 

141 

KEF 

i 



4^0 t ^ 14 v 

X 2 1 

1 

J 


TCF 

NUUSPY 

'142 

kEF 

16 

rAirr 

145 

06,2141 

4 4763 

w 


LS 

L I T 14 

143 

REF 

6 

LAST 

146 

06,2142 

27'322 

1 

.UIKKUP T 

ADS 

lSRUPTsW 

. 14 ^ 

REF 

2 

LAST 

143 

U 6,2143 

3 7 u 6 3 

U 


CAF 

2 J K JP T 

C 145 

REF 

2 

LAST 

143 

06 , 2144 

54 :2 7 

0 


T:> 

TIME 4 

;f 46 

REF 

13 

LAST 

64 

. 6 f 4:145 

3 47 Q. 

1 


LAF 

b 1 T . 

vl 47 

REF 

7 

LAST 

146 

. 6,2146 

27*322 

1 


AO^) 

L J r 1 a h 

1 145 

REF 

i 



w 6 f ^147 

ij 6323 



TC 

kEbUME 

^ 14 '^ 





- 06 ^ 2163 ^ 


L 

_ -l^SiiY _ _ 

6 aT£NL 1 


.15 

REF 

4 

LAST 

1 4 'j 

06,2151 

31 - 1 ^ 

1 


WRITE 

CUT 

-.151 

REF 

3 

uAST 

145 

V o t ^ 1 5 ^ 

3 7 o 33 


SyrLCT 4 

CAF 

41 .MRUPT 

1 6 Z 

REF 

3 

LAST 

145 

« 6,2153 

26 -2 7 



Aub 

1 IHl :4 

163 

REF 

14 

LAST 

145 

.A. 6 ,JJ_i 64 . 

3 ..A 7_6 V: 

1 . 


-CA£ 

_tlT 3 

, 1 p 4 

REF 

a 

uAS'T 

146 

V 6 , 2 16 6 

27*322 

1 


AUo 

V SKUP TS W 

.16 5 

REF 

9 

LAST 

146 

C' o f 2 1 5 6 

11*322 

1 


CCS 

LbkUPTb W 

166 

KEF 

2 

LAST 

14 5 

06,215 7 

V 532 j 

i. 


TC 

.-^ESU-XE 

<157 





J 5 f 1 4 * . 

37737 

1 

c 

LCT 37 73 7 

Ui u T 

37/37 

1 . 15 B 

REF 

1 



j iS f 4 ^ 1 £> 1 

2162 

.. » 


TC 

s y c f 4 


tt 


iVlTY 


NhS , 64 PAGE 14 b 


USfcK*.S PAGE 


S 3 


(DEC 16332 ) 

TURN OFF PELAYG 


StT FOK NtXT CURVE 


WKOTt LAST TIPtci NUW TURN OFF Kti-AYS 


fMaUT=< OR BAD RETURN FR0.4 USPUUTSB 
GOOD R E T U R K “I WE DIS P L A YE5” SO**! E T H 1 N G ) 


.UF-^C PHu^kArt fiSyfeM is bV NASA z zilLA 


JJJJ 


.19J1 D1LG£MES..:64 


-iJtii. 


L T4KUPr PHOGRAM 


USER'S PAGE NU 6 „ Sj 


rVj'^i HEE J LAST 14!? 06*^162 U 5iZi v TC KtSUHE 


*iGv ^iuZIiU-, V U Ca6,-l £.ULKu££__tAli:i^ 


-r* ^ -wr *“ 

^ lt>l 

REF 

1? 

LAST 

14S 

O&r ^ Xo4 

D 1 U 1 c 

1 

KRITE 

CUI 


162 

RbF 

1 / 

LAST 

IhS 

u 6 f 2 1 6 5 

J 47 S3 

1 

CAF 

bITi4 

RESET DSKUPTSW TO SEND DISPLAY NEXT PAS^ 

16i 

KEF 

i 



j 6j 2166 

1 2142 

0 

TCP 

^.LiKRUPT 



ASS EMbLfi KctfiS i Qli i.7j2L_J-h--AUGJ^iiiJiiiL6JlL_Adrjii'5Ji_jQ-Y iM ;>A 2 ll i 1 . JJ. 


UJ:?t 




FAGb lit! 


L lARUPT PRJGRAM 


FAoc NO, 7 


P PRUGHAP NANci iMUMuN 

A. 166 FtNCTlDNAL_UE SCRIPT I CNJ TH IS PKUGrA W IS ENTERE D t VtKY ^8 _jlS, I T Ut:TECTS CHANoFS OF THF J NU STAT US olT^ i i 

RClbb CHANNtUJj APPKUPKIATt SUBROUlINhi, THt dlTS PKULLSSfcD AND THcU, KELtVANT SUBROUTINES AKt: 


K. 17' 

K C171 
K'. 17 2 
R ^ 1 7 3 

k :i7A 
K< 17S 
K », 1 / 6 
H;.177 


FUNCTION 

BIT 

SUBROUTINE CALLED 

TEMP IN LlMlTci 

ISS TURN-ON REQUEST 

14 

TLIM 

llURNuN 

IHu FAIL 

13 

IMUFAIL ( SE T ISSN I 

IMU ecu FAIL 


ICOUFAIL (SETlSsW) 

IMU CAGE 

11 

IMUCAGL 

IMU OPERATE 

9 

I MU JP 


Kt 1 7 B 

Rti3 " VALlC Uf 


TH E LAS T SAM PLED ST ATE U F THESE BIT S 15 
THE BIT IN A I WITH U 3ET TO THE PROPER 


^ LEFT I N iHU OcS 3' , ALSUt EACH SUBROUTINE 
RETGHN LUCAfiON, NXTIFAILo 


CALLED FIwOS 


THE NEW 


Rt'liZ CALLING ScUUENCE: TARUPT EVERY ABU Ml LLlScCUNDS- 
R .133 JC3S OK TASKS INITIATED: NONE* 

RiulyA SUBRDUTlNcS CALLED: TLlMf 1TURN0N» SETISSw* IMUCAGi^f iMliOP 


Rv 18b 
R^'186 
R*,ia8 
Rci9r 


ERASABLE 


INir lAL IZAT ION: 

FRESH START OR RESTART WITH NO GROUPS ACTIVE: CUHUi.tSS I = JCT 374i lo 
RESTART WITH ACnVE GROUPS: CtIPUDts3U) = IB{lHLDt:.j_. lANUIuCf ^ - 3b)> 

THIS LEAVES IHU FaIL RIT^ IMACT. 


PLUS OCT 


374' 




RT 191 

ALARriS 

* 

* 




- 


■ - 

- 

Rt 192 

fc I Ts 

TNONTEST 

o 

- 



- -- 


R L 193 

OUTPUT 

• 

* 

UPDATED I MOD 

ES3v WITH 

CHANGES 

PROCESSED 

BY APPR PAiATi: jUURGU 

Ul9 i> 

REF 

2 

last 

135 

J6f 216 7 

3 1333 


1 MUMO N 

Ca _ 

<196 





. 6,217 


1 


tiXTENU 

0197 

RcF 

1 



y ^ f ^ X T 1 

v6 'jJv 

1 


KXJFi CHabS 

( 19 3 

REF 

i 



06,2172 

/ 2764 

i 


MA bK ^ jisUi’liiK 

L19 9 





._'6,2i73 

j ^ o 

1 


t AT triMLF 

•. -2 y . 

Rtf 

1 



C6,2 17'4 

1 2224 



tiZ F 1 i Thl> T 

2 1 

KEF 

3 

LAST 

14 D 

L'6,-iii75 

54 l7- 

1 


TS IsUi^fKcai. 

■ 2 2 

REF 


last 

147 

.f6,2i76 

Z3 • 3j3 



LXCH iri /OES s 






Of £-177 

C 0006 

i 


E X f t i'iU 

;-2‘.4 

REF 


last 

144 

k^6f 

06 001 



KXOR LCHa ♦ 

-2 5 

REF 


E T 

147 

i 2.^0 1 

5b ' 33 V 

1 


TS lMuD;rS.- 

■ 2 6 

KcF 

2 

last 

143 

_6, 22C2 

4 47 7 

1 


C S CNc 

2 7 

REF 

4 

LAST 

147 

o j 22 b 3 

s 6 o 7 C 

r 

L 


ach huptregi 

2 d 





.6,22' 4 

B 0006 

i 


EXTE-Ru 


SEE IF THERE HAS BEEN A CHAKb 
RELEVANT BITS UF CHAN 3 , 
CritCK IF aiTS ‘^,11-15 CHANGED 


IR 


f rit 


uO CHANGE IN STATUS> 

SAVE BITS WHICH HAVE CHAMGEOo 
UPdAT c 1HODLS3 •» 


uAP; ASiLEMaLL Kh Jl .luN .17 CP A.,L PRUi^kAM ARTcM15; flY 14 ASiV 1 1 4- li 


^■21' 

TAKOP1 PRJSKAM 

RtF 1 

REF 1 


.o,22u3 

J 6 f fa 

0 2517 

1 22ix. 

7 

c. 

1 


32MF 

TCF 

I Lly3 

N < T 1 F D I 1 

j21i 

REF 

3 

LAST 

147 

u 6 1 ^ 

6 477 g 

D 

-1 

Au 

CiMt: 

-212 

REF 


i_ AST 

l‘t7 

f 221 . 

24 07L 

0 

NxriFaiT 

iNU< 

KURT K46l 

-213 





06,2211 

6 0000 

1 

+ 1 

UUUBLl 


i 21 A 

KEF 

2 

LAST 

144 

-iOf 2212 

S't 000 

w 


Ti 


w2l5 

REF 

2 

LAST 

148 

f <!ZX3 

1 2210 

1 


1 CF 

i4XT 1 FBI 1 

216 

KEF 

1 



fa t X ^ 

56 U 7 1 

1 


XCH 

K UP T RE 62 

^217 

REF 

o 

LAST 

148 

. 6,2215 

5J C7o 

u 


INDEX 

RUPI REG 1 

^ 2iB 

REF 

i 



■.6, 2216 

3 4753 

1 


caf 

Tu7 I SSBT 

C2i9 

REF 

s 

LAST 

147 

06,2217 

7 1333 

1 


MASK 

1 -lUUESii 

'22i 

REF 

7 

LAST 

148 

06,222' 

5 L L 7 ii 

J 


INDEX 

RUPf KEGi 

^21 

REF 

1 



Q6,222i 

w 2760 

1 


TC 

IFAI LUMP 

*222 

REF 

2 

LAST 

148 

v6,22l2 

i w *..71 

w 

NXTIFAIL 

ClS 

RU2TKEG2 

1 223 

REF 

J 

LAST 

148 

-6,2223 

1 22J7 

1 


TCF 

NXTi F3I T 


li L i F.£B^ 26^1971 uUjGPNrS. P/’ L.f Lii. 


UStK' S PAGE ^^J^ 6 . £. Si 


CHANGE.- IN IKU T£MP« 
bcGlN Bll SCANo 


(KL-ENTERS HERE FROM NXTIFAIL^. ) 

advance bit position number. 

SKIP IF OVERFLOW. 

LOOK FUk BIT, 


Save OVEKFLCW-CORKbCTED DATA,, 
SHLLCl NEW VALUE OF THIS BIT. 


-PfLiCESS ANY ADUITIDNAL CHANGES^ 




* 


£>lJi 3 L t K tv i i 




IZ CF Ab C PKU^nAH. AKTEHti .ti,Y HASA ^ ^iliA-^ll 


LiJ 4_ . .hEgii ZAil^U ULQiitlitS^ 2M. 


£AiiE 


lAKbPT FRUGKAM 


uSbK*S l^AGt NO, > c 


« ^ t PRuGKAH NAi^t: Tj-JONTESTo 

. ^25 ^ FU?v|CT luNfl L QE SCKlP 1 loN l THIS PRUbKAM HuNORS RL^iUESTS FOK 1 NU 1 ALIZAT ION. ISS TURM-GN t CHANNEL 3^ BIT 14) 

'k'-22/ AND ISS OPcRATL (CHANNEL dk.. JIT S ) KEUUEj'TS AAb TkEaI ED A> \ PAIR AND PKLCCSSING TAKES PLACE i480 SECONDS 

Ri,229 AFTER ElIdcK ONE APPEAKSo THIS INI T iALl ZATiON TAKES ON LNb UP THE FCLLUwlNG THREE FORMS: 


K'. 2 ii 
R‘ 2J0 


iJ iSS TURN-ON: IN THIS c^ITUATlGN THE CUrtPuiER IS OPbRATlNG WHEN THE ISS IS (UKNL-D JN, NQMINALLTt 
JUTH ISS fURN-DN AND iSS UPtRATE APPEAR* THE PLATFORM Is CAGED FUR 9c SECOND^ AND THE ICDU'S ZEROED 

jO THAT AT THE END OF THE PROCESS THE GIMdAL LUCK MONITOR WILL FUNCTION PROPERLY, 


2j7 
KC 23 > 
R 241 
R j24 3 


2) ICDU INITIALIZATION: IN THIS CASE THE CDHPUIER WAS PKOBABLr TUkNLO CN WITH THE 1 S.S IN OPERATE QR 
A FRESH START WAS DUNl WITH THE ISS IN OPERATE* IT THIS CASE ONLY ISs OPERATE IS UN« THE ICOU*S ARE 

ZEKQED SO THE GIMbAL LOCK MONITOR WILL FUNCTION AN EXCEPTION IS IF THE ISS IS IN GIMBAL LOCK AFTER 
A RESTART, THE ICDU'S WILL NUT BE ZEROED* 


K ^ 244 
K. 246 


JI RESTART WITH RESTAkTABLE PRCORAM UslNG TH._ IMJ: IN THIS CASE, NO INITIALIZATION TAKES PLACE SINCE 
IT IS ASSUMED THAT THE USING PROGRAM DID THE IN U i A i-1ZaTI ON AND THEREFORE T4RDPT SHUDLU NOT INTERFERE. 


Rf24!:i 
ft< 23 

RT2 52 
K .'"234 
R( 2Ss 
HC238 
R» 2o 
R ■: 262 
R ^ 264 


1M0UES3.V BIT 7 IS SET = i BY THE fIRST d 
ENTERED, FINDS BIT 7 = 1 BUT BIT 8 = f , 
proceeds , SETTING BITS B AnD 7 = U* AT 
COAKSE)* if ISS UPERATE is not PRESENT 
OF IMDDESJD IS TESTED* IF IT IS = 1, IS 
TEE ISS TURN-ON REwUEST iS PRESENT THE G 
WAS WAITING FOR THL INI Ti AL 1 ZAT I ON IN WH 


IT (CHANNtL 3. 
SO IT SETS 81 T 

fkoct non f IF 


WENT PROPERLY, 
INHIBIT BIT IN 


THE iSS DELAY OUTBII IS S 
lc,24 SECONDS. IF A MISS 


Bl 
J 

S 

PROGRAM ALARM O Z 
S TURN-ON WAS No I 
< SECOND WAIT 
1 CH LaoE the prog 
ENT AND THE ICDD' 
ION PROGRAM WAS W 


I 14 UK 9) WHICH ARRlVESo FOLLOWING THIS, TNONTEST IS 
^ i AND EXITS* tHE NEXT TIME IT FINDS BIT 8-1 AND 

TUKN-ON REQUEST IS HKESENl, THE ISS IS CAgEO (ZERO + 


13 IS ISSUED* AT THE END OF A 9F SECOND CAGE, BIT 2 
PRESENT FOR THE ENTIRE SO SECONDS* IN THAT CASE, IF 
REPcAlED, OTHERWISE NO ACTION OCCURS UNLESS A PROGRAM 
RAM IS GIVEN AN IMUSTALL EKRUR RETUPvN* IF THE DELAY 
j ZEROED. A Task IS IfUTlATtU TO REMOVE THE' PI PA FAIL 
AiriNG IT 1 6 INFORMED VIA ENDIMU* 


Kt266 AT PROCTNON, IF ONLY ISS OPERAlt IS PRESENT (DPGNLY), THE CUD'S ARE ZEROEC UNLESS THE PLATFORM IS IN COARSE 

K'ZStl Align i= ^imbal lock here) cr a mission program is using THc imu IIMUSEFLG = D- 


Ri27' CALLINij SEQUENCE: T4RUPr EVERY 480 MILLISECONDS AFTER IMUMON^ 


271 
K>. 273 


JC8S OK Tasks initiated: 1) ENuTNON, 90 

3) PFAILQK, lo*24 SECoNDS AFTER 


ScCUNUS AFTER CAGING SfARlEO* 2} ISSUP, 4 SECONDS AFTER CAGING DONE* 
INITIALIZATION CDMPLlIl.D^ aJ 0NZ2, 32' MILLISECONDS AFTER ZEHDING 


Kv273 


jTar ted. 


K:276 SUBRjUTINcS CALLED: CAGeSUB, QAGEoUB 2, ZEKUlCUU, ENUlMU, IMUBAD, NOATIOFF, SETISSW, VARDELAY* 


R».273 ERASABLE INITIALIZATION: SEE IMUMUN* 

K : 279 ALARMS.: PROGRAM ALARM . ..213 IF ISs TuRN-UN REQUESTED rtlTHOUT I 6S UPERATcn 


RC2B1 
K ?■ 2 8 3 
Kl 285 


EXIT: ENDTNCiN EXITS TO C33TESr. (ASKS F.AVIhG TO Dj 

WAITING And initial I ZAT I UN COM PLETE, EXIT T u lNOIMO, 

I'MUBAD, IMU'NOT in use, EXIT TO TASKOVER* 


wlfh INK I ALIZAIIuN i XI T AS FOLLOWS: MISSION PCUi^RAM 
MISSION PKUGGA* WAlliNG AND INITIAL I ZATION F AILED, EXIT TO 


Rj.286 OUTPUT: I^S INITIALIZED* 

,£.87 REF o LAST 148 ,^6,2224 4 i3jJ 1 INONlEST CS iRiJui-iJ 


FIEK PROCESSING ALL CHAriGES, SEE IE I I 




Xi i F£B* 2b«l^j7 1 _DJjib-b.MhS o,'.;.64. 


L T4K0Pi Pt-iJbKArt UbtK'S PAGE NO^ X E. S3 


: -iG8 

r< t F 

1 



} 6, 2225 

7 4762 

1 

rtASK . 

X 1 nu i L^ * 

IS 1 iME TO ACT 04 TURN-UN KEwUEST 

' 2S^ 

PEF 

3 

L Ai» 1 

148 

^ tj f ^ 

1 iji Lj u 'j 


C L S 

<, 



'Z4i 

RfcF 

1 



.6,2227 

1 2366 

X 

TlF 

C33TJ^T 

MU - EXAMINE CHANNEL 33. 


l2 X 

KEF 

1 



- 6 , 2230 

3 4 761 

L 

Ui TA F 

1 r fSl U 1 4^. O i 

jiiL IF FIRST QfL 2ND SAMPLE 


t 292 

rt 

7 

LAST 

149 

^Df ZZ3 1 

7 1333 

i 

l‘JA jK. 

1 MG J b J ^ 



t 29 3 

REF 

4 

last 

15. 

w#6 f 223Z 

1 L i- J 


COS 

A 



!. 2':-' 4 

RtF 

1 



j6,2233 

1 2237 

i 

TOF 

PKOC \ Nu»v 

react after second sample o 


.293 

REF 

2 

LAST 

ISb 

06, 2234 

3 4 ?oi 

i 

L AF 

ITM0fX23T 

IF FIRST SAMPLE, SET BIT TO REACT 

.296 

REF 

8 

last 

150 

..6,2235 

27 '333 

1 


IKObESi 

T IML-o 


V 29 / 

REF 

2 

LAST 

15. 

wo, 22.>6 

1 2360 

1 

TCF 

C33T EsT 



V29b 



FRuCtSS i MU 

TURN-QN 

KEQut:>TS 

AFTER WaITIi^o I 

AMPLE FOR ALL 

;>ioMALS TO ARRIVE,. 


Cibf 

REF 

3 

LAST 

15 

V 6 1 2.2. 3~f 

3 4761 

i ^ 

PKyLTNU,>4 Ca 

i rN0iT2 8T 



- 2 

KEF 

J' 

LAST 

15. 

v6,224 . 

D 47o^ 

1 

AU 




^3-5 





_6 ,2241 

4 0 T ^ u 


LUM 




U 3* ' 1 

REF 

Q 

LAST 

15u 


7 1333 

X 

MASK 

IMODESi- 



^3^‘2 

REF 

lU 

LAST 

15. 

^6 f 22^3 

55*333 

1 

TS 

IMUOESj 



«-3u3 

KEF 

2 

LAST 

148 

JO , 2244 

7 4733 

u 

MASK 

lOXiSSbt 

bEL IF TUPN-UN REQUEST 


i 304' 

REF 

5 

LAST 

JL5. 

6 , 2245 

lb SCO 

0 

CCS 

A 



t305 

REF 

1 



. & , 2246 

i 2342 

1 

TCF 

C PONL V 

uPERATE UN ONLY, 


C3 6 

K EF 

11 

LAST 

150 

u 6 , 224 7 

4 1333 

X 

bS 

iMUUtSb 

IF lURN-UN REQUEST, RE SHOULD 

HAVE I MU 

f 3 V. 7 

REF 

1 



0 6,225 .i 

7 4760 

• *« 

U 

MASK 

1 MUO P6l 1 

OPtRATEo 


' 3 ^" 8 

REF 

5 

LAST 

1 5 1- 

06,2251 

1^ JvO 

j 

CCS 

A 



v3i o 





vb, 2252 

X 225 5 

L 

TCF 




.3X0 


i 



;6 f 

■j 567 i 

i 

Tl 

ALAiV M 

ALA.RM IF NOT., 


r31i 

— 




06, 2254 

0C2i3 

1 

OL r 



- - 

<312 

REF 

i 




u_ £ 7 4 


+3. ... . TC - 

CAGESU8 ■_ 




kEF 

i 



^ 6 

3o7v 

w 

CAF 

J SECS 



314 

REF 

1 



V.6 ,225 7 

- 5233 

L 

TC 

W H 1 1 L i 6 1 



.313 

KEF 

1 



c3 f 147 4 



£8ANK= 

ecu I NO 



’,316 

REF 

1 



U 6 1 22 hK 

2265 

1 

2CAQK 

fcNUi 



Jt 6 

REF 

1 



>6,2261 

i4C63 

1 





V.3X7 

REF 

jf 

L A o T 

15w 

. 6, 2262 

1 2366 

i 

TlF 

C33T 1 6 i 



' : 318 

REF 

2 

L A jT 

15b ^ 

06, 2263 

3 367 . 

J 

HETtiON CaF 

•J _ t L S 



C 31« 

KEF 

1 



06, 2264 

0 520., 


IC 

V AKlIELa Y 



i.32< 

kEF 

1 



u* 6 1 o 5 

4 47u7 

1 

ENPTNJK C^ 

DLA y fa i L 

RESET lURN-UN REQUEST FA1L81T 


1 32 1 

REF 

12 

LAST 

150 

06,2266 

7 1333 

1 

MASK 

IMOuESi. 



0322 

KEF 

13 

LAST 

150 

06, l2o 7 

57*333 

rH, 

L‘ 

Atti 

I:<UUES3 



C323 

REF 

2 

last 

15 . 

b 6,227 k 

7 47a7 

1 

MAoK 

DLAY Fa i L 

IT IT y.AS CFh, SEND Ibb JELaY 

COMPLET 0 

c324 





V 6, 227 1 

6 000 6 

1 

E X T E iTu 





r 


u AP J M ttLE i ^L 4 - /Z XJ- -Jkni^ ZKUii KAii ARTEMIS _ ZY 

L FAKUP \ PPJuRAM . . . _ 


• 3ZS 

REf“ 

L 



.'6,2272 

1 2 3 u 5 

1 


BIF 

EKOl NUi'42 

’ 

H£ r 

_ , 3 - 

LAST 

1 5 s' 

V P-t Zid / 3 

3. 6l753 

1 


C At 

_ T Jr<l JLS fa-iil 

i JZ / 

REF 

14 

LAST 

i s . 

:6,2274 

/ 1333 

i 


MAoK 

I jIlJ J £faz> ‘ 

' BZb 





w# 6 f 2 ^ 7 5 

s.' V ■ ; J 6 

1 


tx r t NO 


3<i9 

REF 

i 



^ ^5 f 2 2 7 6 

1 22 fa^ 

■ 


faZF 

f fa I i\ UN 

i 3 J . 

REF 

2 

LAST 

136 

^ fa 1 2 2 7 7 

4 0-574 

J 


fa fa 

FL AUf^KU<. 

v33i 

KEF 

i 



06, 23f 

7 47o1 

1 


Mask 

1 MUS cF LG 

( 33 

REF 

f 

LAST 

i 1» L- 

0&,23'l. 1 

Iw 0 6' 

i 


Cu s 

A 

• 333 

REF 

1 



< Q f 2 3 2 

1 5314 

.. - 


IGF 

taskovek 

<. 334 

REF 

1 



4. fa f 23L 3 

0 4655 

L- 


Tb 

PCS T JUMP 

'33 i> 

REF 

1 



l6, 23l 4 

17625 

I 

- 

Caur 

1 MU B AD 

1 336 

KEF 

x3 

LAS r 

54 

j6 , 23'^ 5 

3 4752 

fa 

cNQT N0N2 

CAF 

EU 15 

C337 





J o f 23-^ 6 

L> 1, Lj 1. fa 

i 


EXTEND 


C338 

REF 

1 



fa f 2 31 j 7 

0 5 -12 

1 


riOR 

CHAN 12 

33*^ 

REF 

2 

LAST 

1 45 

Ofa 1 2 3 X 

j 4714 

i 


To 

IBi'JKCALL 

34 ' 

REF 

I 



6,231 1 

i72s/7 

1 


Caur 

NOAT TOFF 

341 

R£J: 

_ L 



v-otZSlZ 

_iL-ic5JLJ. - 

i 

UNZ2 

TC^ 

2jEao.I£3iU. 

<343 

f< EF 

1 



jCx$ ZS 13 

4 5u61 

1 


C fa 

d I T S 

C34jj 





i t>f 2 J 14 

u O'D ... o 

1 


EXTEND 


344 

REF 

2 

LAST 

151 

U6,2315 

63 Jl2 

1 


AND 

fariAK 12 

' 343 

REF 

1 



•.6,2316.. 

3 5*j25 

t 

V.-' 


CAF 

/ ,9SEC - . 

^ 34a 

REF 

2 

LAST 

15s/ 

J6,2317 

j 526u 

4 


iu 

V AKDcLA Y 

' 347 

REF 

I 

* 


J fa f 232 >j 

3 4763 

1 

ISSUP 

CA 

IMUNITuT 

3472 

REF 

1 



JO, 2321 

6 4763 

1 


A J 

i MUr INHT 

‘ 3474 

REF 

i 



j6,2322 

6 47 66 

1 


AU 

ICUUINHT 

34 7 6 





jOf 2323 

4 C'C'j . 

i 


COM 


* 34 b 

~fCtT' 

^ Lo 

LAST 

i5l 

wiO , 2324 

7 r333 

1 


MASK 

i rtulJE s fa ' 

C 34 9 

REF 

lb 

LAST 

151 

fa 6 1 2 3 2 5 

55*333 

i 


TS 

1 MUUcS J i 

■.■35c 

REF 

1 



/6f 232 6 

4 4763 

0 


CS 

Nul MUDAP 

C351 

REF 

4 

LAST 

144 

^6,2327 

7 1334 

W 


MASK 

i 3U U d S 3 fa 

1.352 

REF 

5 

LAST 

151 

06 f 233 ^ 

55 ' 334 

fa 


TS 

I MOD cS 3 3 

. 353 

kef 

1 



j 6 , 23 3 1 

b 2 ? u fa 

i 


TC 

SET! SSrt 

'354 

REF 

14 

last 

151 

U6,2332 

4 4752 

1 


CS 

Bi 1 13 

355 





66,2333 

u tC.J6 

1 


EXTEND 


35D 

REF 

3 

i_ AST 

151 

06,2334 

o3 X. i2 

1 


WAND 

faHAt^li2 

. 35 7 

REF 

1 



. 6 , 2335 

3 5v2s 

fa 


CAF 

4fafcfaS 

X 356 

REF 

2 

L AST 

15U 

* L> f 233 6 

u 323:^ 

j' 


Tl 

WAl J »_iST 

1.359 

REF 

2 

LAST 

15L 

63,1474 




£ bANK^ 

C U J i Nu 

C 3 b :■ 

REF 

1 



6 f 233 7 

.317 5 

1 


2CADR 

PFAILuK 

C 3 6 r 

REF 

1 



- faf 234v- 

i6L63 

r; 



^ . _ 


j 
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f 


USEn'S PAGE NQ. II t 53 


N Uil 

PRhStriT, RE-ENTER 9f SEC DELAY IN WL 


IF IT IS KLl ON NOW, SEE IF A PROG WAj 
W A 1 1 i NG « 


LiMSUCCESSFOL TORN-QN.. 

SEN D I SS DELAY COMPLETE-, 

TURN OFF ISS DELAY COUNTER 
TURN OFF NO ATI LAMP, 


REMOVE. ZERC AND CaARStc 


WAI T . 7^..9_ SF C FOR CTR5 TO F I ND GIMBA 


I 


REMO YE CAGlf4G , IMUFAIL INHIBIT, AND 
1 CDoF All. I nTTIIITT FL AGS u 


ENABLE DAP 


I S(S WAf>NlNG MIGHT ElAV E BEEN lNhlblTEi> 
REMUYE IMU DELAY CUMPLEIE OISCtsETF, 


DUNI ENA3LE PRUG ALARM ON PIP FAIL FQ'; 

ANUIHER SLCSv 

•4 




Aii> LJlliU tsi_V mSA^ jL.^lll^- lX. 


115 


M.sUPl PKJGRAH 


• j6^ 

REF 


LAST 

LSI 

06 » 234 1 

1 5314 

a 

tcf 

1 AS KUV LK 

.■itnl 

Rx.F _ 

„ 13 

LA^T. 


j 2 Jl42..„ 

3 4 765 1. GPJJNLY 

LlAF. . 

GITT , 

■ioE 





.'6 # 2343 

6 

1 

lXTLNU 


'36^' 

REF 

4 

LAST 

151 

/6» 2344 

62 biZ 

* \ 

o 

KANU 

CHA,U2 

J 7< 

RLF 

o 

last 

151 

b f 2345 

lu LA 

ii. 

CCS 

A 

' 371 

REF 

4 

LAST 

15l 

06,2346 

1 2366 

1 

r L r 

C33TcS1 


_8_EF 

2 L AST ^ 

-Hi 

„ Ju 

_3- 4761 


.C/iF.,. 

_J, M U...i jiF-L b- 

: 373 

REF 

3 

LAST 

151 

,>bf 235 • 

7 i .74 

- » 

KaSK 

FLAG 

<'374 

KhF 

> 

LAST 

152 

j 6 f 235 i 

lb 

4 

L 0 o 

A 

1375 

REF 

0 

last 

152 

U6t 2352 

1 236o 

1 

TCF 

C A T L_ S T 

» 37g 

REF 

1 



6 # 23 5 3 

b 2751 

u 

tc 

CAGESUB2 

1377 

r’ef 

3 

LA3T 

151 

V/ 6, 2354 

u 4714 

1 ISjZhKU 

tc 

1 3NKCALL 

‘3 78 

REF 

Z 

last 

151 

/Of 2355 

172w7 

1 

CAOK 

■sOat tuff 

! 37i' 

REF 

14 

LA 

35 

.U6, 235o 

3 4764 

L 

Caf 

bIT5 

V -i d ‘ ' 





U6, 235 7 

^.'wUO 

1 

EXTENu 


C3bl 

REF 

s 

last 

152 

J 6 1 236 1 

kr 5 '^'12 

1 

WUR 

CHArilZ 

3 >1 1 i 

REF 

2 

L AS ] 

151 

. 6 f 23 6 1 

w 5511 

1 

tc 

ZEKlIlOU 

v382 

REF 

14 

LAST 

05 

/Of 2362 

3 4763 

1 

caf 

Li r o 

i.383 

REF 

1 



> 0 f 2i3 o 3 

w 5223 

1 

TC 

r R i uUL c 

^ 334 

REF 

1 



V 6f 2364 

/2 31 4k 

Ij 

AUKh S 

b(.Z2 

3 d 6 

REF 

6 

L AS T 

152 

'^0,23 65 

1 2366 

1 

TCF 

C33TcST 


-^ -££ti, 26 1 197] DlQ&gNHS'. h^i ia 

UShr^'b PAGt; NU« l^ 


IP UPERATP UN ONLY AND Wt /u L iri C. ;tR c 
ALibN, DOM ZERO THE CDUb dLCe.U l W 
MIGHT BE IN G1M8AL LUCK . U.St V^l»\ . f. 
KECOYbKu 

LTHERUISE. ZEKQ TH E COU NTERS 
UNLTSS 5UME0NE IS USING THE 1Mb 


SET TUKNUN PLAGSa 


TURN OFF NO ATT LAMP 

I MU CA_GE UFF ENTRY 

liS CDU ZERO 


WAIT 30 MS FOR AGS TU RECEIVE SI^NhL, 


/ 2 .ii£_AuL-£tlUUjaAd^^^ NASA Z_^il U. 


il; 4 ^ fc£B» Z 6 .. 


JlliNbNfcS. 64 PAGiE ib. 


r4KUPI HRJGRAM 


USbK*S RAGt I'iO 


S3 


P . :k 7 

pPUCkAH AAMLi 

rV 33 8 

FUNCTIciHAL Uh 

k i 39>; 

SUbPijUTINt to 

k;:3S2 

CHANNtL 33 Wl 

rs . 394 

PktJtESjtC AND 

HE 3 9 5 

31 f 

R 


9 7 

13 

K'''39S 

12 

K \ 3 3 

li 


C.33T hST 


> I S PHOG KAH MGNJ TOR S TH REE FL I P-FL JP IN B1T;> uF CHAMNEl 33 AND CALLS IH_ APPR^PklAtr 
ri'AniGt, IT'lb AKAUObOUS fU IMUHQNf r^'riiCH MCMTuRS CHANNEL i , E4Ct:^^T FitAT IT FEAlJj. 

S. THt ! IT; 


hJNCI ION 


it:pa fail 

DOWNLINK TuU FAgT 

uplink TuJ fast 


SUflKUUTINE 


PTPFAIl 

DN r MEAST 
UPl Nf AST 




UPON tNTPY TO THE SUBRQUTINEi THE NEW BIT STATE IS IN A, 


4,1 CALLING SEwOENCE: tVeRY 4dL MILLISECONDS AFIEK TNOnTE^I 


T' 4' 

JuBS cr 

TASKS initiated: NONE* 



V.4 3 

SLFRUUTINES CALLED: PIPFAiLf DNTMFAST AND UPTMFAST ON 

BIT LHANGcSo 


K ( 4‘ 4 

K r 4 '- 6 

ERASAELE 

R t mPP LAK 

initialization: CdMODESSSJ = CCF 16630 UN A 
IF Trit conditions PER:>ISr, 

FRESH ^TAkT UR P%ESlAKTf 

THEftEFOKEi THE >6 ALAKH > WILL 

R, 4; 7 

ALARMS: 

NONE , . , 

- 


R U4 j 8 

EXIT: GLDLKMONf 

. . ^ - ri i-.i i-i II 

1 - T — - -1, l^'■ ni.mjf-.— 



OUTPUT 

* 

m 

UPDATED BITS 

13, 12 

AND il OF 

1 M Uu t S 33 

WITH Change sj PRuCESStUa, 

— - - - 

— — 

i. 41 ' 

RFF 

a 

LAST 

iSi 

L' 6 1 2366 

3 1334 

i 

C33T EST 

E FA 

1 HU 0 L: S 3 3 

SEE l.F_ kEL.EVANT CHAN. 

33 tUTS H *V 

c 411 

REF 

i 



V 6 f 23 6 7 

7 5055 



MASK 

33RD K 



412 

REF 

2 

LAST 

42 

6 f 2 ^ 7 i 

i>4 4 ''/I 

1 


TS 

L 

CHANGED. - 


413 

REF 

2 

LAST 

133 

6,2371 

3 5w55 

1 


C Ah 

33'-<DM3K 



m414 





V 6 f 2372 

C 

1 


t.KTEND 




.41t> 

REF 

1 



06,2373 

6 3 ,33 

1 


WAND 

CHaN33 

RESETS FLIP-FLOP INPUTS^ 

' 416 





j6, 23 74 

^ W W U 

1 


EXTEND 




417 

KEF 

3 

LAST 

147 

S'6,23 75 

^6 s.- wj hL 

J 


RXGP 

LCHAN 



l418 





*. 6f 2376 


1 


EXTEND 




1419 

REF 

1 



j6,2377 

1 242 6 

i 


32 F 

GLOCKMUN 

ON NO CHANGt^ 


,42 

KEF 

ci 

L AST 

143 

J6f 240 

54 . 

i 


rs 

kUPTREGI 

SAVE BITS WHICH HAVE 

changed 

i 421 

kef 

7 

LAST 

133 

.j6t 24L i 

23' 334 

1 


LXCH 

1 HO D £ S ^ 3 



C422 





0 6, 24c 2 

L 5 6 

1 


EXTENu 




0423 

KEF 

4 

L AST 

153 

L 6 , 240 3 

U6 V j1 

: 


KXUR 

LCHAN 



0424 

REF 

3 

last 

153 

u6,24._4 

55' 334 

jt 


rs 

1 :'1O0 

UPDATED iMCDES33o 


' 4Z5 

REF 

2 

LAST 

143 

■j6f 24^ 5 

j 4772 

1 


CAP 

2ti<u 



.426 

KEF 

3 

last 

153 

36,240 6 

>6 V 7 1- 



X C i 

KUKrkt6l 

. .. 


1 42 J 





w 6 f 240 7 

Q UUuJ C' 

1 


DuUQLl 
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l4r<UPr Pi<aGRArt 



REF 

i 


■ - ■ 

06 f 24 1C 

1 241J 

1 


TCF 

ijxriaT +1 

V A S 

Ki 

\ 

last 

148. 

■ T it. J Zj_ 1 1 

_6 A JlJj 

0 


_jij3 - 

ONE ■_ 

A i 

REF 

^ -M- 

1-.- 

-^■C— — 

LAST 

153 

^06,2412^ 

24 0 7v 

U 

NXTIbl 

1 NCR 

RUPTKtGl 

4J1 





36,2413 

u pouc 

1 

+ 1 

DOUBLE 



REF 

X L> 

LAST 

152 

36,2414 

54 OOu 

O 


rs 

A 

4JJ 

REF 

2 

LAST 

154 

V o 1 ^ A 1 ^ 

1 2412 

L 


TCF 

NXn BT 

43A 

REF 

3 

LAST 

148 - 

6 f ^A16 I>6 _mL/JL„ 



ACil 

KUPi KtG2 

< ass' 

REF 

ii 

LAST 

154 

\ bf ddAi 7 

tj 0 7 C 

0 


1 NUt X 

RUPTREGl 

AJo 

REF 

i 



,6, 242r 

3 4754 

c 


CAF 

PIPZFLBT 

( 43 r 

REF 

3 

LAST 

153 

36 , 242 i 

7 i3:>4 

o 


MASK 

lMUuES33 

4itj 

REF 

12 

LAST 

154 

.6, 2422 

5 0 U 7 u 



INDEX 

BUP lUEGl 

b43 9 

REF 

i 



26 , 2423 

C 2 7 06 

i 


TC 

CJjJNP 

44 

REF 

4 

LAST 

154 

36,2424 

1' CTi 

* i 

NXTFL33 

Cu s 

BUPlR£u2 

V 44 1 

K tF 

:5 

LAST 

134 

uo , 2425 

i 2411 

J 


rcF 

NXTtlir -1 
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SCAN FUk BIT CHANfiESc . 


ICODING IDENTICAL To CH. J J- ) 


GET NEW VALUE OF BIT WIilCH CKa .GED 


PROCESS POSSIBLE ADDiTIUMAL CHa .bL 


tMQUL 1^^.- UF A GC PRUbRAM j^K LEKl^. i>_Y .^UilL^^Xl. 
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IsatPI PHJGkAfI 


USEk'S FftOt (iP 


{ s 




P 


PHLoKAM NAMt 


GLUCK MOW 


K A A J 
K 44 'j 


FCt'lLTiJNAL DESCRIPTICn: THIS PRUGkAid MuhITORS THc CO U Z C JU N 1 UK TO DLTERHiNr ^^H ETHEL fH[ 1 SS IS 1 :J L.I ."^bAL LUCK 

fch RtGIUNS GF MIJDLE GIMGAL AHULL («GA) ARE USL^: 


AND TAKES ACT 


IF IT IS* 


■ 447 

rv V 44 6 
K - 4 5 1 


II A6S(MuA) LbSS THAN UR hCUAL TO 7i DEGREES ~ NOK/^AL MOuLj 

21 Aab(i4GAi GREATEK THAN 7v. OEGRbhS AND LESS IriAH UR LUUAL TU 85 DEGREES - GIMOAL LUCK LAhP TURNED UNo 
St A8S(MGA) GREATER THAN 85 UbGREtS - 1 SS PUT IN CuAKsE ALIGN AND ND aTT LAMP lURNEt ON-, 


Rr452 CALLING SEQUENCE: EVERY 48 E MILLiStCUWDS AFTER C33TEST 


K i 4S3 


JC6S UR TASKi INITIATEu: NUNE# 


R C454 
Rr456 


SUBROUTINES CALLED: 


i) SETCUARS WHEN ABSlMGAl GREATEa I HAH 85 DEGREES 
LAHPTESr BEFORE TURNING OFF GIMBAL LUCK LAMP., 


AND ISS NUT IN COARSE ALIGN 


K ^4*3 7 
K 1 ' 4 5 b 

R C46i 

R( 462 


ERASABLE 


INIT IaL 12AT1UN: 

I) FRESH START UR RESTART WITH 

21 restart with groups active; 


NO GROUPS active: CtuDUZl 

Saml as fresh ^tart except 

PRuCtEDS AS BEFORE^ 


, IMODES3 BIT o = IMUueS33 BIT 1 
CtCDUE) NO! changed SO GlMoAL MONITOR 


K ‘ 463 
K V 464 

i< ' 4 o 6 


ALARMS: 


1) MGA RLoiON (2) 
21 MGA REGIUN 131 

SO ALREADY* 


CAUSES GIKBAL LOCK LAMP TO BE LIT, 
CAUSES THE ISS TU BE PUT IN DUARoc 


ALIGN AND THE NO aTT L/MP TO BE LIT IF LiTHti NOT 


E46 7 

REF 

2 

LAST 

135 

u6f 2426 

ii..' J34 

1 

GLUCKriON 

CCu 

couz 




REF 

I 



G6t 242 7 

1 2433 

tJ 


TCF 

CLuC KbH K 

SEE 

IF MAGN 

.469 

Kef" 

1 



0 f ^^3 L 

1 2471 

1 

•• 


TCF 

S ETGLOC K 

7. 

DEGREE S* 

^47 

KEF 

2 

LAST 
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I 


f 



'2 - ^ 


1 } 


\Q 


A . 



«- 1 


I 


F. 


7 






I 


A 


4 



t 









. > ; 






-A 









1 


L 

P L 6 ‘* 



LF PRObKA M AK 



f 1 PH'JORAM 

PHGGKAM Name; IMUUP. 


IIjJl: .Ft 1^,0 i^i]Lj /1_.JDJ UG L.i,.A.«.-.fa.4 PAtaE iSiZ 

USht PAGE iiU- ji-l . ^ (i S3 


K , t><t i 

! » 64 ) 
K 64 S 
X 64 7 

Ki 649 


FUJSLtll UHAl JJii-S_Ji)<jG:-wKAJ^I_PJiC-CtsSii XdAfiatS ^id_-.XJd£_ IS9> . 9.^- UhiAN . llL i 

IF Trit iNGiT CHANGES TO G» XtNlUlC7vTlN6 ISS Ui\ii IHUOP GENEKALLf SETS aiT 7 OF ihCutS-) TO i lU RbGUEST ISS 

1 Mil ALl iATICN VIA TNONTtST, Ai-i ENCEPTICN IS UUK1N« A FAILED ISS DELAY OUkING WHICh alT_^_i/r IHODESJ IS ScT 

TC 1 A(VD NO FUKTHEk I N 11 1 aL I ZAT I ON IS ktWUlKfcup rtHtN THE AN6iT CHANGES TO 1, INjiCATiNG ISS OFFf IHUSFFLG IS 

TESTED TO ciEE IF .ANY PRUgKAK WAS OslNu THE iSs* IF SO, PROGRAM ALAkR E-214 IS ISSUED 


I C AJLi.i^ 6 _. ijT. J__ 9 _G:LCHAM>i Et 


K . 65 <: JOES UK TASKS INITIATED; NONE* 

Rt65S SUbP'JU TINES CALLED: ALAKMi IF iSS Is TURNED OFF WHILE IN USE# 


Ri 6 S 4 : 
R V 6 S 6 


_£a4SAaX£.is:tI J_XALi _ 

LAMP 1j Gi4y IN WHICH CASt 


ON FRFSH sTARl_MlLJiES.T4KTj^ol.l KijUIL S J.>,XS-SX L ^ hPT WHEN THE.GI tlSAl_lXl.CK 

n IS SET TJ /p THIS PREVENTS ICCii ZERO BY TNGNTEST WlTF I ISS IN GiMBAL LOCKo 


K 66b alarms: program ALARM O' 214 IF THE ISS IS TURNED OFF WHILE IN USE* 


k » 66 4 

EXIT; 

NXTIFAIL 

m 







K« 66i 

OUTPUT : 

iSs INITIALIZATION RE 

gUEST 

lIMQDtSS.. 

DIT 71 OK 

PROGRAM ALARM . 

2 i4<, 

c662 





^ 6f 262*. 

- J 1 7 u' 6 

1 I HOOP 

t X T ENl) 


IF OPERATE JUST ON, WAIT 1 SAMPLru 

663 

REF 

1 


- 

w' 6 y 2 62 X 

1 2646 

V. 

bZF 

IMUQP^ 


/ 6 In ^ 


1 

i A%T 

1 64 

r 26 ^ A 

A 1334 


LS 

IMODES33 

_ CJSAaJJi,-QAP 

^ 

665 

8iiF 

— 

2 

LAST 

151 

j 6 f 262 J 

7 4763 

D 

MASK 

NOl MUoAP 


V 666 

HcF 

il 

LAST 

162 

j6f 2624 

27*334 

U 

ADS 

lrtU0cS3_;» 

- _ — 

667 

REF 

6 

LAST 

lo. 

v6t2625 

J 47 14 

1 

rc. 

IBNKCALL . 

KNOCK DOWN TRACK,. TiEFSMMAF, DBJFT FLAGS 

l668 

REF 

2 

LAST 

Ibj 

^6t2626 

17121 

J 

caok 

RNDRcFiJ H 


o6 82 

REF 

i 



J 6 f 262 7 

4 47 6l. 



L T6 1 T 


.C6E4 

REF 

1 



3 6 1 263 ^ 

7 jl v4 

. ' 

MASK 

FLAoWRDS 


6686 

REF 

2 

LAST 

162 

w6t 2 u3 1 

54 1 u4 

1 

V ' 

TS 

F L AG 


7 66 9 

KEF 

i 



G6, 2t»32 

3 4762 

.J 

CA 

KNavZSi T 

iUkN i-iFF FLAGS 

6692 

REF 

3 



06« 2633 

6 47o 1 

6 

;4U 

iMUsEbir 

• 

v6695 





j 6» 2634 

4 

u 

COM 



V 6 / . 

ref 

4 

LAST 

152 

.J 6 i 2633 

7 w J74 


MASK 

FlA jWRD 


671 

REF 

6 

LAST 

162 

w6f2636 

56 074 

l‘ 

XCH 

FL AGWRD 

iF vJli.o UF , alarm if PRUG USING I MU 

L 67 2 





.j6f 2637 

4 COOU 

L 

COM 


. _ . 

C673 

BEF 

i 

LAST 

152 

U6* 264’ 

T 4761 

1 

rtA:>K 

IMUsEFLC 


^ 674 

REF 

13 

LAST 

1 o J 

< Of 2 d4 1 

1 'U W' w 


CCS 

A 


t. 67 b 

REF 

9 

LAST 

1 

^ 6 t 2642 

1 2222 

u 

rcF 

NZfiFAi L 


C 676 

REF 


LAST 

15 d 

. 6,2643 

D 56/1 

1 

rc 

ALARM 


^j 677 




,' 6 , 2644 

2 i 4 


uc r 

ii 4 

- 

r 67 a 

REF 

i 

LAST 

162 

^6 f 2645 

2 222 2 


fCF 

i\ X T 1 i* A i L 



St .* AS SlHiiLt. UCi-^I2,..0F ...AuC.. PJiDGtKAiA- Atil DIXS-P iLJiA.SA, 


Iis4. fLb. Zh^rm niO{^FiM£S«ufe4 PAGF L6i 


L t4«tPT PKUGKAM 


U^tK' S PAG.e 23 ..E6 S3 


i 679 

( 6«t 

r68i 

RGF 

KtF 

REF 

> 

24 

19 

LAST 

LAST 

LAST 

156 

159 

162 

Qb$ 2o46 
Otj f Z647 

u5 1 Z61& 

3 

7 

i. V 

4To7 

1333 

GOO 

M 1MUUP2 

1 

0 

CAF 

rtASK 

CCS 

bLAiftait 
li4Ci JESi 

A 

-■ ^ — r*^— * - T1 i 


6 152 

REF 

‘ ii 

LAST 

162 

06y 263 1 

1 

2222 

U 

TGF 

NK f 1 F Al L 

iF sj, dcnt prucess until 

PRESENT 5.J 

t683 

REF 

2 

last 

156 

66 t 2632 

1 

2362 


TCF 

i f UkNU iiL 

bHCDNUS LXPlKtS, 

... , _ - - 




A* • " '■■ * i , A- ** 



, 

— . . 



■ - - 

- — - - - - . 


Z«LJl£-^bU , . lx 


ah; 


J.iJL4 f t L a 0 1 DC C kir -. Q 'i i ' /vb 1 , 1 64 


lAKcnr hhjokam 


UjtK i “Al/t iNUa 


<!!** 


V 


H' 6 d A 


P P (. I L»i\ Ai'1 NAME I PIHfAiL 


TS 

KiOhJ 


X]±lii__likUkKAM. PRiiC£iikti XbAjiiiEi^ 


ur 


IKCDtr S i 

BIT 1 ■ 


JdLi_l L 

TJ AGREE. IT CALLS ScTISSW IN CASE A PIPA FAIL (ME-ESSIT.To AN ISS NAKNING. 11- 
1, AND A PIPA FAIL IS PRESENT AND THt ISS IS NOi .cl Tu i il 1 AL i ZLi> » PRDGKAP ALARM 


jz Lr HaNNi_ L — PJLFA 

Tiiy AN ISS NAKNING. 


fiA 


1 1 


iiOi « I 


ZLl 


Si_TS vIT i 


J_dC. 


■ » t 1 Mul t Si 
IS ISSUti 


h.c6-*i CAI LlNu SuuUcNCt; BY CSSTLST DN CHANGES UF CHANNEL 3J bIT ii 

:< T69z J.L0S uR iasjisl. ij:5ixij^j:£a;-_JiaM£a. — 

Ri693 SCaPGUTINcS CALLED: 1) SETiSSw, AND Z) ALARM t SEE FUneTIUkAc cEi^RllilUM 


R 


CSb 


erasable INITlALUATiON; S££ iMUMUN FOR INITIALIZAT iuN uF I lUJ 


iHt RELAVANT BLTS AkE i> , 7 


J f 


U ' 

i L 


a< D «X- _ A L A P 1*1 PROG RAM . ALARM 0 _Z i Z IF P IPA F.A I L JLS . PRaSjEN.T _B. D J 

RvS9i EEInG initialized. 


.iUilTcLj- LSJa-iiALiiiiJ.dI£. mil 



r Hi. i viG 


r. 


tXIl: NXXFLJi. 


KP701 

GUTPUT : 

PRUGRAM ALARM ..-212 

AND ISS 

WARNING MAINTENANlE 


7 Z 

REF 


last 

163 

06 f 263 3 

IL GtJC 

i') 

PIPFAIL CCS 

A 

' 7'o 

REF 

I 



i. 6 f 2654 

3 4757 

G 

CAF 

PIRAFld i 

i7 A 

REF 

2b 

LAST 

163 

6t 265 5 

37 '33^ 


XCH 

I MUuEoi 

V 7.i S 

REF 

1 



U‘6f 2o5> 6 

7 3 JUO 


MAoK 

-ai Ti, 


REF 


LAST 

164 

>j 6 9 ^ 6 T 

27*333 

i 

ADS 

IMUDEsu 

u 7i 7 

HEF 

2 

LAST 

131 

0 6 1 2 6 ii> . 

6 2 7 vi 6 

i 

TC 

Sc TI SSW 

■^7:-d 

REF 

2 ( 

LAST 

164 

u 6t 26t> 1 

4 1333 

1 

GS 

1 MODES 3 

. 7jQ 

REF 

JL 



j 6f 2662 

7 47 Tw 

i 

MASK 

AlCF inht 

t 7 it 

' REF 

21 

LAST 

li4 

^ 6 f 2 o 6 3 

1C OuC 


CCS 

A 

v.7ii 

REF 

i 



0 6f 2664 

i 2424 

i 

TlF 

hKTf l3 J 

.712 

REF 

2o 

LAST 

i 64 

> 6i 260 5 

3 1333 

r ■ 

u 

CA 

1MUDES3 . 

.713 

REF 

1 



j 6f 2o66 

7 2776 

1 

MASK 

Uu 1 i. ? 

714 

R tF 

22 

LAST 

1 Ci^ 

, 6» 266 7 

1. Cut 

c 

CCS 

A 

^7 IS 

REF 

2 

LAST 

164 

6 f 2 o 7 

1 2424 

c- 

TCF 

N XI FL 

>.716 

REF 

4 

L A S T 

162 

J6f2671 

c 5671 

1 

TC 

ALARM 

0717 





u6f 26? 2 

.t.212 

ii 

UCT 

212 

‘.718 

REF 

3 

LAST 

1 64 

, 6 f 26 / J 

1 2424 

1, 

TCF 

i\X 1 h L JS 


Se f 3IT1- LN IMGDES3 SD ALL ISi WAiBNl iG 
INFD IS IN LfiE REGISTER 


i» PIP FAIL DOeSNI light ISS GAxMNb# Do 
A PROGRAM ALARM Ir IMU ‘uPERATl.'fo iUT NUT 

UAGtD UK BEING 1URNE>. UN, 


CUNDIUUN NOT METr, 


LllA 26.1971 ninGFNFS. 


^ AP : AS SEMbLt: KEVISIUH jI Z OF AGC PKD ^RArt _Ai<T £M IS l ll _ 





L TAKUPf PftUGRAM 


USER'S PAGE .6 S.^ 


H ■' ^ i. '7 

Rc722 


PHLUKAM names: UNTMFAST, UPIMPAST - 

f-UNCriUNAL DESCkIPTIUjM: THESE PRDvaRAMS FRUCESS CHAiNGe S LF clT^ iZ ii Jp CHANNEL 33^ IF A BIT CH^i.GFS TO A 

, A PROGRAM ALARM IS ISSUED. THE ALA'kMS AKE: 


R‘ 72 J 

BIT 

ALARM 

CAUSE 


R 'v7 24 

— 



— ™ — 


RC72i> 

12 

7 11'; 5 

DOWNLINK 

Tdu FAST 

i;< 726 

11 

1 Ij 6 

UPLINK TI 

jU FAST 


R*72V CALLING SEQUENCE: bY C3JTEST JN A BIT CHANGE. 

.<.72d SUBRiJUllNtS CALLED: ALARM, IF A Bil CHANGES TO A . _ „ 

RG7 2S ERASAB LE INITIALIZATION: FRESH START U R REST ART , BITg i2 AND ll UF IMMDES53 ARE S£T IlJ__U 


K' 7il ALARMS: SEE FUNCriDNAL DESCRIPTION, 

KC732 EXIT: NXTFL33. 

ill J J 3 ^ OUTPUT : PROGRAM A LARM ON A BI T CH ANGE TC S . 


< 7J4 

REF 

23 

LAST 

164 

b, 2674 

it 

0 '\J' V 

■ ,ji 

DNTNFAGT 

CCg 


LO PKOG ALARM 

IF TP TOT 

F Ai 1 . 

l73S 

KEF 

‘t 

LAST 

164 

. 6,267 3 

1 

2424 

\ < 
r 


rcF 

NXTFL33 




0736 

REF 


LAST 

164 

v6t 267 6 

ci 

5671 

1 


TC 

ALARM 




■737 




V- 0 1 ^67 7 

0 

11-5 

1 


cJ L f 

i 1 5 




1:738 

REF 


LAST 

163 

B6,27w; 

1 

2424 

1 


TCF 

XXTFLii 




C739 

R £ F 

24 

LAST 

1 65 

'J 6 f Z 7 u 1 

1 

^ ‘J 

%e 

UPTMFAST 

CCS 

P 

SAME AS DNLINK 

TGO FAST 

W I I n J 1 F F L \ ‘J ^ 

74 

REF 

0 

LAST 

163 

-- 6 f 2^ 7 V 2 ^ 

1 

2424 



rcF 

i\ X T F L 3 -> 

ALAKi'^ CQDFd 


• - 

( 7 A 1 

REP 

6 

i-AST 

165 

u 6 f 21 7 i 

u 

567 1 

1 


TC 

ALARM 




^ I • JL 

'-742 





- Qf Z7 L 4 

J 

i i DU 

1 


OCT 

11 >0 




t74J 

REF 

7 

LAST 

165 

' V 0 f 7 5 

1 

2424 

> 


TCF 

I\X ( 1" L53 





-'j t> f -i- 9 T 1. DI Dtj? ^ 6^. P / Li r — 


li,\l ; HjSLiiiJLi- -Aul--J>iiUijiiAtL-ARrLAi3.. By hlA^A - IlJ Ji— i 

L l^RUPf PKJGKAi'^ USER'S P6bL WU -b td. ii 


P<.^744 FRCGRAM 


bt r issn^ 


R ;. /4S 
K 7A7 

Is . 7 A'- 

K' 7:.i 


r?li-Xl Ux-iAL-UE SCRIP Iixii; 
FCk up FI UEPENDING UN 

i C I Uh 1 b If i C OU F A I L I » 
PROGRESS, 


. „JXLiS--PRPGRAIL.IUaNS liiC- I S aARRINu... . L aMI' 

IHE STATUS UF IM0QES3J tHT:i 13 ( iMa FAIlI 

AND IPIPA FAIL) AND i (iNHIbif PIPA FmIlJ 


. F^ (C HANNEL 11 b ll X ■ ^: _l_F_OiX_LJN., 

4 IlKHlblT IPU FAIL), 12 t I CDU F ILI 
iHt Lm^P I;> LEFT QN Ir A LaRP TCSl I> 


JD 
i f'J 


K- 732 
K * 73 A 
R4736 
Hv7‘3E 


r 


CALLINb SEQUENCE: CALLED dY IMUP.ON ON CHANGES TO IMU FAIL AND ILDU F.-ill CALLED BY IFAILOK AND PFAILOK JPIJN 

REMGYAL OF THE F AIL 1NH I3ITS, C ALLED 6 Y PIPFAIX rtFlEN THE PlP rt FAIi. C jjCKtTE CHAN GES, IT IS CALLED L: Y PliU 

SINCE fhh PIPA FAIL PRUGKmM ALARM MAY NECESSlTAtE aN liS WARNli4b, AKL LIk^WIsE BY PIPFKEt; 

AO IT IS CALLED BY IMUZcRU3 AND ISSUP AFTER THE FAIL iNhlSiTS HAVL t E £-> Rl .iuVED, 


WHEN I HE ALARM DEPART ^ 


A 

M 


's* 7c . JOBS UK TASKS INITIATED: NONE. 

„ S.UtJXaulXNXS_.£.ALXJEuX_J4m^^ _ - 

K^762 ERASABLE I Nl T i AL 12 ATIUN: 


k:763 il iMUDESis— SEE IMUMONo 

R< 7uA 2) I MODES 3i SIT I = c {LAMP TtST 1\1U1 IN PROGRESS). 


KC765 ALARMS; ISS WARNING. 


R'. 766 tXIT: VIA D« 


RC767 OUTPUT: iSS WARNING LAMP SET PROPERLY j 


i 768 

REF 

i 



j 6 f 2 6 

3 

47 7 6 

0 

S h T I 6 S M 

LAF 

OCi ii> 

S-) ISS WARNING USING fHE rAlL alT-, 10 

t 769 

REF 

29 

LAST 

1 64 

u 6 f 2 7 u 7 

7 

1333 

1 


MA6K 

i MODE S3 

jHS 13, 12, AND 1 Of I lUJtS.^ ^ if-1 1H 

v7 7C 





j 6 f 2 7 1 L 

4 

J 

^ ' r tob 

1 


tXT EiNiO 


r-AlluRE INHIBIT BITS IN PUSIlIuN: 

C771 

ft £F 

14 

CAST 

85 

■J6»27il 

7 

473 7 

1 


MP 

Bin 

4, p, AND 1- 

v772 

ft EF 

3 

LAST 

166 

06 f 2 7 12 

3 

1333 

v.‘ 


Ca 

1 MODE S3 


< 773 





06,2713 

0 

0Dc6 

i 


EXT ENl) 


■ 

774 

H EF 

t? 

L AbT 

133 

6 6 f 2 ? 1 4 

G4 

■ 0 J 1 

1 


K U K 

Li-HaN 

indicates FAILURE- 

V 775 





? _) 6 f 2 ? 1 3 

4 

02 J . 



CUM 



(776 

REF 

1 



J 6 f 2 7 1 6 

7 

5034 

i 


ASK 

i.*Ci 16*J^ 


77 7 

REF 

jLi> 

LAST 

16 6 

-6,2/17 

1 

. C- J 

1 


CCS 

A 


.77b 

REF 

1 



. 6,272 . 

i 

2 731 

1 


TCF 

ISbWON 

r \ 1 L uJ f V £ o 

( 77° 

REF 

1 



C6, 2721 

3 

4? / c 


I gS WOFF 

C aF 

LMPTSTCI 

uLlUl TURN OFF ISS WARNING IF La iP U T 

V.7B 

ref 

12 

LAST 

1 62 

C/ 6 f 2 7^2 

7 

13>4 



MAbK 

I 400 ESS 3 

1 'i PROGRESS. 

v7bl 

REF 

2o 

LAST 

i 6a 

L 6 1 27 2 3 

1' 


U 


w c ^ 

$ 

/I 


< 782 

REF 

3 

LAST 

143 

c 6, ^724 


-v2 

1 


TC 

C 



W f- P 

1 4 

last 

85 

U 6 * 2 7 2 3 

4 

4/ 7 



cs 

bin _ 

■ 1 ■ 

w 

i 784 

cxJt 




66,2726 

* - 

u 

C c 0 6 

1 


EXTEND 



C7a5 

REF 

4 

LAST 

X O 

0 6 f 2 / 2 7 

D 3 - i i 

1 


id A N ' j 

USALMUUT 

i Ur N OFF ISS WARNING 

*- 7 86 

REF 

4 

LAST 

lou 

Co ,2 73 1 

0 

t>002 



rc 

w 


.787 





j 6 f 27 J i 

0 

OOub 

i 

i S j run 

EXTEND 


^ ^ 




u AF’ : A;i SEKBL h K t V Z . >IF AUC. PR.iiJtiAM,.AR I £ili^ iiY^ KA,S A_2£21iJ. 4“ . 1± 


i-l; 4- iJ i-^ 26. 1971 ulCGFFih.;>.. 


L i. 




L-U. 


L 

TAKUBT P 

2 JOKAH 








USER'S PAbE NOi 27 . 

/o/l 

Kfc F 

1 



06f 2732 

22 '<66 

1 


vjX lh 

irtupo 


7tl72 

R£F 

i 



06, 2733 

0 577' 

1 


TC 

V A RA L AK 

fbLL EVERYONE WHAT CAUoEu IH IS L Ni *.. 

,. 7 B 7 J 

REF 

15 

L AST 

1 t»o 

6 f in 3 ^ 

3 477 > 

L 


C AF 

blTi 







6 6 f ^735 

L ' ' / 6 

1 


EXTEND 



w7a9 

RtF 

5 

LAST 

1 66 

o f id / 3 6 

u5 11 

1 


^OK 

C SAL i40 J 1 

TURN ON ISS WARNING 

C79C 

RfcF 

2 

LAST 

167 

06,2/37 

4^ ta Ja6 

1 


TC 

1 ItTPo 


1^79 1 

REF 

1 



u 6 , 2740 

4 7o67 

[1 

CAGEoUb 

CS 

ID 1 1 1 5+0 

S. f jUTLUTS + Ii'JTERNAL I-LAG3 r R 

079^ 





„&,2741 

0 OU'iO 

1 


CXTEND 


SYSTEM TURN-CW UR CAGE, u I SABLE rri 

F79i> 

REF 

9 

LAST 

16 . 

u 6 f ^ 7 ^ Z 

03 012 

1 


WAND 

LHA<\ Iz 

ERROR COUNTER ArJU REMOVE 1 10 obLAr '.□.’ip 

- 794 

RtF 

2 

LAST 

151 

U6,274J 

3 5001 

r 

1 ^ 


CAF 

oi r o4^.5 

SEND ZERO AND COARSE,, 

t 7'3t> 





Jo, 2744 

u 0006 

1 


b X f £ ND 



C796 

REF 

10 

LAST 

167 

.6,2745 

65 012 

1 


MGR 

CHANIl 


<797 

REF 

11 

LAST 

1 

1 - 6 f ^7^6 

4 1241 

0 

CAGESUbl 

CS 

DSPTAB +liJ 

TURN ON NO ATT LAMP 

• 798 

REF 

1 



06,2/47 

7 7664 



MASK 

CC4v >' 1 G 


795 

REF 

12 

LAST 

rsT ■ 

■u6,2750 

27 * 24 1 



ADS 

CSPlAb +llu 


•”' 

REF 

J1 

LAST 

166 

F6,275i 

4 1333 

1 

CAGESU32 

CS 

IrtUDwSS 

SET FLAGS TO INDICATE CAOING UR TURN- 'U 

w 6 1 i 

REF 

i 



u 6 ,2732 

7 5lL2 

u 


M As K 

UCT75 

7aND INHlHir all jss warming in*- j 

C 8^ 2 

REF 

32 

LAST 

167 

06,2753 

27*333 

1 


ADS 

i MUD ES3 . 


08' J 


13 

LAST 

166 

3 6i ^734 

4 1334 

Q 


1^6 

lMaUES3o 

olSASLt DAP AUTO AND HOLD NODES 

r-i y A" 

REF 

3 

LAST 

162 

> 6 1 Z 7 3 3 

7 4763 

0 


i^ASK 

NOIMJdaP 


0805 

REF 

14 

LAST 

167 

.6, 2 75 6 

Z r * 3 «j4 

0 


ADb 

i f'CDtSjj^ 


C 80 6 

REF 


LAST 

1 6 u 

^ 5 f Z 7 3 7 


<2 


rc 



teu7 

REF 

« 

LAST 

164 

J6 f Z76 u 



1 MlJFA 1L 

EOdALS 

SLT I SSw 


( 8'. ti 

RcF 

4 

LAST 

167 

..6, 27o 6 



iCOUFAIL 

EQUALS 

Sell ^ j fi 

- - 




/Vi^SiitUiLL. 01% i IZ_JQ£_:\ijL RRDORAlA— A-tlT £>1 J.^. -liiL iiASA-Z- Zlll^^- ^Ll 


L l^KUPl program 


PCS' ^ 



JUMP TAtiitS 

AjNu constants^ 




ua 1 0 

Ktf 

1 


^ 6 jji X-6L ‘ - 

_L_t053I 

- 

IFAILJMP 

i oF _ 1 j.U'.'.Ny > . . 

1 BAi 

R E E 

L 


U 6 f 4^ / 6 1 

1 Z7 jo 



f U F X •iG ^ \i L 

Vbiz 

REF 

i 


u6f 2762 

1 2 7 j6 

i 


TCF loDurA.li- 

ubi i 

KEF 

i 


J6,276i 

1 25o6 

i 


ILF 

«. L14 
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■4 475». 



LS 

FQSMAX 

1134 

rEF 

11 

LAST 

176 

iu,2i51 

54 3G1 

1 


rs 

L 

1135 

K tF 

1 



10 ,2152 

J 2j63 

f 


rc 

S lORCMD 

1136 

REF 

1 



10, *1153 

a 2211 

1 

PUSOPCMD 

AD 

MAXPLSi 

1137 





X L f 2 X 3 A- 

W i xj u 

1 


cXTEND 


1138 

REF 

I 



13,2155 

6 2175 



bZRiF 

DELuPCMD 

1139 

REF 

1 



lo f 2 iS o 

4 221- 

1 


c ^ 

MAxPLb 

114 

REF 


LAST 

176 

10,2157 

24 '61 

0 

NEXTuPT 

INCR 

ITEM Pi 

1141 

KEf 

2 

LAST 

143 

lO , 216 1 

6 4771 

1 

+ 1 

AU 

NcG 

1142 

REF 

11 

last 

177 

X >0 f 2 X t> X 

51»323 

1 


i WDt X 

UPT I I'^Li 

1143 

REF 

2 

L AoT 

40 

lu,2i62 

5 4 5 3 



TS 

COD I ChO 

1144 

REF 

12 

LAST 

177 

ivf 2io J 

11 '323 



c c ^ 

CPTIND 

1145 

REF 

1 



1 ' , 2 1 1> 4 

J 2131 

' » 


TC 

C^IUS cl 

1146 

REF 

6 

LAST 

177 

1 0,2165 

i ^ u L 

1 


CCS 

I 1 cMPi 

1147 

REF 

1 



1 1 2 1 6 6 

1 22au 

U 


TCF 

zj E MO uC HD 

1148 

REF 

9 

LAST 

175 

10,2167 

. 5323 

c 


Tb 

K ta UMb 

114^’ 

K EF 

2 

LAS 1 

17 7 

lu J 21 7‘ 

a 2211 

1 

NcGUPCMD 

AU 

MAXPLSi 

115 





10,21/1 

J V 336 

1 


EXT t.'JJ 


1151 

KEF 

2 

LAST 

177 

13,2172 

6 2175 

r 

J 


3ZMF 

CELuPCMD 

1152 

REF 

2 

LAST 

177 

1 u t 2 i 7 -> 

3 2210 

- 


CA 

MAXPLS 

1153 

REF 

3 

LAST 

177 

1 ,2174 

1 215 7 

1 


TCF 

NEXf'JPT 


i-i. » — F -fc i i a — ZM-i 19 71 — U I Qvj L I'JF- ^ g ,_ 64- PAij_ 1. 1 1 _ _ 

J 

USER'S page NOr, >7 ffc 

V 

ZERy DESIK.ED ^HAEt, P_aTl: 


i 


OISAbLE TVC GAP dIT 
U PTIND 


GET SIGN LF COMMAND 

ZERL- COFMANC-SKiP SEND INOlCATuR 


ZERU COMMAND 


IF COMMAND GREATER THAN 4S UEb- COMMAND 
45 DEG 

LE^ ' f H Ai r 4 5 UEG-NORMAI— QPt RAT ION 

GREATER THAN 4y DEG-JSE OPSHAX WITH 
CORRECT SIGN 


COMMAND LESS THAN MAX PULSf. 

GREA TER T HAN MA X PULSE-USE FAX PULSE 

SET SEND INDICATOR 

MAKE SURE ZERO COMMAND I :> -ZERO 

STOKE PULSE IN SEND REG 


GcT NEXT OPT 
ARE ANY PULSES TO GQ 
YES-SEND EM 
NU 


LESS THAN MAX PULSE 
PAX PULSES 


-tS 


A:ij, - UF J^RUiiKAM Aril £1113 ^ ^ i i 1 ^ - i i 


a /ip : 


L KiKLPT PHUOKAil 


LI 

REE 

13 

last 

1 n 

1U#2175 

bi'3Z3 

I 

ollupcmd 

INDEX 

UPTi ND. 

Li S i» 

KEF 

O 

LAST 

1/ / 

17,2176 

37* 323 

1 


XCH 

COMHANDC 

1156 

KEF 

4 

LAST 

177 

17, 2 17 7 

1 2137 

1 


tlf 

NEXTOPT 

11b / 

REF 

i 



X u f L 

3 3t 3 

1 

S £N DU CM D 

CAf 

11,12 

113*3 





1 >,22j1 

w ' ‘ ‘J ' o 

1 


EXTEND 


llbv' 

KEF 

3 

LAST 

161 

1' ,227 2 

•j5 LI 4 

L 


«QR 

CHAN14 

iif> 

REF 

i- 

LAST 

177 

1-- , 227 3 

^ 3323 

/ 

V 


TC 

k U Ac 

1161 

HrF 

/ 

LAST 

1 Tb 

i f id ^ L 4 

3 4767 


SETbi 1 

C 

ci)^ 

1162 





1 ‘ f ^ 

\J C * . ' V O 

1 


EXTEND 


li6-> 

KEF 

Id 

last 

175 

i f t' 

03 jIZ 

1 


WUK 

lH Aivi<_ 

1164 

REF 

11 

LAST 

178 

1 -., 22^7 

ij 5323 

^ f 


TO 

kES JMc 


U6p_ HaZZU: I7cl 3^ _J!lAXeLa_Ji£C =Liii 

r •« « a A . > A s-m % ^ ^ - . ^ *V ' 


1166 





i«.; ,2211 

77635 

1 

AX PL SI OtC 

-82 

1167 

REF 

1 






1 X 1 1 Z Li U A L 

PRlOo 

116B 

REF 

2 

LAST 

171 

10,2212 

4 t 7 4 1 

1 

RATEDRV2 CS 

SULD 

11681 

REF 

2 

LAST 

177 

10,2213 

6 l736 


AD 

SKAT £ 

1169 

REF 

3 

last 

177 

1 J,2214 

6 47 71 

% 

X 

Au 

NEC 

1177 

REF 

12 

LAST 

17 7 

1 . ,2215 

34 Oul 

i 

ts 

L 

11713 

REF 

2 

LAST 

1 71 

1, ,2216 

4 074*. 

■r- ' 

CS 

TOLU 

11714 

REF 

1 



f ZZX 7 

6 . 73 3 

■v 

AD 

TRATE 

1172 

KEF 

4 

LAST 

178 

1.7 t Z Z ^ 0. 

u 4771 

i 

AD 

NEC. 

1173 

KEF 

3 

I.AST 

177 

10,2221 

34 034 

1 

dXOH 

CuUT CMD 

11731 





10,2222 

w' L U u 6 

1 

EXTEND 


11732 

KEF 


LAST 

1/8 

10,2223 

3 ij 736 

fj 

dC A 

TKAT t 

11733 

KEF 

~3 

L ASt 

178 

10,2224 

32 741 

1 

DXOH 

rOLD 

1177 

REF 

2 

last 

177 

1 j, 2225 


1 

TC 

SEND JCMu 

1183 

KEF 

19 

last 

173 

1^,2226 

3 4761 

L 

TVC6CK CAF 

alTo 

1184 





1^,2227 


1 

cX T E 


1185 

KEF 

1^ 

last 

178 

10, 223. 

W.2 12 

j 

K AMi) 

CHAN 12 

1186 





liJ,223i 

x> CLuo 

1 

tXT ENU 


1187 





10 , 223^ 

1 2234 

1 

82 F 

+z 

1188 

REF 

1 



10,2233 

L. Z - J Z 

1 

TO 

K AT t DK V 1 

1189 

KEF 

2-. 

LAST 

178 

10, 2234 

3 4761 

c* 

CAF 

L. i 1' o 

119 * 





1 , 22.55 

0 Vl O c/ 6 

1 

EXTEND 


1191 

REF 

k-> 

LAST 

178 

1 ,2230 

v5 12 

I 

KDR 

chanx^ 

1192 

KEF 

12 

*_ast 

173 

X' - 1 ZZ3 7 

. 5323 

j— 

{ 

TC 

RES U At 

1193 

REF 

i 



409 .. 



SETLDO 

S TuP KAl 

1194 





4 j77 



dANK 


11945 

REF 

1 






vDUN 

t i/ i -t rS.P I 

1195 

REF 

21 

LAbT 

173 

4 j 77 

4 4761 

1 

NU3 PRATE CS 

al T 

1196 





410 c 

0 OOD 6 

1 

OXTCi-JD 


1197 

REF 

^1 

last 

17 a 

4101 

03 Di2 


KAiiD 

CHAi'ilZ 

1198 

REF 

14 

last 

177 

4tv2 

0 C. -2 

t 

TC 

C 


1:4.. F ^fi, 2 f. fr97\ DfnGh.MlS^ PCI.t 

USEil'S PAGt NUa 3£' Lfc 

slt up small command 

SfcNL’ GCDU DRIVE COMMANDS 

ENACLF DCOU ERK CNTS 

STAkT CUARS NE<T time ARQUi.r 

luAS " 165 

W ^S - 164 


IS TVC BIT ENABLED 


NO IJKN IT ON 




1 1;4j PfcB» j.mJL 


PJ\G£ 1 7 .9. 


t:CwMINK i.lc>TS 


USER'S PAOt NUv 


.ei*. S3 


' KfcF i •,^|2UCD 

i i : 3 w3t2»JuC 


b-uFLUC UuWi'ITcLi'l 
BANK 


■.!6€.U4 AEF 1 


v33 7 



* M ^1 *■<> 

Cv 7 


A I Li. 8 
ATCOU^ 


SPECIAL OurtNLlNK UP CUOEs 


A I v'i 1 . 

ALvll 
At 1 12 
At.*. 13 
A*aC 14 


A 16 
A o (. 1 7 
A i C 1 6 
A >-. C’ 1 ^ 


E3ANK= i>MTM;iUFl 

UP CUut AUDtikSSl t XAMPLE ) SENDS. o dIT 15 BITS 14-12 BIIS 11 


IUNAUH TI/ic2 
^UNADK TtPHcM 
SUNAOK VGBUUy 
4UNADtt STAfL 
5DNaOK UPBUFF 
■6IiN'A13R~'KPTAB: 
UNCHAN J-> 


ONPTH NCXILl^T 


(2 AGC WDSJ ECADK 

t4 AGO WUS) i ECAOR 

(6 ASC HDS) 2 fcCADR 

IS AGC WUS) j ‘ ECAUR 

( l> AGC WDSl 4 ECAUR 

■ ri 2 AS'C VOS )“ — 3 “TC'AD’R ■■■ 

CHANNELS 7 CHAl^NEL 

AO'URESS 

PUINTS 10 NEXl t AORES 

LISTo 


R< 1 2 
HU 21 

Kt f 22 
(1^ i. 2 3 
R Li 24 
Rc* 25 


OCWKLIST FuRMAT DEFINITIONj ANU RULtS' 


R C i 2 b 
R i, i." 261 
P Cv 2 d 3 
R t t/26 5 
H V 'i 2 o 7 
kcC266 


1 <9 

2. 

3. 

^ m 

5. 


END OF A LIST = -XDNAUR IX = 1 TO o)f -UNPTRt UR -DwCFAi'i, 

SNAPSHJT SUBLISI = LIbT WHICH STARTS wITH A -10HADKc» 

SNAPSHUT SUBLISI CAN ONLT CQNTAiN lON^URS. 

T1ME2 iONAOR MUST BE LQCATEU IN THE CLNTROL Ll^T Jh A UUwNLiSl, 

EKAiAELc DOWN I EL EM L TRY WQKUS Sri UULO CE GRU UPEU IN SEgUENUAL 

LUCAUCNS AS MUCH AS PUSSIdLE tU SAVE STURAGE USEJ BY UQWNLiNK LISTS? 

THE DOWNLINK L I ST St INCLUDING SUdLISTS) ARE ORGANIZED SUCH THaI THE ITEMS LISTED FlRSfUN FRUNT UE FBANK) ARE 

SENT FIRST. EXCEPTION SNAPSHOT SUBLiSTSo IN THE SNAPSHOT SUBLISTS THE DATA REPRESENTED BY THE FIRST 

11 IDNADRS IS PRESERVED (IN URDcR) IN DNTMBUFF AND SECT BY THE NEXT 11 DQWNRUPTS. THE DATA REPRESENTED BY THE 

LIST IS SENT iMMEClATcLY. 


iSj27 REF 
lC:28 

" i 2S REF 
V 3 '' 


COUNT* ;ti/uLlsr 

jjl7 ERAoZERU equals 7 

.jDE7 spare equals EKajiZEi<U 

L5f2GC'c 7734U C-’ L U^iiIDCOJ UC I _ 7 7 3 4 .* 


USE SPARE ru I SCI CATE AVAILABLE SPACE 
LOW ID CODE 


L\.31 kef i 
C('32 REF 1 


j5f21i3 NUMDNLS T tQUALS CMCSIaDL FRESII STAhI AND POST F27 DDWNLIST 

L5f22il UPUNLIjT twuALS CMEijrkuL UPDATE PkoGRAM tH27) UQWNLISl 




t ■ ; A ^ j £ HULL -tvL /I -,1 iJ]i : ' 7 ^ 


i^.iir-1-.rt iS aY. JMSA 2 ZXlJ^r-ll 


i£u.Ii2J UKj£,c;jirS, ,64 PAGF 1 


1 

dcwnlink 

Li 3TS 








UO^L *S .PAGE NO 

« 2 

EL S3 

r . i:j 

ISM 

POWcRED FLIGHT 

i) La-iJ f 1 3 T 






— ■ - 



Ht' J4 





--------C LNTKm Li ST -- 












J— J _ 





Li j ' 





Ob t LUu 1 



CMPUWtUL EQUALS 





Ci j 4.3 

kEF 

1 



•-5,2..( 1 

32 43 

1 


OHPTR 

L P U ri t ■ i 

CuLLLCT bNAPStuT 



( t J 7 

KEF 

2 

LAST 

179 

y 5t 2 2 

2433 7 



oDNAOk 

UiMrMiJuFf 

> LNU bNAPSHU f 



ti,jy 

HtF 

i 



>5» 2j< 3 

32-52 

1 


OHPTK 

L '1 P U /i L z 

CuLLELT SECOND SNAPSHOT 


( £ 39 

KEF 

3 

LAST 

18 L 

v5 1 2 ul4 

14337 

L' 


4UNA0K 

CNF MuuFi- 

2itNu SNlAPShuT 



tA.4 

REF 

i 



5 f ZCv 5 

320 5 7 

1 


iONPTK 

CrtPLiwt. 

CQMNUN DAT A 



<.( 41 

Rt F 

!> 

LAST 

13 / 

y5f 2CC 6 

^3412 

G 


IGHAOr 


) 1 b f ^ 1 



LL42 

REF 

2 

LAST 

121 

0 5 f 2 c/ L T 

w3422 

u 


1 UiIAOk 

DtLi^ i -I- 

ijELLl ^f + 1 



‘ j43 

kef 

2 

L AST 

121 

’ > 3 ^ 2\j 

13414 

i 


iUiMAOK 

RT Ai . 

kTAFG f + if+Zjo« 11+5 



'::.44 

REF 

2 

LAST 

121 

5,2vjH 

3427 

J 


lOHAOK 

1 Su 

1 G u f + 1 



1 .>45 

REF 

Z 

LAST 

79 

w5i 2 312 

0110 4 

1 


IDNAOk 

P IPT 1.1^1 

PIPT IMEl, +1 



1046 

KEF 

7 

LAST 

136 

5 f Z.;. i S 

11314 

1 


3DHA0K 

DELV 

GEL V f +1 9 0 0 0 +4 f +5 



’ 14 7 

KEF 

2 

last 

lit) 

■-'5 f 2014 

J 3 "z 3 



ID HA OR 

PACl FE 

PACTDFF, YACTOFF 



< C4b 

KEF 

3 

LAST 

136 

5 1 z 1 5 

u3223 

1 


IUHAOk 

PCHU 

PCMD, YCMD 



-.649 

KEF 

2 

LAST 

123 

vi 5 f 2^ ii i 6 

U3702 

1 


iOHAuK 

CSTE t"A 

cS FEE R, GARB AGE 



( i 5 ' 

KEF 

2 

LAST 

1 C 5 

05 t2ui7 

12444 

r . 

C 


3DNA0K 

DELVLlI 1 

Csk DELTA VELOCITY 

COMPONENT 

1 31 

c c 53 

kef 

2 

LAST 

36 

)5 1 

25733 

1 


>>DNADR 

KEF SMHm 1 

k's cFSMMAT t 

+ 11 


' •:54 

REF 

1 



^5 1 1 

32jo1 

1 


JNPTK 

C.OPUrtE - 4 

COMMON DATA 



£ 55 

REF 

2 

LAST 

135 

u5,2022 

00- -24 

1 


lOHADR 

T IHE2 

1 IMEzfTIHEl 



Cf56 

REF 

1 



05,2623 

32063 

L 


JNPTK 

LMPUKi-i. 5 

COLLECT SNAPSHOT 



CC 5 7 

REF 

4 

last 

186 

j5,2v.24 

2433 7 

L' 


6 Ui4 ADK 

DNT bUFf 

SEND SNAPSHOT 



CO 5 8 

REF 

2 

LAST 

18U 

: 5, 202 5 

32L 52 

1 


DHPTR 

cr''PciwEo2 

COLLECT SNAPSHOT 



Ot 5 9 

REF 

3 

LAST 

130 

5,202o 

1433 7 

1 

L. ' 


4l)NAl)K 

UN TH BUFF 

SEtvD SNAPSHOT 



0€6 ■ 

REF 

2 

LAST 

18C 

^5, 2.^27 

32ij57 

1 


OtMPTK 

Cf^PUWk^ 3 

COMKmN dat a 



1.61 

REF 

1 



;/5f 20‘3’ 

32o7 5 

1 


JHPl K 

CMPOWz 1 

COMMON data 



li, o2 

REF 


LAST 

134 

r 2^0^ 1. 

3743 

1 


lONAuK 

LL t 4^ 

ELL Vf + 1 



^..62 €5 

REF 

2 

LAST 

133 

' J .b f 2 u 3 ^ 

C3753 

u 


X A iXK 

CENT ANb 

CENT ANG, + 1 



^ V 6 ^ 1 

REF 

1 



05,2J33 

L > 7 



IDNAOR 

bPAfvh 




1 *.. 6 3 

REF 

13 

LAST 

o7 

05 1 J4 

. ir X, V-' 6 

i 


1 UHAUK 

STA 1 C +1 

u: FALGKRUS 10 AND 11 



Ok, 64 

KEF 

3 

last 

136 

C5 , 24 '35 

01 jlI 

J 


i Di>iADK 

1 £ V t H r 

1 r V Efj 1 t + 1 



•. ’.. 65 

REF 

4 

LAST 

130 

05,2036 

>3223 

1 


lU«NAOf< 

PCrlu 

FCMUjYCMO 



V {‘tih 

REF 

2 

L M ST 

175 

V 5, 2 03 7 

^1337 

1 


1 OH A UK 

LP t o'l JUh z 

u PI Pi J L t 3 1 HQ L DF L A u 



6067 

KEF 

1 



05,204 

32 X oj X 

’ } 

-*»■ 


JNPIR 

CMPbWt' 7 

COHMQtS! QAT a 



t066 

K EF 

5 

last 

137 

i5, 2 j4 1 

1372 

Jf 


.SUNAUK 

^ 31 1 G 

VGribf + lfo#o+4t +5 



0069 

REF 

2 

LAST 

129 

J 5, 2 j42 

64111 

1 


-3 ON A OR 

L hL \/ Ql 1 z 

CDH ULLTa VELOCITY 

COMPONENTS 


R0U72 





’—SUB 

LISTS- 


_ .. . 






Co73 

REF 

1 



u5 ,2u43 

76 746 

■0 

crtPuti t 

1 ”1 JiX AOR 

Ki, + 2 

Rr4i2,+3 SNAPSHOT DATA 


CO 7 4 

REF 

2 

LAST 

1 8 L 

O' 5, 2 044 

0 1 tj3 3 



X U4>iAL)K 

+*t 

KN + 4t +5 



*< 75 

REF 

i 



o‘5f 2‘- 45 

014^35 

i 


IQi'JAOK 

VN 

V N , + 1 



' < 1 6 

REP 

4i 

last 

130 

. 5 , O' j4 6 

0 X 3 7 

1 


lUNADK 

VN +2 

z t +3 



^Lll 

REF 

3 

last 

130 

.5,2047 

OX ^4 X 

4 . 


lUiMAOK 

VN +4 

VN+4, +5 



t L 7 8 

REF 

2 

last 

76 

j5,2C50 

V 1*^3 43 

1 


IUNAUk 

PiPTiMt 

Pi ptime ,+ l 



79 

REF 

3 

last 

18C 

3 i ^ ’ J 5 1 

76750 

1 


—i unAC'R 

KN 

K N , i 1 



Ct8' 

REF 

3 

LAST 

155 

>5, 2 j52 

77743 

1 

Ci^PUiiLv 

2“iLJNA0K 

LOjz 

uU J Z f CDUT 

SN/vP'S Hu T 

DAT A 


u Ap: 


A;>i»EML.LL Kb^ iSlON ,.72 AGC PRUizKAM .A RT Eit l ^ i3Y, NASA ..L. Zll i^- li 


i 7 


jf* Ft: faa 



PA0R...lu^ 


l Li C h mL i NK Li SIS USER'S PASL NU* 3 h 


1 'Si 

_BEF 

S 

LAST 

137 

^ 3 1 2 L 5 3 

'.3133 



LUNADfs 

A Du I 


AaQT,+l/UGARATti+l 

1 V di! 

REF 

6 

LAST 

1 J1 

^ 5f 2354 

^3X35 

V. 


UN A Dr 

A0.j1 +2 


A0QT’^2f+J / UH tG Ad+ 2 f + 3 

'.ua3 

RtF 

1 

las r 

IBI 

j 5 f u 3 5 

*JJXJ 7 

1 


IONADK 

AuuT 


AUUT + 4f +5/Lfi£GAb+4f +5 

U " b A 

titt 

1 

L Ab r 

135 

w 5 1 26 5 6 

7 7 7 -t 5 

1 


“i UNAU k 

CDUX 


CDJXfCDUY 

‘ ’ s 

* V* ' ' ^ 

RtF 

4 

LAST 

1 3b 

-1 !> f ^ v- 1> 7 

. 7 7 6 

i 

CMPUWtUi 

2 G jN A C 

AK 


AK, AKl,AK2ffXSFLAGS COMMUN DATA 

oCi 

RfcF 

3 

LA3T 

13 / 

V 5 # L. 

7 V ' 6 ' 3 

1 

1- 


— 2U iWAUk 

iHtl AUi 


THlTADX, TFET ADY, THETA OZ. bAKtAGL 

COb7 

K tF 

i k 

L AbT 

1 B j 

' b f jL\J ( j X 

2i 1.74 

1 « 

CMP uWEu4 

5;jN ADK 

s r A 1 r 


FLAGWKD THRU FLAGWR09 COMMON DATA 

ccae 

REF 

n 

LAST 

173 

* 5f 2 »j62 

52551 

1 


^uUi'4Ab^^ 

USK I Ao 


DISPLAY TABLES 

U. B 9 

RtF 

i 



w b f ^ w S 3 

76256 

(J 

CHPO wc ^ 3 

-lUiiAiJk 

R-JTHcR 

+ 2 

R*QTHER+2f+3 SNAHSHUT DATA 

C-:9v 

REF 

> 

LAST 

ill 

V 5 f L b ^ 

:‘1723 

r.' 


i js^j AOK 

K-U f HwK 

+*♦ 

K^QTH t R+4 f + 3 

CG91 

REF 

L 



L 5 » 2l 6 5 

< l 72 5 

L 


UNAUR 

V*tj 1 HcK 


V"*UTH£;R t+ 1 

C092 

kef 

1 

last 

131 

L 5 f ^ w b b 

172 7 

1 


iUNAUK 

V— U T riC K 

+ 2 

V-uTHtR+2,+3 

■ ~TU^ 

ref 

3 

T^T 

131 

l 5 f 2 w67 

1 1 731 



LDNAOR 

V“"iJ T HfcR 

+4 

V-L)tHtR+4,+5 

Cl 94 

REF 

3 

LAST 

136 

o 5 f ^ U 7 *■> 

1642 



iOiVlAUK 

T*u i HtK 


T-JTHtK,+l 

C095 

REF 

3 

L A jT 

ISl 

U5 f 2v' 7 1 

7 b 6. o L 

' 


-1 ON AUK 

R-uTHhR 


H-uTHCa,+i 

LL96 

RBr 

Z 

LAST 

135 

b5 1 2i/7 2 

4 77 73 

1 

CMP GW tub 

IDNAOK 

LPT iONI 


aPTlJKl,2 common i'ATA 

:-..Q61 

KEF 

2 

LAST 

3 9 

J5,2l 7 3 

V 1 3 i 0 

1 


UNA UK 

Id 


TETt+l 

:'C96 2 

KEF 

6 

last 

131 

2 5 »2w 74 

v7172 

1 


2 G^4 A IXk 

T ritT a6x 


TH E T A DX , TH E T ADY , T H E T fc 02 , G A i< B A G t 

C' 963 

REF 

1 



^5 i2w75 

1 i%32 

1 

cMPGrttwS 

lUNAUK 

RS bd J 


RSD3g,+l 

ci. 97 





^ - 5 f 2v 7 b 

2>4 « 7 b 

i 


DNCHAN 

7o 


CHANNELS 76 (GARBAGE ), 77 

Cf 97i 

RtF 

3 

LAST 

169 

j b i 2 ^ 7 7 

.43 74 

1 ; 


2 Ji^AQR 

C JiP Lrt KL 

1 

CJlFLWkDf FAlLREGf+1 f + ^ 

jL9'8 

RtF 

3 

LAST 

17b 

b f 2 X t V 

73741 

1 


■*20 N A OR 

LOUb 


CDU S , P X PAX , P I P AY , P 1 P AZ 

CU99 

REF 

2 

LAST 

lib 

j 5» 2ivj 1 

j3 72 

1 

CrtPurtiiv..? 

iUNADH 

LEMHASs 


LEMMASSfCSMMASS LOMMOL DATA 


REF 


LAST 

153 

.5,21-.2 

.. 3 , b 3 

1 


lUNAUR 

CAPDATRl 


0APDATH1,DAP0ATP2 

i 1- i 

RtF 


last 

137 

. 5»2lL3 

v7 lt>7 

1 1 


2UNAL)R 

LKKGRX 


ERKUkXfERRCKY, EKRCRZ, GAkBAGE 

'-1 2 

REF 

o 

LAS 1 

1 Jo 

5 r 2 i i. 4 

13125 



3UnADK 

H 3U 0 f 


WiiODV o + 5/UMlibACfo«i o ^“b 

t 1 i 

REF 

2 

LAST 

135 

5 f 219 5 

053 s o 

1 


2 UNA UK 

R LUUC T R 


BEDOCTr;,ThETAD, + i, +2 

.1 4 

RtF 

3j 

last 

167 

- • 3 f 1 vj 6 

1333 



iUNAOR 

1 MUOtSb 


iM0D£S3u, IM0UES33 

V ll. S 





- 5 1 2 i V 7 

34 ii 

L.' 

CMP6wtu9 

DNCH Ai4 

XI 


CHAN^J EL S n , T2~ 

1 6 





.5, 211 

34C13 

1 


0 i 4 b H A i\ 

13 


Channels 13,14 

1 1: 7 





. J,2lil 

3433 i 

U 


UNCriAN 

■m* 


CHANNbLS 3 f31 

i ’ 6 





j5,21i2 

43 745 

0 


*0i\bH AtNi 

32 


CHANNELS 32,33 


RCir.9 


KlXI. 


The 

FOLLOWING IS A LIST OF LOCATIONS 

17^ GOwNLINK 

LISTS 

;< 1 . 1 11 


JLT 

4*J r RtFEKENCtO IN THE ulKfcL^TGRV 

EECAUSE THbY 

Arvc NOT 

Ru 112 


THE 

FIRST 

locaticn RcFErencel in an 

IiNSTRUCTIUk 


2 iij 

★ ♦a 

THIS 

LI ST 

SHOJLO d£ UPDATED WHEN ANY 

CHANGES AKu 

MADE To list 

K ' 1 i ‘I 






LLLATluN 

il5 

REF 

i 


to , 1424 

DLl 1 = 

Y AuT QFF 

.116 

KEF 

2 

l^ST 

lw9 t6,i.o24 

CLl 2 

YC. lU 

' 117 

KEF 

2 

last 

1 4 5^ , 2 3 

l)L 1 . J — 

1 Fm; 1 


LIST NwMt 


C«POrtLUL 




u/iJ'; A 

S i EMiiL t i 31 UM il/^ 

OP A * f P 1^ 1 1 

RAM,, art LAIS,, ii Y 

i'^ASiA 

..2ija4-u 11 

i. 

UCWKLl.NK 

L 1 o 1 3 






ii 

K c.f 

J* 

LAST 

181 

t6 f 1624 

£Liv4 


YCMli 

i 1 ■ i 

KcF 

X 



134. 

GLl; 5 

ss 

HULOFLAG 

1X36 

HEP 

3 

LAST 

137 

t7,nz^ 

LLl*. 55 

1 = 

VMAuI 

. lib? 

KtP 

1 



L 7 f i 7 ifii A 

CLi . 5u 


Vol LI 

i i 

r E ^ 

f 

LAST 

1 77 

L Lf.:>5 

l)L 1 »<, 0 


GOUf 

12 

R t F 

2 

LAST 

136 

E 6 1 1 533 

CLl 7 

*= 

C S A R AT h 

1^1 

REF 

o 

•» 

LASl 

137 

E 6t 1S33 

DLiw8 


LMcGAb 

,122 

RtF 

1 



•, ‘ L J 3 

CLl(i9 

= 

couv 

123 

H£F 

2 

L A ^ T 

135 

b 6 f 1 A 7 7 

CLli 

— 

AKl 

vl24 

REF 

2 

LAST 

135 

1 f 1 5 ' j - 

GLlll 


AK2 

f 12 5 

REF 

1 



£6 f 1 ^ 1 

DL112 

= 

CbFLAGS 

.126 

RtF 


last 

137 

c6»1573 

L:Lli3 

— 

1 HE T ALT 

.127 

KtF 

H 

LAiT 

137 

ht>» 1574 

DLii4 

— 

THfc f Al)Z 

■vl2 3 

RtF 

1 



776 

CLil5 

— 

LPT 1 0142 

i 12 0 

REF 

3 

LAST 

132 

E 6i 15 73 

CLii6 

— 

T HL 1 AQ f 

.13- 

REF 

3 

LAST 

132 

L6, 1574 

LLilT 


THE T AU2 

,131 

REF 

1 



J37 5 

C L 1 1 6 

— 

FAILKLG 

‘132 

KEF 

> 

LAST 

135 

.,,037 

DLll-? 

— 

PIPAX 

^133 

REF 

2 

LAST 

135 

,4 

LLi2. 

= 

PIPAY 

< 1 i 

REF 

1 



Ju41 

LLIZI 

— 

PiPAZ 

1 136 

KEF 

1 



E6, 1473 

UL122 


C SrtiHASS 

: 137 

REF 

1 



fc 6 f 1466 

DLi23 

— 

CAPDA1K2 

■:.138 

R fcF 

J 

LAST 

137 

£6,157l 

LLi24 

= 

ehkurt 

. 139 

KEF 

3 

LAST 

136 

E6, 1571 

DL125 


ERRUKZ 

wl4’ 

REF 

i' 

LAST 

137 

hot 1525 

CL126 

- 

CiMEG aC 

^141 

REF 

1 

LAST 

136 

130 7 

CLi^7 


THE T AO 

142 

REF 

17 

LAST 

173 

13 J4 

0Li2b 

— 

1 HUiJ E 3 


‘1 


ii 


^ -< — l':LLi.<i ■) ttjGh..iz::> aL 6^i 


U5fci', *S PAGE tjj 


Si 


CHPGv»fci 2 


UMPQH'Et 3 


CrtP0f^Ev6 


CMPUWt( 8 


CMPGWfcC-7 


_ AF ; 

L 

P - Vt i 

K'l ^^ 

145 
Ll4a 
147 
V 14b 
14^ 
15 
151 
' 152 
153 

* 154 
<Xbb 

rT56' 
^ 157 
15 b 
15° 

< 16 

C161 

f-io2 

C163 

C164 

.165 

L166 

wl67 

Cl6ti 

• 169 
17 

i,i71 

< 172 


R 1 1 7 3 

• 174 
175 


vi76 
f 177 
173 


17 -J 
1 > 


KLV i^jLUiil - . CF A3C PRUu RArt_A iVft:M IS BY i4A56 
UC’rtNLlNK LISTS 

CSM LLA.Sf ANO ALIGNMENT JUWNLIST 


REF 

1 


- 

>> 5 1 2 1 1 3 
v/5,2il3 

320' 43 

1 

CMCSIAUL EQUALS 

JNPTK 

KEF 

o 

LAST 

1 3 « 

35,2114 

2433 7 

1i 

U 

ouNADK 

REF 

1 



35,2115 

32 63 2 

1 

JNKTR 

KEF 

7 

LAST 

183 

u5,2116 

14337 

u' 

40NADK 

REF 

1 



35,2ii7 

32.57 

1 

ONPTK 

kef 

6 

LAST 

18a 

65,212 

03412 

1 . 

iONADK 

REF 

j 

LAST 

135 

'J f X 

L''-3'J2 


1 JNAuk 

rt E F 


last 

13o 

w5,2122 

170/4 

1 

40NAOK 

REF 

I 



V 5, 2123 

1 7 4 6 V 


40 NAUR 

KfcF 

3 

LAST 

135 

W5,2i24 

l6342 

1 

2DNAL}R 

ITEF' 

J 

LTiST 

'TF3 

.<5,2 1^:5 

'OT23 

i 

lONSOtT 

KEF 

6 

L A i T 

186 

5 , 2 a2 6 

13720 

i.' 

30nA0R 

KEF 

3 

LAST 

1 JC 

05,2127 

25733 

1 

^ 6 UN A UK 

KEF 

1 



>5, 213’ 

32 c 1 

1 

ONPlK 

KEF 

# 

LAST 

Ida 

.5,2131 

13 0024 

1 

ION A OR 

REF 

1 



j5,2132 

32L63 

L. 

OiAiPTR 

RtF 

ti 

LAST 

133 

3' I id i J 3 

2433 7 


oONADK 

RLF 

2 

LAST 

183 

5,2134 

32052 

1 

ON P T K 

KEF 

o 

♦ 

L AST 

183 

-5, 2135 

1433 7 


40 Naur 

REF 

1 



65,2136 

32 ' f 2 

c 

ONPTK 

REF 


LAST 

135 

35, 2137 

12757 

1 

JUNAOR 

REF 

15 

LAST 

131 

5 f 1 ^ V 

6 1-0 

u' 

lONAOK 

REr 

H 

LAST 

18 3 

35, 2141 

Ul621 

V 

ION A Ok 

KEF 

1 



65,2142 

0 2633 

: 

i O nAOR 

REF 

21 

last 

IB. 

3,2143 

;1337 

1 

iONAOR 

KEF 

i 



5,2144 

321-1 


DNP T K 

KEF 

13 

LAST 

131 

0 5 , 145 

52551 

1 

-6 ON ADR 


SUB Ll'STS- 


KEF 

2 

L A 3T 

1 S '> 

u5 ,2'.v43 

CMCSTA 1 

LUDALS 

REF 

3 

LAST 

16G 

i>5, 2052 

CMCSTA62 

lOUALS 

REF 

J 

last 

18 J 

. 5,2657 

CMC ST Al 3 

t:ULlAL3 

REF 

2 

LAST 

18L 

u 5 ,2061 

CRCS t A. 4 

b ^uAL3 

REF 

2 

LAoT 

1 8 6' 

U 5, 2 jo3 

CMCST Ai 5 

b*aiUA La 

REF 

1 



:5,2u/2 

tirtCS 1 Aiv 6 

bMi-JALa 

REF 

2 

LAST 

ISu 

D f 2 i '5 1 

CMC ST AO 7 

E UAL 5 


R-. 161 


14- 11 


14- 11 

1 1 iA^ _LiL DIDG£NhS,:.64 BAG £ .. 

USER'S PAGE NO., ^ i 35 


CMC ST A.- 1 
DNIM3UFF 
CMCS TA. 2 

DNT MBUF F 
CMCSTAjS 

TIG 

BEST I 
PAHKDUrtK 
HAKR2DRN 
FAPul 

PACT uFF 

V G T 1 G 
HtFSMMAT 
CMoSTa . 4 

T IME2 

CMCST AO 5 

UNI MdUF F 
CMCST A 6 2 
UNTMBOFr 
CiMCS TA'. 6 

L.GC 

STA j E + i 0 
TEVcNT 

L AUNCHaZ 

CPI MODE S 
CrtCSTA - 7 

D SP 1 A8 

SEND Id by special cooing 

COLLECT SNAPSHOT 

SENu SNAP SHUT 

COLLECT SECOND SNAPSHuI 

SEND SNAPSHOT 

COMMON DATA 
r 1 G , + 1 

3ESTI ,BEST J 

MAkKDOV^N, 41 a o, +5, 46, garbage 

MARKZDInN ,4i„o»45,46 

HAPOX ,4l,HPERX,4l 

■ ~PAXntFr,'TAtTOFF ' ’ j 

VGT1G,*«o45 

KEF SM MA T,4l,ouj+l-,4ll 

COMMON DATA 

TlME2,IiMEl 

COLLECT SNAPSHor 

SEND SNAPS h-T 

COLLECT SNApSHOl 

SEND SNAPSFLiT 

COMMON DATA 

U GC , 4 1 , I GC , 4 1 f MGC , 4 1 

FALljWROS 1: AND 11 

T £ V L 1 J 1 , 4 1 

L AUNCi^AZ # 4 1 

CPTM0DES,HCLDFL.AG 

COMMON DATA 
lISPLAY TABLES 


CMPJWc i 

COMMON DOKNLIST DATA 

CMPiJWE. 2 

lOMMUN downlist data 

CHPQrib . J 

COMMON DUWNLIST DATA 

CMPORt. 4 

CCMMUN DOWNLIST DATA 

CMPUftL- 5 

COMMON DUWNLIST DATA 

CMPOWc 6 

CCMMUN DDWNLISI DATA 


L '^PUVJc. 1 7 


LOMMUN OGrtKLlST DATA 




Hfc ^ 


<7 


<g> -b^ of 

« « t 






iji'i'; A^SLrtiii-L Jiu/IjiJjM 7^ gf: AbC HiiOijiiAM .Ai? 


L DCWNLINK. LiSTi 

H-,. 1B2 ><=** UNKcftKENCLO LUCAT laN^j USilD IN LIST 2 

K' Idi jJt** UHuAlE TH1:> LIST '(^HEN ANY CHANGES AK£ MAUt TO DOWNLINK Ll^slS 


,\- igCi LUUAIiON 


cue 5 
(^166 

13? 

REF 

REF 

REF 

2 

^ 

LAST 

LAST 

LAST 

73 

95 

181 

L 303 

E4i 1744 

1 6 f i4Z 4 


C L 2 >» 1 

LL2 ^2 

D L 2L 3 

— 

dc::iT J 
HPcHX 

1 AC TOFF 

. IH 8 

KEF 

3 

last 

1 b i 

L‘025 


0L2^4 


i I N L 1 

0189 

REF 

3 

LAST 

135 

E5.17t*i 


LL2l5 

= 

ibL 

vl90 

REF 

2 

last 

99 

t3f 1763 


DL2i b 

= 

Mt>C 





t C' 


T 


H _ 


-t 



4 


T" 


T 


lii j^-£LLB^-^fc.a V 7I . ^X aOSENLSg .D^t EAG£ 


USti<*S PAGt NUs 6 u S3 


LIST NAME 
GSMSTADL 




L ^.12. 

JiHiivMiL AKl_Etl 

iS„J3Y NASA 2-..211i4- .11 

XI i 4-: _E£^ 2 01 UG E N E 3^ 64 

13 5 

1 

DCMKL 1;4K 

LIST S 







USER/S PAut NU. 7 

c 'yj> 

pt m 

tSM 

R.ti>iOE2VQU3 

ANL 

PRhTHKUST 

LIST 




- - . - - . , 

i 

f » 1 Q y 





» ^ ^ ^ ^ 0^ r f 1 T ij t n 1 l 





IX A ^ 

_ - - ■ ._ _ 




KUL LI 5 1 

" 




' 





5,2146 



CMKENODL coUALS 


SEND ID 8Y SPECIAL COUli\G 


L I 4 

R^P 

1 



f ZJL^ij 

3^:0 43 

1 

unftk 

CHR Ck'JD.- 1 

CGLLfcCT SNAPSHOT 


1S7 5 

RtF 

1‘ 

LAST 

1S3 

;5, 2147 

2433 7 

C ' 

ODNADK 

DN T j-i .JUFF 

SEND SNAPSHOT 


». i '76 

K£F 

1 



■ 5,2i5i' 

jZj 3 Z 

1 

UNPTK 

CMKENU' 2 

COLLECT SECOND SNAPSHOT 


-.19 7 

KEF 

li 

LAST 

183 

v:>,2i5i 

14337 

'J 

40NAOK 

DiMT i^BUF F 

SEND SNAPSHOT 



RcF^ 

1 



.5, 2152 

32637 

1 

UlslPTK 

CMREi\u,‘ 3 

COMMON UM~A 


L199 

REF 

{ 

LAST 

183 

5,2153 

03412 

0 

lUNA J k 

TIG 

T 1 f ■*■ 1 


C 2t i 

KEF 

3 

LAST 

1 8 J 

' 5, 2154 

U3422 

J 

lONAQK 

EcLL T 4 

DELLT4,+i 


i' Zi - 1 

HEf 

3 

LAST 

1 8 C 

-5, 2155 

13414 

1 

3 J 1 MAOK 

RTA 

RT AkG t +1 9 A «+4 f +i> 



KEF 

i 



J 2156 

C 1 V ^ 7 

1 

ION A OK 

VHFTlMb 

VHFT1ML,41 


i/ 2 3 

KEF 

4 

LAST 

183 

> 5,2157 

17674 

1 

4 JNAOK 

MAKivUUrt tSi 

MARKDOWNf 



rEf 

3 

Lhvr 

135 

.<5, 2160 

0 0 77 1 

J 

S 

iONAOK 

vHFcnt 

“TThTWT ,1 kKrkCnT 


-2., 3 

REF 

2 

LAST 

12 7 

5,2161 

L 366 Z 

w 

iONAOii 

TTKI 

TTP1,+1 


1 2i. 6 

KEF 

1 



5 f 2 16 2 

3424 

01 

i DN A Ok 

ECofE-EK 

ECS TE EH, garbage 


2 7 

HEF 

2 

LAST 

98 

5, 216 3 

.263 6 

if 

iOivAjK 

OELVTPF 

DELVTPr ,+i 


8 

HEF 

3 

LAST 

135 

5,2164 

■■’64oS 

t ■ 

2 ON A DR 

T COH' 

CQH AND C5 I TIME 

t 32-331 

■ , ^ 

REF 

3 

LAST 

133 

«>5,2i65 

L 3655 

1 

iOlMAOK 

TPAS i4 

TPASS4,+I 


21 

REF 


LAST 

137 

03 1 216 6 

1 3 4'j 4 

0 

3u i'4At)K 

DELV3LV 

LitLVSLV,4i.3i +4, + 5 


.211 

HEF 

6 

LA s r 

135 

'-J S t 1 6 7 

>6311 

1 

20 NA 0 R 

kAi4u£ 

a.nI GE f 1 f RR AT E t + 1 


.212 

REP 

1 



. 5,2i7o 

3Z\* 61 

1 

uNPT R 

Cf'RE ^lD 4 

CuMHClN DATA 


.213 

KEF 

4 

LAST 

133 

;.5,2171 

05.24 

1 

ION A Ok 

T L'lii2 

TIHE2,TiMEl 

» 

2 i 

RtF 

1 



05,2172 

32 >o3 

I 

UN PT R 

CMREN 0.5 

COLLECT SNAPSHOT 


>215 

KEF 

12 

L AlsT 

185 

05,2173 

2433 7 

1 

6DHAUK 

DNT rl JuFF 

SEND SNAPSHOT 


c21o 

KEF 

2 

LAST 

183 

V 3 f jcI i 7 4 

32c 5 2 

1 

O N PT R 

CiTRhND-^ Z 

COLLECT SNAPSHOT 


c217 

REF 

13 

last 

133 

.3,2175 

1433 7 


40NA0K 

UN r )'1 riUF F 

5 END snapshot 


,2iy 

KEF 

i 



>5,2176 

32 . f2 

1M 

DNPTR 

CKK tNO ~ 6 

COMMON DATA 


=^219 

KEF 

1 



.5,2177 

lZ632 

1 

IDNAOk 

LIFFALT 

COH DELTA ALTITUDE 

(74j 

v22i 

KEF 

f 

LAST 

1 80” 


.3 753 

V 

IONAUK 

CENl ANO 

C ENT ANG t + 1 


v221 

KEF 

2 

LAST 

i8u 

■5,22u 1 


L- 

lUNAOK 

SPARE 



222 

"KEf^ 4 

last 

137 

03 ,22u2 

13£>45 

1 

SONAOk 

DFLVTeT3 

OELVEET 3, '*'1,00 0 ■*•4, +5 


c22J 

REF 

2^ 

la^t 

183 

l5,22- 3 

./1 33 7 

1 

lONAuk 

OPTHUuhS 

DPT MOOES, HOLOF LAG 


f 224 

KEF 

i 



w5 , 22L‘4 

^Zl^ 1 

( 

m 

UNPTK 

CHKEnO!.- 7 

COMMON DATA 


225 

HEF 

5 

LAST 

136 

^ ^ f ZZijS 

02315 

1 

lUNAOK 

i> T H 1 1 A 

hT H e r Af 1 


‘-226 

REF 


LAST 

1 36 

;J 5 , 22o6 

u 7 4 y 

1 

2ui^A0R 

LATt oPL J 

LAT(SPL) ,4l,LNGtSPLJ , +1 


-‘22 7 

RtF 


LAST 

137 

5 f 7 

07756 

1 

2 UN AO K 

VPRtO 

VPKED,+l,6AMKAcI,+l 


i 22 8 

KEF 

1 0 

LASt 

183 

3,221^ 77671 

’C ! J i-j( f r T 

1 

— iONAOK 

STATE +iu 

FALGwRUS 1(5 AND 11 





- 


^ y L i 1 





- 

2-> 

KEF 

3 

last 

183 

i;:5,2u43 



CMRtl^ ij> ' i tWU ALS 

CMPOWEl^I 

COMMON OUKNLIST DATA 


231 

REF 

4 

LAST 

i d3 

3 « Z\j^ z 



CMRLNiJw^ L silU A L li— 


cjiemDJsi uukJiLisi data 


■-^32 

RCF 

4 

L aST 

183 

.5,2.57 



chrenl/o^s Equals 

CKPU WE 3 

COMMON DGHNLIST DATA 


^■233 

K EF 

3 

L A j T 

133 

93,2061 



CNKEN0j4 LOUALS 

CHPUt<c:.4 

LCMMQN loWNLIST DATA 

( 

(■ 


I 

i - - 


ia AP ? A:iis £W £ L£ - tU- i/ 1 AuiL. iiV NASA 2 _2i.I14~L 


I CCwNLIi'iK LISTS 



REF 

3 

LAST xaj 

'j f 2u63 

CfTREND:'S £QUALj> CMPOwt-S 


REF 


j-ASJ 1 aj 

. s, 3 mjL'UUZ^ - 

- CuMfitilOLLS E^UALD LMPUWhk.6 

^ZJO 

REF 

3 

LAST 183 

...S,31L1 

CMRtNDu/ twUALs CMPUiiL-.7 

h 1^1 

Rv238 

H ' 239 







UNKEFcKENCED LOCATIONS USEtJ IN LIST 3 

UPDATE THIS LIST WHEN ANY CHANGES ARE MADE TO DOWNLINK LISTS 


A 24* 

1.241 

l242 

REF 

REF 

3 

1 

last 

14i 

E7tl7t3 

v772 

DL3 1 
OL3-. 15 

— 

LQCATiuN 

RM 

1 RKMKCNT 

.243 

REF 

2 

LAST 

15 

E5, 1462 

DL3C2 

— 

TCSi 

244 

REF 

3 

LAST 

94 

E4f 1713 

DL3^3 

■= 

KRATE 

< 24d 

KEF 

4 

LAs T 

184 

0u25 

CL3. 4 

— 

TlMEl 

i 

REF 


last 

121 

£7,14u2 

DL3‘-r5 

- 

LNG( SPLI 

C247 

REF 

7 

LAST 

137 

1 7 1 1 7 o L 

CLiL6 

— 

GAMrt AE I 


llS40^1-i- a^ 2&tlQ7 L UIQGfNLS^ _b4 ^ Ab- L i Bo 

^ USfcRVS PAGE NUo H , 

COMMON DDWNLiST DATA 

LOi^ HQN UDkNLXS T_ ■■QAI A 

COMMON UCJHNLIST DATA 


LIST Name 


CM REN DDL 


f 


/Vf' J K.LVXS1_QN._ •jJjL... UL A^v iiASA Z ^iL 
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AUTO :> tU 


t F 

1 
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USER'S PAGE NUo 15. ti S3 

NEW PkOGRAM via V37} 


IS THIS AN AUTU SEQUENCE 

NOf RETURN TU CALLER 


GROUP 4 USE IS UK SINCE V37 lU FOLLOW 
INCUKPECT IF P3» 'S NOT IN BANK4 (UITIB) 


UAH: ASShrtCU^ r,L/J ai Uf Aj^L. iljT. CJA^A 


D-IO£ £LMt:S , q4 PAGF 2 1 ^ 


l» 

, S‘U 


Fi<tSH iT Ai<l ArjU RbpTAKT 


RHU&RAi'i i\AHfc 
LOG SECT lU;-4 


VJ7 

FRESH ST mRT AND RESTART 


ASSEMdL/ 


USER'S PAGE NQ* 


SUNtJ i SK 


o 


ti S3 


K' S9P 


FUNCTIL1N/3L UESCRIPTICN 


K < S S 3 
R£59i) 
P< 59 7 
R. 

K A S9 9 
K' 60’' 

1 < 6 . . 1 
R fa . Z 
R fa^ 3 
A 

R ( O', j 5 

R r bO 6 

r; E 6 ' j 7 

:< 6 ^ ' d 

6' 9 
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614 
6ib 
K V 6 1 6 
R^ 618 
K ' . 6 Z 


V 

t\ 

.< 

K 

R 
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n 


R 

K 

K 

K 

U 


622 

623 

624 

62 D 


H. \ 02 0 

H >627 
R * 6 2 6 
K 63 : 
R ’ 632 


1. 

2. 

3« 

s« 


u ^ 


lHELK if NE« PRUGKAi^ ALLUDED, IF 61 i 1 OF FL AGwkCz I NuOUFL Afa » iSSET, AN ALARM i52v IS CALLEDo 

CHECK FUR VALIDlTr OF PROGRAK SELECIED, IF Ai^ iNi/AHu PkuGRAM IS SELECTED, THE DPERATGR ERKUK LIGHT IS 

SET AND CURRENT AuTIVllY, ir ANY, CUNTINUES, 

SERVICER IS TERHINATEU IF IT HAS BEEN RUNNING^ 
install is EXECUTTu TU AVUID rNIERKUPliNo INf cUkA f I Ur^ " 

THE ENGINE IS TURNED OFF AND THE DAP IS IN I T I AL IZEC FJR CUASI ^ 

TRACK, UHCAIe AND TARGl FLAGS ARE SET IQ 4i_RG» 

DISPLAY SYSTcM IS RELEASED* 

THE FuLLOWINg are PERFURMEU FOR EACH OF IHE IHREE CAScS* 

Ao PROGRAM selected IS PUJ, 




1. 

2o 

3 « 
5 ^ 

O -9 


RENDEZVOUS FLAG IS RESET UILL P2j U 

STATINTI IS SCHEDULED BY SETTING RESTART GKUUP 2, 

MAJUR MODE IS STUkED I N THE MODE Ki-vjT ER( RUDkEg ) « 

SUPcREANK 3 IS SELECTED* 

NuDOFLAG is reset* 

ALL KtSTAKT oROUPS EXCEPT GROUP 2 ARE CCEAREOo v-ONIROL I STRANSFERREu TO RESTART PROGRAM tGOPROGZ) 


WHICH CAUSES ALL CURRENT ACTIVITY 10 BE DISCONTINUED AND A 9 MINUTE INTEGRATION CYCLE TO BE 
INI T I AT ED j 

d* PROGRAM SELcCTtL IS P2- 

i. IF THE CURRENT MAJOR MODE IS THE SAMc AS i HE stLECTcO NEwPROGRAM, THE PROGRAM 1 j R E-I N I TI AL I ZED 
VIA ViTXEQ, ALL RESTART GROUPS, cXCEPT GftCUP ‘t ARE CLEARED* 

2* IF THE CURRENT MAJOR MODE IS NUT ECUAL TU THc NEW kEOUESI , A CHECK IS MADE TU SEE IF TlU REQUEST 


ED MAJOR MODE HAS BEEN RUNNING IN THE BACKGROUND, 

AND IF IT HAS, NO NEW PROGRAM IS SCHEDULED, THE EXIST I 
PZ\. IS RESTARTED TO CONTINUE, AND ITS MAJCR MOun Is SET, 
3* CGNlRCL IS TkANsFERREC TO GJPROGZ* 
program SELECTcO IS NElTHcK P.u NOR P2 
K V37XEC IS SCHEDULED IAS A JOB) BY ScTTl 
2* 




Rl^tart group 4 


ALL CURRENT ACTIVITY EXCEPT RENDEZVOUS AND TRACKING IS DISCONTINUED BY CLEARING ALL RE j> I ART 
GROUPS* GRUUP 2 IS CL dAREC* IF THE r^ENDEZVOUS FLAG IS UN IS RES TAR Thu IN GOPR0G2 VIA REU0P2 

TO CONTINUE* 


Rl. 


R 634 


INPLT/OUTPUT INFuRrtATIQN 


A* CALLING SEQUENCE 


K faiS 
R C636 

KL637 


RC638 


CONTROL IS 
V6RBFAN 
MMCHANG 


DIRECTED IC V37 BY THt VERdFAN 
GOES TO ClVcRbTAli + ClVERBKEG) 

EXECUTES A fC PUSTJJMP, CAUR 


d, erasable INITIALIZATION 
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RCU 1 1 ivEo 

VtKii 37 = MM CHANG 
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R 1.63 3 
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MAJOR MODE = 

DQWNLIST = 1 (ENTRY 1 

EBANK = 6 

MAFUR MODE = 02 


MM 

66 

E8ANK 

6 

DOWN! I ST 

2 


MM 

35 

EBANK 

6 

ODWNL 1ST 

2 


HH 

64 

E6ANK 

6 

DOWNL 1 ST 

2 


MM 

83 

E8ANK 

6 

UUWNL 1ST 

2 


MM 

82 

tBANK 

6 

DOWNL 13T 

2 


MM 

81 

t b AN K 

6 

DOWNL I ST 

2 


MM 

79 

EBA^K 

7 

DOHNLIST 

) 

42 


MM 

76 

EbANK 

7 

OUWNL I ST 

2 


MM 

75 

EBANK 

4 

UOWNL 1ST 

2 


MM 

74 

C B A i\ X 

4 

uUWNLIST 

2 


MM 

73 

EEANK 

4 

UUWNL 1ST 

2 


MM 

72 

EBANK 

4 

u DhNL i ST 

2 


MM 

62 

EBANK 

6 

DOWNL I ST 

1 


MM 

61 

EBANK 

6 

DOWN! loT 

3 


Hrt 

54 

E6ANK 

6 

DOWN! 1ST 



MM 

53 

EBANK 

5 

OCwNL 1ST 

i| 


MM 

52 

EBANK 

5 

DOW MUST 

’■ 


MM 

51 

EBANK 

5 

DOWNL 1 ST 

■. 


MM 

47 

EBANK 

7 

UOWNL 1 ST 

3 


MM 

41 

EBANK 

6 

UUWNLlSf 

3 


MM 

4 

EBANK 

6 

DOWNL I ST 

3 


Mrt 

37 

EBANK 

7 

DOWNL 1ST 

2 


MM 

36 

EBANK 

4 

DOWNL 1ST 

2 

< 

MM 

35 

EBANK 

4 

JOWNLIST 

2 


MM 

34 

EBANK 

4 

DOWNL isr 

2 


MM 

33 

EBANK 

4 

DOWNL isr 

2 


MM 

32 

EBANK 

4 

oOWNLIST 

2 


MM 

31 

EBANK 

4 

DOWNL I ST 

2 


iMH 

3.. 

EBANK 

7 

DOk*^NL I ST 

2 


MM 

29 

LBANK 

7 

UOWNL i ST 

2 
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I FHt5H j.r^.\l AND Ht6TAr7 


LA 4 ' 

143 1 

1431 

;4f 3 l0 3 
^ 4 f 31 64 
w4f 316 S 

4123 - 

21627 1 

41626 V- 

OLt 

OCT 

□ cT 

1452 

.. 4# 3166 

21 25 . 

CiuT 

1433 

-4,3167 

21444 

UCT 

1434 

.4, 3170 

3161 f » 

OCT 

1453 

-.4,3171 

t 1 ^ 

UCT 

1436 

145/ 

V 4 f 3 1 7 ^ 

.>12-1 

uCT 


^ i i A i i - 1 JL: FuBo ,2fc UjiU DUQkEM-SjaiiJ^ . 2ZX . . 

USE8*S PAGE NO, 36 l3 S3 


4123 

MM 

24 

EBANK 

> 

DCWIiLl ST 

4 

21o27 

MM 

23 

EBANK 

—* 

i 

lJUWNL 1ST 

2 

4 162 6 

MM 

22 

fcB AN K 

1 

DOWNL 1ST 

4 

21 25 

MM 

21 

EBANK 

4 

U 0 WNL 1ST 

2 

2i4<-4 

MM 

2 . 

EBANK 


DUWNL I ST 

2 

3 iul / 

MM 

15 

E3ANK 7 


OOWNLISr i 


1“J' 0 

MM 

. 6 

EbANK 

4 

OOwNL I ST 


i2 1 

HH 

1 

EBANK 

5 

UOWNl 1ST 

' • 


1450 

R 1459 

P 146- 

NCTE, 

\ 

THE FQLLU 
THE ABOVE 
THAT CAN 

wiNG CONSTANT lo THE NUMBER OF ENTRItS IN EACH OF 
LISTS-KIE, THE NUMBER UF MAJOR MODES ( E?iC ePT P- ) 
BE CALLED FRuM THE KEYeOAKD MINUS ONcJ 

146 1 





4,3173 

EPREMMi EUUALS 

1462 

REF 

4 

LAST 

221 

u4,3124 

SETLOC PREMMi 

1463 

REF 

1 



. . 4 7 

NU.MMS =MINU6 tPREMMi 

1464 

REF 

b 

last 

224 

v-i 4 f ^ 

5ETLCC VEK637 

14o5 





-■^,3173 

BANK 

1466 

REF 

1 



i- 4, 31 73 .-.*040 

L N0V37MM aDKES Nu- MMS -1 


END UF pa EMM 1 TASLE 

THIS CODING WILL AUTOHATICALLY CHAisiGE 
THE 'NDV37MM* CONSTANT AS ENTRIES ARE 
INSERTED (IN I uR DELET EOT FkOM » I rlE 
*PREMH1* TABLE o 


ITcMS IN ’PREMMl ' TABLE - !• ^DON'T MuVE^ 


J467 
R 1468 


RtF 24 LAST 223 4772 

ORBITAL INTEGRATION CONSTANTS 


CNLADP'.v 


2tK0 


ThESE CONc»TANTS ARE USED IN COMPUTING THE SETTING OF MIDFLAG^ 


14 7 



w 4, 3174 

C4o3 

w 

RMM 

20i-C 

25iSa09 E3 B* 

147i 



u4,3i75 

32324 

0 




1471 



G4, 31 76 

4 L 3 3 3 

1 

RME 

20EC 

7178105 8-29 

1471 



.4,3177 

173 3 

1 




1473 

REF 

1 

i ^ f c . 




SETLQl 

INT 1 9i T 

14'74 



13, 2. u 




BANK 


1473 

REF 

1 





b 3UNT ^ 

il/lNTlN 

1476 

KEF 

2 LAST VI 

c 3, 1354 




EaANK= 

KKtCT GSM 

1477 



13, ^;Ll V 

43 ^14 

V 

STATE UP 

SET 

bOF 

14 7d 

KEF 

1 

1 J # Z ;/ L I 

-.1474 

i 



V i : ^ 1 FLAG 

147 ^ 

REF 

1 

1 3 , 2',' u 2 

ii7>l 




Ul^dh Fl AG 

148L 



i ^ 1 Z o u 3 

^ b 1 7 1 b 

w- 




1481 



1 3 ,2Uv 4 

77614 

1 


SE t 


1482 

REF 

i 

1 3f 2ii 5 

ul476 

1 

% 



LIM..' flag 

1433 



1 3, 2uu 6 

45 '-*14 

1 


CLEAR 

CALL 

148 4 

KEF 

1 

i 3 1 Zuu 7 

1.; i 6 6 7 

1 



PKcCIFLG 

1485 

REF 

1 

13,2010 

2723 6 




i nTegkv 

1486 



13,2Uli 

71214 

L 


dun 

oluAD 

1487 

KEF 

1 

13,^wl2 

ij 4 3 ? 

1 



6U»\ F Fl AG 


eCc KM_ABOVE LUNAR SURFACE 
80 i KsH ABOVE Ewo RADIUS 


EX IRA POL ATE CM STATE VECTOR 

ALSO 6Xt> W-MATRIX IF VALID 
FOR ORBITAL NAVIGATION 



oiMp: H£.V- ISl-OLi- uL j>ROb.aAa. A,. 2 j . 


L 

FRESH 

oIAKl AND 

RjEs 

TART 




I4d6 

KEF 

1 



1 3 f Lx 13 

26031 

1 


i48'^ 

REF 

2 

LAST 

9 c 

13, 2c 14 

^1571 

, t 

. .r 


14 9«' 

KEF 

1 



1 3 f 2xj 1 3 

3434 1 


STCALL 

14 i 

KEF 

2 

LAST 

211 

13, 2^ 1 b 

27516 








13,2*17 

46014 

f , 

L 

CLcAK 

14^3 

REF 

2 

LAST 

22 7 

1 3 f L u L ^ 

01674 

r 


14 X 4 

KEF 

1 



13, 2c'2 1 

26 744 

1 


lAVd 





13,2022 

43*j14 


3UF 

1490 

REF 

1 



l3 1 L uL 3 

02756 

1 


1497 





li,2v24 

26-.26 

1 


1498 

RBF 

2 

last 

22 7 

1 3 1 Lu2 5 

' 1 4 / o 

> 


14 « 9 





1 3 f 2*^ 2 6 

46U 14 

t 

SET 

16 

PEF 

2 

LAST 

227 

13,20 27 

*j146 7 

\ , 


16 1 

REF 

2 

LAST 

227 

13,203 

27236 

L 


16,2 





13,2031 

77614 

1 

statend CLKGO 

" 15 3 

REF 

1 



13,2.32 

n 123t> 

1 


16)4 

PEF 

1 



1 3 , 2 3 s 3 

26732 

,• ^ 



Ri536 

IFilSViNT IS CALLED 

BY MiOTCAVi AND2 


15 ; 6 
15 7 

REF 3 LAST 223 

13,2034 43414 

I3f2L35 C1474 

1 THLSVINT SE! 

1 


f 
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bTATtNO 
Tbl Lirt 

robci 

Ii^rSIALL 
LALL 

V i H 1 F L A b 
SbTi FLuS 
Scf 

RENaWFLG 
+ ^ 

c iH . F lag 

CALL 

PRECIFL& 

IMFlORV 


NOuOFLAG 
lNOa Ni’ 


F.XIRAPULATE LM STATE VECTOR 

AND 6X6 W-MATRIX IF VALID 
FOR RENDEZVOUS NAVIGATION 


KV«| 

VXN I FLAG 


u i 




ixiiti. 1-i. B . . Zj^mi 


> -\ 


I 


K.blAc^r MOLtS 


UieR'S PA'iE NOo 




I 


HfcjTAKl TAJLbb 




RiCuS 
Ki n :>b 
K ' * .1 7 

■H ^ ' i-/ ' -.' '‘T* 

R C i. 1 

K rf i2 

CIA 


ThERE AKt fWO FOHHi CF REiTAnr TABUtS FOR EAtH uROUP. I HEY 
Rt67AKl lABLtS* THE UUl) TABLES HAVE ONLY QHE LHTKY OF THKfcc 
EACH CSIN^ THREE LOCATlOiYS^ THE livlFORMAT luN AS iC WHETHER U 
WAY THINGS ARE PUT INTO THE lABLESo 

A JOd has its PRlOKiTY STORED iN PRUTTAb UF fHt CURREC T 


KNOWN AS THE EVEN RESTART TABLES AMD THE ODD 
LUCAIIUNS while the EVlN TABLES HAVE TWO ENTRIES 
IS A JOB, WaIILIST, UR A LUMGCALL IS GIVEN BY THc 

PHASE SPOT - A POSITIVE PRIORITY INDICATES A 


F I N b V A C J I) b , A N E G A T I V E Pk 1 0 P i T Y A N 0 V A C 
ECR EXAMPLE, 


The Xc A ok' oV'ihe jjG is stoked in thf caortab 


All Ij 


5,7SP0T 

QuT 

A ' Lb 



Z Lh DK 

K ' . ( i 7 

A RESTART OF GROUP 3 rtlTO rHaSE 

SEVEN WOULD THEN 

CAUSE 

K CL 1 C 

A t 2' 

b,5SPET UCT -2-.. . 


2CA0R 


X ^ I I 

SOME JOB 

S om J OiT T lT B E~r¥5TahT E D AS /~F INDVA C WITH PRIORITY 2 b 
ANY JOB 


KLE21 HE R E_A ^dESJ A RT O F GRCOP 3 W lT H„P HAS UU Ji_CAa5j=_AN TjJ BE REST ARTED AS A N0VA C__WIT H PKJiJAI J Y -23_a 

R0H23 A LONGC/vLL HAS IIS GBNADR OF ITS 2CADR STORED NEGAriVcLY AND ITS BBCON 5TEIRE0 PCSlTIVtLYa IN 11 S PRDTTAB IS 

K ■ 2S FLACEu THE LOCATION CF A OP REGISTER THAT OONTAINi IHE DElTA fiHE THAT LONGEALL HAD BEEN ORIGINALLY STARTED 

K j 27 VilTHo EXAMPLE, 


A4 o2S 

A1P29 

A - l3' 


3-6SP0T GEN ADR LELfAl 

-GENADK LQNG TA:^K 

' "bbcg'n longta'sk 


A, SI 
ACfJ2 


OCT 

2CADR JOaAGAIN 


Rci 33 


R ^035 
R CC 3 7 


THIS WOGuJ ST ART UP LONGIASK AT THc APPROPRIATE TIME, OK IMM EDIATE LY IF TH E T IME HAD ALREADY PASSED,, IT SHJOl J 
BE NO'TeE THAT IF OcLTAT IS IN A SWITCHED E BANK, TH 1 S 1 NFOPvMATO I N 'SHOULD BE IN THE BBCON OFTHE 2CA0R OF THE 

TASKo FROM ABOVE, WE SEE T FiAT THE SECuNC PARI OF THIS PHASE WOULD BE STARTED AS A JOB wITH A PRIORITY OF 31r. 


R(,039 

RCSAl 

k I L 4 5 
F '.' 47 
K -L4 9 


WAlTLloT CALLS ARE lOENTlFIED BY THc FACT THAT IHEIR 2CADR IS STORED NEGATIVELY^ IF PRDTTAB UF THE PHASE SPOT 
IS POSITIVE, THEN IT CONTAINS THE OELTA TIME, IF PKOTlAB IS NEuATiVt THEN IT IS THE -GENADR UF AN ERASABLE 
LCCATICN ^ONl AIMING THE DELTA TIME, THAT I^, THE TIME IS sTUkEO IND IRECTLY, IT SHOULD BE NOTED AS ABUVE, THA T 
i'F THE TiHc TS StOKEO INDIRECTLY, THE BbXuN MUS"T CONTAIN IHc HeCESSAkY E BANK INFORMATIUN IF APPLICABLEo WITH 
WAITLIST w£ HAVE ONE FUKTHlK OPTlOi,, IF - IS STORED Ui PROITaB, IT WILL CAUSE AN IMMEDIATE PESTAKT CF THc 
TASK, examples. 


ALLS' OUT 77r77 

A L J 1 - ~'4 <^ApR A t A ^ R 


THIS WILL CAUSr- AN IMMEDIATE RESIARI 
OF THE TASK s ATASK* 


AvC52 
AlGS3 
A to 54 
ALC55 


dec 2wf. IF The TIME OF THE 2 SECONDS SltNCE DUMMY 

-2CA0K DUMMY WAS PUT uK WAITLIST IS UP, II WILL BEGIN 

IN 1 MS, UTHcKWlSE IT WILL BEGIN wHt.N 
IT NORMALLY WOULD HAVE BEGUNo 


LiMJ' : 


ZAi 


-, 12 .- yjE—AixC PK[JtiR&H ARi £MIS — BY JiAoL/i 


_ .XL jj4u Ffcilit ? ii t I - / I 


A 6 

A' S7 
i< . ' i H 


8ti>IAKl TABLCS 




,^uW THE TAdLEi THtMjfcLVES 


bhNACA. Cl lrt:i 
ilLAdK IAS XT ASK 


UStE*S PAot (iU 


tL S3 


WHERE DTIME EU, STAINS THE UELTA TIME 
UIHERWISE THIS IS AS AdQVfc 


L'(,‘u ' 

REF 

1 



O i t Z LC L ‘ 




iLTLUG HLorAKl 



I 61 





-j 1 f A ' l; V 




BANK 


- 

t. X 6 /i 

HEF 

1 







COUNT* 3 i/ rLi I Ac 



1 63 





ait2'.Ji- 



PRO r TAB 

c;yuAL^ i20 1 



< j Cl ^ 





UP i t 4^0 J 1 



C AUkT Ab 

iIWOAlS 12 i. 



An 6 6 












vt 6o 

REF 

i 



J If b i 

L i-j-v.'44 

1 

SIZETAB 

1C i^2 S Put " 

120ijO 

4 .j67 

HLF 

1 



: ' 1 f ^ V 1 

; 1 

^ 4 V*/- 

\ 


Td 13SPdT - 

i2n. 

4 

< C 6 6 

KEF 

i 



^ 1 1 2yu 2 

0 DU 4 4 

1 


t L 2^ 2S Pul 

124 

6 

v.'l 69 

REF 

1 



'j L f 20 

C LA' 2 7 

1 


Td 2 3SPuI - 

■12i'>. 

4 

« 7 

REF 

1 



7 i f 2wL 4 

y Un4'+ 

1 


TC 3n2SPJT “ 

■i2n. 

6 

71 

REF 

i 



; 1 f 2ud 5 

w D 5 4 



TC ijJiPUT - 

'X 2 W'L* 

4 

n 72 

RcF 

i 



.j It 2ud o 

0 0074 

1 


TC 4.2SPUT - 

-12'/ 

5 

M 73 

REF 

i 



i*2\;D7 

0 Li2 

1 


I 6 4# dSPuT - 


4 

A 74 

REF 

1 



OltKOlL 

U ^.2^6 

1 


TC 5.2s PUT - 

-12'- /■ 

6 

' 675 

REF 

i 



C 1 , 2 d- 1 1 

y 244 

I 

1 


TC 5.3SPU1 - 

12' 

4 

;-L7 6 

REF 

1 



^ L t 2^ X 2 

a ~3ii 

1 


TC o.ZSPuT - 

•12 ' 

6 

vt T 7 

REF 

1 



u If iL_ j 1 3 

o 321 

1 


TL 6 , 3 S put "■ 

•12. 

4 

CC7b 

REF 

2 

LAST 

23 - 

.< i t 2 u 2 



loZSPOT 

lii^OALb 3i.2SPuT 



K«. ( 79 

ANY 

MURL 

SROUP 

lotVfcN RESTARl 

VALUhS 

SHOULD GO HERE 



Tf. tti 





w It 2 314 

LL 17 

1 

1. 3SP0T 

DEC 12d 



CCbi 

REF 

4L 

LAST 

115 

E6 1 166 1 




EdANK= AOG 



Cb82 

REF 

1 



u 1 f 1. 5 

75141 

1 


“2Cai)k Sr-rjiAu 



Cf 82 

REF 

i 



>Jlt2, 16 

45711 

1 





EC 33 





d i 1 2^17 

1SL>.. ^ 


1.5SP0T 

UCT IdSdj 



i(84 

REF 

I 

LAST 

2L? 

l: 6| 1465 




t:dANK= DAPUArRl 



i,L85 

REF 

1 



i,2d2t 

02 5 V 2 

I 


2CA0R RED J4wo 9 



*.,18 5 

REF 

1 



l,2u21 

34056 

J 





CCB6 





w If 2 L 2 2 

i L > j w’ V 

c 

1.7SP0T 

U C 1 X J -* 



iCS7 

KEF 


LAST 

12v> 

£6,1774 




E3ANK= RolCNTK 



CL 8 8 

REF 

1 



0 1 1 2 02 ^ 

L'2i 7 d 

_ y 


2yAUK RcLANUS 



Ct 8 3 

REF 

i 



iJ 1 f 2^-' 2 4 

55iva6 

1 





i.C 89 





J X 1 2 U 2 5 

1 J L J . 

( 

X X X S Pu T 

OCT lUU. 



t69i: 

REF 

3 

LAST 

2 3'.^ 

66,1774 




cbAiiK= KbibNlR 



L( 9i 

REF 

1 



X f 2 12 Ci 

0 2 1 3 7 

.7 


2CA0K P1KUP2- 



EC9i 

REF 

1 



Sl,2 jZ7 

7 4 L ' y 6 

1 





c D91i 





di, 2(.'3t 

X W J ‘ • 

4 

w 

iol3SP0T 

U C 1 X ‘ 



vC912 

REF 

4 

last 

23v> 

£6,1774 




ir 6 A NK= H o X C N T K 



ty 913 

KEF 

1 



j1,2J31 

23 74 

u 


2CaOR R6/i\iTl<T 



Lt9i3 

REF 

1 



0 1 f 2 ' .' 3 2 

74c a6 

i 





Ru(.92 

ANY 

MQi<£ 

ijKOU P 

i, dUU 

RESTART 

VALUES 

SHOULU GU HERE 




USED TlJ FIND THE PRI3RITY DR DELTATIML 
THIS AND THE NtXT KELATlVt LHC CUNTAlN 
REST ART RCAUA 


THIS NUnahR MUST EQUAL CUTAbTlME) 


UU UL iaVJ i .AM LA 1^-^.Y^NAiA-Z.^liit^-J.L 


L Kt STA^^ I fAbLE S 


V 1 ^ J 

K ■. :-. V 

KEF 2 

ARY MUKL 

LAST 

6kDUP 

2^^ jli2ub2 

2, EVEN restart 

2,2SP0T tuUALS io2SPuT 
VALUES SHOULD GO HERE 

Lt. V S 

REF 

1 



J 1 f ^0 J3 

L2730 1 

2.3SPJT 

GLNADK (jO'JawC^ 

i ^ '96 

RtF 

1 



V 1 f 2 'y34 

75J75 1 


-GE.NiADR STAtEIiiT 

V <9 7 

REF 

3 

L A T 

227 

E3 j 1534 



E3ANK= RKtoTCSH 

Ce98 

REF 

2 

LA3r 

231 

cl I 2u35 

Z 6 u 3 s. 


33LGN STATEIHT 

CL 9*^' 





- it c -.3 6 

915 1 

.2^5>P0T 

UGJ. 9.5'.. /.-' 

■: .U'- 

REF 

4 

LAST 

231 

t3 I 1554 



ttiANK= KRELTCSM 

■ I- 1 

REF 

i 



1,2 3 7 

2711 1 


2CA0R STATI6T1 

Cl u 

KEF 

Jl 



X f 4^040 

2ci Ju3 , 



Lie- 2 





1,2041 

X Cz ^ '1 

2o 7SPJT 

ULT 

i 1 . 3 

REF 

b 

LAST 

2 '3 

E7, 1722 



E8aNK= MUKdUFi 

' Iv 4 

REF 

1 



w 1 1 ./ 4 ^ 

^ZbZb 1 


2CADK R22 

1 1^4 

REF 

1 



01,2043 

7CC67 1 








;i,2 44 

i4C'u. 1 

2o i ISPOT 

J Cr T 1 4 - 

:iu6 

REF 

3 

LAST 

139 

£7, 1751 



E6ANK= LAi'iuHAKK 

' 1 . 7 

REF 

1 



U i f w 4 5 

03532 


2CAUR Vv4NTk 

r.iij7 

REF 

1 



^1, 2'^'46 

62067 1 



^1 '8 





V X t 4 7 

ILjJO J 

2 6,135 PUT 

QLl XLL'lu 

C 1 u 9 

REF 

6 

LAST 

^ Jl 

fc7, 1722 



c3ANl<= PKisoJFi 

. 11' 

REF 

1 



>1.^ X f ^ ^ w 

..251b 1 


2GALiK RED0R22 

ell' 

REF 

1 



vl ,^05 1 

56,;o7 ia 



R- il4 

ANY Hu Kb 

GROUP 

2jLiLu KtSTART 

VALUES SHOULD uO H*; 

Rlr 

11:/ 





01,2052 

. 77777 0 

_3-a2S_PUT_ 

.U,c£ - 

i Li, 

REF 

2 

LAST 

123 

E7.1072 



E3ANK= P4 VHP 

117 

REF 

1 



- 1 f 2 ^ ^ 3 

75450 1 


— 2CADK 1 qCH 4SE T 

Cl 17 

REF 

1 



> X f 2 0 5 4 

3771 V L 



'. liy 





C 1 , 2 05 3 

bl75c. 1 


J b G 1 0 3 - ^ 

.. 119 

REF 

J 

LAST 

231 

1 7, io72 



E3AMK= P4.TVP 

12 

RcF 

1 



„lt2c‘5 6 

75446 0 


^2LADR ioKtSfcl 

v l^' 

REF 

1 



. I,2u5? 

37 7 X 




"121 

ANY 

MUKt 

GROUP 

3 EVEN 

RESTART 

VALUES 

SHOULD GO 

HERE 



122 

- 




ip 1 1 Z:Jb^J 

ZJkO-Qii- 

IL 

3«JS£.QJ- 

QGT 

1 

jii’ ^ 

123 

REF 

3 

L Ai T 

id ; 

£7,1427 




£dAHK= 

IGU 


.124 

REF 

1 



*J X f 2 ^ o X 

2534 

1 


2GADR 

a4 

i J 

124 

REF 

1 



01,2,62 

34v l>7 

1 





v123 

REF 

4 

LAST 

231 

0 i f 2 y 6 J 

76347 

-> 

3j5SP(JT 

c iha Oh 

f Gy 

+1 

126 

REF 

5 

LAST 

231 

£7,1427 




£dANK= 

TGU 


'127 

REF 

1 



J X f 2y 4 

74 7.i>4 

1 


-2GADR 

ENGl iVOFF 

.127 

KEF 

1 



) 1,2c 6 5 
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UCT 

2234 
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222 

23 , 2 v 3 l 
23 , 2-32 

2 3,2033 

3 4754 0 
M 7236 1 
0 6v-3‘ - 1 

CAF 

rc 

TC 

i^UAR \ ER 
SHUKl HP 

C A N Z I G 



5 - _ 


I 

^2 . 


uAP: 


K .. i 'J 

K / 

kI..!?! 

K t . !:f Z 
R* ;>54 

K c > 6 

i< I, i' !y 7 

rs H 59 


C ' 

i *' u 1 

• 1 }Z 
i o3 

• I o A 

' . 'v 6 5 

u <?6 

u 068 

CC69 

c^ 7 ^ 

V / 1 

a 72 
fcit 7 3 
CC 74 
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CiiH GtLHLTRr 


USER'S F-.AGE TiOo 2 £■. S3 


CALCSXA CJHPUTtS THt SEXTAi'Jl ^rlAPT AND TKUNNIGiM A.^uLt^j 
Up-Slbrll LIES ALONG THt. gTAh VEGIGR® THt ROUT ii^L I ARES THu .>Iv. 

E i< E NC^l^_ TO T HE O PT ICS CUQROlNATt SY Si E M « IH AQU I Tlu N I F S , T s iJ ^ 

HETehENCEJ TO THE UPfVcS CUORDlNAft SYSTEM* 


j > ..EriI iUN THE EPTIeS such THAT A >TAR LINL- 
SECTOR AND EXPRtSSES IT AS A VLCTOR KtF- 

1 H fi E ; UNI I VECTORS L'EFINING THE X ,_Y , AND Z AX ES 


THE INPUTi ARE ii Tht STAK VECTOR KEFtKKLD TO PRtSfcNf ST\BLj 
INPUT AS ♦SMNb^i i.t* SINES AND COSINES CF I HE CDU AHGLEi, aN 

TO CbClKlG WILL PROVIDE THIS INPUT. 


HEMotii COORDINATES STUKEO AT STAR, 2) SAME ANGLE 
iHE UTuER Y 2 X, AT SINCDU AND COSCDU* A CALL 


THE UUTPUIS ARE THE SEXTANT SHAFT AND TRUNNION ANGLES 
ECUAL ru 2EKOJ* 


ICKEu DP AT sAC aNO PAC RESPECTIVELY, (LOW ORDER PAaT 






<d J t 2i7 3 4 

7722G 

1 CALLS XA 

UA 

'rfLOAU 





2Jf 2035 

34 

J 


280 

R b r 

3 

last 

233 

2312036 

y>^ f 66 

1 


^ T Ak 





23,2.>37 

77624 

1 

CALL 


REF 

1 



id 3$ id*j4 V. 

47 636 

1 


«StTN8ii' 





iL3 r 2^04 1 

76521 

u 

HXV 

VSLl 

KEF 

1 



23t2c42 

V 62.3 0 



I\62N3i 

KEF 

4 

LAST 

29a 

23,2 .43 

26 766 

1 

ST OVL 

STaH 

REF 

»• .<— » M T ~ 

i 



23, 2344 

15334 

1 


HIUHltx 

REF 

2 

LAST 

9 7 

2 3 1 2i 45 

26555 

V 

STUVL 

Xi^6l 

REF 

1 



23,2v46 

15332 

1 


HUmI fY 

REF 

2 

LAST 

9 7 

23,2047 

2656 3 

1 

SlUVL 

VN61 

REF 

1 



23f 2..5 . 

1533'., 

J 


hlONITZ 

KEF 

2 

LAST 

97 

23,2u51 

36 D 7 i 

1 

S 1 CALL 

2N6i 

REF 

1 



23,2. 52 

4o:76 

i 


sxtangi 


PUSfiUGWN L ' -2oDf 2BDr O' Ui 32D-36U 


'j! : A.S i t H li- 1 1 . lii JJJi -V J ^ QF A l>w, PiiU uilAtL JVkli- M i a .JiY . A S a Z J. i i JJ. 


ii :it__ PjJia ^iu. 1 ^ 7 1 . . QI BAiiL ^2.i 


L 


Cif*'- kjtOi'ItTRY 


UStK'S PAGE NU, 3 fc SJ 


* 7> 
( 77 

;< "t 7 b 
K tt 8c 

KCC82 

Kt0a3 
KU 85 


SAlANb uCrtPUTCa THt StXTANT SHAFT ANU TkliHiaUH AASLtS kc^UIKcU lU PUSIllQN THE UPTICS SUCH 
SIGHT Llt^ ALUNG THE STAR VECTUR* 


r A STAR LlNii-iJF 


THE INPUTS ARE iJ THE STAR VECTUR REFERRED TU ANY CEuKlUNAT £ SYSTEM STORED AT STAR,, 2) THE NAVIGATION BASE 
CCOK J 1 Na TES REFERRED TO THE SAME oGORDlNATc SYSTEHo THEjL fHKt.E HALF'^UNIT VECIOHS ARE STORED AT XNPt YNB* AND 


ZNB. 

TFE OUTPUTS ARE THE SEXTANT SHAFT ANJ TRLNNiliM ANGLES STURcD OF AT SAC AND PAC RESPECT I VELYo (LOW ORDER PART 

eeual tu zero ) a ... 


CP 8 6 





23,2 JS3 

47U2ii 

a 

SXTANG 

1 TA 

kU PUSHDOWN 16D, 180,220-263, 280 

008 7 





f ^ 3 4 

UCC34 

u 



28U 

fr^Bb 

REF 

1 



23,2d5S 

43731 

( 1 



iKM.MOkPi. EREE WKT NE2 

if 69 





23,2 >56 

o437 5 

1 


V L U A 0 

iX X V 


REF 

1 



23,2t>57 

.2714 

1 



XN8 

cr<9i 

KEF 


LAST 

298 

23,2^60 

* 6236 

J 



N 324 .5 1 

CC92 





3 t ^ JL 

77772 

0 


V5L1 


C093 

REF 

3 

LAST 

298 

23, 2oo2 

2 o 5 5 5 

V 


STUVL 

^ ^ i 

0C9A 

KEF 

1 



23,2063 

J2722 

1 



Y N M 

0U95 





23,2u64 

76521 

if 


MXV 

VS LI 

<£96 

KEF 

X 

LAST 

299 

23, 2’wi65 

/6236 

1 ’ 



N82N31 

17)97 

KEF 

3 

CAST 

298 

23,2 ,66 

26563 

l; 


ST jVL 

YN8i 

C098 

REF 

1 



^ 3 1 2 J u 7 

c2730 

1 



ZN8 

C 1.; 9 9 





23,2.7 

76321 



HXV 

VSLl 

HOC 

REF 

4 

LAST 

299 

23,2o7 1 

1 o23 6 




Kb2N31 

0101 

REF 

3 

LAST 

298 

23,2-H2 

2 571 

f ) 

i.' 


oTQRt 

ZN8 1 

' i.>2 





23, 2.73 

A7'J 34 



RT 5 

RIB 

w 3 

REF 

2 

L AST 

299 

23,2o74 

43 731 




TRANSPl 

( ic4 

REF 

1 

. 

- 

23 1 2u 7 3 

45745 

• J 



TKAl\iiP2 

1 1 , S 





23,2 >76 

473 73 

k*' 

SXTANSl 

VLOAD 

VXV _ . 

i'fh 

REF 

4 

east 

299 

^3 f 2 ^ 7 7 

02571 

u 



ZrvOl 

* 107 

REF 

3 

L, A S T 

293 

23,210 

i,‘2 7 06 

1 



STAR 

1 1J8 





23,2l‘- i 

7 7 6 J ^ - 

1 


dU V 


■ 109 





23, 21c 2 

46 i 3 

1 



♦ 1 

4 11< 





23,21 . 3 

4005 6 

< ’ 


UNIT 

buV 

' 111 

REF 

i 



23,2104 

46145 

1 



Zi>ib = jI 

" 112 

REF 

1 



23 f 2 ivc 3 

o't)'-J27 

1 


STORE 

PuA Pf3A = UNITIZNb X S) 

0113 





23t 2il' 6 

57441 

1 


JUl 

bCUHP 

M14 

REF 

4 

LAST 

29 9 

23 f 2 i iwy 7 

.2333 




XNbl 

t lib 

HcF 

1 



23,211 

24 >23 

f 


ST lJVO 

IN ilW(SA) = PDA , -XNB 

1 1 

REF 

z 

L AST 

299 

23,2111 

..CM 27 

1 



1 

1 

i 

1 

1 

\ 

1 

1. 

1 

1 

1 

1 

1 

X. X. o 

. 117 





23,2112 

776*, i 

i 


JUT 


lib 

ref 

4 

LAST 

299 

23,tiil3 

. 256ji 

J 



YN3i 

• 119 

REE 

i 



23,2114 

j4 >2 1 

V 


d iUALL 

UQjTH LOS ISA) = PDA . YNu 

Ol2r. 

REF 

i 



23,2115 

47311 

1 



A K C 1 K 1 6 


-F" I 


UL 


Af 


» • 


KJlI^ISXjUN. Aial RROu^AI. .A ilLUi-L:. ijY iiASA J^Zllikr 


11 : 4^ t-h i.. ?h.i97\ nTnr,fcMFS<> 


i»4 PAfih 


L C5H GtJrtcrftY UbtH'S PAGt NU« 4 _fc'J S>3 


1^1 





23,2116 

776j4 

K Tb 


_ _ - - - - 

1 


KtF 

1 



23,^111 r 

456*t 1 


io r u 2 s 



• IZi 

8EF 

4 

LAS! 

204 

2.3 f 2 l2 

26774 1 

sr JVL 

SAC 



124 

H t' h 

D 

LAST 

299 

23,^121 

T 0 1. 


6 TA^. 


1 

1125 





23,2122 

776 JQ 1 

8UV 




126 





23,2123 

46124 i 


♦ I 



12 7 





23,2124 

724* i 

DDT 

SLi 


> 

128 

REF 

5 

LAST 

299 

23,2125 

025 a » 


Zfsidi 



V 129 





2 3 f 2 ^ 2 

77720 I 

ACDS 




-1 1 i 1 





23,2127 

6244- .1 

6m 

SL2 



' 132 

R E F 

1 



2J,2l3 > 

46142 1 


sxtalakh 

TRUNHIDN angle NFGATIV.. 

\ 

133 





23,2131 

452 a w 1 

6UV 

USD 



.134 

KEF 

2 

LAST 

3. 

2_», 2132 

46142 1 


SXT ALAkK 

TRUNNION ANGLE GREATER THAN 90 DEGREES 


.135 

REF 

1 



23,2133 

.^632 7 1 


2 J 



136 





23,2134 

77634 1 

K Tb 




V 13 7 

KEF 

2 

LAST 

3;> »-) 

23, Zi35 

4564 1 


1STU2S 



*>138 

REF 

4 

LAi>T 

294 

23 f 2lj 6 

J2776 J 

ST UKc 

F AC 

FUR FLIGHT USE, CULTFLAb IS ON IF 


C139 





23,213 7 

77614 1 

CLRGD 


IKUNICN IS GKcATEK THAN 9<' OEG 


C14t 

REF 

1 



23,.il4<i 

-1o3-7 * 


lult flag 



C141 





23,2141 

..'-034 - 


28D 



(142 





23,2142 

77614 1 

SXTALAKM ScTGD 


ALARN HAS BEEN REMOVED FROM THIS 


T 143 

REF 

2 

LAST 


23,2143 

143- 1 


CULI FLAG 



144 





23,2144 

. ,)34 .. 


Z diJ 

SUUkUUTlNE, ALARM HILL BE SET BY MPI 


145 





23,2145 

77745 1 

ZN3=Si DLOAQ 




.146 

REF 

i 



23,2146 

(6323 . 


2 7'jO t6 


— . . 

• 147 

RtF 

5 

LAST 

3- 

^ 3 f Z 1 4 T 

16774 1 

oTGDL 

SAC 



^ 141 

REF 

1 



23,2l5f, 

..,6325 - 


2^ i3 1 GS^ 



‘L 14 9 

REF 

5 

LAST 

3 >v 

23,2151 

J2770 . 

6 T Uk t 

RAC 



Cl5l 





23,2152 

77614 1 

C LKGl) 



- -- - 

fi51 

REF 


LAST 

3 .1 

23,2x53 

• 163v 


culfflag 



* 152 





23,2154 

LS034 J 


2JD 


V 


1 






UIOGfcNES , ■ .XA tt 


CSf^ otOt'.eFRY 


USER ' S PAGE NU. 


5 


S3 


P ' lb 3 
Kt IbA 
K i j b 
K 1 Jo 
u lb f 


rhfcSE JWQ KGUimtS GCMPUTL THE ACTUAL STATE VLCTOK FOR LMi CSM CV' ADDING 
TFE CUNIC KtV Ai4D THE Otv/lATIONSKf V* fHb STATE VcCTUkS AkE CUNVERfbO TG 
METERS a-^9 AND MtTEHS/CSEC B-7 AND ST OREO APPRUPKi A T ELY IN RNtVN UR 
R-G T tRbiTV V-OTHEK "^FCR D J^'iC INK* THc ROUTINES NAMES ARE SWl fCHEU IN THE 

OTHER VEHICLES COMPUTER^ 


R ^ lb d 
Kvlb^ 
R .16 
RT 161 
R^ 162 
R 163 


INPUT 

STATt VEClUR IN TEMPORARY SIURAGE AREA 
IF STATE VECTOR IS SCALED PQS 327 AN D VEL B5 
SET X2 TO +2 

IF state vector is scaled pus 329 AiND VEL b7 
SET X2 TO 


HC.164 OUTPUT 

Rx.i65 HID IN RNt V(T| IN VNt T IN PlPl T HE 

Hi; 166 U R ~ ' 

RC167 KIT) IN R-OTHER, Vtl) IN V-GTHER IT 


IS defined by T~“UTHj:RJ 


T .. 


vl69 

IF 

171 

..172 

01721 

V.1722 

01723 

- 173 
17 A 

- 175 
.176 

1/7 

176 

..179 


18 ^ 
1.181 
• 132 
0183 
C 184 
i,185 


Cl 86 
' 187 
C136 


10 . 


cl 9 C 

0191 

C192 

C193 

ri 94 


REF 

1 



1 f ^ ^ ^ 




^ t: 1 L Gc 

LUi'4G t i 





1 ^224‘. 




U ANK 


REF 

1 







counts 

-|$/GeUM 





i ,/ f w 

4->414 

1 

SVDWNl 

iiOF 

KV3 

REF 

1 



10 1 2241 

4756 

1 



AVci'IIDo 1 





1 ,2242 

2l243 

i 



+1 





l.j,2243 

53775 

1 


VLOAO 

VSL- 

ReF 

2 

LAST 

89 

lu , 2244 

'1521 

0 



TDELTaV 





1^,2245 

576' '5 

w 



— 7 1 Z 





1 ,2246 

536JJ 

1 


VAU 

V oL"^ 

REF 

2 

LAST 

39 

1 .,2247 

. 15 Jb 

0 



.<c\t 





iu r ZZ3 

57576 

1 



fZ 

REF 

4 

LAST 

1 3‘v^ 

10, 2251 

25033 

♦ 


STUVL 

RN 

REF 


LAST 

89 

1 0,2252 

ul527 

i 



1 NdV 


■ 



Lo/ f ZZ S 3 

5325 7 

1 


VSL^ 

\i aD 





10, 2254 

57632 

1 



f ^ 

REF 

2 

last 

09 

lu , l25 5 

..1 J43 

1 



V L V 





iO I ZZ3 ^ 

77o5 J 



V jL* 






10,2257 

57576 

1 



I z 

REF 

4 

LAST 

1 dw 

lo. f ZZ6 ^ 

15330 

i- ' 


STUDL 

VN 

REF 

b 

LAST 

284 

13,2261 

L’ 1 5 i 7 

- 



r t_ f 

REF 

3 

L AST 

IBU 

1 ,2262 

1:44 



S 1 UK E 

P i H 1 i Me, 





1. ,2263 

77616 



RV^ 






_ JLUt-4264_ . 

5377 b 

.1.. 

VD_kfv2 

V.L.UAy 

Y.iL 0 „ 

REF 

3 

last 

3 . 1 

i..,2265 

.1521 




IDE L fA V 





1.- ,2266 

576v 5 




“ 7 f z 





13, 2267 


1 


VAj 

VSL* 

REF 

3 

LAST 

3 i 

Jl*. f ZZ f ^ 

1535 




RCV 





1^1 ZZ 7 1 

57576 

i 



f z 


sw=i=avliomid doing w-matki:< INTEG 


> 


!(v N; fv) N; 


uaf; 


ij72- Li:.J>.aL-£afl&KAM ARTirrtlS BY NASA 2- 2i 


t CiM ChCMtThY 


1196 

tl97 

REF 

REF 

't 

3 

LAST 

LAST 

131 

3 .1 

__1L f 227 2 
1^,2273 

10 f 2274 

2372iJ 

1.1327 

33257 

-0 

u 

1 

STOVL 

V SL^ 

*( 198 





i\j 1 22 7 5 

576v'2 

1 


vl^Si 

KEF 

3 

lA ST 

3 9 1 

10,2276 

0154:» 

1 


■2'J' 





10,227 7 

7765 7 

0 

VSL^ 

21-1 





10,2302 

57576 

1 


CZa 

REF 

4 

LAST 

181 

lo,230 1 

01726 

0 

STORE 

< 2' 3 





10,2302 

77616 


KVO 


1 14- I I ll;4J Zh,1971 ntG&ENES. 64 aACi£ ^ 

US£R*i PAbE NUa . 6 ^(53 

a-QTHtR 
Ti'JJV 

\j\ J — 

, t 

VLV - 

';. »2 _ , _ 

w~Q IHER 


w A P : A :> -3 f M 0 1, L nLV A ^ I JJ N BA!i - J -KT,£A1 i ^ V lAAi* A__isl _^i. i A4 _iiiA. 


L 




kv 2 
(< ■ ^ 


6 


CbM biiUHtrKY 


SUBKQUriNu lU COrtkUTS; THl iVATUivAL LOG OF CtHPACf MPAC +iJi» 


cNJRys 


CALL 


LOG 


11S40 FEBb. ^6j.1 9-UL^ J 


USLk'S PAGE ^Oo 




S3 


P. f ^ 7 SCBkUUTlNc; Kt lUkMS WITH ~*LLli.j 
K- 2. d EBANK AS ARdlTKARY., 


IN JP MPAC. 


I§ 


21' 

REF 

1 



v211 

v2l2 

REF 

2 

LAST 

297 TO 

..213 
' 214 

REF 

34 

L A iT 

297 

V215 

REF 

1 



8216 




- 

' 217 

K EF 

1 



2 1 e 





219 





v21Q 

22 

122 • 






2.-i t ^ w"-'' i 

2 Ji2lS 

3 

23,2135 

23,21i>6 

23,2157 

23,216 


109 iC9* 
443 i < 

t V 1 O iv 


15344 
77776 1 


23,2161 v7l7i 1 


221 

2^1 

*222 


>> t.. 


23.2162 

23.2163 
23,21o4 

23 .2165 

23.2166 
23,216 7 
2 3,^17., 
23 ,2171 
23,2i.72 


t - 0 o w* 2 » 

acuo I 

0C06U 1 
OlOGl 1 
14636 1 
0C325 C- 
>73i^ 1 


•j*-541 1 
16735 1 


223 

224 

225 


C2d6 

227 


(-229 

■ 23' ' 

\ 231 
"232 
233 
.234 
1.235 


0236 


V 237 

■■ 233 

._238 


ref 

31 

last 

2^6 

23 f 217 3 

3 4772 

1 

REF 


last 

3 3 

23,2174 

54 15c 

1 





23,2175 

ij t'.'0!^6 

1 

*1 

REF 

I 



23,2iT6 

3 2212 

I 

K b F 


LAST 

3c3 

23,2177 

52 155 

1 

RcF 

37 

LAST 

3 3 

23 f 221 

52 161 

1 





23,22cl 

4 i/C j ii 

0 

REF 

2 

LAST 

297 

23,22l2 

^ 7256 

1 

REF 

33 

LAST 

3j3 

23, 22v3 

52 156 

1 

REF 

39 

LAST 

3v3 

23,22C4 

52 155 

i 

REF 

4^/ 

uAST 

3 3 

23,22( 5 

52 io 

1 

ref 

41 

last 

3 c 3 

2 3 f 22 6 

2c 1 j5 

1 

REF 

11 

LAST 

2 75 

23 f 22v 7 

i/ 6 v v 6 

1 





23,221v 

77616 

’ T 

R EF 

1 



26,c*343 







23,2211 

■_ ;542 

1 


bfcTL JC 
BANK 
COONT* 
NORM 


PUWFHT2 

$*/GcUM 

BUSU 

PiPAC 
NcAlx 1- Y 1. 


EXIT 

TC 

QtC 

2L)cC 

2UcC 

2gEC 


POLY 


j 31355467 


. ,13 314585 y 


iDEC 


215738898 


CAP 

TS 

c XTEND 

36A 

uXCri 

UXCH 

COM 

TC 

uxlH 

uXCH 

3XCH 

OAS 

TC 

m 

RVw 


NLAKLYI 
CLUG2/32 20EC 


2 cRO 
kPAG 42 

LLJG2y 32 
PPAC 
MPAC +3 

SHUR IMP 


C 41 

rtPAC 
MPAC +3 
MPAC 
ii\fPRt I 


GENERATES LUG BY SHIFTING AKG 
UNTIL IT LIES 3ETWEEN » 5 AND la 

The lug c f t h i s p a kIt” is found and Ti 

log of the SHIFIPO PART IS COMPUTED 
AND ADUED INo SHIFT COUNT STCiRED 


<NI-1. SUPPLIED GY SMEKZHj 
IN MPAC 43. 


LOAD POSITIVE 5HIFT COUNT IN A 
MULTIPLY bY SHIP I CfJUNTc 


htSULT IN MPAC, MPAC 4l 


h E ARONE 
j ,.'21 oui- 8494 


23,2212 34414 1 




; ASiit MiiLt. t: 1 bl DM i C XiE - A u£--£iiQb-aAia. . AKl.£fU^ JiY . 


11:4.. PhB. 2 6, IS 71 UIGGEULS^: 64 _ PAu £ 


J '* 

R v^4 1 
K* 24 J 
i< ^24 4 
K 24o 

K 24 .: 

K 4 2 > 

R - 232 
_RV2 34 
i \ ' 23 3 
K 236 
R 23 7 
'.<• 23H 
IS .250 
•\ L 2 u ' 
(S 26 i 
Ri-2o2 

R^. 26 i 


CSM OtUMEIKY 

3U6H0LriRe NAME: 

MCD NG: i>i 11 

MCD 3Y: uNTRY GKUUP 


USER'S PAGE Nu* 


8 


S3 


EARTH RdTArUR 
( dAiKRSPATHER ) 


tcARRUri UK EARRUIZ) 


DAT EJ 

L OG S tCT ION* 


13 FEB 67 

PIj^«FREO FLIoHr SUbKUS 


FUNCriUNAL DcSlRIPTIGN; THIS KUUI INE PROJECTS THc l.ariAL EARTH TARGET VECTOR RTIHIT AHEAD THROUGH 

JHL estimated time QF FLIsiHT, luITlAL CALL REoULVtS THE INITIAL TARGET VECTOiS RTINIT INTO EAST, sLY 
AND NORMAL COMPONENTS RTcAST ANU RINORM « INITIAL AND SUBSEUUENT CALLS ROTATE THIS VECTOR 
ABOUT THE (FULL) UNIT POLAR AXIS JNITW THRUCGH THE ANGLE wl L OTEAROT TO OBTAIN THE ROTATED 
TARGET VECTOR RT • ALL VeCTCR:> LXLEPT UNIT^J ARE HALF UNITo 

THE EQUATIONS ARE 




rtHEKE 


R[ = KTINIl ♦ RTnQRH (CUS(wl) ■ 

WT = NIE OTEAROT 

RTINIT = INITIAL TARGET VECTuK 

RTEAST = UNITW*RT1N1T 


i) + iTtAsr SlNiWT) 


RTNORM 


RTEASr + ONi T R 


FOR continuous UFUATlNOf ONLY ORE ENTRY 


Ri 265 
R.,266 

CALlINw. i 

icQUENCE: FIRST CALL 

STCALL OTEAROT 

RL267 
Rf 26S 
KC26S 

tK27 

R( 271 

ClMPAu) 

PUSHLOC = PCL+ , 

SUQRGUTlNuS USED: NCimE 
NCRRAL E)(1T MODES: RVQ 

E AkKUT 1 
UNSPECIF 
ARBlT RARY 

R 27 2 

ALARMS J 

NONE 


R : 273 

OUTPUT: 

RTEaST (-11 


R4-275 


RTNORM (-1) 

» 3 

R-: 277 


KT (-1) 

3 i 

KC279 


OTEAROT (-281 CS 

MAY 

RC28C 

ERASABLE 

INITIALIZATION KEOUIRED: 

R'. 231 


JNITW t I 

UNI 

K l2B3 


RTINIT (-1) 

*. 3 

R''2B5 


J TEA ROT (-23) CS 

T 1M 

R. 237 

debris: 

.rfpRET, POL+. 

••• PQL+5 


TO EAKROTi IS REQUIRED, 
SOBSuQUEiIT CALL 

STCALL OTEAROT 


HITH SUBSEQUENT EMJJES AT EARR0T2. 


f” 

CL, 


6 


ARkUT2 
CtMPAC) = OTEAROT 
LOCATiUNS UjED, 


UNIT VECTOR EA^T, CUMPNl OF RTINIT LEFT 
UNIT VECTUK NURML, CQMPNI OF RTIMT LEFT 
UNIT target VECTOR, RCTATcO LEFT 

BE CHANGED BY EARRuT2, IF OVER 1 DAY 


BY FIRST CALL 
BY FIRST CALL 
BY ALL CALLS 


f. 


PAL LOADED 
LEFT BY ENTRY 
LEFT BY CALLER 


' [*' 




liM U. tyy NAJS.A Zll 


_ 11: 4j FEBa 2 6 l^ 1 911 UX.U£d£llLSA^ 


CSI^ bbCWtIKY 


UStK'S PAGt Ntjg 


Si 


Pi <iB8 

i in 
f 29 2 
■‘ 293 

2 94 
29 i> 
v,296 
v2 97 


tF 


ft 


LAoT 234 E7 ii4^I 


^ 4 ‘M-iT 


H L F 
KCF 
HEF 


L Air 

last 

LAST 


9 J 
3'i» 
122 


23,2213 

2i,^2i4 

23.2215 

23. 2216 


473 ? i 
1712 
3452 
'34a' 


L/ 

1 

1 


EAKHOTI vluad 


KEF 

hEF 

KEF 


4 

2 

2 


L AS! 
LAil 
LAiT 


3-'' 5 

122 

122 


*23,221 ? 
23 , 222 <- 

23.2221 

23.2222 


7763b 
1712 
1 74o6 

V 3 6 a 6 


1 

1 

L 

1 


i ruRt 

yxv 

5 TOOL 


VXV 

KFlNi T 
K TEA ST 


',299 

REF 

I 



23,2224 

37344 

1 , 

.3' ■ 

Kfcp 

1 



23,2225 


1 

s 3_1 





23,2226 

414 j'j 

L 

t3i;2 

REF 

1 



23,2227 

46243 


0393 





23, 22 3 t 

45346 

1 

C3U4 

REF 

1 



23,22j'1 

15334 


b3i' b 





^3,2232 

65361 

V 

c 

'„3. 6 

KEF 

3 

LAST 

3 5 

23, 22^3 

03466 

*1 

i-3'. 7 





23,2234 

74356 

1 


REF 

3 

LAST 

3‘b 

23,223b 

0346^) 

U 

■-309 





23,2236 

76455 

1 

.31 





23,2237 

53435 


1311 

REF 

b 

LAST 

3 5 

2 3, 224 V 

345 2 

1 

','312 

REF 

2 

i-AST 

122 

23,2241 

34 74 

0 


562 vj 4 1 E ARRU T2 _3li_yii 


3uV 


vxsc 

SIU 

VA j 

VAD 


313 


' 314 
1 31 5 
\.316 
.317 
; 318 
319 


23,2242 77oi6 o 


^TURt 


RYW 


H EF 
K EF 

KEF 


2 

3 

4 

5 


LAST 

LAST 

LAST 
L A aT 


3 b 
3 b 

i.b 
3 .3 


23,2244 

23,224b 


J62b4 1 
o 1 


3 2 '■ 
f 321 

Ai 322 
'323 
‘.323 


kef 


U 36 
1( 36 
Iv 3 7 
1! 3? 
ll, 3b 

t ~l 


23,2246 
23 , 224 7 
23,223 

776Z1 1 
36v. 6 1 
:.36u6 1 


dUSU 

s 1 uR£ 

23.2251 

23.2252 

23 . 2253 

23.2254 

776^0 1 
46223 w 

^lulD 1 
34732 C 

n 1 c 
i/rtlE 

GOTO 

2l/EC 

20c6 

4l3,2255 

15373 1 

NdZNBI 

2 DEC 

23,2236 

11346 . 



23 , 225 7 

L ■ , 1 


2DEC 

23, 226* 

1 



23,2261 

67313 i 


^1/ Cs C 

23,22o2 

653^7 




L<vi r M 
R [ OU HH 
D 1 E A Ku i 


i CPAUZ TG 
1/Wl r 
PUSH 

LVckAilJAY 

U;.U 

hltiPHALF 


POOL 
H THuRM 
VXSC 
' T c Aal 
VaLl 
uN I T 
Kl 1 iif 

n 


23,22 43 7b3^__i Li VE kA OAY DLO AO SI GN 


l/Wi 

LT t AriL'l 

L T eAkOT 
DT t AKUT 


FULL UNIT ViXTOR 
• 5 U.^IT 
uriii 


a 5 


FULL UNIT 
o5 UNIT 
(-28) CS 


ftbSET LiVFIND, IF DN 


XCH ^ PUSH LISJ 

ob UNIT _ _ 

c5 UNIT 

INSURE THAI RT IS 'UNIT'o 


^b UNIT 

o5 UNIT TARGET VECTUF; 


E AK(\ J ) 2 

ui9. 1467997 
0(iio4xO 


+^84317b692j 3“1 


— a J ji7&3 81241 B— 1 




12 ££-^ai.-PKQGiL&ll.ARli:riii> --iiY -j^ASa. 


L Ci^' bLUAtlRY 


Iv 39 

23 t 2263 

i 

Ztilli^FLT 

2DEC 

i03 S 

23 f 2264 

OGo'ju 1 



1. 4 

23 f 22 6 3 

20000 - 

HALi-NFLT 

20i:C 

1; 4 

23,2266 

oooac 1 



1< 41 

23,2267 

OOOO.V i 


20tC 

1' 41 

23 f 22 7 Lr 

OOOuv 1 



K 42 

23,2271 

1C^464 


2Q£C 

U 42 


1247 * 1 



1' "*3 

23,2273 

.j L-' v , L 


2u£C 

V 43 

23,2274 

2 0 6 J 1 



l'-'44 

Zbt2Z13 

15373 1 


2DcC 

li 44 

23 f 227 6 

11346 : 



~K45 

23,2277 

15373 1 

N BIN 62 

2 UcC 

i< 45 

23,23<j 

11346 „ 



l! 46 

23,23., 1 

i".. U-wv 1 


20tC 

1< 46 

23,23l 2 

umUUC 1 



li 47 

23,23'. 3 

11/464 0 


20tC 

H 47 

23,23t4 

12470 1 



1^ 48 

2 3 f 2 3 3 

06000 1 


2U£C 

Ic 43 

2 3 f 23t 6 

COOOo 1 



U 49 

23,2367 

Zuo ’jc 0 


2DfcC 

iv 49 

23,2310 

oOOOO 1 



K 5v. 

23,2311 

6U’d‘j6 1 


2DfcC 

U 5 

23,2312 

i/00 1 




67313 1 
65307 0 

'^JuC 1 2DcC 

UOOJ^ 1 

15373 I 2D£C 

10 53 23i232< 11346 o 


1: 51 

23, <'313 

1* 51 

23,2314 

ii 52 

23,2315 

1 52 

23,2316 

U 53 

23,2317 


1 0 


4 


3 
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UShH'_S PAbC NO. 1 tl S3 



+, 5370381241 3-1 


+.643175692C B-i 


4,3431756923 B-l 


+ . 53 763 £124-1 B“1 



-f,537oj81241 8-1 


4<,34il75692t 3-1 


r 


UAP: 

L 


Ai M AkV lii U JdiiiJkAAil iiKl 
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CSM 06 CMEVRY 


USER'S PAGE NO, il 


ei S3 


1 b4 

— 

^3,2321 

0-7320 

1 

lUD tGS" 

U£C 

36'j , 

It bS 


23,2322 _ 

60000 

JU 

_.2Xoat G _ 

aox_— 

6JOO‘.' 

136 


23,2323 

00000 

1 


□ CT 

V.' ' ' 

li 37 

■ - 

23,2324 

6174U 

c 

Zw^OEbS- 

utC 

-J7199 

ltb8 


23,2325 

7777 7 

L 


DEL. 

— uvjo rj u 

1' 59 


23,2326 

o T V' 

I 

20 DEG- 

DEC 

0 36\^.Q _ 

lc6 


23,2327 

003 UO 

I 


DEC 

COO 00 


/ 

SHAFT 270 DEGREES aS.^QEgjt 




■ * 


i. 


i 


I 


e ■ ST ur^ 







ASSEMtiL L ^LUh- - TZ-Of: . t rlLljKAM-jyiliJlli) 



If'U CLf-IPc'J^ AT ION PACKAbt 


' t r. i 

ref 

1 

- M ^ Zd W' Ik 



SETLOC 

IMOCGHP 

tc U 1 <,2 



J 6 f 3 Z 7 6 



3ANK 


L t E 2 

HLF 

1 

E3 , 1460 



EBANK= 

NJOX 

. 1 1 

kef 

i 




UUUNT^ 

4 V/ICUHP 

< 112 

KEF 

i 

V 6 J 32 7 6 

3 3-^33 

1 1/PlPA 

CAF 

LbL Oi4P 

11 J 

KEF 

J LAST 

2 li b C> 6 1 32 7 7 

Lf 6 0 ‘j 3 

1 

XC ri 

EBANK 

1114 

REF 

1 

)6f 33 l^v 

64 io3 

1 

I 

MOU 

115 

REF 

i 

36,330 1 

11*4/7 

W 

0 0 s 

GCUHPSw 

116 



.6, J3u2 

1 33^5 


TuF 

+ 3 

• 117 



6, 33 j 3 

i 33. 5 


fCF 

+ 2 

1 1 6 

REF 

1 

U (j f 33u A- 

1 3422 

1 

TCh 

1 K 1 u 1 


J.lai C6ju2Liv-5_ 

A ^iH^ 


■-119 

KEF 

1 



L 6 , j 3 .6 

11^1 

KEF 

3 

LAST 

269 

06 f 33 u 7 


REF 

4 

1 * A 3 T 

^ _ _ 

06 f 331 ' 

__jL 2 a _ 


. 3 > ^ 

LAaX- 3 uJB.- 


122 

REF 

1 



6, 3312 

i 123 





. 0,3313 

124 

REF 

6 

LAST 

308 

, 6 , 3314 

>125 

REF 

i 



6 f 3 3 1 3 

126 

REF 

33 

LAST 

282 

0 6 f 33 1 o 

-127 

REF 


I.AST 

278 

06 , j 317 

: 128 





. 0,3320 

0129 

REF 

21 

LAST 

243 

j 6,3321 

013 > 

REF 

7 

uAST 

3^8 

o 6, 3322 

C 13 i 

REF 

2 

L AbT 

3 o 8 

0 6 f 3323 

0132 

REF 

3 ^ 

LAST 

3 v 3 

06, 3324 

- 133 





^ 6,3325 

.134 

REF 

22 

LAST 

3 o 

j 6 f 332 6 

0135 

REF 

a 

LAST 

30 8 

.. 6 , s 327 

C 136 

REF 

3 

LAST 

3 'j 8 

f 333 'z 


0 u004 0 

INHLNJ- 


3 4766 i 

I/PIPAI CAF 

FOUR 

T 7702 i 

1 MASK 

NcGoNE 

54 13 2 . ' 

TS 

BUF +2 

13Z i 

IfiU£.X- . 

JiUF +Z - 

-rf. ifc- — - * 

3 1453 1 

Ca 

PIPASCF 

w w J 6 1 

cX T cN j 


5 - 1 3 2 1 

INDEX 

6UF +2 

7 1314 1 

MP 

DCL V A 

54 >02 1 

TS 

0 

3 kijoi L: 

CA 

L 

X *r. A t> 1 

EXTEND 


7 4765 J 

tiP 

b I To 

5v 132 i 

INUEX 

B UF 

55' 315 u 

TS 

b uL ^ X "fr 1 

lOu2 0 

CA 

c 

^ l.026 1 

t XT END 


7 4763 0 

HP 

EIT6 

5u 132 1 

INDEX 

8UF +2 

^1*315 

DAS 

OELVX 


: 13 7 

REF 

9 

LAST 

3' .3 

v6f 333 1 

>.138 

REF 

1 



- tp f 3 3 3 2 

( 139 





. 6 f 333 3 

14. 

REF 

i 

4L 

LAST 

6 3 

V 6 f 333 4 

' 141 





^ 6 f 3 3 3 5 

l142 

REF 

17 

LAST 

21^ 

^ Cl f 33 36 

1 143 

REF 

!-• 

LAST 

308 

V 6f 333 7 

. 144 

K£F 

4 

LAST 

3 V. 8 

/6 » 334 

C145 

KEF 

ii 

last 

3 b 

v'6 , 334 1 

C1A6 

REF 

1 



06,3342 


5i. 132 

1 

I NUE X 

8UF +2 

4 1452 

1 

L S 

PIPABIAS 


1 

EXTEND 


7 12/7 


MP 

i/Pi P auT 

U ' i 6 

1 

c X TEND 


7 47a6 


MP 

1 

1 

1 

, 

5i< 132 

1 

index 

BUF P2 

21*315 

w' 

UA5 

DtLVX 

1 132 

H 

•r 

Cr L 

EUF +2 

i 3jo7 

1 

TCF 

1/PI PAl 


JiA _ f KlsJSIJ. 


UiEF'S PAGE NO 


PAGE 


E o 3 


SAVE EGaNK of calling PROGRAM 


BYPASS IF GCOMPSW NtGATiVE 


RET URN 

A fiSUHE COMPL E TE COMP ENSAL lfijl^ilF, jvtL.V_LS 
FOR DOuriLlNK,. 

PIPAbf FIPAY, PIPAX 


lP«Po H, » X 2 (- 9) 

tPPji X 2t+14) NOW tPIPA PULSES! X 2t+5J 
SAVE MAJOR PART 

MIMUK PART 

5 CAL E SHIFT Rl GH T V 

FRACTIONAL PI PA PULSEI SCALED 2t + LAJ 

MAJOR PART 

SCALE 21 +9 » SHIFT KloHT ■< 

(PIPaII + CPIPAI I (SFE) 

(PIPA PULSES)/(CS! X 

(CSI X 2(+9J NOW (PIPA PULSES) X 2 (+2) 

SC At E 2^^^^2) SHIFT i;IGHT 12 

(PlPAi) + (PIPAl)tSFE) " ( 31 AS ) I DLLTAl ) 


PIPAZf PI PAY, PIPAX 




,1 vw fc - f TT 

r. . V' ' '* ' V ‘ *. 



© fe ^ 

. -v 

f '•^ i**< ^ 

'^"^1^' 






u AP ! AS S-LMBLjE-JltVi S 1 O N 72 Of . A G i;^ . PKU6R AM. AKI £MIS j^--J^SA-^ZillAr:iai 


IW 
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lAa^M 26.1971 uiQGeMES^^64 RAGE — a£ia 


IKU CCMHENSATION PACKAGE 


USER* S^P AGE NO. 


2 


E3 _Si 


1^81 


aSriJAi. il-j0i/G3 1 S 



KELlNf 



- ♦ 

> 

i ' 




i 

4 . 


. V 





,/ - I’ ; KLtf U Lf-AJjU £:;Lt4jRAM tHl^ - jit- HAS^ Z-^11I4--11 _ 

1 If'U LUMHt i^Al luw PACKAijt 


f J "t </ 












14 

KEF 

2 :: 

LAST 

-J' 6 

/6 f 3344 

55 

•4 77 


IKibtUMP 

TS 

G COR P J R 

Ij 

KEF 


LAST 

3 a 

uof J34i> 


13 

1 


TS 

3UF 

li»l 





''lUf 3346 


i i JQ 

1 

IRIGx 

EXTEND 


132 

REF 

3 

LAST 

3 ' a 

Q t 334 / 

4 

1^15 



UCo 

DtLVX 

ISJ 

REF 

42 

LAST 

3 3 

Jof 335 U’ 


155 

1 


UXCri 

MPAC 

1-»S 

KEF 

1 



6 1 3 3 3 i 

3 

1463 

1 


CA 

ADI AX 

i5S 

HEF 

1 



udf 3332 

c 

V 

342 D 

1 


IL 

bCQMP^u d 

l‘jo 





;6t 3353 

6 


1 


EXTEND 


137 

REF 

1 



6 f 33 34 

<1 

1317 

1 


3L S 

UELVY 


REF 

43 

LAST 

313 

3355 

52 

i j5 

1 


UXCH 

MPAC 

<13'- 

REF 

i 



00 f 3336 

4 

14S6 

1 


CS 

AD Sk Aa 

16^ 

KEF 

iL 

LAST 

31L 

6 f 333 7 

i. - 

s42 J 

1 


fs 

CCUMPsUB 

A' 16' 3 










ex Tend 


A 1 1G< 4 










DCS 

.otL v'Z 

A " 16^5 










DXc-H 

MPAU 

A‘^1 oGfc 










CA 

ADUAX 

A-, 16 7 










TC 

G C J K 3 J L 

161 

REF 

1 

r 

Smr 

uAST 

3 a 

__CGf 33c.' . 


140 . 

t ' 

1 



iNDDX 

C162 

REF 

i 



06, 3361 


3454 

1 


Tl 

l)k 1 F TS Ub 

1163 





. 6 f 3 3 6 2 

u 

LUu6 

1 

ZRIGY 

extend 


1 o 4 

KEF 

2 

LAST 

313 

^ 6 f 3 3 6 3 

4 

1317 

1 


DCS 

DELVY 

^ 163 

REF 

44 

LAST 

JIU 

d , J'364 

52 155 

i 


iJXCH 

MPAC 

U66 

REF 

1 



■ 6f 3363 

3 

1464 



CA 

AUl..iY 

<167 

KEF 

3 

LAST 

31 u 

^6 , 33o6 


342 5 

1 


TC 

GCUMPsUB 

M6S 





36 , 336 7 


L 4 J6 

1 


EXTEND 


169 

KEF 

i 



V 6, 337^- 

4 

1321 

i 


DCS 

DELV2 

. 17 

REF 

43 

LAST 

31 i 

J 6 1 3 3 7 1 

52 

1 Is 5 

1 


UXCH 

MPAC 

171 

REF 

1 



j 0 f -/ 3 72 

4 

1467 

1 


Co 

ADSKAY 

172 

REF 

4 

LAST 

31 V 

i6 f 337 3 

w 

3425 

1 


TC 

GLOMPsUb 

At.i723 










EXTEND 


A< 172A 










DCS 

DEL V < 

' A« 1725 










DX*.H 

MPAi- 

A .1726 










w A 

AD JAY 

Av 1727 










1C 

uCUnPSU b 

173 

REF 

1 



Co , 3374 

4 

14oi 

1 


CS 

N3DY 

- 174 

REF 

2 

LAST 

316 

96,3375 


3454 

1 


TC 

DKIF fsUb 

ul75 





j0f 3376 

0 

L0v6 

1 

I k1 uZ 

EXTEND 


1 la 

REF 

3 

LAST 

31.. 

. 6 # 3 3 7 7 

4 

1317 

1 


DCS 

CELVY 

177 

REF 

4i? 

LAST 

31 

0 f 34 . 

52 155 

1 


D.XCH 

MPAC 

.176 

REF 

1 



’o t J4u 1 

3 

147 



CA 

A3s>K AZ 


JJ. : 2ti$U Jl l DX.Da£Jii£l^-o^ li 

h*S PAot NC'd j t j j i 


INUlLAIC COMMANDS Z PULSlS UR LtSb 
INU l X COUNTLK - IKiGX, IFIIUY, IRIG Z 


(PIHA PULStS) X + 

tUYKU PULSES)/(PIPA PULSfc) X 2(-3) 

- C ADI ^ ) tP IPAX j tGYRJ PULSES) X 2(^1 4) 


IPIPA PULS6S) X 2(+14) 

(oYKQ PULSES) /(PIPA PULSE) X ^:t-3) 

+ ( ADSflAX) (PIPAY) (GYRO PULSES) X 2( + 14) 


(PIPA PULSES) X 21+14) 

^ ^ 

(GYkU PULSES) /(PI PA PULSE) X 2l-^) ^ 

-(ADQAX) ( P1P A2) (GYRO PU LS $) X 21+14) 

(UYRO PULSES)/tCS) X 2t-j) 

-(NBUXJ ( DELTAT ) (GYKU PULStS) X 2(+i4) 


IP IPA PULSES) X 2t + 14) 

(GYK3 PULSES)/(PIPA PULSt) X 2(-_-) 

-lAUi AY ) t PIPAY ) (GYRO PULSES) X 2(+l4) 


(PI PA P ULSES) X 2 (+14 ) 

(GYRO PULS£S)/( PIPA PULSE) X 2(-j) 

+ ( AUSF.AY ) ( PIPAZ) (GYRO PULSri) X 2 (+14) 

!___( p 1 PA PUL SES) X 2 ( + 14) 

★ ♦ 

(GYrJ PULSES)/( PIPA PUL:^^) X ^(-i) 
-(AUUAY) (PIPAX) (OYRu PULStS) X 2(+14) 

(GYRO PULSES)/ (LS) X 2(-S) 

^ -(NDDY) ( Q ELTAT ) (GYRO PUL SE S) X 2( + 14) 


(PIPA PULSES) X 2(+i4) 


(GYRO PULSES)/ (PIPA PULSh) X 2(-S) 




: A5 t Wai-l. KJr V i S ION J i>iA5A _2l.JiJJ.l A il. 


L IKU CCHPcHSATlON PACKAGE 


■ 1 / s 

REF 


LAST 

Ji« 

’jb t34ij 2 

■J 

342 p 

1 

TC 

GCUHPSU8 

« IB. 

V 161 

‘13 2 
Li83 
':i84 





06 1 34v/ 3 

u 

0Uf^6 

1 

EXTEND 


REF 

REF 

REF 

REF 

■~T" 

47 

i 

6 

L A 3 T 
LAoT 

LAST 

31 

31- 

311 

U6 , 34.- 4 

0 6 » 34C 5 

6 f -i 4 V 6 
-fO f 34u 7 

4 1321 
52 155 
3 T465 
J 3425 

1 

1 

1 

1 

DCS 

DXCH 

CA 

TC 

U EL V 1 
RPAC 

ADI AZ 
o CUM PSD 6 

At 1 R ^ 









cXTEfiO 


A .1844 
A : 1845 
A‘ 1846 
A'. 1847 









DCS 

DXCH 

CS 

TC 

DEL VX 
MPAC 

AUu AZ 
GCOMPSUB 


REF 

i 



U6, 341 ‘J 

3 

1^62 


CA 

NdDZ 

V, ^ ^ 

t;i8“6“ 

REF 

J 

LAST 

3 1l - 

j6, 3411 

g' 

3 + 54 

i 

Tc 

ijRIF FSUB 


y 

» 


3 


lii^: 



UStA’S page no, 4 l3 GG 

-I AUSKAZJ (PIPAV» (GYRO PULSES) X ^t+l4) 


TPIPA PULSEST X 21+14) 

(GYRO PUL5ES)/IPIPA PULSb) X 2{-3) - 

-lADIAZ) IPIPAZ) (GYRO PULSES) X 2(+14) 


;i^ . - 

♦ (PiPA PULSE) X 21 + 14) 
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1^.' I PRQGKAM NAME - KtVauAHD ANG DISPLAY PRUGflAM 
R' ' . MCD oY - dARNEKI DATE - AUG 1^69 

s' L H LLG btCT UN - PINBALL GAH E d UTTONS AND L IGHT S 


h L I V FLNtTluNAL Du SCRIPT I CN- 


K‘ -jI 

K vV li 

R ' ■< ItL 
R-' 13 
K * * 1 Y 
K s < IS 

t*s 1 6 

KCr 17 
R r " 1 ii 


THE KEVbuAKO AND DISPLAY SYSTEM PROGRAM QPhKATtG UNDER usuoUTIVu 
CCNTROL AND PROCESSES iNEGRKATiDN EXCHA.^(G£D cJETWEtN THi. AoC AND Tril. 

CGPFUltR JPERATOK* THE iNPUlS TU THE P HEGR AM AfsE PROM lEE RtiYbGAK D, 

FRCP. ii\tcRNAL PKUoKAPS* AND FROM THE UPLINkT’ 

TFlE LANGUAGE CF CCNMUNiCAT i UN »<iTH I HE PkUGRAM rt P^iK UF y,UKD.3 
KNOWN AS YEKb AND NOUN* EACH uF THESE IS KEPREStllED uf A ^ CHARawTEk 
DECIMAL NUNDER* THE VERti L.Juc INDICATES WHAI ACTiON iS U tit iAKEN, THt 
NCUN CGOc INDICAIES TO WMAT THIS ACTION IS APPLiEDp NOUNS USUALLY 
REFER TO A GROUP OF ERASAB LE REGIS fEKSo 


R.L Zl 
k Zl 
RL('22 
RC( 23 
RLC 2A 
R U L 2 S 


VERbS ARE GROUPED INTO OiSPLAYS, LOADS i MONITORS (DISPLAYS THAI ARE . 
updated CNCE PL'V SECCNOyf SPECIAL FUNCTICNSf AND EXTENuEE Y.-iUS( THESE 

/>PE OUTSIDE OF THE DOMAIN OF PINtiALL AND CAN 6t FLiUNU oNDEK LQu SECTION 
: EXTENDED VERBS: U 

A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION :A 5 SbMbLY AND 

OPERATION INFORMAT ion: <, 


r 


10 


9 


P.;.*26 CALLING SEDUEi 


■^jRjulRjE 


KiJ 32 
Ri. C 33 
R 34 
k Ci(3S 


tvEytLLARill 


ROC 2 8 

KCi. 29 
RCC 291 
R t 3 ' 

R< 0. 31 


EACH DEPRESSION OF A MAIN t NAV I jA Ti ON I RtYBOARD oUTFON ACTiVAlk-S 
INTERRUPT KEYRUPTi IKEYRUPT2) AND PLACES T HE 3 .31 f KEY COJt INfu 
CFANNEL 13 tCHANNEL lol^ KEYRUPIl (KEYKUPf2) PLACES Trie KtY 
CODE I.vTC HPACr ENTERS AN EXECUTIVi. REwUEil FOR THE KEYdCAiCU AND DISPLAY 
PROGkAn lAT :CHARIN:)t A, 40 EXcCUTES A RESUM 




o 


uplink: 

EACH wOKJ 
PLACES THt 3 
KEYEUARC AiTD 


RECEIVED BY THE uPLlNK ACTIVATES 1 NTERrOPT UPRUP 1 WHiCil 
BIT KEY CODE INTO MPACt ENTERS AN cXECUT iVc RcOUEoT FUK 
DISPLAY PROGRAM lATiCHAKIN:) AND tXEoUTEi A RESUHE= 


THE 


J laXRNAL P ROGRAIiS: 


R - . 
R<fC38 


n 


Rl" 39 
Rtc V 


InTcRN/U programs call pinball AT ; 

CCDE IN ^ (LOW I BITS FOR NLUN, NEXT 7 
DESCRIBED ON RlMARKS CARDS JUST BcFURE 
SYMBOL TABLE FOR PAGE NUMdtisS). 


NVSUb: WITH THE DESiREO VERd/NCUN 
dirS FOR VtRB). DLIAIla 
:NV j>iJd: (SEE 




.RCC43 NORMAL EXIT MCOES- 

Hi-46 If PINdALL WAS CALLED BY EXTERNAL ACTiCNf THtRE ARE FlUK c<ns: 

l'46C3 iJ ALL dUT (2), (3)i AND (41 EXIT DIRECTLY TO ENDUFJOb* 

R,,n461 2) 'extended verbs go to THE EXTENDED VERB FAN AS PART uF i 
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ASihMbLL jtU:: V-i S JVuV^-J^-d Ub i iA i j — ARl£^i J’iAJiiA . Li-. 

IN CALL CAME aUT rUKJ> At^u LIGHTS 


111 7fa.lS71 nitJG£NL.S4...6A — fcLAtui 
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46 3b 
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. 4 

Ul 

464 
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■ -A 
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K 0< 466 
i< L 46 7 
k' ‘■; '40 S 
K » < 46 S 


k C V. 4 7 
KlC '46 

k H 4 V 
RCA !>. 


Kti'5l 
Ry( 5Z 


UStK*S PAot NO.; 


PiNbALL EXECUTIV 
RESPONSIBI LI 1 Y U 

CHANGE PRIORI rv 


E JOB »J1TH PKiJRiTY ByC' - ^ IT ij THE 
F THE EXTENDED VLKB CALLED lu cVaNlUALLY 

I IF NECESSARY) Ai^D DU AN E»NDCFJ0B^ 


J ) 


4 ) 


ALSU P'iNfcALL IS 
VERB :37. »-HAHGt 
S EKV ICE RU UT I N L S 

3i i * ' a The nei« 

KEY RELEASE BUT 
ROUTINES AS PART 
THE 


KEY kc 


SE 


A 'NUVAC ~J0Bo EdANK SET FOR CGHHOfL.- 
OF PROGRAM (MAJOR MODE) CALLS :Vj?: IN THE 
AS PART OF THw PINBALL EXlO JUS WITH PRIJ 

PkDGKAH code (major MODE) IS LtiFT IN Aa 

CALLS iPINBRUCH: IN THt DISPLAY INTERFACE 
THE PINBALL LXEC JOB WITH PRIu dODUv IF 
LTGfTT is“uFF“”MD ;CADRSTor: IS Nuf + a 


It pinball rtAS CALLEU UY INTERNAL PRUGRAMSf EXIT PINBALL IS 

TO CALLlKu ROUTINE® DETAILS DESCRIBED IN REMARKS CaKOs oU:>T bEFUKc 

2 N V SUB 5 

ALARM OR ABOR T EXIT MQDc S- 

I^'^^qMe'^IHPROPER SEwUtoCE OF KEY CODES IS DETECTED* i Hl jPlRAIGK 
EPKCR light is TURNEL on and exit is 1U ; LiNUUF J*jB • o 


BACK 


RO ;>i> 
km- 5 o 

ti‘. v' b 6 1 
i-c i ^.b6Z 
R V V S 6 3 

R CC564 

kow59 OUTPUT" 


iNlXiALiONJ 


\ C 6 


I 

k 1 61 

RcC62 
RCr 63 


^ IF AN ILiSGSLV/S^^^^ 

(hITH made TU oJ to SLEcP IN PINBALL, AN ^ 

CAUSED (WITH OCTAL 212..6)o THERE ARE T wlU aaYS TO c-U Ta c.LtLP IN PlNBA 

1) ENDIDLE 

2) NVSUBCSY _ 


infurpaTIon to be sent tc_the display V^Lrt deS^kupu^'' 

buffers registers (Ul'tJER EXEL ^ - , T.,-r-, uiTplH CHANNEL i 

HANDLES THE PLACING GF Trie :USPTAB: INFORMATluN INTO OUTPUI CHANNEL i 

IN INTEkHUPT* — — — - 


) O 


'8 


Ky <o4 ERASABLE I N 1 T lAL IX AT lUN- 


K * ob 

]< t V 66 

K .. I 6 7 
KCc 6 3 


K L I o 
Ku' 7' 


K..< 7 2 

KLvYB 


FkESH jTaRT AND RES TART INIT lAL IXE THE NECESS 

— _ - .• », 4 J' ▼ j f ~ I ¥ ' A K J ^ l-J' 1 j* i rrk. 


E kegisiers for 


PINBALL IN ;ST AkTS UB:, REGJSlM-> 


REQRET, ClPaSS, DSPLOCK, MUNSAVE* iiCNSAVtl, VERBRtG, 
DSPCUL'wT , NOUTo 


NUONREG, DSPLlST, 


A COHPLcTE Llil OF ALL Lie fckASAbLci C6LTH KESERVeD AI-lL TeRPORAKlfcS) FJK 
PINBALL IS GIVEN BELCW® 


RC 71 THE FCLLOnlNG ARE DP GENERAL iNTEKeSI— 


REMARKS LARDS PRECEDE THE REFERtNCEu SYOBCL DtFlNlliON® 
TABLE TC FIND APPROPRIATE PAGE NUMBERS® 


!:>rMouL 


_A:> b.t L ftiV. LSXClii Of-AbL-PiliJ^aAa--AiiI 


r ; 1 ^ A h * L^7 \ i ~> ^ 1 i (;> F !'< t :i b 4 


K L <- 7 A 
K > 1. 7i> 

R ' 8 3 

k< !. 84 


R i '. 8i>l 
Kij08^a 
R i C' 0 t) 3 

R < ‘ <: b 4 


i\'.'\ o 55 
R uC’ 85 6 
R Cv) 86 


PINBALL LAML 3UTTON5 ANu Ll&Hib 


*5 HALfc NUfl 


NV5UB 


tNOiOLc 


CALLING FLINT FLJR INTLKNAL LSL JP PlNBALLs. . 

UP HtLATEU INTcRt^iT — NVSUdUGY 

ROUT IHfc FUR INTLRNaL PRQGRARj wiSHlNU T O b U TJ :>LL£P WhiL c 


ArtAITiNG UPtRATGRS RE3PUNSE 


LSPRMJJd RCUTINE CALL wlTH PRIQ 3'>UOc, U6EU fu ^iSPLAY A JEgI.IaL 

PROGRAM CODE tMAJUK MODE I IN THE PROGRAM (i^AJCR MOUE J lIGHT 

ULANKSUa ROUTINE BY NHICH AN INTERNAL PKUGKAM rt/.»Y tiLANv ANY 

COMB i NATION up THE J 15PLAY RLb I STER6 Rif RLf 


GAMI ERM 


PUN 1 TOR 


ROOriNES by RHICH AN INTERNAL PROGRAM MAY PEKFOBM. THE 

TERM NATE IV 34) FUNCTION 

VER3G FCR PcRIGDiL ( i PER SEC) ulGPLAY* 


RCl 861 


R C'L QbZ 
R i. t , d 6 3 
KU< 864 

R CiVdT 
RuC d o 


R uUd9 
R t C 8 5 1 


. PL E BIH M , PLEASE M A IT K JJLI U A J iXl! 


REMARKS OESCKldlNG HOH AN INTcHNAu 
THESE SITUATIONS CAN dE FGJNu JOiT 
SYMBOL TABLE FOR PAGE i^iUMBERii. 


kQUIINE BHUJLU 
SEFuRE YNVSUb: 


HANDL E 
tSEE 


THE NOUN TABLE FORMAT IS DESCkidEO ON % PAGE OF REMARKS CAROS JUST 
BEFORE sDSPABCi (SEE SYMBOL TABLE FOR PAUL NUMB.ERj_» 


THE NCUN TABLES THEMSELVES ARE FOUNO IN LbG SECTION 
TABLES:. 


; PINBALL NUUii 


kCi.Jl for further El 


kcL 91 
R ‘^092 


PROGRAM, 5 EE the MISSION PLAN AND/UR HIT/IL E-Zi29 
OESCRlulNG KEYeUARD AUJ DISPLAY OPEKAT ION FOR 278. 


lOfsi /IP THc KEYbO ARal^^LL_IjJ^iaAY-SY-SJ-L:i 




RC15t 


K-^lSl 

152 

R 1 5 :> 
RC154 


THE FCLLCrtING QUOTATION IS PKOviUEO THROUGH THE COURTESY OF THE AUTHLKS> 


::ir WILL BE PRuVEO TO ThY FACE THAT THOU HA^T MEN ABUuT THt- 
USUALLY TALK OF A ahu A VfcRBi AND SUCH AdOMlisiALiLE mC A:> uU 

CHRISTIAN EAR CAN ENDURE TO HEAR*:: 

HENRT o, ALT 2, SCENE 4 


I Ha r 


Ril55 THE FLLLCWING ASSlGNPcNTi FOR PIDBALL ARE MADE ELSEwHtkE 


A 


,sl 156 reserved for PINBALL EXEuUTIVc ACTiON 


R ,157 
KT158 
RL159 

R’wlo 
K 1. 1 o 1 


CSPCUUHT 

UECBrNGH 

VER6REG 

NCUNREG 

XREG 


ERAS E 
cK AS E 
cR A S E 
cRASE 
ERASE 


DljPLAY POSIT ION 
'YOECi “■ CEL, uCT 
VERB CODE 
NOUN CODE 
Ri INPUT BUFFER 


1 C A 1 uR 
INDlCAT OR 


w Ai' : i_JLf -rt.wU P tiUL&AM 


1 i ^ Ft: bu 




PINHAl-L GAME GUffONS ANU LIGHTS 


USLis'S PAi>E NO* 


E. 


r iO^ 

YKEG 

cK AS t 


R2 INPUT BUFFER 

I ^ - 1 C -i 

7HEG 

£K AS t 


K3 INPUT 6UFFEK 

K io4 

XHEGLP 

ERAS c 


LG PART CF XHEG IFOR JcC EUHV uNLr j 

-< . loS' 

YRtGLP 

t R AS E 


LO PART OF YkEG (FOk OcC CUNV uNlY) 

‘ 1 G 6 

HIT tMGUT 


YREGLP 

1 Li'^P FOR OloPLAY OF HR^t .liNf SEc 

W' i ._)7 




MUc»r = LuTi-MCOI— ii 

K . lo^ 

ZBEGLP 

u-R AS L 


LQ PART OF ZHEG (FOR OEC CON V #NLY) 

i O 9 

LCTEMUGT 

= 

ZREGLH 

TEMP FOR DISPLAY OF HRSt MiN, SEC 

1 ri 




MUoT = HITEMCUl+i. 

kX 17 1 

MCuKTS' 

ekasF 


MODE Cobb 

: nz 

LSPLGCK 

ERAS E 


KtYBUAKO/SUBROuT INE CALL INVekLDCX 

K . 17 3 

R t iJ ff t T 

ERAS t 


KtrU><N RtrGISlER FUK LUaU 

k 1 7 4 

lAl 

ERASE 


STATUS iNOiCATOR FUK LUACrST 

K '-I7;j 

CLPA^S 

ERAS E 


PASS INDICATOK CLEAR 

K 1 7 6 

NCUT 

ERASE 


ACTIVITY COUNTER FOR OSPiAd 

RL177 

NGUiNCADH 

ERASE 


MACHINE CACF FOR NOuN 

Rt 176 

MCNSAVL 

ERASE 


N/V CUOE F^K MONITOR. t= MON-iAVEi-iJ 

K 17g 

MDNSAVEl 

ER AS c 


NUUNCACR FOR MON 1 TuKt MATES i =MoNSAVE +1 

KC17SS> 

MGNSAVt2 

ERAS c 


NVMONQPT CPI IONS 

K (. 1 8 

CSPTAS 

ER AS E 

+ 130 

G-lo, DISPLAY panel BUFFEK*iA-i:>f C rELAVS 

R-ridl 

CAOBSTUR 

ERASE 


END IDLE STORAGE 

RC162 

NVaThM 

ERASE 


NVSUB STCRAOt FOR C>aLl 1NG MUURtiSS 

Hul83 




MUgT = NVBNKTEM-l 

R V 1 d 4 

NVBNKTEE' 

ERASE 


NVSUb STORAGL FOR CALLING BANK 

RtiaEi 




MCjT = NVUTEM+i 

R. 1. *3 o 

VERBS A Vt 

ERAS E 


fvEEbbJ Fui< RbCYCLt 

RC137 

DSPLIST 

ERASE 


WAITING REG FUR DbP SYSf liUEKNAL Uot 

ROien 

EXTVGACT 

REAS E 


EXTENDED VEru ACTiVrTY INTERLOCK 

R V 1^9 

CSPTEMi 

ERAS £ 

+2 

aUFFEK STORA^jc AREA 1 IMCSTL/ FOR TIME! 

R< It 

GSPTEM2 

erase 

+z 

buffer STORAGE AREA 2 (MCsTLY FOR DlG) 

R (, ic- 1 

END OF tRASABLES RESERVEU FUR 

PINBALL EXtCUnVE AOflUN 

LIZ 

TEMPGHAHlLiS FOR 

PINBALL executive ACTION 

K .19 3 

CSEXIT 


1NTB13+ 

RETURN FOR DSPIN 

Kg 194 

EXITEM 

— 

IiTTbl3+ 

RETURN FOR SCALE FACTOR ROUriNE StLECT 

KC195 

BLANKRET 


INTaiS+ 

RETURN FOR 2BLaNK 

RC196 

WRCk t-T 

* 

1NTBIT13 

RETURN FCK i-bLANK 

RC19 7 

WORET 

— 

INTBITIS 

RETURN FCK OSPWl) 

R<.i98 

CECRcT 

— 

INTBITlb 

return FlR PUTCOHICcC EOAOJ 

K(199 

2i/22REG 


INTBlTia 

TEMP FUR char IN 

R ^ V ^ 

Li P D T X t T 


POLISH 

REJiiRN FXK_UP.DAlNNA_aFDAiyj3 ... - . 

1 

CHAR 


POLISH 

TEMP FUK CHAkIN 

K Z - Z 

ERCNT 

— 

POLISH 

COUNTER FOR ERROR LIGHT kESlT 

R Zu 3 

OtCLUNT 

- 

POLISH 

COUNTER FJK scaling AND LIoPLAf lUECJ 

Rr2: 4 

SGNCN 

— 

V3UF 

TEMP FUK 


0 ^ 


T 


C. /.H : A . I- JU-i/ IM-Dli- - JJiyju-d.AdL-Ai\I-£J41:a-a y — 


1 1:4. F hR. >-6 ,1 Q7 1 ljlni^PNFS._6 4 iiiUih 32Z 


L 

PINBALL 

GAME 

tiUT T uNj 

AND LI 

jHT s 

RC2 

NCUN ILin 


ViUF 


CQUNIEK FuR MIXrJLUU FETuH 

R ^ 4^ ' Ci 

L XjfT bM 


V BuF 


COUNTER FOR OCTAL ul SP lAY VERBS 

K 2» 7 

LECTEK 


VBUF 


COUNTER FJK FETCH I DEC Ui:>PLAY VERBS) 

! ' . ^ y 

SGNOFF 


VdUF 

+ 1 

TEMP FOR +,- CIM 

* f 

• ^ •, 1 

NVTEMP 


VbUF 

+ 1 

TEMP FOR HVSUB 

t 2 1 ‘ 

SFTEMPl 

— 

V dUF 

+ l 

STORAGE FOR :>F CONST HI PAkT t =SFTEHP2-1) 

K\ 211 

HIT fcf^ In 


VdUF 

+ 1 

TEMP FOR LOAD OF HRSt MiKf ScL 

H 212 





MUST = LUTEMIN— 1^ 

P 21 J 

CCOE 

= 

VbUF 

+2 

FOR DSPIN 

Rv*2l4 

SFTEMP2 


VdUF 


STJRASE FOR SF CONST LU PARI t=^FTEMPi+l » 

K- 21S 

LCTtrtlN 

— 

veuF 

+ 2 

TEMP FOR LOAD UF HR^, MIN, ^ tu 

K*;216 





MUST = HlfEMlN^lo 

k: 217 

MIXTcPP 

5= 

veuF 

+ i 

FOR MI XNCUN DATA 

Kv21tJ 

SIGNRLl 

:s 

ViUF 

+3 

RETURN FCR +,- ON 


USER*^ PAofc NU 


L- 


Si 


* 

A 


K 21<3 ALStJ MlXTEMP+1 = V/idE+4, MlXTEMP+2 = VBUF+3- 




S 1 


10 


Re22l 

tN Tk bT 

= 

DOT INC 

EXIT FROM cNTEK 

tt • 791 

liiiirKT 


I'iOTRFT 

CHAA CQUivI£R^J=OA OSPWi> . - - -- -- 

RC222 

^ *V A 

INREL 

— 

CUTRET 

INPUT BUFFEk SELECfUR t /,Y,Z, REG ) 

Rv223 

RL224 

DSPMMTHM 

MlXbR 

— 

MATING 

MATING 

OSPCOUNT SAVt FOR OsPMM 

INDICATQk for mixed or NCkMaL NOUN 


r fm 1 

p 


E X c: T F W P — — ^ ■ 

K' 226 

1-.LJ J.^ — 

CSkEL 


TEMi 

REL ADDRESS FOk D^PIN 

Rv227 

Rf 228 

R ( 22S^ 

T £H2 

CSMAG 

iCADOTEM 

bR AS E 

TEM2 

TEM2 

E X c w T L M F 

MAGNITUDE STbKb FUR DSPiK 

FilANOUN INuIkECT ADQKcSi bTuiiAuL 

KU23i 

ftC231 

TEM3 

COUNT 

EKAS E 

TEM3 

EXEC TEMP 

FOR OS PIN 

Rv232 

kc'233 

R» 234 

TEM4 

LSTPTR 

RELRE I 

ERASE 

T L M4 

Th.T4 

EXcO TEMP 

LIST POINTER FOR GRAbUSY 

REIURN FCR .'.ELUSP _ 

RL235 

Kl236 

R( 237 
k^.2i8 

FREERET 

CSPhDRET 

SEPSCRET 

SEPMNKET 

— 

TEM4 

TEM4 

TcM4 

TEM4 

RETURN FCR FREEUSP 

RETURN FOR DSPSIGN 

RETURN FOR sEPSlC 

RETURN FCk SEPMIN 



ERAS fcz^ 


EXEC TEMP . ^ . - 

^ ^ ^ : 

kC24 

L fc_n»p' _ 

NCUNAOD 


T tH!> 

TEMP STORAGE FUR NOUN ADCRE:>S 

R^241 

Rr242 

R'.243 

KNADTEM 

NNTYPTEM 

ICADITEM 

ERAS E 
eft AS b 

t R A S E 


TEMP FOR NOUN ADUisESS TABLE ENTRY 

TEMP FUR NOUN TYPE TABLc ENTRY 

TEMP FUR INDIH AOKESS TABLE Et^I KY t MIXNN) 


( 


4 


*V 
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PINfcALL GAMt BUTTONS ANJ LIGHTS 


USER'S RAGE NU. 


U S^ 


k : Z4 IS 
K i i?4tj 

K Z2^*r 
K-24e 
K ' 24V 
RC25' 


ItAL2rfcM cKASE 


TuaFSTIm tKASt 

RLTkXTEK ERASE 

END OF ItMPQRARlCS FOR PINBALL 


MUjT - Ii:AU2Ttrl-if ^ iUACJTE^'l-2. 

TEHP FOR INLlk AUKtSS jALLt ENTkY(MJXNN) 

HUjT = lUADlTEH + it = iuAD3Tc cl-i* 


'I'tMPn^OR INOIR ADRcSS IaBLE tHIkYlHIXNN) 
MUST = I L AOiT tM't-2 f = luAu^T cM+i <. 

TERP FUR SF KUUr TABLE tNfKYIMiXNN ONLY) 
EXcCUTiVE ACTION 


KS25 1 ADDITIONAL TEMPUKAKIES FOK PiNBALL EXCCUTIVE ACTION 


ki25 ^ MPAC» THkU MPAC +6 
R C 2 5 1 . 3 B U F I + i I +2 

R 2S. 4 eUF2, +Li +2 

R(25' 6 PFTEMP 

“R 2^rT ALCfiVO ■ ~ 

K' 2S')9 end of additional temps FOK PINBALL EXEC ACTION 


l<t2Bl RESERVED FOR PINBALL INTtKkUPT 


R/2S2 CSPCNT ERASE 
f;c2S3 CPLcCK ERASE 

Av254 

RC2SS END OF CRASABLES RESERVED FOR 


ACTION 


COUNTER FOR D SPOUT 

81 T1 = UPLINK INTiiKLOCK (ACnVATcD BY 
PINBALL INTERRUPT ACTION 


■ J - L ■ !■ ■ ■ I 

RECLPTIONOF A BAD MESSAGE IN UPLINK) 


K:2Sto TEMPORARIES FOR PINBALL INTERRUPT ACTION 


R< 2S7 

R<. 2&e 

Ro259 

Rt2B^£ 


KEYTEMPl = WAITEXIT 

CSRCPTEM = HAlTEXiT 


KEYTEMP2 = RUPiAGN 

END OF TEMPORARIES FOR PINBALL 


TEMP FOR KEYKUPT, 
TEMP FOR D3PUUT 

TEMP Fur KtYRJPTf 
XNT EKRUPl AC TIO N 


UPRUPr 

UPRUPT 


V 


l 1 -C£„ -£KUliiL4i±-Aiir £fU^ dY J!iA SA, Z . 21X1A-I. I 


. 6^1071 DTrk;fMFf;«L 64 t 


PIi-tLALL CAHfc .>UTfUNS AND LIGHTS 


USER'S PAol NU, 


H‘.26l 

K \ ^Otd 

H i . J 

k ' 2 6 A 

K ' 2 6 i> 
R ' 266 
K ^ 20 7 
K '-.26 6 
K‘, 269 
R('270 
Rr 271 
HC272 


IEl INPL'I LODtS AS SUSSED F UK THE KEYSGARa ARE, 

I J '.; ..: U 1 

T ‘ ‘ ‘ i ‘ 

V E k b i j k, > i 

ERkCR RESiUul'. 

KEY KLSE ilOOi 
+ ilLlU 

iiOll 

ENTER iliCO^ 

CLEAR llilO 
NCUN mil 


ki 2X3 OUTPUT F CRM AT LOR .i2liRLXY_JBXIlELj.^.I_,UilX^^ AMAjiCX CCQ;iiDDJ3ji 

Rv274 A-S SELECT A RELAYttOkO, THIS OErERMlNES rtHICH PAIR UF CHARACTERS ARE 

Rc275 ENEkGIZeCo 

Kf270 a FCK SPECIAL RELAYS SUCH AS SIGNS ETC. 

R 4.277 C-S b BIT RELAY CODE FUK LEFT CHAR OF PAIR SELECTED BY R£LAYWURD_ 
R<.27d U-S 5 BIT RELAY CODE FUR RIGHTCHAR UF PAIR SELECTcD dY RELAYidUkD. 


R(.279 

THE Panel appears 

AS FQLLdinfSi 


RL23'- 

MCI 

MD2 



(MAJOR MODE) 

Rv231 

VLl 

V C2 

IVERBT 

NDl ND2 

t NOUN ) 

RC28 2 

RlDl 

K 1U2 

R1D3 

HiD4 _ R1D5 

(R1 ) 

RC283 

R2D1 

K 2l)Z 

k2D3 

R2D^ R2D5 

(R2) 

Rv.28A 

R3D1 

k3D2 

R3D3 

R3D4 R3D5 

(R3) 

R.235 

EACH 

UF THESE IS GIVEN A uSPCOUNT 

NUMBER FOR USE WITHIN CUMPUIhTION ONLY 

k^28 6 

MCI 

25 

R201 

11 ALL 

ARE OCTAL 

RC287 

MC2 

24 

R2D2 

l;. 


RC288 

VDl 

23 

R2D3 

7 


Rv269 

VC2 

22 

R2DA 

6 


K<'29‘ 

NDl 

21 ’ 

R205 

5 


P^ 291 

ND2 

2E 

R3Di 

4 


Rt292 

RlDl 

16 

R3D2 

3 


RC293 

RID 2 

15 

R3U3 

2 


RC294 

R1D3 

14 

R3D4 

I 


R1 295 

RIDA 

13 

R3D5 

! ■ 


RC296 

R1D5 

12 





,^^Rg297 TFERE IS AN 11 REGISTER TABLE luSPTAaJ FOR THE ulSPLAY PANEL, 


n R< 298 

n SP TAB 

R ^ A Y if* U 

dlTIl 

BiT^IQ-6 

axis 


7 11 \ mm m wtf 

RC299 
* R'"3,'' 

RELADD 

1 

lull 


MDl 

(25) 

MD2 

124) 

R 3 1 

S 

1C 1C 


VDl 

(23) 

VD2 

(22) 

, RC392 

8 

1 U J 1 


NDl 

(21) 

Nu2 

(2’ ) 

RC3'.'3 

7 

lE'j : 




kiul 

( 16 } 


4 


oUTTuNS AND L lONFS 


I PINtALL GAME 


R 3' ^ 
KBS 
RR-3 t 

6 

S 

A 

vUl 

L 1 1 w 
i IJl 

+ K1 
-Hi 

+ K2 

R1D2 
Rl D4 

R201 

(1S> 

tl3) 

(Hi 

RiUi 
KID 5 
R2D2 

(14) 

(12) 

( i ) 

R; 3R Y 

i 


-R2 

k2Di 

i r ) 

R2DA 

(6) 

k ■ 3 ; a 

2 

vSil 


R20r> 

(s ) 

RSDi 

(4) 

HvBUS 

1 

t t/iU 

+ti3 

R3U2 

(3 1 

R3D3 

(2) 

Kcaic 


’ :: ji 

-R3 

K3D4 

(1 ) 

K3D5 

( ) 

Kt 311 


Cju 

NO RE LAY WORD 






R 312 

TEE 5 bl 1 

OUTPUT RELAY COOES Akt: 

k' 313 

BLANK 

Civi-r j 

Rv 31A 


Id lu 1 

Rf 313 

1 

DC v' 1 1 

K V. Jl6 

2 

11- 1 

“ kZ3 1 7 

~2 ‘ ■■■ 

irii 

R>:318 

4 

Ulill 

Ki;3l9 

5 

iiii: 

R032V 

6 

11 IV' 

R 1.321 

7 

0 .'11 

R :322 

8 

11 ii 1 

’ K02i 

9 

11111 


R(.3231 CUTPUl BUS USED BY PINBALL: 


R-3232 

KEY RELEASE LiOHT 

— BIT 5 LF 

CHANNEL 

11 

RV 3233 

VERB/NGUN FLASH 

- BIT 6 CF 

CHANNEL 

11 

K<. 3234 

OPERAIOK EKKGR LIGHT 

- an 7 CF 

CHANNEL 

lI 


1 D I Lib F- ML St. EAbL — 


Jla - - 


liiii 



USER'S PAUL NU 


t- ss. 


u Aif i b mhLL. nhi^iS IQK i fy OF AliL PR UbkAi-1 iiL.a EalX- iiXJiA^A Z_21i ii: 

L h»l!\tALL buttons ANJ LlGHlb 


III _ t-rii.. D 1 Q b h Tl L 


Jb.k 7 .. 




USER'S RAGE NO. 


Po324 

I A K i 

OF 

ECU V 1 VL 

oLCTiUN QF 

PINBALL 


<.32 31 1 

REF 

1 



^ - f / 1 A 



t 323 l2 





Al f 2^LL l 



03255 

HEF 

I 






•*330 

KEF 


LAST 

315 

f 4 £uU L 

4 7 / L 


(331 

REF 

2 

LAST 

2 4 

^ w t 4 ^Li L T 

57' 215 

i_ 

.332 

kef 

1 



4wt20C2 

5^ 115 

u 

* 3321 

REF 


last 

2v4 

L f ^ i J L 3 

11*245 

1 

3322 





4^ L f ^ i A 

U 2 T- -A 6 

1 

>3323 

REF 

1 



4 'ji 2*-n. 5 

^ 2 13 

1 

<3324 

KEF 

1 



46,21 . 6 

4 2212 

t 

*.332 5 

K fc F 

59 

last 

317 

4yj2QC7 

0 -154 

1 

<3326 





43 1 2ul*' 

U X- 0 

1 

3327 

REF 

2 

LAST 


^1. 1 idly 1 1 

1 2oi3 

i 

3328 

REF 

i 



^ i Z 

.1 43 u 6 

•J 

*, 333 

REF 


last 

326 

4C,2 13 

So 154 

1 

< 334 

REF 

1 



40,2014 

34 117 

1 

.335 

REF 

& r 

LAST 

315 

40, 2v'15 

5--. \iLv 

Jl 

;33o 





4(;,2ul6 

V 2 ijll 

r . 


CHAR IN 


< 337 
{ 33 o 
l339 
t 34C 
!'3A1 


REF 

REF 


1 

I 


4ui 2 'j1 7 

4ij f 




U 


3Z75 
Zk 74 


• 342 
34 3 
.344 
.343 
■ J34 o 
i 34 7 


<348 

.349 

<33 

<:33i 

1:352 

v333 


i"354 
C 353 
C336 
C357 
<35 8 

< 33 t> 


•:36' 
C361 
w362 
*.363 
f 364 


REF 

2 

LAST 

3zS 

^ f 2 2 1 

u 

2S74 

REF 

5 

LAST 

326 

4 M t 20 2 2 

t 

2C74 . 

KEF 

4 

CAST 

32<i 

4j , 2*j23 

V 

2.-74 S 

REF 

5 

last 

326 

4G,2J24 


20 74 

REF 

D 

LAST 

326 

41 « Zu2 3 


Zi-. 7 4 

REF 

7 

LAST 

326 

4ij f 202 0 

w 

2' 74 ^ 

REF 

i 



40 f 2<"’2 7 


2064 1 

REF 

z 

LAST 

326 

4>.> 1 2U3C' 

« 

2v64 I 

REF 

2 

LAST 

326 

40,2631 


3275 1 

REF 

3 

LAST 

32o 

4o, 2s32 

0-’ 

3275 1 

REF 

4 

I.AST 

326 

f Z -#3 

W 

32 75 1 

REF 

5 

last 

326 

4 -,2. o4 

> 1 ^ 

32 75 1 

REF 

6 

LAST 

326 

4c f Z\ ^ 3 

M 

3275 1 

REF 

7 

LAST 

326 

4^j 1 Z^ 3 6 


3275 1 

REF 

8 

CAST 

326 

, 2 /0 7 

y ■ 

2-72^^/ 

REF 

1 



^ VJ f Z J ‘‘f 2 


2251 J 

REF 

1 



40 f 2041 

.3 

355 3 1 

REF 

0 

LAST 

326 

^ t 2 c# 4 2 


3275 1 

REF 

t 

LAST 

326 

^ 7 ^ I z - 4 3 


3275 1 

REF 

i 

L AST 


4 V f ^ X 4 4 

W 

3275 1 

REF 

11 

L Aa T 

326 

^15, 2 j45 


3275 1 

REF 


last 

326 

4 , 2 i46 


3275 1 

REF 

13 

Last 

326 

4 _..;47 

i 

3275 1 

REF 

1 



4 f u 3 -• 

U 

3325 w 

REF 

i 



4i. ,2051 

, 1 

W- 

23.4 1 

KEF 

1 



“ir ■■ i f 2 ^2 3 z 


2271 1 


:>ETLlJL FiNo^LLi 
BANK 


uUUNT^ 
C AF 
ACm 

To 

0 s 

ro 

TC 


$7/PIN 

. ”■ 

t N C. 

U S PL UOK 




A 0 
cXf 
uZ F 
To 


21/22REG 
cad A o r uK 

+2 

CHAR IN-s: 

ELRCODcl 

FPAC 


NO 


CHAR iA2 


ACH 

Vo 

INUEX 


CHAK I N2 
RELUSPON 
i'i PAC 
CHA:, 

A 


W 


r 
re 

Tu 

To 

TC 

jc 

T- 

TC 

VC 

1C 

To 

VO 

VC 

TC 

TC 

To 

TC 

JC 

TC 

TC 

TC 

TC 

TC 

TC 

To 

To 

To 

re 

TC 


+ l 

CHARALRM 
NUM 
AUi*l 
NUH 
N lJ Ri 


NUT 
NUH 
091 cS I 


BLQCX DISPLAY SYST 

PARE DSP SYST d U SYt bU T SAYL uli; 


CtiJSPLUCK) FOR cRKOR LIGHT kESEl - 
ALL KtYS„fcXCLPT «LJURN JN KR LITE IT 
CAuKSTCR IS FULL® Tnlo KtHlivDS CPtKATUK 
TC Kc-cSTABLlSH A FLASHING DISPLAY 
FiHiCH HE HAS U&SCURED WITH DISPLAYS oF 
HIS O WN (SEE REMARKS PRECEDING ROUT L mE 
VBKEL'DSP) . 


INPUT CODE 

1 

2 

3 


FUNCT I ON 


4 


3 

0 

7 

1 


85Ti- s r 

11 

CHARALRH 

12 

CH AK ALixK 

13 

CH Ak ALkN 

14 

CHArALRM 

15 

charalkm 

16 

CHARALRP 

17 


Z-. 

VERS 

21 

LRmjR 

22 

CHAkALRK 

23 

oharaLkh 

24 

CHARALRM 

25 

CHARALnM 

Z6 

cHAKaLRH 

Z1 

CHAkmLRH 

3 

VBRELlJSP 

31 

POSGN 

32 

NESS bN 

33 


p 

r, 


VERB 

ERROR 


LIGHT RESET 


KtY RELEAot 

♦ 


w.flie : 




Cl UG.EN L S« t/64 PAbr 



L ‘^INtALL EAME bUTlUNS ANu LiGHrS UShK'S PAGE NUl 1 t S- 


365 

REF 

1 



40,2053 


420 0 

1 


Ti- 

LNTEKJMP 

34 



ENTER 


>.366 

REF 

1-t 

LAST 

326 

s f 2 c? 5 ^ 

J 

3275 

1 


Ti- 

OhrtKALKK 

35 





L36 7 

REF 

i 



4'; ,2655 

] 

L-i 

2364 

i 


TG 

CLEAR 

36 



CLEAR 


i 36 o 

REF 

1 



*4 - , 2u56 

i 

S< 

2265 

1 


TC 

NCUN 

37 



NOUN 


3 

REF 

3 

LAST 

2 4 

^ C 1 ii u S 7 

li 

'2'-^ 2 

I 

CHKuSP 

CCS 

CSPCOUNT 







REF 

3G 

L AbT 

31 7 

40, 266 1 


i..'- 

u 


TC 







f3?l 

REF 

4 

LAST 

32 7 

40,2 >6i 

b 

k T w 2 

L 


TC 

1 






S J72 ' 

'REF 

22 

LAST 

3 17 

2 J62 

"t 

i. 

52 5 

1 


TCF 

ENDCiF Ju B 

BLOCK DATA 

IN IF 

DSPCOUNf 

Nkb e 

t 3 73 

REF 

23 

lAST 

32 7 

46 , 2<.i6 3 

i 

52 y 3 

1 


TCF 

tNuOF J J b 





— 

SJ76 

REF 

i 



4u f 


2 S 5 / 

1 

89TEST 

TC 

CHKDSP 






L37bl 

KEF 


LAST 

262 

40,2065 

3 

6214 

s> 


CAF 

I HkE E 






'"37 7 

KEF 

i 



40 ,2 <66 

7 

12o3 



MASK 

DECauNCh 






3 78 

KEF 

62 

L AS I 

■326 

1 2 - 6 7 

1 

' '•■S r , 



CCS 

A 






^37S 

KEF 


L AST 

326 

^0 1 2i^ 7 cj 

Li 

2/74 

L- 


TC 

NUM 

IF 

Ot CBRNCH 

IS +, 

B OR 9 

UK 

C38f 

KEF 

13 

LAST 

32 7 

40,2071 

w- 

32/5 

1 


TC 

CHAnALHM 

IF 

UECbRNCH 

IS + 

, KE J EC I 

0 bR 

K ^ , 3 B 1 

NUM 

ASSEHSLES 

OCTAL 

3 SITS AT 

A 

Tiilt 


FUR JECIMAL IT 

CONVERTS INCjMING 







k ^bZ ' WQKC as"/ FRACTION, 'KtEP^ RESULTS TO UPo ' 

KC383 OCTAL H.tSULTS ARE LEFT IN XREG, YRtG, OR ZRtG« Hi PARI OF DEC IN XKcG, 
R038A YREG, ZKEG. TFt LOW PARTS IN XRlGLP, YRe'GLP, UK IkcoLPi 
Ri,38i) DEC&KNCH IS LEFT AT + FUR UCT, +1 FOR + DEC, +Z FOR - DEC. 

Rf386 IF DSPCCLnT WAS LEFT NU MURE DATA IS ACCEPTED* 


• 38 7 

kEF 

3d 

LAST 

317 

40,2072 

3 4 772 

1 -2 

CAF 

2EKiJ 

.388 

REF 

2 

LAST 

326 

40,2073 

54 117 

1 


Ch Ak 

0389 

REF 

2 

LAST 

327 

4tJf 2GT 4 

u 2.^57 

1 NUM 

TC 

LtiiXUb) P 

C394 

REF 

1 



4^^ I Z J 7 5 

w 2221 

1 

TC 

GET i NKEL 

0395 

REF 

2 

LAST 

24 

4' V f Z U 7 b 

ii*22u 

1 

C C S 

CLPASS 

0396 

REF 

39 

LAST 

327 

4c, 2 C 7 7 

3 4772 

1 

oAF 

ZERO 

C39 7 

REF 

3 

LAST 

327 

4 w 1 Z 1 c 

5:3 ' 22 c 

1 

TS 

CLPAiS 

f398 





4^ ,2101 

u 21 C2 


TC 

+ 1 

^.399 

kEF 


LAST 

327 

4u f Z 1 V , Z 

S L 1 1 J" 

b 

Ca 


4C f ■ 

REF 

1 



4-,2i‘ 3 

V 4423 


Tu 

CUD.:> TDn 

" 40 5 

KEF 

1 



4 ^ t Z i c 4 

u 31si 

1 

TC 

C S P I N 

t>4 ^ 6 

REF 

6 

LAST 

32 7 

f Z 1;^ ^ 

3 6214 


CAF 

1 HkE e 

1437 

REF 

2 

LAST 

327 

4U,zi». 6 

7 12.;3 


MAbK 

CECwRNCh 

l4‘' « 

rEF 

83 

LAST 

327 

4 ‘ t Z 1 L 7 

1 - b 

b 

CCo 

A 

^41.9 

kEF 

1 



4^,211' 

- 2121 

1 

TC 

6 E C T U D 1 b 

• 41 

REF 

I 



4 J f Zl 1 1 

5.. 137 

1 

i l^bEX 

i M R L 

' 411 

KEF 

2 

LAST 

2 4 

4 'U> 1 Z 1 Jl Z 

57'2.j4 

f 

XCii 

VtRBriEb 

412 

REF 

5 

LAST 

214 

4o , ilii 3 

54 v22 

0 

TS 

C7L 

-413 

KEF 

0 

last 

B27 

40,2114 

4 v vl22 

Q 

CS 

LYL 

C414 

KEF 

7 

L AST 

327 

4^,2115 

4 Cj22 

W 

CS 

C yl 

4l3 

REF 

3 

c A ST 

327 

4C ,211 6 

56 u22 

1 

XCH 

;.YL 

^ 416 

kEF 

4 

LAST 

327 

4 J, .1117 

6 u 1 1 7 

L* 

AD 

CHAR 

r417 

KEF 

1 



4 u f 4^ 1 Z ^ 

... 2136 

1 

TC 

tf>lL>k>4 T f S f 


IF CLPaSS is + OR 


+ , , tj Cl AL o + 1 » + 

4 

4 1 LiCTmL 


e IT + 


+ 2, ~ OE C , 


4 


^ 7Z. Uf^ut^-i?iiLlU^JULAaT_kJ!4Xj -by 


A i : 


L 

P I N U A L L 

GAME 

FUTTUNS 

ANU L 1 GHT S 




*.-4i b 

REF 

2 

LAST 

327 

4C|2121 

5^. 13 7 

1 

ui*-C lu^lN 

1 NJt < 

C419 

REF- 

3 

lAjT 

327 

4*^ f ^ ^ 

5T'2( 4 

1 


XGH 

<.42 

H c F 

61 

LAST 

326 

4 .1212 3 

54 154 

t 

-J 


TS 

*42 L 

REF 

4l 

L AST 

327 

4 ^ f 2 i1^4 

3 4772 

1 


C AF 

422 

KEF 

62 

last 

32b 

4 -v f J, ^ 3 

54 155 

1 


TS 

.42 3 

KEF 

2 

LAST 

2£4 

4^t2126 

3 4335 

''j 


L A F 

'424 

REF 

3 

LAST 

3u3 

40 » 2127 

G 7256 

1 


TL 

■423 

REF 

63 

LAST 

326 

4U 1 213^ 

56 155 



X C H 

426 

K fc F 

!> 

Last 

327 

40,2131 

6 Oil 7 



AU 

L427 

KEF 

64 

LAST 

328 

4o t i-3 2. 

5i4 155 

1 


TS 

- 42 8 

kef 

2 

LAST 

327 

40,2133 

G 2136 

1 


1 C 

: 42^ 

REF 

6 J 

LAST 

323 

4u , 2 134 

26 154 



AUS 

< 43 

REF 

1 



4G , 2135 

6 2 1 6 

1 


TO 

l431 

KEF 

3 

LAST 

32d 

40 , 213 6 

5v 137 

1 

cNONMTST 

INUEX 

i432 

KEF 

4 

LAST 

323 

4 :, 2137 

55'2J4 

1 


TS 

r43J 

REF 


LAST 

327 

4 - f 2^ i4 > 

4 1232 

1 


c s 

C434 

KEF 

4 

LAST 

328 

4 ,-!il4 1 

5. 13 7 

1 


iNOhX 

435 

REF 

1 



4 w' 1 Z 1 4 ^ 

o 2212 

1 


Al) 

■ 43o 





4 . f Z 143 

I..' 1,. o 0 6 

1 


tX TEN 

.43 7 

REF 

1 



4mi f Z144 

1 215^ 



3ZF 

V.4S 3 

REF 

5 

LAST 

323 

4u,2i45 

11*2^2 

1 

MUKNUM 

lCS 

C43 3 

R£F 

0 

last 

328 

4u,2i46 

55*2 J2 

1 


f s 

0^3 8 b 

REF 

24 

LAST 

327 

40 ,2147 

J 52 o 5 

■ ^ 


Tu 

L43v 

REF 

7 

LAST 

327 

hu f Z 1 ( 

3 6Zi4 

» 


C AF 

^ 44' ' 

REF 

3 

LAST 

327 

4^v t Z 1 ^ i 

7 12u3 

1 ' 


MASK 

<44 1 

REF 

64 

last 

327 

4 u, 2152 

1 < jC 

0 


CCS 

< 442 

REF 

2 

LAST 

323 

4 ;^ ,2153 

L 2 156 

1 


TC 

^443 

REF 

/ 

LAST 

323 

4 /,2l54 

4 12.2 

i 

ENUALL 

C 

1 444 

REF 

1 



4i ,2155 

u 4.146 



TC 

£4442 

REF 

39 

LAST 

317 

4 3 f Z o 

J 463 6 


CtCCEND 

i w 

£4443 

REF 

1 



43,2157 

60l6l 

1 


CAUH 

< 4444 

REF 

i 



4o ,216^ 

U 2154 

* 1 


1C 

: 44 b 

REF 

15 

LAST 

326 

4v , 2 16 1 

4 47 7u 

1 

CECEND 

C:> 
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2 S6 

HEF 

b7 

Last 

363 

4u 1 3 1^6 

56 v'jZ L 

CSPDC2NR 

XCH 

V 


^ j / 

REF 

3 

LAST 

366 

4 J * 3 i Z 7 

54 115 . 


TS 

r 


Z' 

REF 

2 

LAST 

368 

4 f J 1 3 X 

w 3 v-35 1 


TC 

u S IGN 


2" 59 

REF 

3tl 

LAST 

36b 

4-, 3131 

3 477w ■ 

+ 3 

CAF 

CNc 


6 

REF 

2 

LAST 

36b 

4 . f 3132 

C 3106 - 


TC 

USPOCWDl 


2i t L 

CSP2DEC 

CUNVERIS CIMPAC) AND 

C(HPAC+1) 

INTO A SIGN AND 

i CHAR DECIMAL 


Z. ' t>z 

START ING 

IN THE LOC 

SPECIFIED 

IN DSPCUUNT;, 




2 6i 

KEF 

Sb 

LAST 

369 

t:>l33 

5to V J2 J 

CSP20tC 

XCH 



2{ 6A 

REF 

4 

LAST 

369 

4Jf 3134 

54 11 J 


TS 

^DRcT 


2i 65 

REF 

74 

LASl 

36b 

4u t 313 5 

3 4772 1 


CAF 

ZERO 


2t 66 

KEF 

3 

LAST 

35 

f 313 6 

54 124 1 


TS 

CODE 


2i ti7 

REF 

15 

LAST 

3 D-: 

40 i 3x37 

^ 6214 u 


CAF 

i t; 


2< , 6b 

HEF 

3 

L, A S T 

33 J 

4v’i 3i4i 

U 3247 3 


TC 

IIDSPIN -R2 

OFF 

2l 65 

REF 

5 

LAST 

368 

4Q f 3141 

3 4756 1 


CAF 

rUOR 


21 f* 

REF 

4 

LAST 

369 

40 1 3142 

j 3247 L 


1C 

+R2 

OFF 

21 71 

REF 

3 

LAST 

369 

4u t ^143 

w 3355 1 


TC 

DSP S I 3iv 


2t 7 2 

REF 

4 

LAST 

349 

4C 1 3144 

3 4322 


CAF 

.-;2D1 


2L73 

REF 

3 

LAST 

369 

41*3145 

U 3 1 * o ' 
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R2<.76 CiA) SHCILD 6E IN FORM N X 2£XP-i4« THIS IS SCALED TO FOR.1 N/i i BEFORE 
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21 7 b 





4 .'f 3l4o 

0 CUSb 

1 

LSPDECYN EXTEND 




21 79 

REF 

1 



4j,3147 

7 2244 

, 

MP YiSlDS PC ON 

MULT BY 1 



2( 8 ' 

REF 

181 

LAST 

3 6b 

4i *315 

22 154 

1 

LXCH RPAC 

IaKE results 

FROM L^ ( HULT BY 

2EXJi4) 

2Lbi 

REF 

75 

LAST 

369 

4:, 3151 

3 4772 

i 

CAF ZERO 




2082 

REF 

182 

LAST 

369 

4 / f 3i3Z 

54 155 

1 

TS FPAC '*‘1 




2183 

REF 

89 

LAST 

369 

4 J, 315 3 

56 ;'l2 

U 

XCH w 




2t B4 

REF 


LAST 

369 

4 J *3154 

54 115 

Li 

TS k^DHET 




2» d5 

HEF 

3 
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35' J 

4., 315 5 

1 3131 

1 

TC D3PDC2NK +3 

NO SIGN, NC 

ROUND, 2 CHAR 


2C67 

REF 

3 

LAST 

S'^b 

4jf 3156 

V 3146 

1 

GOVNUPDf IC CSPDlCVN 

This IS NOT 

FOR GENERAL USE. 

REALLY PARi 

20 88 

REF 

23 

LAST 

363 

4u* 315 7 

. 46 > 5 

0 

TC POST JUMP 

LF UPDATVB. 



2C 89 

REF 

2 

LAST 

339 

4 J f 3 1 6 
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1 
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2< 915 

REF 
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:> 
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TO 363: 

1 L 745 * 

CUUNI» It/ PIN 
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cspoc rwD 

displays 
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ENTRY AS 

A 1 

5 CHAR OCT starting IN THE DSP 




R 2' 9 3 

CHAR 
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IN 

CS PCuU i>iT m 

IT STOPS 
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12 

LAST 
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0 
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2i S 
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9. 
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3b 9 

41 f b332 

56 JG2 

0 

XCH 



Z' 

REF 

D 
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3o9 

41, 3353 

54 115 

t' 

Ts 
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2^ 9 7 

REF 

24 

LAST 

36 4 

41, 3354 

3 47 53 

1 

6 aF 

u I T 1 4 


2' 9*:) 

REF 

33 
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36d 

41 ,3355 

27*2^2 

1 

AOs 

LSPCOUNI 



REF 

6 

LAST 

36^^ 

4l, 3d5 6 

3 4766 

1 

CAE 

J OUR 


21^ 

kef 

3 

LAST 

368 

41,3357 

54 137 

u 

WDAGAIN TS 

w OCN T 


21 L 

REF 

13 

LAST 

3 7 

4 1 1 336"-. 

4 '. 022 

0 

C.:^ 

CYL 


21v2 

REF 

14 

LAST 

J7 

41,0361 

4 j<i2Z 

c 

CS 

CYL 


2ii:.3 

REF 

15 

LAST 

37.J 

41, J3o2 

4 - .22 

‘I 

oS 

CYL 


21 .4 

REF 

114 

LAST 

364 

41,3363 

4 vCut; 


CS 

A 


21 f> 

KEF 

1 



41 , 3364 

7 4774 

u 

MASK 
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21-6 

KEF 

3 

LAST 

3bd 

41,3365 

.. 4423 

\ 

• * 

TC 

CQDSTUR 


2112 

REF 

113 

LAST 

37 ' 

41 , 3366 

iu U'JV 

0 

^ 

A 


211-1 

REF 

39 

L A^T 

37- 

4i f 336 7 

5 5' 292 

1 

TS 

DSPCUUNT 


2114 

REF 

24 

L A Sf 

369 

41,3370 

i) 4655 

v*' 

TC 

PUS I JUM P 


2113 

REF 

1 



41,3371 

61255 

1 

CADR 
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2116 

REF 

4 

LAST 

370 

41,3372 

Ic 137 

Li 

GCrSACK CCS 

KDCNT 


2117 

REF 

1 



41,3373 

U 3j57 


TC 
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2113 

KEF 

3 
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J63 

41,3374 

u 4261 
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- VUi St T 
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REF 

7 

LAST 

37 . 

41,3375 

0 t 115 

_L 

rc 

nl C K c T 


2121 

REF 

7 

Last 
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‘t774 
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5 
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R 2136 
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K2i37 
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INTu biril OF CODE 
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CSPTA6 EMRY 
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- 

2139 
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6 
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BANK 
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6 
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REF 

91 

LAST 

37 c 
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0 
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r 
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2141 
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54 114 

1 

TS 
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2142 

REF 

4 

L A bT 

357 

4G , 3163 

3 4342 

0 

CAP 

L0H5 

2143 

REF 

4 

LAST 

363 

4C I 3164 

7 -143 

0 

Mask 

COUNT 

2144 

REF 

t> 

LAST 

356 

4‘^ ,3165 

54 .21 

\ \ 

w ' 

Ts 

SR 

2145 

REF 

7 

LAST 

370 

4C , 3166 

5 6 j21 

1 

XCH 

SK 

2146 

REF 

1 



40,3167 

54 141 

1 

Ts 

CSKtL 

2147 

REF 


LAST 
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4C f 3 17 1- 

3 477l 

u' 

CAF 

ei ri 

2146 

REF 

5 

LAST 
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40,317 1 
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t. 

MA jK 

(JUNT 

214° 

REF 

116 

LAST 

37 J 

4 cl f 3 i / Z 

iC 

-- 

CuS 

A 

215 . 





4 f 31 7 3 

J 3175 

1 

Ic 

+2 

2151 

REF 

1 



4 j 3174 

0 3211 

i: 

TC 

CaPINl -1 

2152 

REF 

a 

LAST 
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4 ,3175 

56 124 

L' 

XCH 

LUTE 

21523 





4-., 3176 

6 v' J V w 

1 

DOUBLE 


21526 





4 J #3177 

6 C 3 L 

1 
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2153 





46 # 32v 

6 

1 
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21533 
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1 
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U APS AS-.EMbLL KLViSlQN v72 CF AuL PRUl>KAM ARTEMi^ ijY NASA 4.^1114- -11. 
L PINBALL GAME BUTTuNS ANl> LlGHfS 


^11536 
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1 


DOUBLt 



K E F 

7 

LAST 

3 7 V 

4C, 32i>'3 

54 124 

1 


TS 

CODE 

215:> 

REF 

25 

last 

37.- 

4C, 321 4 

3 4753 

1 


CAP 

'JlTi4 

il56 

KEF 

O 

LAST 

3 f ' 

f 3Zv. t> 

7 ) i *t3 

1/ 
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COUNT 

Zi57 

REF 

117 

lasi 


4uf 6 

i ' r JC 

1 


cCs 

A 

^158 

REF 

l'^ 

LAST 

361 

4 J t 3^4. ^ 

3 4767 

T’ 


c af 

T rtO 

-.^159 

REF 

39 

L Ai>T 

3o9 

4 , j21' 

6 4/7 V 

0 


AO 

ONE 

z 16^ 

REF 

7 

LAST 

371 

V ,3211 

34 143 


-1 

TS 

CCDiJT 

A2I61 











A2162 











2163 





4-?, 32 12 

0 C ij04 

b 

CSPINl 

INHINT 


2164 

K t F 

2 

LAS 1 

J7 - 

4 ^ f 3Z i 3 

5v 141 

j 


INDEX 

USKfc L 

2165 

K E F 

26 

LAST 

333 

4U,3214 

11* 226 

i 


CCS 

L S P i Ad 

2166 





40,3215 

w 3217 

ij 


TC 

+2 

2167 





4 j ,321 o 

14 

1 

ERCUN 

ucr 

I 4 

2166 

REF 

4'^ 

LAST 

371 

^T,32TT 

6 477 - 

U 


AJ 

Cj^jt 

216° 

REF 

1 



4 32^ 

54 142 

1 


TS 

gshag 

217' 

REF 

3 

LAST 

371 

4 .. f 32 4^ i 

5-/ 143 

1 


ItNuEX 

couN r 

2171 

RtF 

1 



4V ,322 2 

7 3243 

1 1 


MASK 

CSMoK 

2172 





40,3223 

2 ' y yJ 6 

1 


c X T h Nu 


2173 

KEF 

8 

LAST 

371 

40,3224 

60 124 

u 


SU 

Code 

2l74 





40,3225 

0 00'^ o 

1 


EXTEND 


2175 

KEF 

1 



4u , 322 6 

1 3241 

1 


d2F 

CSLV 

2176 

REF 

9 

LAST 

371 

40 , 322 7 

5u 143 

1 

CFRNT 

INDEX 

CCUNi 

2177 

REF 

2 

LAST 

3 71 

4C, 3236 

4 3293 

J 


CS 

USMiK 

2178 

REF 

2 

LAST 

371 

4u t 323 1 

7 Cl *+2 

1 


MASK 

C jM AG 

2179 

REF 

9 

LAST 

37 1 

4U , 3232 

6 *124 

s* 


AU 

CODE 

218 

f( tF 

118 

LAST 

371 

4t.,3233 

4 > V > 



CS 

A 

2181 

REF 

3 

LAST 

371 

4 . ,3234 

5C 141 

1 


INDEX 

D Sft c L 

2182 

REF 

27 

LAST 

371 

4 ^ 1 32 J 5 

57* «:.26 

* 4 . 

J 


XCH 

LSPT Ab 

2183 





40 , 323 6 

kj 

1 


EXTEND 


2164 

REF 

2 

LAST 

371 

40,3237 

6 3241 

J 


32 MF 

ljLV 

2185 

REF 

7 

LAST 

333 

40, 324' 

25*221 

1 


1 NCR 

KOd 1 

2TB5“ 





40 ,324 1 

' ' ■*!— 'JC 

3 ^ ^ J 3 

1 

CSL V 

rElTIIRi 


2157 

REF 

2 

LAST 

37'^ 

4U , 3242 

. <114 

1 


TC 

LSEXlf 
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4C , ji.43 

ij3 7 

1 / 

L 6 /'I S 

OCT 

37 

2189 





4u , 32*t4 

L' 1 T 4 4# 



OCT 

174 y 

219t 





4u,3245 

023 36 

T 
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2Ju. 

2191 





4 , 3246 

0374! ’ 

i 


ocr 

3 74w 


R2192 
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FOR ilDSPlN, 
BITll OF CODE 

PUT REL 
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uF pSPTAd 
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i 1 d i 1 i X 

2194 

REF 

4 

LAST 

371 

49, j247 

54 141 

1 

ilDSPlN TS 

L'SkEL 

2195 

REF 


last 

371 

4 J t 32^3 

3 4 767 

V., 

CAF 

1 w u 

2196 

REF 


LAST 

371 

4'.’ , 325 1 

54 14n 

9 

TS 

CGUN f 

2197 

REF 

92 

LAST 

3?_ 

4 yT f 

5 6 ^ ^ 

V 

XCH 

u 

2196 

REF 

3 

LAST 

371 

4 a, f 3 ^ 5 3 

54 114 

1 

7 S 

L id. < IT 
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51114 = f LEAVE SIGN ALONE 

+ INTO CCUNT FOR KIuHT 
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*5 INTO COUNT FOR LEFT(ro BLANK SIGN! 


IF + 

CHAN 11, BITS 3,7 CANNOT GET HERE 
IF- 
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U SPI A b ENTRY WAS 4 
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u 
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21 "J' 

KhF 

2 

LAST 

37_ 

, d234 

j 3212 

L' 


TC 

uSPlNl 


ii-ci 

RtF 

3 

LAST 

36a 

4 , 3233 

u j 1 O i 

1 

CSPLCTIN 

TC 

LSPi N 

sc DSPUCIWC duesnt use swcall 

22 2 

hef 


LAST 

37u 

I 3Z3 6 

w 4653 

u 


TC 

POST JUMP 


22 3 

KEF 

1 



4 ,323/ 

633 72 

1 

ENDSPUC r 

UAUR 

ij C 1 d A C K 
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R 22. 7 DC TC fcNTKcT. 


22 V 7 5 

REF 

6 

last 

37 - 

4C , 326 t'r 

0 

4261 

W 

PKtDSPAL 

TC 

-VOiSET 


2208 

REF 

i 



4 ,3261 

4 

3431 


CSPALARM 

6 S 

NVSritNUL 


22f'<5 

REF 

a 

LAST 

364 

4.;, 3262 

6 

; 136 



AD 

EWTE <IT 


22 Iw 





u f 3 ^ 6 3 

J 

u0'./6 

1 


cXI END 



2211 

REF 

16 

LAST 

327 

4 o f o 4 

1 

32 7 7 

1 


acF 

CHARALRF +2 


22111 

REF 

1 



4\; , 3265 

% 

2721 



lS 

MUNADR 

U THIS IS A MONITGR, KILL IT 

22112 

REF 

9 

LAST 

372 

40 ,326C) 

b 

ijl 36 

' / 


AO 

ENl EXU 


22113 





4y , 326 7 

0 

OOL6 

1 


t X T E N J 



22 X 1 4 





4 ), 32 7 y 

1 

32 72 

1 


ti2r 

+ 2 


22115 

REF 

17 

LAST 

372 

43,3271 

0 

3275 

1 


TC 

lHAkALRM 


22116 

REF 

1 



40,3272 

J 

4235 

i 


TC 

KI LMONUN 


22117 

REF 


LAST 

257 

4'./» 3273 

U 

43u2 

1 


Tl 

F ALTON 


22118 

REF 

3 

LAST 

359 

4D, 3274 

0 

4151 

i 

J 


TC 

FAST EYB 

FUf 'iONlTOR VERB BACK IN VERBREG 

2212 

REF 

6 

L A ST 

3 72 

4j,3275 

U 

436 2 

L 

CHARALRM 

TC 

F AL T uN 

NOT NVSUB initiated^ TURN ON OPR ERROR 

2213 

REF 

35 

LAST 
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4C ,3276 

J 
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L' 


TC 

ENDUFJOD 


2214 

REF 

1 



4 ,3277 


5726 
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+ 2 

TC 

POjDOiJ 


2217 





4 V f V 
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j 
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R222 WAS EXECUrtDt AND RECYCLtS TO LXECUTc T HE U RIqINAL VERB /NUJN CUii bl NATION 
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REF 

0 
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22245 

REF 

3 
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366 TO 
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18 
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REF 

7 
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1 
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TC 
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J 


cs 
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REF 

11 
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1 


TS 
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REF 

53 
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1 


TC 
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2231 

REF 

3 
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u 
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DISPLAYS IT li’. VEP^fa LIGHTS, 
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2o 
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^ 4655 

D 
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TC 
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COUNT* 

$$/P !N 



224' 

REF 

1 



41, j37 6 

L 3417 

J 
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41,337 7 

3 47 o4 

J 

+ 1 CaF 

blfo 

t.cr2. = Nd2. 


2244 

REF 

4 

LAST 

3 7 

41 ,34^- * 

6 12-2 

. 

AO 

LoPCOUNi 

uSPCUUNT MUST = -HD2. 


2243 





41 , 341 1 

W o 

1 

E X T £ NU 


UEMANO THAT 2' NUM CHA R WERL PUNCHED IN* 

22 46 





4 i » 34u 2 

1 34.4 


BlF 

+ 2 



T247 ' ■ 

"TTEF 

r4 

LAS T 

363 

4l , 34u3 

T. 4173 

>« - 

' 1 

Tc 

ALj'IC fCL t 

OoPC0Wr~NljT^ -No 2 ALltRM AND 

"P.ErYTLEo 

224H 

REF 

1 Cl 

LAST 

36° 

4it ^4v4 

3 47?2 

1 

CAP 

ZERO 

-SPCOUNT = -ND2. 


224'^ 

REF 

12 

LAST 


41 , b4v 5 

b / • 2 c, 3 

1 

XCH 

NOuNKfcb 



2<l3' 

REF 

183 

LAST 

369 

41,34l6 

54 154 

v’ 

1 S 

MPAC 



2251 

REF 

4 

LAST 

354 

41, 34i. 7 

3 4352 

1 

L Ah 

NUi 



223^ 

REF 

41 

LAST 

373 

4 1 1 34 It 

5 5* 2 32 

1 

To 

CSPCuOwl 



2253 

REF 

54 

LAST 

372 

41,3411 

0 4636 


Tc 

BANKCALL 



2254 

REF 

4 

LAST 

333 

41, 3412 

6( 413 

1 

CADK 

2aLANK 



22 55 

REF 

7 

LAST 

372 

41,3413 

’ 42 6 1 

L 

TC 

- Yoi St I 



225 7 

REF 

184 

L AST 

373 

41, 3414 

3 0154 

1 

C A 

MPAC 



2238 

REF 

27 

LAST 

372 

41 , 341 5 

j 4655 

'■V 

TC 

PuSTJOMP 



2259 

REF 

1 



4 1 f -^4i 6 

1 L 0 w f 

1 

CAOR 

FOJKuUT l 

Go THRU STANDAKL) LGCj 


22 6.V 

REF 

2 

LAST 

276 

u 4 f 7 



M0DK0U13 = 

VJ7 

■ 

- - — 

2261 

REF 

93 

LAST 

371 

41,3417 

4 t:JL2 

1 

REJMM CS 

u 



2262 

REF 

12 

LAST 

372 

41 , 342 . 

5 5*216 

1 

To 

KEwftc 1 



2263 

REF 

5 

LAST 

3 73 

41,3421 

3 4352 

1 

CAF 

kUi 



2264 

ref 

42 

LAST 

373 

41,3422 

55*2J2 

1 

IS 

LSPCOO;. t 



2265 

REF 

77 

LAST 

3/3 

41,3423 

3 477l 

1 

CAF 

ZERO 



226d 

REF 

13 

last 

373 

‘♦1 , 3424 

55 • 2w5 

i ■ 

TS 

ncunkeg 



2267 

REF 

55 

LAST 

373 

41,3425 

L 4o36 

J 

1 ' 

f C 

B Ai'^XCAL L 



2268 

r<EF 

5 

LAST 

373 

4 1 f 34^ 

LL47 3 

1 

CAUK 

ZflLANK 



2269 

REF 


LAST 

339 

41,3427 

w' 43 aL 

V 

TC 

FLASHON 



<i^T ’ ' 

REF 

41 

LAST 

371 

41,3430 

3 477< 

1 

V 

CAP 

LNL 



2271 

REF 

16 

LAST 

362 

41, 543 1 

55'2.3 

-- 

To 

DtCBRkC h 

^ 't_ 1 P Lj K DEC 


2272 

REF 

1 ■ 

LAST 

372 

41,3432 

- ,136 

mt 

1 C 

ENi LXl 1 



r 22.73 

vekQtXEC ENTERS RECUfciT TO £X£C 

FOR 

ANY ADDRESS WITH ANY PKI.,R1( . 



rv2274 

I T 

DUfc j 

ENDOPJOB AFTER ENTERING RL^jUEST 

* JioPLAY SYOT 1 

o riCL EAo t J ■ 



R2275 

IT 

ASSUMES NOUN 26 HAS BEEN 

PRELOADEO WITH 




R2276 

CCMPG^E 

NT 1 

PRIORITY! BITS 1: 

i'— 14) B 1 Tl = 

FUK NUVACi bITi-l P jK Fi iCv C 



k2277 

COMPONENT 2 

JOB ACRES 112 BIT ) 






R227e 

CCHPuNh 

N 1 3 

B8CGN 









Ai>Sl;f,bU. kLV 1 Qv -L . BY mSA . 2L 2X11-*-- xX 


_. _ kt-AE S. 


L PINBALL CrtMt EUTTUiviS ANU LIGHTS 


2^ 

KEF 

23 

EAST 

3 7‘j 

41,3433 

j 47 7 V w 

VaRUEXEC 

L A h 

6111 

2ZSr 

REF 

2 

LAST 

263 

41 ,3434 

7 1 . 1 6 C' 


MA5K 

N2o/pfa 

PPdl 

KFF 

119 

LAST 

371 

41 , 3435 

1 vi L 


CCS 

A 


KEF 

1 



41 , 3436 

3466 t 


TC 

SEI VAC 

^*1 - J 

KEF 

1 



41,343? 

3 3277 Li 


CAP 

TC NUVAC 

b 4 

REF 

185 

LAST 

373 

41, 344 >. 

54 154 L' 

R E 4 1 A 1 

TS 

MPAo 

?.2t 5 

fc^ 

7 

LAST 

275 

41, 3441 

3 7 b 6 u 0 


CA 

PKiUiT 


REF 

J 

LAST 

374 

41, 3442 

7 1 u 1 o 0 


MASK 

N2o/ PKI 

22ii7 

REF 

186 

LAST 

374 

41, 3443 

54 11*. i 

-1 

TS 

MPAC +4 

228& 

REF 

7 

LAST 

356 

Alt 3 AAA 

L, 4432 0 

REQUcSIC 

TC 

RELOSP 

22861 

KEF 

4 

LAST 

374 

41, 3445 

3 iUi6 1 


CA 

N26/PK1 

22662 





Ai f 3AA6 

0 00 / 0 i 


EXTEND 


22633 

REF 

17 

LAST 

343 

41,3447 

i 235 1 


32F 

GUU.>PAt^M 

22 6 Q 

REF 


LAST 

364 

41,345 j 

3 4170 : 


CA 

LNu i NS T 

22 9 C 

REF 

167 

LAST 

374 

41, j45 1 

54 157 u 


TS 

MPAC +3 

229 1 





41, 3452 

L iJw6 1 


EXTEND 


2292 

R EF 

1 



41, 3453 

J 132 1 


UCA 

N26/ LC aL 

2293 

REF 

188 

LAST 

3 74 

41 , 3454 

52 156 1 


DXCH 

KPAC +i 

2294 

REF 

189 

LAST 

374 

41,3455 

3 Oio'j l.» 


CA 

^^PAC +4 

2295 





41, 3456 

0 0 0 Vi 4 


INHINT 


22 96 

REF 

i9C 

LAST 

374 

41, 3457 

ij L'i54 i 


TC 

MPAC 

2297 

REF 

i 



A i f J ^ b 

5 **343 1 

SET VAC 

b AF 

TCFINjVC 

229 8 

REF 

i 



41 , 346 1 

w 544 i 


TC 

KEgu <1 

R2299 

VERQMAl T 

ENTERS REQUEST TU WAITLIST FUR 

ANY ADDRESS WITH ANY DcLaYo 

R23D',. 

IT i 

DOES 

ENU0FJG8 AFTER ENTERlNa REQUEST, 

•DISPLAY 

SYST IS 

RtLcAbLUo 

R 230 1 

IT , 

AS SUM 

tS NO 

UN 26 

HAS BEEN PRELOAOED WITH 



R 23E 2 

C CM PON ENT 1 

DELAY 

I LOW BITS J 





R23< 3 

LCMPONENl 2 

TASK , 

ADRES (12 BIT* 




K 23 4 

CCMPGNlM 3 

8 BOON 

- 

- 



- 

23 u 5 

REF 

1 



41 1 34u2 

3 3273 1 

VBiiQV»AI T 

CAF 

(Cwm it 

23’ 6 

REF 

191 

LmST 

374 

41 , ;>463 

54 154 i 


TS 

MPAC 

23 7 

REF 

J 

LAST 

374 

41,3464 

3 1.16 1 


CA 

N26/PKi 

23’- 6 

REF 

1 



41, 3465 

6 3443 1 

ENDR^WT 

T C 

HEoUtSIC — i 

R23C9 

R E^bES TC 

WILL 

PUT 

TASK ADKES 

Into MPAC+l, BbCON 

INTU MPAC+2, 

R23iC 

TC 

ENDUP JOB INTO MPAL+3* IT WILL TAKE TIME DELAY 

JUT CF 

KPAC+^ AND 

R2311 

LEAVE IT 

IN A 

, INHINT and TC 

MPAC« 




2312 

REF 

7 

LAST 

37,. 

A v' f 4^ L L ' ^ < 



StTLGC 

P i NB AL l 1 

23121 





4 ^ #33^1 



BANK 


231 2 S 

REF 

7 

LAST 

376 

Tu 372: 

80 


CUUNT* 

Si/P IN 

2313 

REF 

42 

LAST 

373 

^ jf 33l 1 

4 4 7 7 V 1 

vaPKuc 

C 3 

ONc 

2314 

REF 

* 

LAST 

35o 

4 j f 3 3 w 2. 

55'2i7 S 

+ 1 

IS 

L JAuoTAT 

2315 

REF 

2 

LAST 

372 

4 3 , 3 3v 3 

: 4235 1 


TC 

KILMGNJN 

2316 

REF 

8 

last 

3 74 

4U , 33l 4 

0 4432 


TC 

1 ' EL jSP 

2317 

REF 

3 

LAST 

334 

4y » 33o 5 

0 44a 7 1 


TC 

F LA:>riOf F 


j-,» ^■.— , I. f ,i-.<.i a, 


PAG E , — iJ 


76 f1 ^ t l 1:1 IJn f t>ti ii .. 

USER'S PAGt NQ« b7 _ J; 54 


ii :iTi = 1, FIND VAC 
1. oITi = u, NUVAC 

TC NUVAC OK TC FlNDVAC INTO MPAC 


PRIG INTO MPAC +4 AS A TEMP 


UP ERROR ARC EOJ IF >1 JF N26 = 

I G EN OOF JOB INTO MPAC+ J 

jOS ACRES INTO MPAC +i 
BCCC4 INTU MPAC+a 
PRIG IN A 


VC »^AITHST into MPAC 
TIME DELAY 


TURi^ UN KILL MON U UR BI I 


&;>;>. te-aJLJ£. Jl£:¥ii>iati_ ^jfJLJiF^JdiL^LUijdAd. iiy_NASA.-Z’j^ili^- ii 


1 i ;4 hrzBr. 26,19 71 n i ut;bNi-s . PA( 


u 


iX5. 


PINBACL GAMh BUTTCKS AND LlGHrS 


USEK'^ HAGt t\L(a 58 


r. 



REF 

2 

LAST 

i'JO 

i J JU 6_ 

V JJ412 

1C 

KcCALTsT 

2M^ 

REF 

21 

LAST 

371 

^ 9 J JU 7 

4 47a7 1 V3TtKM 

cs 

Two 

23ZV 

REF 

2 

LAST 

33 7 

^'Jf 33i( 

w 3J jZ J 

TC 

V3PR0C +i 


K232( 1 

FRCCKEY PEKFURMS THE 

SAME FUNCTION AS 

VSPROCo IT MUST BE CALLtD UNULR 

R232’: Z 

EXECUTIVE CONTRULi WITH CHRPRlU, 


232 >fT 

KEF 

Z^ LAST 

366 

4Sf Jill 

4 12*^4 1 

PKOCKEY cs VcRBilEb 

232: 36 

KEF 

J LAST 

355 

4-0 t 2 

o 4354 1 

AU 'V0ciP2LU 

232P4 




4 1 1 3313 

c i.. 026 1 

EX T END 

232i^<i3 

REF 

120 LAS! 

374 

4 J 1 3314 

26 00b 0 

U i M A 

232b 46 




4 »3315 

1. 'w U v> 6 1 

iiXTENU 

232 ' 5 

REF 

18 LAST 

372 

4*J f j 3 l6 

1 3275 0 

BZF CHAR AC KM 

232055 

REF 

i ii L AST 

3"?3 

4u f ^3 1 7 

“T‘4T"/2 1 

PROCKEYi CAP 2Ekd ” 

232 b' 6 

REF 

13 LAST 

373 

1 3 

55*216 1 

T S K t jj K E T 

232 . 7 

REF 

8 LAST 

373 

4 :,3321 

kj 4261 0 

rc -vuiStT 

232C9 

REF 

3 LAST 

375 

4 j f 33^ ^ 

J 33 - 1 1/ 

TC V 6 PR 30 

a 2321 

VdRESE^ iftAKcS 

ENDIJLE AT SAME 

LINE AS 

FINAL ENTER OF LUAC (L+SU 

R 2322 

(MAIN USE IS 

INTENDEl as response TU internally iNiTlAlcL FLASHING 

R 2323 

01 

SPLAYS IN 

enoiole 

, SHuULU 

iJOT Bt USED WITH LOAU VEKB3fPLLA3t PtRFLKHt 

i<2324 

CR 

PLEASt MARK VERBS BECAUSE 

THEY ALKEACY USE L+J Ih ANCTriEK CONTEXT^) 

2325 

RiF 

70 LAST 

375 

4Ui 3323__ 

^ AI72_ja 

VSHEbEO CS ^ 2cRU.. 

2326 

REF 

4 LAST 

37!> 

4 .f 3324 

u 3302 0 

rc VBPRJC +1 

K2327 

FLASH IS I URN ED OFF 

BY PROCEED WITHOUT 

OATAt TERMlNATEf REsEUoENCEi 

R2328 

E^D 

OF LCAO. 






;>tt IF THERl ib ANY RECALL FROM END IDLE 


I cr. VERB SETS LOADSTAT NEb 


LLiM T ALL'OiT PROCEED OUR I NG LOAD. 


Scl REURLTFOR ENtfR PASS 


MAKE IT L QQK LIKE DATA IN.. 


ASS£WULl. IvLk 151 OjM - CJ:_jlbL J^i4UL»i4AM.- .AiiIfc.illS_ii^ ilASA 


1L :A^^ PF_B, 2fc. ISli LltiGl- 


J i 


>' 



j-Abb 



L HINUALL bAML EuilbNS AND LlbHlS Ui)LR*S FAGt Nb. 5S l j'+ 

KtY KLLLAjE routine 

I' iJAi - Ihli kUaIitlh._ALkAYS IJURi^j„,U£JEJ^jdt JUPAC I AXbWr A^ iik^lb_XL£Ai^._ JuPAUCj^ 

R2331 1 EE HbHEjT PRILKllY FUNCTION uF Trit KEY RELEASE BUTTON IS TH^ 

R2ji2 UNSUSFENLlNb OF A SUSPENDEb MONITOR wrilCH WAS EXTERNALLY INITIAIED. 

|<233J THIS FUNCriUN IS ACCOMPLISHED BY CLEARING DSPLQCK AND TURNING OFF 

KLsiA THE KEY RELEASE LIGHT IF BOTH USPLIST AND CAuRSIQR ARE cMPlY^ 


H23JS IF NO SUCH MONITOR EXISTS, THEN RELDSP IS EXtCUTED TO CLEAR DSPLJCK 
R2336 AND IHE EXTERNAL MUNITUR BIT (FREEING THE DISPLAY SYsrEM FuR INTcKNaL 

R23J7 USEI, TURN OFF THE KEY RELEASE LIGHT, AND riAKs UP ANY JOB IN uSPLiST, 


.<233 6 IN ADDITION IF THERE IS A JOB IN END IDLE, THEN CONTROL IS TKAnsFERRED 

k2339 to PINQRNCH I IN DISPLAY INTERFACE ROUTINE) TO RE-EXECUTE THE SLR IE a Vi' 

K233S1 NVSU8 calls’ ETC, THAT PRECEDED THE ENDIDLE CALL STILL AWAlTlNb RtSPb.\St 
K234< THIS FEATURE IS INTENDED FUR USE WHEN THE UPOKATQR HAc. BEEN KEwUesTEl TO 

R2341 RESPOND TO SOME iNTtRNAL ACT ION THAT USED ENDIDLE, BUT HE HAS WRITIEN 

i<2342 OVER THE INFORMATION ON THE DISPLAY PANEL BY SOME DISPLAYS OF Hl5 OWN 
K2343 INITIATION WHICH DO NOT SERVE AS RESPONSfcSo HITTING KEY RLSE WILL 

R2344 RE-ESTABLISH THE DISPLAYS TU THE S T ATE TH EY Wt.RE IN BEFOPh HE u DSC UkED 

R2345 THEM, SO THAT HE CAN SEE THE WAITING REQUEST, THIS WORKS ONLY FUR 

R2346 INTERNAL PROGRAMS THAT USED ENDiDLc THROUGH MARGARETS DISPLAY 
k2347 SLBRGUTINESo 


2348 

REF 

is 

CAST 

351 

4i^,3325 

4 476o 

t,' 

VBRELCsP CS 

d 1 T 3 


2349 





4ii f 3326 

6 C o V 6 

1 

tXTEiML) 



23 b' 

REF 

9 

LAST 

2 2 

4U , 3327 

J 3 11 

1 

WAND 

u 3 m 1* HUU 1 

TURN OFF UPmCT LIT' 

2351 

REF 

2 

LAST 

326 

4D,333L 

10 115 

.i 

CCS 

21/ id2K tb 

OLD OSPLOCK 

2352 

REF 

26 

LAST 

371 

4 t 333 1 

3 4753 

1 

CAP 

D i r i 4 


2353 

REF 

!> 

LAST 

366 

4'.), 3332 

7 1224 

w 

M A jK 

P, JNsAVEi 

EXTERNAL MLM 1 OR BIT tERb) 

2354 

REF 

121 

last 

375 

4 J, 3333 

10 W !U 

u 

C C3 

1 ^ 


2355 

REF 

1 



40 , 33 j4 

i 3343 

0 

TC 

CN^UsPEN 

OLD OSPLOCK AND £M6 BOTH 1, UNSUSPEND, 

2356 

REF 

o 

LAST 

37^ 

4L , 3335 

J 4432 

J 

TSTLTS4 TC 

ft EL D3P 

NOT UNSUSPENDING EXTERNAL MONITOR, 

2357 

REF 

5 

LAST 

365 

40 ,3336 

11'245 

1 

CCS 

CADRSI;-.R 

RELEASE DISPLAY SYSTEM AND 

2358 





4 jf 3337 

b 3341 

1 

TC 

+ 2 

D ! KE-ESTABLISH IF CADRSTOP IS FULL 

23 5 S 

REF 

36 

LAST 

372 

4x f 3340 

0 52 J 5 

u 

TC 

ENDUFju. 


236'- 

REF 

2d 

LAST 

37j 

4 f ->3^1 

0 4655 

0 

TC 

PCsTJUMP 


2361 

REF 

4 

LAST 

274 

4s 4 f 3342 

21275 

1 

CADR 

PlNBRNCh 


2362 

REF 

8 

LAST 

375 

<*0 ,3343 

3 4772 

1 

CNSUSPEN CAP 

ZcKU 

EXTERNAL MUNITUR IS SUSPENDED, 

2363 

REF 

V> 

LAST 

363 

4'-,, 3344 

55' 215 

1 

TS 

b:>PL jCpv 

JUST UNSUSPEND IT BY CLEARING DSPLUCK 

2364 

REF 

6 

LAST 

376 

4;,-»345 

11*245 

1 

CCS 

CADkST jK 

rUHN KEY RELEASE LIGHT OFF IF BOTH 

2365 

REF 

37 

LAST 

376 

4 J, 3346 

b 52 b 5 

Kf 

TC 

E NuU Fij J b 

CADkSTOR and OSPLISI ARE EMPTY, 

2366 

REF 

2^ 

LAST 

36^ 

43f 334 7 

b 445 3 

1 

TC 

kElU ^Pjl 


23661 

REF 

33 

last 

37o 

4v ,3350 

U 52 -5 


TC 

ENDJFJUE 



\iAi ' ; 


Ai) EKtiL L KbViSlUtL,JliL-UE,AU£;. PiiQGJlAil ART£MI5L,ini: KAiA ^2AUJk=^1 AXiA 

L I** I N r A L L CAR t tiU I T 0N5 ANc) LI GHT 


H t':3& y 

R23 7 1 
K ^3^ .2 


NVSUB IS USLD FOK SUB ROUTINE CALLS FkQM HITHIN CUr^PUTtR. li CAN iS£ 
USED TO CALL THE CuMEINATIUN UF ANY DISPLAY, LOAD, Ok MuNifuR YLKB 

rOGLJHLKjtiiTH ANY NOUN AVAlLA riLL t U THE K EYBOAkD, 

PLACE -VVYi/VtfVNNNNNNN rNTu A, 

V-S ARt THE 7 BIT VERB CUDE» N-S ARE THt 7 BIT NOUN COJE 


K237( 3 
R237' A 

»<237 5 

R2371 
H 2372 


K2373 

K237A 

R2315 

R 237 1> 

R 237 7 


R237B 
R 2379 
R23BC 
R23aL 

.K23B2 
k23 83 

R 2364 

R2383 

K 23 do 

k238 7 

K2iaQ 


R 81 

R 23 8 82 


R2369 
k 23 89 1 


R2i9i:, 

R2391 


R 23911 
R 2391 2 
k 23^13 
k^3^914 
R 2391 5 
R 239 1 6 
R23917 


k 239 1 S 


IF NVSUB IS CALLED WITH THE FOLLDk^lNG NEGATIVE NUMBERS iRrtTHtK THAN THE 
verb-noun CODE) IN A, THLj^j THE DISPLAY IS BLANKEO AS FuLLQWS- 

-4 FUEL BLAN K, -3 L EAV^j'WU^, LE AV E_ MUDL AND VE RB, -i B LANK K-S ONLY 

NVSUB CAN BE USED RITH MACH CAUK TO BE SPEC BY PLACING THE CaoR INTU 
FFAC+2 BEFUKE THE STANCARO NVSUB CALL, 


NVSUB RETURNS TO 2+ CALLING LOG AFTER PERFORMING TASK, IF DISPLAY 
SYSTEM IS AVAILABLE, THE NEW NOUN AND VEftB COOES ARE DISP LAYED , 

IF VsS =1, THE NEW NOUN CuUE Is DISPIAYEL UNLY(RETURN WITH NO f URl HLK 
ACTION!* IF N-S =^, THE NEW VEKo CODE IS UiSPLAYEO ONLYiRETURN WITH NO 
FURTHER ACTION!, 

IT RETURNS TO 1+ CALLING LUC mUTHDUT PERFORMING TASK, IF DISPLAY 

SYSTEM 15 BLOCKED tNOTHINo IS DIS PLAYE D IN THIS C ASE). 

IT DOES rC ABORT (WITH Ocf UlSu'l) IF IT ENCOUNTERS A DXsPL'AY PROGRAM 
ALARM CONDITION BEFORE RETURN TO CALLER. 

THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY 
KEY, EXCEPT ERROR LIGHT RESET 

IT IS RELEASED BY THE KEY K£L £a:j c B UTT ON, ALL E XTENDE D VERB S, 

PROCEED hi THDUT DATA, TERMINATE, RESEWUENCfc, INITIALIZE EXECUTIVE, 

RECALL PART OF RtCALTST IF ENDIDLE WAS USED, 

V£ = REQUcST EXECUTIVE, VB = REQUEST WAITLIST, 

MCNUCk SET UP, 

TFiE^DlSPLAY 5YSTLM IS A LSO bL Q CKEO BY T HE EXTE RNAL MONITCR BIT, WHICH 

INOrCATES AN EXTERNALLY INIT I AT ED MONITOR IS RUNNING (SEE MONiTLiKj 

A NVSUB CALL THAT PASSES DSPLOCK AND THE EXTERNAL MQNllUR BIT ENDS OLD 
MCNITOR. 

CSPL QCK IS THE I NTERLOCK^EOR USlE aE„K£JYflXLARD_AND _DJ. SPLAYL^^TEfl- WHICH 

LCCKS OUT INTERNAL USE WHENEVER THERE iS EXTERNAL KEY30ARU ACTION, 

NVSUB SHCULD Bt USED TWICE IN SUCCcSSIUN FOR JPLEASE PERFORM: SITUATIONS 
ISIMILARLY FOR PLEASE MARK!. FIRST PLACE THE COOED NUMBER FuR WFiAl 

ACTION IS DESIRED OF OPERATOR INTO THE REGISTEKB REFERRtU TO BY THE 
:CHECKLIST: NCUN, GO TO NVSUB W ITH A D1 SPLAY VERB AND T HE :CHE CK Ll ST ; 
NCUN, GO TO NVSUB AGAIN WITH THE : PL EASE PERFORM: VERB AND ZckUS IN THE 
LCW 7 BITS. THIS : PASTES UP : THE 2PLEASE PERFORM: VtRb IMO THt. Vt <B 
L IGHTS. 

NVHONOPT IS Au ENTRY SIMILAR TO NV^Ud, BCT REQUIRING AN ACDI f lUNAL 


ASi£Mii.L£ ii£iiLUxLCJ^->.-7^- GF. AUL ARIijH-i-i d'i .-NASA . ^Z11X^-±l11 


bAl;'S 



L r^I'itALL CArtt; DUTIOt'io AND LIGHTS 

K^^39Lfcl PAKAMLfLi^ IN L, IT SHaULD tJ E UStO UNLf WITH A MONITUK VER3-NJUN CUDE IN 
KEJ91T2 A* AUlR cACH MJnITOR DISPLAY A ^PLEASE* VERB WILL BE PASitU IN THt VERS 

L IbHT^ CR DAT A WILL BE BLANKED (OR BGTHi ACLORDINU TO THE gPll_UNS_ 

KE39lt4 APfClPlEC IN L* IP BITS 8-14 OP L AiU OTPEK THAN ZERO# fP£N THEY rtlLL 
PZ3'^l£5 BE INIEKPKEIED AS A VERB CUOt AND PASIEO IN THc VERB LISHI8» (THIS VERB 
H2jne6 CCOE SHGL'LU DESlGNATt ONE UP THE ^PLEASE^^ VERBS.} IP 61 fs 1-S UP L ARE 
RZ391E7 JIHER TH/iN ZERLi IHEN THEY WILL BE USED TO BLANK DATA BY BEING FED TO 
R23^Mc8 BLANKbUB , IP NVMUNJPT IS UStD WI TH A VERB OTHER THAN A HEM TOR VER6» 
R239I69 TPE PAKAKETER IN L HAS NO EF F ECT. __ _ 

k23-*Z nVSUB in PIXEC-FIXED PLAGES 2+GALLlNG LUC INTO NVUfEM, TC NV;>UdENU INTO 
R239S ENTRET. (THIS WILL RbSTOKL OLD CALLING BANK BITS) 


23-34 

REF 

3 

LAST 

372 

v . 



SEl LOC 

PFTAG8 

23941 





42c 2 



BANK 


23945 

^^EP' 

4 

LAST 

372 IQ 

3 73: 

7 37=^= 


COUNT* 

si/Pi.M 

2395 





42c 2 

22 ^,7 L 

NVSUB 

LX OH 

7 

2396 

REP 

1 



42> 3 

54 123 D 

h VMQiJUP T 

TS 

NVTtMP 

2397 

REF 

1 



420 4 

23'242 1 


LXOH 

t\ V D T EM 

2398 

REF 

94 

LAST 

3 73 

421 5 

22 i,v2 0 


LXCH 


2399 

REF 

1 



6 

U 4226 b 


TC 

EMBDSPlK 

24- •> 

REF 

2 

LAST 

373 

-tZc 7 

23*242 1 


LXCH 

N V D T EM 

24 R. 5 

REF 

4 

LAST 

36t> 

42 i' 

23*225 c 


LXcH 

MCNSAVE2 

24 )i 

REF 

3 

last 

374 

4211 

u 1 


TC 

KI LMUNUN 

2422 

REF 

1 



42a2 

3 4223 D 

NVSUBCuM 

CAP 

NVSBBBNK 

24 3 

fi h F 

Q 

L ST 

14^ 

_ . ,.-*t2JL3^ 



XCH 

E 

24 331 





4214 

K.-' 0-i 6 1 


EXTEND 


24032 

REP 

3 

LAST 

257 

4215 

4 ^ J 7 1 


RCR 

SUPtKBNK 

2404 

REP 

1 



4216 

55*243 1 


T:» 

NVBNKTt H 

24U41 

REF 

2 

LAST 

257 

4217 

J 42 2 J 


CAP 

P SUP b i 

24u4 2 





4220 

~0 UU .'O 1 


cX T CiJD 


24043 

REF 

4 

L AST 

373 

4221 

C'i 0u7 1 


WRIT £ 

SUPcRBNK 

24 .5 

REF 

1 



4222 

Li 3513 f 


7 c 

NVSU86 

24‘ 6 

REF 


LAST 

373 

12g2 



EBANK= 

CSPCOUNI 

24 7 

REF 

2 

LAST 

334 

4223 

62102 c 

N VSbb dNK 

bbcon 

NVSUBi 

24 71 

REF 

2 

last 

378 

4223 


FINSUPBT 


i\V ^ B Bdt4K 


2412 

2413 

24 1 3 1 
^4132 
24133 

REP 

REF 

REF 

REF 

REF 

3 

1 

27 

Li 

6 

LAST 

LAST 

LAST 

LAST 

378 

376 

37o 

376 

4224 

4225 

4226 
422 7 
423\ 

53*24j 
u 5214 

3 4753 
7 1224 

6 1215 

1 

1 1 

^ * 

i 

J 

0 

NVSUBENO DXCH 

TC 

EM3USPCK cAP 

HA SK 
AO 

KVDTEM 

SUPDXCriZ 

61114 

MCNSAVEl 

0 .jPLULts. 

24134 

REF 

122 

LAST 

376 

423 1 

IG EJO 

0 

CCS 

A 

24135 

REF 

46 

LAST 

36 7 

4232 

L CvCl 

t' 

TC 

L 

24136 

ft £ F 

47 

LAST 

378 

4233 

24 OOl 


INCR 

L 

2413 7 

REF 

95 

LAST 

378 

4234 

'J f'CuZ 

} 

1 

TC 

1 

2414 

REP 

7 

LAST 

373 

4i,2UUC 



SETLUC PiNbALL2 


1 


4^ PFfi> i:TnnPNr s^ ,_E4 EAGi AZa 


USER'S PAGE NO^ ol 




ZERO NVHONOPT OPTIONS 


CHECK F OR DSP SYsT AVAILABLE 
2+" CABLING LOC INTO NVUTEM 
STORE NVMONOPT OPTIONS 
TURN ON KILL MONITOR BIT 


SAVE OLD SLEERBITS 


GO TO NVSUBi thru STANDARD LOO 


CONTAINS THE PINBALL SUPEkBIIs 


NVBNKTEM MUST = NVQTEM+i 
DTCB WITH SUPERBIT SWlTCHlNb 


EXTERNAL MONITOR BIT 


DSP SYST 6LQCKEO. RET Tlj 1+ OALLINl' . 3C 
ESP SYST OK', SET RbT TU 2+ CALLING > Ol 


1, AP: RtyiSl Jfv 

2 72 

UP AuL PRQGRAM ARTLRIS JJYLJ'iASA 2^2 1114“ wii. 

li:4_ EL8« 26,19 71 01 nGFDFS^. 

P/.GE .3 79 . 

L 

HiNeALL 

bAMfc i3urrut't6 anj lights 




USER'S PAGL MU, 62 

L 14 . . 

1 't ' *> 

RtF 

7 

LAil 373 T 

U 3 7 4 * 

:>o 

CUUNT* 

i$/PiN 



1. 





4i f 34bo 



dANK 




P 241^12 

dLANKiJiP 

8LANKS 

U1 SPLAY ACC URGING Tu 

□ PTIUN NUnaEK IN i4VIErtP AS FULLUW'S 


ft24i4ll> 

-4 

FULL 

alAMkf 

-3 

LEAVE MODE 

, -2 LEAVE 

MODE AND VtHB, - 

-1 BLANK R-J 

ONLY 


241419 

KEF 

d 

LAST 

37' 

41 f 3466 

o 4774 

1 

ELANKDSP AO 

SEVEN 

7f8T9ti3R CA HA U #lf2tQK 3) 


241422 





4 1 f 346 7 


0 

i i^H 1 N r 




24142i> 

KEF 

iJ 

LAST 

371 

41,347 

54 124 

1 

+2 r s 

COOL 

BLANK SPECIFIED DSPTABS 


241429 

KEF 

22 

LA ST 

3 6^ 

41,3471 

4 4755 

y 

cs 

biT12 



24 1 4 3 2 

KEF 

11 

last 

379 

"^41, 3472 

56 124 

^ ' 

INDEX 

CODE 



241435 

REF 

26 

LAST 

371 

41 f 347 3 

57*220 

0 

XCH 

CSPI Ab 



24 143S 

HEF 

123 

LAST 

378 

41,3474 

IL CjO 

0 

CCS 

A 



241442 

REF 

8 

LAST 

371 

41 1 347 5 

25' 24il 

1 

INCH 

NuUT 



241445 





41 , 3476 

u 3477 

f 

TC 

+ 1 



241449 

REF 

12 

L A ST 

379 

41 , 347 7 

iC 124 

1 

CCS 

CCUE 



24 14 5? -REF I 



41,356.: 

"1~347 • . 

1 

TC 

bLANK05T> +2 



241455 





4 1 , 35s/ 1 

J L. Si i 3 

1 

kelint 




241459 

REF 

2 

LAST 

378 

41, 35w.-2 

5 123 

1 

INDEX 

NVTEMP 



241462 





4i,35L3 

c 35 ic- 


TC 

+ 5 



241465 





41 , 35l4 

u 3 & . j 5 

1 

TC 

+ 1 

NVTEMP HAS -4 (NEVER TOUCH HOD 

KEG) 

241469 

REF 

21 

LAST 

375 

41, 35G 5 

55*204 

1 

TS 

V EK tiRtu 

-3 


2414 72 

REF 

14 

LAST 

373 

4 1 1 3 3 E 6 

55*2 >5 

Q 

T5 

Nuul! .KtG 

-2 


241475 

REF 

12 

LAST 

353 

41 f 35 l 7 

55* 22u 

1 

rs 

CLPmS3 

-1 


241479 

REF 

Q 

LAST 

375 

41,3519 

j 4261 

0 

TC 

-VJISET 



241415 

RtF 

4 

LAST 

374 

41,351 1 

w 4417 

i 

TC 

FLASHJFF 

PRDitCT AGAINST INVISIBLE FLaS 

h 

2414 E9 

REF 

1 



41,3512 

0 3534 


TC 

ENTScT *“2 

ZEROS REDHET 


2413 

REF 

2 

LAST 

379 

41, 35i 3 

3 3536 

1 

NVbUBi CAF 

ENTSET 

IN BANK 


2416 

REF 

6 

LAST 

366 

41,3514 

54 136 

1 

To 

L»Si 1 Rcl 

StT RETURN TU NVSUBEND 


24161 

REF 

3 

LAST 

3 79 

41,3515 

10 123 


CuS 

NVTcHP 

RHAT NOW 


24162 





41,35 16 

w* 3522 

1 

i t 

■§■4 

NORMAL NVSUe CALL (EXECUTE VN 

OR PA.TL) 

24163 

REF 

18 

LAST 

3 74 

41,351 7 

0' 235 V 

s 

1 c 

CODoPALM 



24164 

KEF 

2 

LAST 

379 

41, 3322 

0 3466 

J 

TC 

ELANKOSP 

BLANK DISPLAY AS SPECIFIED 


24 16 5 

— KE'F 

17 

“DfST" 

JTT 

“41 , 3321 

"TTldJlo'' 

ir~ 

TC 

■C^OsPAL M 



2417 

REF 

5 

LAST 

365 

41,3522 

5 6u43 

X ' 

V' 

CaF 

LOW 7 



2418 

KEF 

4 

L AST 

379 

41,3523 

7 1 

} 

»HASK 

KVTcflP 



241*^ 

kEF 

192 

LAST 

374 

41,3524 

54 15 7 

i 

T3 

i''.PAC +3 

TEMP FOR NOUN (CANT U:>E ^ipTC- 

LSrDC ■. 

242 

KEF 

3 

LAST 

379 

41,3325 

3 ul2 3 

1 

CA 

NVTcrtP 

USES MPAC, +1, 


2422 

KEF 

5 

L AST 

3o6 

41 , 35^16 

54 >23 

1 

TS 

El) JP 

KlSHT 7 


2423 

KEF 

6 

LAST 

379 

41,3527 

3 :23 


CA 

LOOP 



2424 

REF 

193 

LAST 

379 

41,353c 

54 16-^ 

1 

TS 

PPAC ■*■4 

TEMP FUk verb (CANT JSE iPAC+i 

DSP ,)L.. . 

A2425 










USbS MPACf +ii 

+i ) 

2426 

REF 

194 

LAST 

379 

41 ,3531 

lU 15 7 


' - r- 

O 

FPAC +3 

T t s r nou(m 


2427 

KEF 

1 



41,3532 

^ 3537 

u 

TC 

NVaUB^ 

IF NOUN NUT + , GO GN 


2429 

KEF 

9 

LAST 

372 

41,3533 

j 233 5 

u 

rc 

UPuATVcs -2 

IF NGUN=+' , Display verb, tftiw ki tuku 

24291 

REF 

61 

LAST 

3 7o 

41 , 3534 

3 4772 

i 

-2 CAP 

ZcRU 

ZERO REORET SO THAT PASTED VERBS CAN 

242‘^2 

KEF 

14 

Last 

375 

41, 3535 

55*216 

1 

rs 

kekket 

6£ fcXECUTEC BY UPERATUR. 


243^ 

REF 

1 



41, 3336 

0 4224 

1 

ENTSET IC 

NV:>UBLND 



2431 

KEF 

195 

LAST 

37? 

41,3337 

iO idv 

i 

NVSUfa2 CCS 

FPAC +4 

Tfc3l VEKb 


2432 





4if 354 l 

1 3543 

1 

ICF 

■*3 

IF VERB NOT +f , GO ON 



KLyiiiiUii JLi*L-_ei^UuRA^l _AKTfcMlb j^aSA 


.UAIVt _ 


24 i 3 
/A 36 
2^yj 

t 

<;AA 1 
^ 4 A 2 
2 *t 4 J 
2 AA 4 
24413 
2446 
244 7 
244 8 


8 244 ? 
R 245*' 


2451 
2451 1 
2451 3 
A 2452 

2453 

2454 
A2455 

2458 


K2459 
R246v 
K 246 1 
R 2462 
R2463 


R2464 
R2465 
R2466 
R24'67 
R2468 
R2466 
R24 7 
8 247 3 


k2474 
R2475 
R 247 6 
R2477 


JX ;4 



t. ..6.1 LLLiii: 


1 ^ 


PlNtALL L^PiL LiUTTUNS ANU LI 6H1 S 


U5tK'S PAGh NU: ov _ 54 


K L t 

2 

LAS I 

36 

41 1 3541 

L' 2314 

0 


TC 

UPDATNN -2 

IF VCKb=+ . , DISPLAY NOUN, IHEH KFTUr.ii 

KEF 

2 

LAST 

J 7 'i 

41, 3542 

o 4224 

1 


TC 

N V b U b E N 0 

TEMP FUK MACH GAUK TO BE SPEC, (DSPOECVN 

REF 

196 

LA^T 

3 ?9 

41 , 3543 

3 '156 

L 


CA 

KPAC +2 

K E f 

1 9 1 

L AST 

380 

41 , 3544 

54 161 

1 


T S 

MPAC +-> 

USES MPAC, +1, +2! 

REF 

1* 

LAST 

379 

41 , 3545 

u 



1C 

UPOATVB -2 

IF BOTH NCLN AND VERB NOT + , DISPLAY 

REF 

3 

LAST 

38»> 

41,3546 

j 2314 

L. 


TC 

OPUATN.m “2 

BOTH AND GO TU ENT PASO 

REF 

62 

LAST 

379 

41,3547 

3 4772 

1 


c af 

ZERO 


REF 

3 

LAST 

374 

41 » 355i 

55*217 

u 


r:> 

loadgtat 

SET FOR WAITING FOR DATA CONDiriO- 

RFF 

13 

LAST 

379 

41 , 355 1 

:35'220 

1 


Ti 

CLPASS 

_ 

KEF 

Id 

LAST 

Jf4 

41,0552 

5 5*' 216 

1 



K£-jRt t 

SET REQRET FOR PASS 

KEF 

195 

LAST 

38' 

41,3553 

3 161 

1 


CA 

PPAC +5 

RESTORES MACH CADE TO BE SPEC TO MPAC+Z 

KEF 

199 

last 

38 > 

41 f 

54 156 

1 


TO 

KPAC +2 

FOR USE IN INTMCTBS (IN ENTPAS 

REF 

3 

LAST 

334 

41, 355 5 

L' 

1 

ENONViBl 

TC 

ENTPA;> . 


IF 

INIERNAL MACH CADR TO Bt SPbClFltO, 

MPAC+2 WILL BE PLACED INTO 


NCUNCADR 

IN ENTPAS / 

(INTMCTBS 

1. 





- 

REF 


LAST 

378 

4 0 L L 




SETLOC 

FFT AGB 






423 5 




BANK 



kEF 


UasT 

378 TO 

37 9 * 


64 


COUNT ^ 

SVPIN 

FORCE BIT 15 UF MONSAVE 1 TO L, 

REF 

29 

L AiiT 

355 

4235 

3 4752 


KILMONUN 

CAF 

BI 115 

THIS IS THE KILL MONl.Ot. BIT, 

REF 

7 

LAST 

378 

423 tj 

55* 224 

} 


TS 

MGNSAVEl 

TURN CFF BIT 14, THE EXTcKNAL 









MONITOR BIT, 

REF 

96 

LAST 

378 

4237 


\ 

1 


TC 

‘A 



LCACSTAI +- lMACTlVt{ WA n ING FOR DATAJ. GET 8 Y I'irfSUB 

-1 PRUCEtO f>*0 UAIA SET BY V3 3 CR PRiJCtEU 

-2 TERMINATE StT 8 Y V 34 

DATA IN SET BY END OF LUAb ROUTIN E 

OR RESEQUENCE SEl BY VERB 32 


L TC ENOIDLE (FIXED FIXED! _ 

ROUTINES THAT REQUEST LOADS THROUGH NVSUE SHuULJ USE EimDIOLE 

WAITING FOR THE Da TA TO BE LQADEUii E N 01 DLE_PUTS .CUj;^Ej^T 

END I D L E~C ANNO T BE CALLED FROM ERASABLE OR F/F MEMORY t 

SlNLt 003 SLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS, 


dHlLE 
Tu SLEEP, 


RECALTST TESTS LOADSTAT AND wAKES JOB UP TO, 

L+1 FOR TERMINATE , PROCEED WITHOUT LATA, DATA IN , UR KESc^UEnLE 
IT COES NOTHING IF LOADSTAT INDICATES WAlllNu FUR DATA. 


ENDIOLE aborts (WITH CODt 212Cb) 
IN PINBALL, IN PARTICULAR, IF aN 
1} CAOKSTJR NOT== THIS IS THE 

EXCEEDED, (+-N2 INDICATE A JOB IS 


IF A SECOND JOB ATIEMPTSTu oO lu SLEEP 
ATTEMPT IS MADE TO GO TO ENDiuLE WHEN 
CASE WHEnt THE CAPaCHY OF cNulDLE IS 
ALREADY ASLEEP DUE TO ENUIDLE,) 




L PINBALL GaMl BUTTONS ANU LIGHTS 


H 2^ 7 b 

21 DSPLlSt NOT 

* + A 

THIS INDICAILS m JOB 

IS ALREADY ASLttP UUl ) ' 

R 2 A f J 

NYSLoLSY 

4 






ii ^ H j 

ENDIDLE 

MOVED 

TO DISPLAY INTERFACE ROUTINES 



kEF 

7 

LAST 

37o 

42 4 V 

11*243 1 

XSGAL/Rr"^tj LCS 

LAUr\ >1 ciK 

2A9‘ 

REF 

1 



4241 

. 4245 Vi 

TC 

CjPABuRI 

24^ J 

REF 

2 

LAST 

204 

4242 

11*246 1 

CCS 

CSPu 1>T 

24 

REF 

2 

LAST 

331 

4243 

0 4245 -■ 

TC 

U 3P AbiJk 1 

249 5 

REF 

9 f 

LAST 

3 3 J 

4244 

U i.* lo ■»* ^ V.'' 

rc 

U 

2406” 

R EF 

2 

TAST 

372 

424 5 

'J~5'?26 1 

'DSPABUKT TC 

PQ 50 JJ 

24S7 



- 


4^4 6 

21206 0 

OCT 

212 J 

P. ?49 b 

JAMTERM 

ALLOWS 

PROGRAMS TO PERFORM THE TERMINATE FUNCTIONr, 

R249 9 

IT DOES 

ENDOF J0i3» 





25 

REF 

3 

L A:iT 

373 

‘t247 

3 4223 L 

JAMTERM CAF 

f XNSUPBi 

25 1 





<^251 

0 i- 1 

cXTfcND 


25' 11 

REF 

5 

LAST 

373 

4251 

ul V.7 1 

WK I T w 

SUPL R3» iK 

25r 12 

REF 

2 

LAST 

215 

42 52 

3 426 1 

LAP 

34lJt C 

25 13 

REF 

16 

LAST 

360 

4253 

55*216 1 

rs 

HEUKEI 

25 14 

REF 

22 

LAST 

379 

4254 

5 5 ' 2 J 4 1 

TS 

V £R b.CEG 

25 2 

REF 

10 

last 

379 

4255 

0 4261 0 

TC 

Jjl set 

25' 4 

REF 

2 9 

LAST 

3 7t> 

4256 

J 4655 0 

Tl 

POc.iaUMP 

- b 

KEF 

2 

LAST 

337 

4257 

613i;7 1 

CAOk 

V u r hrVi^i 

25 (i 





4266 

00642 1 

34UEC jEC 

-d4 

25 7 

REF 

't 

LAST 

^3 S* 

4261 

^ 43:>1 c 

-VUiSET lS 

VOi 

25 '8 

REF 

4*1^ 

LAST 

37b 

4262 

55'2j2 1 

TS 

CSPCOUnT 

25 >9 

REF 

98 

LAST 

331 

4263 

u C C 0 2 V. 

TC 


R2532 

BLANKSUa 

t BLANKS ANY 

COMBINATION OF Rli R2f K3o 


R2^33 

CALL 

WITH BLANKING 

CODE IN A, 




11253^ 

■ B I T 1 

=1 BLANKS 

Kl, B1T2=1 BLANI 

KS R2 f 8i T3 

1 = 1 SIlANKS K3 


R2535 

ANY 

COrtBlNATICN OF 

THESE BITS 

IS ACCEPTED, 


R2536 

CSPCOUNT IS RESTORED 10 STATE 

IT WAS IN 

B cf 0 R i: 3 L A NK :> U B 

WAS EXtcUTED* 

2538 

REF 

9 

_LASX 

379 

4264 

. T . 

,.BL AnKiUii. J14S.K. 



25331 

REF 

6 

LAST 

379 

^26 5 

54 123 0 

TS 

N V I : i"!? 

2539 

REF 

QQ 

■* - 

LAST 

381 

42o 6 

22 :.^2 0 

LXCH 


254 

REF 

2 

LAST 

378 

42*3? 

o A2Z6 ij 

TC 

EMbDSPCK 

254 1 1 

REF 

7 

LAST 

3bl 

427 

1 ) 123 J 

CCS 

NVT EBP 

25412 





4271 

1 4273 1 

i u F 

+ 2 

254 1 3 

REF 

43 

LAST 

378 

4272 

J i.''].*'... i 

fC 

L 

2544 

REF 

1 



427 3 

3 43^4 1 

CAF 

ELNKBBNK 

2545 

PEF 

ID 

LAST 

378 

4274 

56 606 1 

XCll 

BBANK 

25451 





4275 

L 0^6 1 

tXT END 


25452 

REF 

6 

LA Si 

381 

42 7 6 

u4 DC 7 i 

KOR 

SUPERBNK 

2546 

REF 


L AST 

342 

427 7 

52 

' ^ 

UXCH 

bUl- 


ii:4-,J FrB:-. ZL.I G7I ■ ■DIOGENLS. . 64 PAGb iSi. 


USt’'. * j PAGt NO 






• BIjKTS (CODE L 6) IF CAOi^STOR NOT^ + a 
KFTUki'jS if CAOKoI UR = +’ -> 

ABokI (CODE ^ 12 6 I IT DSPLIST NOT - +,. 
T.liiUKNS IF DSPLIST = + , 


SECOND JOB TKYING TO GO TO SLEEP 


LEAVE ENTER SET FOR ENTPASS 


STOKE CLANKING CODE IN NVTEMP« 
CHECK FOK DSP SYST AVAILABLE 


NOTHI NG T 0 BLANKj ret 1 0 2*^ CALL I NG LOC 


SAVE -LD SUPERBlTSo 


L »ii-’ ; 


Aa U t MLLE-ua.V 111 LDhi. -j 72 uh ^iL.L PkUl^ l -LAM A . J hMi.^ a-t fM ..2:^ jLll .Ij. 


n :^.. niQGE^ibS, ,b A PA . f . 

L. HlNcALL GAMt LUlfUNj AND LIGHT j UStP»S PAoL NO* 65 L S4 


CSAC 1 
25462 

aEF 

4 

LAST 

Jbl 

4^ o * 

4 J( 1 

3 4223 

- J vU 

1 


CAE 

t X T E NU 


2546 J 

KE> 

7 

LAST 

3Gi 

4 J 2 

i i" 

1 


WRlTt 

SOPcRbl^K 

2547 

KEF 

1 



40 -J 

G 33:>i 

% 


fL 

eLNKSUal 

c54 8 
ii54‘T 1 

KL F 

PEF 

43 

LAST 

LAST 

Od i 
3S2 

12: 2 
43 .4 

U 1 • 2L 

1 

ti LNKb biMK 

EbANK= 

dUCCN 

DSPCUUNT 

BLNGSUsl 

254 9 





4 3*.; 5 



END6LFF 

EOUALS 



255' 

HEF 

.8 

LAST 

374 

4v t 




3 b r L 

PINBALL i 


25 5< 1 





4b t 335 1 




BANK 



255 5 

REF 

8 

LAST 

374 TO 

373: 

4 745* 


COUNT* 

i i / P 1 i 4 


255 i 

REF 

46 

LAST 

3 32 

4 *f335i 

3 12w.2 


3LNK5U81 

CA 

CSPCOU.il 

SAVE OLD DSPCOUNT FOR LATER RESTORATION 

25511 

REF 

41 

LAST 

381 

4', 3352 

54 13 2 

0 


TS 

OOF 


25512 

REF 

24 

LAST 

37 4 

4L f 3353 

3 4770 

u 


LAi- 

l: iTi 

ftST DITI, SEE IF R1 TU BE BLANKED, 

2552 

REF 

1 



4 f 3354 

w 33 73 

i 


TL 

T C 5 T B i 1 


2553 

KEF 

13 

LAST 

367 

f 3355 

3 4321 

U 


CrtE 

aIUI 


2554 

K c F 

4 

LAST 

34 7 

40* 3356 

i; 24 3 1 

1 


TO 

5BLANK -i 


2555 

KEF 

19 

LAST 

242 

40*3357 

3 476 7 

l\ 


CAE 

L I T z 

T^ST CIT 2= SEE IF R2 fO 3E BLANKED* 

2556 

REF 

2 

LAST 

382 

4u* 336L 

U 3373 

l'' 


TC 

TEST31 r 


2557 

REF 

3 

last 

369 

40* 33u 1 

3 43LZ 

< 


CAF 

RZOi 


2558 

KEF 

3 

LAST 

3 82 

4^*3362 

C 243:.-' 

1 


TC 

58LANK -1 


2559 

REF 

z. 

LAST 

376 

4Uf 3363 

3 47 66 

1 


CAF 

BITS 

T-ST t'iT3. SEE IF k3 TG BE BLAMKED, 

2561 

KEF 

3 

LAST 

382 

40 f 33 o4 

u 3373 



TC 

lESTilT 


2561 

KEF 

5 

LAST 

343 

4 0 *3365 

3 43 2 j 

1 


GAF 

K3D1 


2562 

KEF 

o 

LAST 

332 

4\J f 3 3 u o 

u 24 3 

i 


TC 

5BLANK -1 


l563 

REF 

42 

L AST 

3 82 

40*3367 

3 1 1 3z 

1 


CA 

bUF 

r,ESI'jRb DSPCOUNT TO STATE IT HAD 

2564 

REF 

4 7 

LAST 

332 

40 f 337 

55*202 

1 


rs 

U3 PC uUn T 

BEFORE ELANKSUBo 

2565 

REF 

43 

LAST 

332 

4u f 33 7 i 

52 131 

J 


UXCH 

bUF 

call l+2 directly. 

2^566 

REF 

2 

LAST 

373 

40*33 72 

; 5215 

1 


1C 

SUPDaCHZ *i 

DTCb WITH SUPERB! T SWITCHING 

2567 

r4 

3 

LAST 

381 

40,3373 

7 0123 

u 

TESTBiT 

MASK 

N V r E MP 

NVTLMP CONTAINS BLANKING CODE* 

2568 

REF 

124 

last 

379 

4l,3374 

1 3 L/U 

0 


CC3 

A 


2564 

REF 

iCV 

last 

381 

4:',33 75 

0 l002 

0 


rc 

f 

iF CURKENl BIT = 1, REfURN TU L+i, 

257 

REF 

1 



4 f 33 7 6 

1 o71. 

u 


TCF 

^+z 

IF CURRENT BIT = ' , RETURN TO L+3 

2574 

REF 

1 



4l *337 7 

3 4353 

0 

C3P^5MJB 

CAF 

EDI 

GETS here thru OSPMM 

2575 

KEF 

43 

last 

332 

4l , 34GT 

57*202 

f/ 


XCH 

CSPCuUNT 


2576 

KEF 

1 

A 



4C t 340 1 

54 14-3 

b 


TS 

USPHMl EH 

SAVE DSPGCUNT 

2579 

REF 

o 

last 

271 

4i. f J4i; 2 

11*214 



CCS 

y GDR tc 


2580 

REF 

43 

last 

374 

4'., 340 3 

6 4 7 7 C‘ 

c 


AD 

CNl 


25 8t 1 

REF 

4 

last 

369 

' f 3 4 vJ 4 

u 3146 

1 


Tc 

uSPDECVN 

IF MODREG IS + OK + T DISPLAY MODREG 

2531. 2 





4C? >4w 5 

0 34o7 

I 


TC 

+2 

IF hJUKEG IS -NZ, 00 NOTHING 

2562 2 

REF 

6 

LAST 

373 

4 u f 34c 6 

G 2473 

r 'i 


So 

2di_ANK 

IF MODREG IS - , BLANK MM 

2531 

REF 

2 

LAST 

332 

40 , 340 7 

5^ 141.^ 

1 


XCri 

USPMMTcM 

RESTORE USFlC/UNT 

2582 

REF 

49 

LAST 

382 

40,341 

55'2o2 

1 


T^ 

cipcoum 


2583 

PEF 

39 

LAST 

376 

4d* 341 1 

G 52 ' .>5 

c 


TC 

ENDOFJUb 



K2564 HECALTST IS ENTtKED ClRtLTLY .APTtR CAT A IS LCAOEU (OR KLScJJtNGfc VERB IS 

R2585 EXECUTtD)i TERMINATE VcKd Is EXECUTtiJ, OK PROCEED WITHOUT DATA VEKD IS 


L MlNtiAlL GAMt tiUTiuNi AND LI^/HIS 

K2t)ti6 fcAECUluO. IT WAKES UP JLU THAT DID TC ENDIuLL. 

IF J^4UKSjajiTiDT= r, ll.-£UJJ^--±!.-_iNTy,iIS^W^ 

h LIGHT IF JSPLiST IS FHPTY (LtAVES KEY KLSE LIGHT ALONE If NOT EMPTY), 


L5rt9 

REF 

6 

LAST 

381 

4^ f 3412 

11 

* 245 

1 

H El ALTS r 

CCS 

LAOKST UR 

^'S y 

REF 

1 



4 .f 3413 


3415 

1 


TC 

RECALl 

2591 

REF 

40 

LAST 

382 

4u r 341 4 

0 

52 j 5 

\¥ 


TC 

ENDUFJJB 

2592 

KEF 

63 

LAST 

380 

4- 1 J4l 5 


4772 

1 

RECALl 

CAP 

ZcKU 

2593 

KEF 

9 

LAST 

383 

4, f 34 i 6 

57 

•245 

4j 


aCH 

CADk jTUR 

2594 





40 f 341 7 

0 

u0'j4 

:3 


INHINT 


259 5 

REF 

i 



49, 342 C 

L 

5167 

1 


TC 

J Q b /ii A «c E 

26V.41 

REF 

15 

LAST 

3 79 

4i. f 342 1 

3 

12.5 

1 


CA 

ROUNRbu 

26L42 

REF 

49 

LAST 

381 

43 , 3422 

54 

C 

X 


TS 

L 

261 43 

REF 

23 

LAST 

381 

40,3423 

3 

1204 

c 


CA 

V bKB RE u 

26 i44 

REF 

1 



40,3424 

3^ 

064 

\ ' 

,* 


Index 

LUCCTR 

26^.45 

KEF 

2C0 

LAST 

380 

4S , 3425 

52 

; 155 

1 


pxch 

f^PAC 

i! b 





4' , f 3 42 6 

0 

00«ji 

1 


R E L If'iT 


2696 

KEF 

JLu 

LAST 

376 

4v. ,3427 

0 

4432 

V' 

RtCAL3 

\ c 

RELOSP 

26 7 

REF 

41 

LAST 

383 

40,3430 

0 

5 2c 5 

0 


TC 

tNuLir JtJb 

26 ’8 

REF 

3 

LAST 

380 

40,3431 

J 

4224 

1 

N vs 13 END L 

TC 

NVSUBENO 

26115 

REF 

4 

last 

296 

30 f ^O^vU 





SBANK= 

LOiNSUH lR 


; ^ . Pi; a*__2L-t i£lJ D lUG^htLS^iJ^-^ ,£AGi: iiiL 

USEl^VS PAGE NGe 66 t- 54 


UURMAL EXIT IF KflYcOARO INITIATED 


SAVE VERB IN MPACi NOUN IN MPAC+1 AT 
TIME UF RESPONSE TO ENDIQLE FUR 
POSSIBLE LATER TESTING BY JOB THAT HAS 
BEEN WAKED UP > 




^4 ^AGF 3iii 


A ^irMtil- £ i V L VXaiUfcL t-i _ A.4Tt. PlUJIxRA.^ Aj^I-ERIS. MY- A ^ -/ > X11A= ^ u. J_ 

L PINLALL oArtt bUTTUNj ANu LIGHTS USER'5 PAGE NO, 67 ^ £. S?. 

P^61^ MISLtLLANbDUS ShKVlLfc HLUriNES li'i flXED/FIXtO 


2613 

^6131 

26135 


R fcF 


RFF 


LAST 3j 


\j LAST 38’-^ TU 


K 

*+Ji. 

382: 


41 


14 ^ 


StTLOC FFTAod 
6 ANK 

CUUNT=^' li/PlH 


K 2614 
!< 2615 

SETNCADR 


E CAOR 
ARE SET 

ARRIVES IN A, IT IS STuRED IN NQUNCADK. JBANK 
• E ACRES IS DERIVED AND PUT INTO NODs^ApD., 

BITS 


2616 

RcF 

8 

LAST 

367 

431 5 

55 '222 L SE TNG ADR 

TS 

NCUNCADR 

STUKE 

ECAOB 

2617 

REF 

10 

LAST 

312 

43c to 

54 -u3 +1 

Ti 

EdANK 

jET L_B^iK BITS 

2618 

REF 

1 



436 7 

7 435' 1 

HASK 

LOWS 



261 Q 

REF 

2 

LAST 

211 

4310 

6 3u24 1 

AD 

CCI 1466 



262' 

REF 

25 

LAST 

3 to 3 

4311 

54 145 G 

T to 

NOUiNi ADD 

PUT E 

ADRES INTO NOUN ADD 

2621 

REF 

ICi 

LAST 

332 

4312 


TG 

u 


. 


R2622 SETNADD gETj E CAUR FROM NUU^4CAUR| SETS EBAfviK aiTSt DERIVES 

R2623 E ADRfcS AHD PUTS IT INTO NOUNADD, 

2 624 RFF « _ _lJlS I, _ 3 84 j 43 ,J_1222 J Sili^AQO, LA tiOUisiiuADE 

2625 REF 7 LAST 357 4314 1 43u6 1 TCP StTNLADR +1 


H.2626 SETEBANK _ £ CADR ARRIVES IN A« E6ANN dlTS AKc SET, t ADRES iS 

R262T DERIVED AND LEFT IN A, 


2628 

REF 

li 

last 

384 

4315 

54 0w3 

n 

SET EBANK 

TS 

L3ANK 


SET EBANK BITS 

2625 

REF 

2 

LAST 

384 

4316 

7 435c 

1 


MASK 

LOWE 



263' 

REF 

3 

LAST 

384 

4317 

6 5\i24 

1 


AD 

LiL T i_ 4^% ' 


E ADRES LEFT IN A 

2631 

REF 

1D2 

LAST 

384 

432 C 

0 pCG2 

u 


TC 




2632 


■“ ■ ' - 

— 


4321 

0 C C i to 

0 

RlQl 

OCT 

lo 


THESE 3 CONSTANTS FORM A PACKED TABLE, 

2633 





*f32 2 

00011 

1 

R2Dl 

UCT 

11 


DCNT SEPARATE. 

2634 





4323 

000 

. ^ 

R3Di 

QCT 

k 



2635 

REF 

I 



4324 

54 u2d 

1 

RIGHTS 

TS 

CYR 



to3 to 

ft£F 

2 

l_ A toX 

384 

4325 

^ DG20 

1 


to s 

CYR 


- — 

2637 

4 ' ^ t 

REF 

3 

LAST 

384 

4326 

4 0020 

1 


GS 

CYK 



2638 

REF 

4 

last 

384 

43^7 

4 • -.20 

1 


to5 

cyk 



^^63 5 

REF 

5 

LAST 

3 84 

433C 

4 c^2G 

1 


GS 

CYR 



264' 

REF 

6 

LAST 

384 

433 1 

56 020 

0 


XGH 

CYK 



2641 

REF 

i . 3 

LAST 

384 

4332 

w c C' 'J 2 

0 


TG 

'to 



2642 

REF 

16 

last 

3 70 

4333 

54 o22 

G 

LEFTS 

TS 

CYL 



2643 

REF 

17 

last 

384 

4334 

4 < 022 



GS 

cyl 



2644 

REF 

16 

LAST 

334 

4335 

4 < J22 

. <1 


GS 

CYL 



2645 

REF 

19 

LAST 

384 

433 6 

4 < 022 

<■ 

t 


Lto 

cyl 



2646 

REF 

20 

LAST 

334 

4337 

4 < 022 

^ r 


GS 

GYL 




1 
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^647 

2648 

ALF 21 
H£f it.4 

i_ AST 
LAST 

3J4 

3 34 

434 

4341 

56 y22 1 

i, i:Lu2 5 


XCH 

rc 

CYL 

w 


2655 

2656 

2657 




4342 

4343 

4344 

r '^73 J u 

1 1 74 u J 

7 O U ^3 L- ^ ' 

LOWS 

KIDS 

H15 

UC T 
□ LT 
j C T 

3? 

1 74i^ 

7 6 . 1 J 

THESE 3 CCNSTANT6 FORM A PACKEU TAbLto 

OONT SePARATL. 

MUST STAY HhKc: 

266 

2661 

KEF 1 

REF 15 

LAST 

£^76 

5313 

4345 

6 5135 u 

TCTSKQVR 

ICFiNDVC 

£ ^UAL6 
TG 

T SKLiVCuR 

FI MU VAC 


2662 




4 J4o 

3 ( Vi# 1 

CHkPK lu 

uCT 

3 - . ^ . 

EXEC PkIOR ITY of CHAR IN 

1 

2663 




4347 

U3777 0 

LOwii 

UGT 

3 77 7 


2665 




43 5 f.‘ 

Oc377 1 

LOW a 

UCT 

577 



2667 

2668 
2669 





4351 

4352 

4353 

0C023 
0002 1 
0002 5 

' i 

s. . 

1 

u 

VDi 

MOi 

MUi 

□CT 

UwT 

UG r 

23 

21 

25 

THESE 3 CURST ANTS 
CCNT SEPARATE, 

FORM 

A PACKED TABlEo 



26692 

ftcF 

2 

LAST 

382 

‘i35.» 



V dSPlLD 

c wU AL^ 

I-Dl 

V621 = ALOAD 





^66^4 





4354 

‘026 


VLjSP2LU 

l}6C 

22 

= BLCAD 





4^669 6 

REP 

kL 

LAST 

258 

4615 



V6SP3LU 

tiQU AL S 

LEG23 

VB23 = CLGAD 




1 

267;: 





4555 

9 Gw 12 

1 

BIMCUM 

UEC 

1 






6 7 ' 6 

REF 

17 

LAST 

373 

43 56 

3 4764 

0 

RELDSPuM 

C AF 

B1T5 






267‘. 7 





4357 

i 4363 

1 


TCF 

+ 4 






267 V 8 

REF 

<:3 

LAST 

3.8 

43u ‘ ' 

3 4763 

1 

FLASHON 

CAF 

EiTo 






2679 9 





436 1 

1 4363 

i 


TCP 

+ 2 






2671 

REF 


LAST 

332 

4362 

3 4762 

u 

F ALT UN 

GA 

BIT/ 

TURN UN UP ERA TOR 

ERROR 

LlOnl 



2672 





4363 

L C006 

1 


EXT EMU 







2673 

■ AcF 

1 

LAST 

376 

4364 

V 5 Oil 

1 


WUR 

DSALMUUT 

BIT 7 UF CHANNEb 

i 1 




2674 

REF 

l^ 5 

LAST 

385 

4365 

U 0002 

yj 


TC 







26£;3 





436 6 

4. 0056 

1 

LUjSAMPT 

E XTti InID 






1 

2684 

REF 

11 

LAST 

234 

436 7 

3 C'525 

(» 


UCA 

f lfib2 






2685 

REF 

5 

LAST 

29 J 

4379 

52 014 

0 


UXGH 

SAMP { I Mb 





- 

2686 

REP 

lij 6 

LAST 

335 

437 i 

f V 

0 V w 

U 


a 

■V 







268? 

2688 

2689 

REF 

REF 

2' 1 

2'. 2 

LAST 

LAST 

383 

385 

4372 

4373 

4374 

W V 0 J 6 

3 9 156 
2. 156 

1 TPSLl 

G 

1 

cXT EMu 
UGA 

DAS 

KPAG +1 
KPAC +1 

SHIFTS rtPACt +li +2 LEbT 1 

LEAVES OVFIMD SET TO +/- i FOR ;.‘F/UF 


269C 

REF 

25 5 

LAST 

385 

4375 

6 154 

1 " 

”au 

VPaG 



2691 

REF 

2C4 

LAST 

385 

437 6 

26 154 

+ 4 

ADS 

KPAG 


. 

2692 





4377 

54 u - 7 

1 

TS 

7 

TS A DUES MOT CHANGE A ON OF/ UP 


2693 

REF 

1g7 

LAST 

3 35 

44 L ' 

W ' 'G -.’2 

' ^ 

(L 


MC Ni T OF/UF 

i 

2694 

REF 

O 

L AST 

362 

44. 1 

54 lu2 


TS 

MFaC^o 

MPAC +6 SET Ti +/-1 FUR UF/UF 
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L J^IiNbALL uAHL LiUriUNS ANU LlGHIS 


USER'S PAUfc NU^ 69 X.. Si 


REF i' d LAST 3Si> 





TC L 


! ^*6‘y6 IF RPAC* ARE EACH ♦NZ UR +0 ANO C(A)=-:jf SHUKTMR v^RUi^lULY 61VES + « 

.P6v7 IF MPACt +1 ARE EACH -NZ OR -U AND C(A)-+u, SHORTMP WRUNGLY c,lYLS + - 

' PRSHRTMP Fixes FIRST CASE ONLY, BY MERELY TEsIING L(AI AND IF IT = -c. , 

iiZb99 SETTING RcSULT TO -Co 

^27 y (DC NOT USE PRSHRTMP UNLESS MPAC, +1 ARE tACH +NZ JR + , AS THEY ARE 

R27U WHEN TH EY C ONTAIN TH E :>F CONS T ANT S o I _ ^ 


Z 

RcF 

1 



440 3 

34 133 

1 

PkSHKTMP is 

MPrCMP 

_ ^ 

4L1'. 

REF 

123 

LAST 

382 

44u4 

i U ci J 

. ■ 

CCS 

A 


27 A 

REF 

2 

LAST 

386 

^405 

3 V i 3 5 

V 

CA 

RPTLHP 

CIAJ +, DC REGULAR SHDR'^MP 

27* S 

REF 

6 

LAST 

369 

44 U 6 

1 7237 

1 

TCF 

SriURTMP +1 

C(A) * t DC REGULAR SHORI MP 

27' 6 





44u7 

1 44 >3 

'l* 

TCF 

-2 

C(A) -f DO REGULAR SHORi/P 

Zf'l 

^f^F' 

'Y^ 

last 

383 

44 ic 

4 4772 

J 

cs 

ZtRu 

CiM) - , FORCE RESULT TU - 

/Tl Lt S 

REF 

2l5 

LAST 

385 

4411 

54 i:>4 

u 

TS 

MPAL 


27H9 

REF 

2l6 

LAST 

366 

4412 

54 135 

1 

TS 

MPAC +1 


^71 . 

REF 

2u7 

LAST 

336 

4413 

34 130 

1 

TS 

MPAC +2 


2711 

REF 

iC9 

LAST 

386 

4414 

u 1. o J 2 

5 

TC 

u 


2714 

REF 

21 

LAST 

382 

4415 

4 476£) 


LPACTuFF ls 

eiT3 

TURN OFF UPLINK ACTIVITY . 

271S 





4416 

1 442iJ 

1 

TCF 

+ 2 


2716 

REF 

24 

LAST 

385 

4417 

4 47 63 

U 

FLASHUFF CS 

eiT6 

lURN OFF V/N FLASH 

2717 





442 V 

Q uO J6 

1 

tXTENU 



2718 

REF 

11 

LAST 

385 

4421 

U3 Cll 

1 

i««lANO 

DSALMGLi I 

SIV 6 lF CF/iNrifcL il 

2719 

REF 

11^; 

LAST 

386 

4422 

0 0002 

6 

TC 

C 



27191 

27192 

REF 

REF 

126 

2 

LAST 

LAST 

366 

143 

4423 

4424 

5U OOo 
3 4063 

1 CQJSTOR 

U 

I NDo X 
C AF 

A 

HtLTAB 

2719 3 

REF 

5 

LAST 

370 

44Z5 

7 4342 

1 

MASK 

L.UW3 

27194 

KEF 

13 

LAST 

379 

4426 

54 124 

1 

TS 

Cdi) L 

2719 5 

REF 

5v 

LAST 

382 

4427 

3 1202 

' i 

KJ 

oA 

U' ^ C U i ^ 1 

2719 6 

REF 

11 

L AST 

371 

443 C 

54 143 

0 

TS 

L CUN T 

2719 7 

REF 

ill 

LAST 

306 

f^43 1 

G 0 S 2 

0 

TC 

<4 


AND RE TURN o 
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L PINBALL GArtt t3UTT0NS AHJ LIGHTS 


iMM<HAL LJi>L uF KEYBDARU ANU DISPLAY PROGRAM 

i<2Ul OSeR_PLiSI SCHEDULE CALLS TO NVSUB SO THAf T lifcEE_ I S.JJO QoivFLiXT— OF UXXJJR 
R27^2 CCNFOSION TO OPERATUR, iMt ULU bRABLOCK ( INI ERNAL/ INTERNAL INTcKLOCR J 

R272i HAS BEEN RtMOVEO AND THE INTtRNAL USER NC LUNGER HAS THE PRUTECTION THIS 
*v272A OFFERED* 


R2726 
R 2727 
R2728 
R2724 
R27J^ 
R27Si 


THERE ARE TWO WAYS A JOB CAN BE PUT TO SLEEP BY THt KEYBOARD + DISPLAY 
P KOOK Art* I » BY ENDIDLc 

“ 2 1 bV NVSUiBUSY 

THE EASIC CONVENTION IS THAT ONLY ONE JOB WILL BE PERKnT;iQ aSlEcP VIa 
THE KEYBCARD + DISPLAY PROGRAM AT A IIME* IF A JOB AT ftrtPTS TO GO TO 
SLEEP BY rttANS OF (1) OR 12) AND THERE IS ALREADY A JOB ASLEEP THAI WAS 
PUT TO SLcEP BY tiJ OR tO), THEN AN ABORT IS CAUSED^ 


K^732 
R 273 3 
R2734 
R273S 
R2 736 


THE CALLING SEOUENCE FOR NVSUB IS 

CAF V/is 

L TC NVSUfe 

L + 1 RETURN HERE IF OPERA TOR HAS INTERVENED 

L42 _ RETURN H ERE AFTER E XECUTIO N 


K2737 A ROUTINE CALLED NVSUBOsY IS PROVIDED lUSE IS OPlIONAi.i ID PUT 

R2738 YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES THE KEYBOAKC + DISPLAY 
R27i9 SYSTEM* NVSUSUSY ALSO TURNS ON THE KEY RELEASE LIGHT, 

R274‘ NVSUbUSY CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY, 

R2741 'SINCE JOBsIeEP AND JCuiWAKE CAN HANDLE ONLY FlXtD BANKS. 


K2742 

R2743 

R2744 


THE CALLING SEQUENCE IS 
GAP WAKEFCADR 

rc NVSUBOSY 


R2745 


FJ274C_ JlVSXbLSY IS I NTENDED F OR USE WHE N Al>LLNTX_Ri.^AL P ROGR A'i FlRpj IHc DPLRmIGR 
R2747 IS USING THE KEYBOARD + DISPLAY PKuGRAH (BY HiS OWN INI I I ATI Ob I* IT !;> 

K2748 NCT IMENDED FOR USE WHEN ONE INTERNAL PROGRAM FINDS ANUTFcK INTERNAL 

R2T49 PROGRAM U^ING THE KEYBQAkG + DISPLAY PROGRAM* 


R2751 

R27i>2 


R2753 

R2754 

R27S5 


RViUfiOS.y I F. A S£GOjiij._J Ts^m 

SLEEP IN PINBALL* IN PARTICULAR, IF AN ATTcMPT IS MADE 1C uD TU NVSUBUSY 
WHEN 

IJ CSPLIST NOT= +.* THIS IS THE CA^E WHtR.-: THE CAPACITY LF THc LsklIST 

is exceeded* 

2» CAORSTOR NGT= +0. THIj INDICATES THAT A JOB IS ALREADY USING 


u Ap; 


L 

Ki7bo 
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Ib^Z 

Ref' 

4. 

LAST 

394 

27f 2133 

3 5c3 1 



C AF 

1S4J 

HEP 

59 

LASI 

3 ‘"f 

27f 2134 

u 46S6 



TC 


KEF 

1 



27,^135 

2c 71. 
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2 )9 

LAST 

395 

27,2167 

c V 1 5 O 

r 

i 


TC 

1573 

REF 

6 

LAST 

263 

27,217'. 

3 47o4 
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GU SET BITS FOR PRIORITY DISPLAY - 

’t 

TKACKBl T 

F L A^jIrlKDl 

IS TRACK FLAG ON 

GJREDu2i 

NO 

CPFLAu 

PDoPFlAG 

R6. PKIOOSP FLAG 

F L A y W R D B 
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THE UlRGCTiON IN WHICH THIS AXIS IS TO BE POINTED MUSI APPEAR AS A HALF UNIT DOUBLE PRECISION VECTUK IN 
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20,2115 

7 4752 

1 


MASK 

dlT15 

RCS FL AGS ) 

‘ 1 3 

REF 

J 

LAST 

42o 

20 f 2 11 d 

27*5. >i 



ADS 

K uSFLAGS 


. 1' 4 





20,2117 

0 0006 

L 


EXT Er4U 



1C 4 5 

REF 

3 

LAST 

416 

23, 212 C 

3 1711 

1 


DCA 

BC AT E 

X-AXIS MANEUVEk rate 

. 1 1 5 

REF 

a 

LAST 

187 

2l3 f 2 1 2 1 

53*526 

U 


UXoH 

WbUDY 


9 1C 6 





23,2122 

0 L 0 -j b 

1 


EXTEND 



V iC6 5 

REF 

4 

LAST 

42 J 

26,2123 

3 1713 

U 


DCA 

fcSi^A t £ +2 

Y-AXIS MANEUVEk RATE 

' 1l7 

REF 

2 

LAST 

136 

23,2124 

53 ' 5;> ^ 

1 


DXCH 

KbuDYi 


CIO 8 





2;, 212 5 

d 3, w t> 

1 


EXTEND 



:iC585 

REF 

i> 

LAST 

42l.- 

21 t 2126 

3 1715 

u 


DCA 

Br<A T £ ^4 

Z-AXl S MANEUVER RATE 


C1C9 

REF 

iL 

LAST 

112 

2 ,2127 

53*532 ; 

DXCH 

WaODY2 



OUT: 

KEF 

2 

LAST 

416 

2u,2i3 . 

3 1675 1 

CA 

fi I A S T b M P 

+ 1 

INSERT ATTITUDE ERKUR BIASES 

cm 

REF 

2 

LAST 

113 

20,2131 

• 5o4 L 

TS 

BIAS 


INTO AUTCPILOT 

0112 

KEF 

3 

LAST 

423 

2 J t ^ 1 3 2 

3 167 7 

CA 

eiMjTEMP 

+ 3 


0113 

REF 

2 

L AST 

113 

2u ,2133 

55*565 1 

TS 

BIAjI 



0114 

REF 

4 

LAST 

4 2 3 

23,2134 

J 1 7 u 1 'j 

C A 

BIAS T lMP 

+ 3 




ASStttJiLt 


F tV lb 1 UK D 72 tif __Ai^Ct AtiUiM 



KALCMAliU >Ifc£RING 


11 > 

A cF 

2 

LAST 

113 

2Q.2i3S 

35 '366 

1 


IS 

cl AS2 

lit.' 

REF 

9 

LAST 

313 

2. f 2 13 6 

3 V - iJ 2 5 

0 


LA 

T IMEi 

117 

KEF 

5 

L AsT 

j 

20,2137 

6 5.'16 

1 


AD 

is EL 

11. 

REF 

1 



20,2146 

57*671 

t 

V 


XC H 

NeXT I ME 

11’ 

RFF 


LAST 

423 

2u,2141 

j 466 5 

W 


T6 

PUSTJUHP 


KfeF 

2 

LAST 

419 

20,2142 

45C 77 

J 

W 


CAUK 

INCKUCUU -1 






2^,2143 

u 

A 

'W 

CONTMANU 

INHINT 


123 

REF 

1-.: 

LAST 

421 

20# 2144 

4 V-U25 

I 


LS 

T IMEl 

T24 

BEF 

2* 

L AS’T 

421 

2 0 f ^ 

6 1671 

r 

Ly 


AU 

Kc X r i >^c: 

' 12 ‘3 

REF 

132 

LAST 

->93 

2.0 t ^ 

1 ' . 0.0 

1 -f 


CCS 

A 

126 

REF 

4S 

LAST 

42 J 

2 J,2i47 

6 477 1 

1 

4 . 


AO 

CiVb 

.127 

H EF 

1 



20 1 Z 13 > 

1 2153 

4 


TCF 

HANUCALL 

12 c- 

REF 

1 



27,2151 

o 4762 

V 

h. 


AD 

i\ cGMA X 

129 





20,2152 

4 006' 



LOM 


Tijr 

" RtT-' 

5 

lA^T" 

■"266" 

Ztrr2i5y 

0 5223 

1 

M AN u C all 

TC 

I OQLl 

t 131 

REF 

1 



20,2154 

'JZlol 

4^1 


ADRES 

UPDTCALL 

C133 





2 ^,2155 

i> 16-3 

1 


RELI NT 


1134 

REF 

6 

LAST 

421 

2< , 2156 

3 5 . s 1 ti 

0 


CAF 

1 jcL 

. 133 

REF 

3 

LAST 

421 

2y,2i57 

27 *6 7a 

1 


ADs 

NEXT IML 

136 

REF 

47 

LAST 

A19 

20,2166 

i 52.^5 

1 


ILF 

ENUUFJOfi 


137 

KEF 

3 

LAST 

42 ; 

^ w/ f ^ 1 6 X 

3 4767 

t 

4 

LPUTCALL CAF 

RSTblT 

< 1371 

REF 

17 

LAST 

42v 

2v,2162 

7 Olu4 

' 1 

•», A 

MASK 

FL AGWHD8 

■1372 





20,2163 

0 i ’ 0^ o 

L 

EXTEND 


■ 137 3 





20,2164 

1 2171 

U 

8ZF 

+ 3 

■ 1374 

REF 

7 

LAS T 

272 

2072165 

11*774 

L 

CCS 

R61CNTR 

vl375 





2*J t X66 

i 2170 

1 

Ti;,F 

+2 

61376 

REF 

1 



20 f 2 X^ 7 

1 2176 

1 

TCF 

LCKtMiS 

(1377 

RFF 

8 

LAST 

421 

f Z X 7 o 

55*774 

U 

TS 

0 i C '4 Fk 

1376 

H £F 

1 



2ij t ZX7 1 

3 763 w 

,.j 

CAF 

PR 1026 

! 138 

REF 

16 

LAST 

385 

Z^t4LllZ 

V 5135 


TC 

F In 07 AC 

-139 

REF 

15 

LAST 

419 

E 6, loo 1 



EBANK= 

buOU 

14 

REF 

1 



Z o I Z X 7 2^ 

03»37 

j 

2CADR 

NcHOELrt 1 

14 

REF 

1 



Z 0 f 2 \0i ^ 

44u6b 

1 



141 

REF 

13 

LAST 

363 

2 >,2175 

o 5314 

1 

1 

• 

r 

TASKOVcR 


141 1 

REF 

2 

LAST 

421 

2l, 2176 

3 7650 

L 

CDKEKIS LAF 

RR1U26 

1412 

REF 

17 

last 

421 

2w,2177 

u 5135 

0 

TC 

1 li^liVAL 

L 1413 

REF 

16 

LAST 

421 

E6, 166 1 



EBANK= 

ecou 

1414 

REF 

2 

LAST 

23'. 

20,<i2L <- 

02374 

w 

2CaOR 

Ra r S S 1 K f 

1414 





Z .3 f jlZ^ X 

74 366 

1 



1415 

BEF 

14 

LAST 

421 

2-,22v2 

u 5314 

i 

TC 

IASKG7EK 


FfcBc -^b»197I jl QGENhSo -64 ELAiLt — 4iLi — 


UbtH * S PAGE iNitJa_ 4 . E6 S3 


CO.NTINUE WITH UPDATE PRuCtSS 


INCREMENT TIME FOR NEXT UPDATE 


OF SIEERING CUMMANDS 


MAKt SURE MIS DUES NUT DlGkADE 

- I IM I m ^ If ■ ^ ~ 


AP ; 


PRGbKAri A HimiS,.B.jL^LASA, _ 


ii. s 4 _ FE B« ^6 tl iZi. D I Qb h. li tL ^ a v. P A l i -L . 


L KAL CHAUU jT BERING 

P i4^ RCUIIM. TEKMlNATiNG AUTOMATIC MANLUVERb 


USER VS PAGE NOo 


E6 S3 


< 14Z S 

REF 

1 



i iLutjJLltJA 



» lAZfc 





Z303 



V 14Z 7 

REF 

1 






vl4B 

REF 

1 



1 0 f 23c/ 3 

U 447 4 1 

MANUS top 

' 144 

REF 

18 

LAST 

^66 

iC,23C4 

4714 1 


1445 

REF 

1 



1 U f ^3 u 3 

45165 1 


145 

REF 

5 

LAST 

4 3 

ICf23L'6 

3 1 3 J 7 1 

L NO ROLL 

' 146 

KEF 

3 

LAST 

419 

10,23L7 

5 5 ' 646 


* 14 9 

REF 

4 

LAST 

415 

10,2317.' 

- 44a3 1 


15 

REF 

2 

LAST 

J9u 

10,231 1 

3 5053 i 

ENOMANU 

151 

REF 

18 

LAST 

421 

10,2312 

U 5135 w 



REF 

7 

LAST 

421 

£6,1774 



’ 153 

REF 

1 



1C, 2313 

2141 1 


C153 

REF 

1 



lo, 2314 

5 6 - 6 6 1 


L155 

REF 

15 

last 

421 

10,2315 

U 5314 1 


V 1 S 5 ^ 

KEF 

7 

LAST 

178 

_ . _ 4 JvL- 



L1556 

_ .Ijul—I 

- 



4^63 



M557 

REF 

1 






'156 

REF 

89 

LAST 

42 J 

4463 

3 4772 1 

STuPkaT £ 

< 15 7 

REF 

3 

LAST 

419 

4464 

53*575 L 


*. 15 8 

REF 

4 

LAST 

422 

4465 

5 5 ' 5 7 6 0 


C 159 

REF 

9 

LAST 

42-.) 

446 6 

55*525 C 

. , _ _ . — 

C161- 

REF 

1 . 

LAST 

422 

4467 

55 * 52o i' 


C161 

REF 

3 

LAST 

42 J 

447 1 

53 * 564 C 


'1611 

REF 

33 

LAST 

42 

447 1 

4 4752 1 


tl612 

REF 

4 

LAST 

420 

4472 

7 156 1 s.' 


’ 1613 

KEF 


L AS f 

422 

4473 

55*501 0 


16Z 

REF 

9 .. 

LAST 

422 

447 4 

5 47/2 1 

SfdPYZ 

' 163 

REF 

f 

LAST 

113 

4475 

55*577 1 


^ 1 64 

REF 

3 

LAST 

422 

4476 

5 5 • o - 1 


165 

REF 

2 

LAST 

113 

4477 

55*6.;i u 


• 166 

REF 

3 

LAST 

422 

43t;0 

55 * 602 0 


k. 1 b7 

REF 

3 

LAST 

42'> 

43U 1 

55*527 1 


<168 

REF 

4 

LAST 

422 

4 3 1 j 2 

p5*53v 1 


cl69 

REF 


LAST 

420 

45.3 

55*531 


il7': 

REF 

4 

LAST 

422 

45 u 4 

5^*532 *. 


C171 

REF 

3 

last 

429 

45u 5 

55* 565 1 


' 172 

REF 

3 

LAbT 

421 

45*.. 6 

55 * 56o 1 


173 

REF 

12 - 

LAST 

42 

45-7 

0 OQjZ u 


1735 

REF 

2 

LAST 

42 C 

20, 2 *1 • 



E 1 7 i 6 





2\J ff 3 




i>JEJLUC . RACumi' 13 . 
BANK 


COUNT 

fc 

TC 

GAPiL, 

CA 

TS 

TC 

caF 


E BANK— 
^CADR 

TC 

SlEIIXIc. 

bank 

COUNTS 

CAE 

TS 

Ts 

TS 

Ts 

Ts 

C 5 

.'lASK 

TS 


TS 

Tc. 

TS 

Ts 

rs 

TS 

TS 

rs 

Ts 

TC 


$t/NALC 

sruPTZ 

laNKCALL 

LOAOTZ 


LPrii 
CDUXu 
STUPRAT £ 
PRi Jl4 
EiNpy^ 

kst c i jt r 

E NU H AN J V 
1 aSKUVcR 

SOilERAT 

4 $/ K ALC 
ZcRU 
CELCOUX 
CELCOUX +1 

hsOOT 1 
filAS 

BlTlb 

kCSFLAc»S 

RGsFLAbS 


SET CDUXD TC THE COMMANUEU i UTEk GIHBAL 


ZERO 
tuLCUUY 
DELCDUY +i 
CELCOUZ 
LELbOdZ +i 


WiiUUYi 
W BODY 1 
id3D'i^ 

RdijdYZ 

EIASi 

BIASZ 


+ 1 


+ 1 


n 

*>t 


ZtKU KCLL INCREMENTAL ANGLES 

kat t 


BIAS 

make sure high rate flag taiT 15 UF 

RCS FLAGS) IS RtSLTo 


ZERO PITCHf YAW 
incremental ANGLES 


RATES 


61 A^.ES 


SETLCC MANUSiUF 
BANK 


UAP : KUiiiJm -wliL.Ut NASA. .J^i^... 


L 

KALCMAHU 

^ T t t_K 1 N G 






1731 

.HEF 

j 

4L 

LAST 

^2. j TU 

422: 

79 79* 


CUUNT* 

*$/KALC 

* 174 

REF 

ti 

LAST 

409 

20»22L 3 

3 0U32 L 

ZEKULRUR 

G A 

CUJX 

lib 

REF 

4 

LAST 

422 

Zxj f 22u 4 

55*646 0 


TS 

CDUXU 

17o 

REF 

3 

LAST 

243 


3 OC33 1 


U A 

CCUY 

-17 7 

REF 

2 

LAST 

114 

2u#22C6 

S 5 * o „ 1 


TS 

CDUYLJ 

*178 

REF 

7 

last 

4C9 

20,22u7 

3 C 33 4 D 


CA 

ecu 2 

179 

REF 


L AST 

114 

f 2,2. i ^ 

55 ' 652 U 


TS 

CDU2J 

ClBu 

REF 

121 

LAST 

422 

2*>J f 22 1 1 

u 00G2 0 


TC 

Q 

Lises 

REF 

5 

LAST 

" 418 

22f2LGC 



SET LUC 

KALCHuN 

C18 6 





22,3163 



BANK 


Ll 8 -. 8 

REF 

o 

LAST 

-418 T U 

42 2 

84 627* 


COUNT* 

% K ALC 

< IBl 

REF 

6 

LAST 

422 

22,3163 

3 13l7 1 

LOAUCUUO 

CA 

CPHl 

<182 

REF 

5 

LAST 

423 

22,3164 

55*54o -.1 


rs 

COUXD 

'^iss' ■ 

REF 

1 



22 , 3lo 5 

3 131 1 

LUADYZ 

CA 

C THETA 

‘ 134 

REF 

3 

LAST 

423 

22, 3166 

55*650 1 


TS 

CDJYU 

' 185 

REF 

1 



22 w ^ 7 

3 1311 6 


CA 

CPSI 

<136 

REF 

3 

LAST 

423 

22,3170 

55*652 VI 


TS 

CDUZD 

L 187 

REF 

122 

LAST 

423 

22,3171 

it 0002 0 


TC 

U 


1 lllQGbNE S.Li6A £A££ 



USER'S PAGE NQ® G 


E6 S3 


PICK UP CUU ANGLES AND STOKE IN 
ecu DESIRED 


STOKE TERMINAL ANGLES INTO 
COMMAND ANGLES 


m 


w 


I 


bAPi ^AaSEhJtiLi^iLutfiSJm- 72 LP 


iiASA 2^UlXl<t~^±l 


H:4l. F£B. 2^ : .1s 71 Dl OGFNEj^ . :64 _ — 4ZA 


SYSIl.'I 1t:>T STANDARD LEAD iNS 


USEH»S PAbt NO. 


S j 


^ - 1 

REF 

13 

LAST 259 E5.167i 

tBANK= XSM 

i '■ J 

KEF 

1 

1 3 1 L/ 

:i eT_L-UL_1 / PAUGl 

L 



13,2036 

BANK 

C L '5 

REF 

1 


CaUNT+ $t/P 7 


SPECIAL PROGRAMS TO EASE THE PAAGS uF ERASAdLt MtHUKY PROGRAMS 


RCD07 E/BKCALL FOR GOING BANKCALLS FROM AND RETURNING TU ERASABLE, 

K^.OCB this routine is CALLABLE FROM ERASABLE OR FIXED* LIKE 6ANKCALL, HUWEVERf SWITCHING BETWEEN S3 AND S4 

RCnii' IS NO I POSSIBLE. 

Tl EANRCAlL _ _ . 

CADK E/BKCALL 

CADR KUUriNE WHERE YOU WANT TO GO IN FIXED* 

RETURN FERE FRUM DISPLAY TEKMliMATEf BAD STALL OR TC Qo 
RETURN FERE FkOM DISPLAY PROCEED CR GQUD RE T URN FRUK STALL^ 
RETURN HERE FROM DISPLAY ENTER CR RECYCLE^ 

18 This ROUTINE REQUIRES TwO EKASAELtS lEBUFEf +1) IN UNSWITCHED WHICH ARE UNSHARED BY INTERRUPTS AND 

K 2 ETHER EM6HOKY PROGRAMS* 


ALL12 

AC013 

Aot 14 
ALOIS 

_Av L Ic^ 

a V - 17’ 


R . ,21 A \ ARE PRESERVE D THROLTuh BANfci:AJJ>-^Nll-E/JiKl^ 


V 2«. . 

V.23 

V •. '24 

i * 2 5 

t ' 26 

REF 

REF 

REF 

REF 

REF 

3 

2 

3 

11 

4 

LAST 

LAST 

LAST 

LAST 

LAST 

395 

8U 

424 

381 

232 

13* 2o36 
13, 2o 3 7 
13,2041. 

13.2041 

13.2042 

32 134 
53*113 

25* 114 

3 GO w 6 

7 5041 

V 

1 

1 

1 

V* 

E/BKCALL DXCH 

DXCH 

INCR 

CA 

MASK 

dUF2 

EBUrC 

EBUF2 
' a BANK 

LOWl 

SAVE A,L ARD.GET DP RETURN* 

SAVE UP RETURN* 

RETURN +1 BECAUSE DOUBLE CADR* 

GET CURRENT FBANK* ( SBANK SOMEDAY! 

:c27 
< i 2 S 
iC29 

lG3'. 

A v*,'3 1 
Lt.'32 

REF 

REF 

REF 

5 

1 

last 

LAST 

424 

424 

13,2043 
13, 2u44 
i3 ,2 J45 
13, 2 V 4 0 

13,2047 

27 • 115 
51*114 
2* 7777 
G 4642 

C 2053 

1 

1 

i.; 

J 

ADS 

hDX 

c^ 

To 

TC 

EoUF2 +1 

EBUF2 

-1 

g><call 

14 

FORM bBCONo (WAS FbANK) 

bET CADR OF ROUTINE* 

GO TO ROUTINE, SETTING 0 TO SWRETUKN 
AND RESTORING A + L 

TX Q, V34, OR BAD SI ALL RETURN* 

C‘ 33 

"" 




13,205; 

0 2052 

1 

TC 

+ 2 

PROCEED CP GOOD STALL RETURN* 

34 

REF 

6 

LAST 


13, 2 j5 1 

25 * 114 

1 

INCR 

E iiu ^ 2 . 

enter ok RECYCLE RtlURN* 

Ll3S 

REF 

7 

LAST 

424 

13,2052 

25* 114 

1 

INCR 

t 


( 1-36 

REF 

8 

last 

424 

13,2053 

33' 113 

1 

E/Swl rCH DXCH 

EjJFZ 


LC 3 7 





13,2054 

5^ wi tr 


DTCB 




r i 


\ S. 


W i_ A ;> i ON 7^ LF AuC HRGbRAM ART.EM i S JlY_NASA. Z . Z i ■lij;^4:^££aa„Z6 xlSJ.1 llLQG£Ii£_S^Liij5t EAiai: _ik2iJ 


L SYbItH TfciT STANDAHU LtAU INS USEft'S PAGE Z Ei> S3 


p t t/3b 

e/LALL 


FOR 

CALLING A 

FIXEO KEMORY iNTEKPRcfiVt 

SUbRUuT 1 Nt 

FROrt. ERASABLE AND RETURNING TO ERASABLE. 




THE ' 

CALLl NG 

SE«JUEnCE 

1 S o « • 






ACOAl 








RTb 




A ct- 4 ^ 









E/CALL 



A Ct 43 








C AuR 

ROUT INt 

THE liNTERPRETIVE SUaROUTINE YOU 

WANT. 

A'.L'44 










RETURNS HERE IN INTERPRETIVE. 


1'ti 45 

REF 

2 

LAST 

223 

i3jt2j5 5 

22 164. 

1. 

E/CALL LXCH 

LUC 

_ ADKES -I OF CADR. 


\ C4 6 

REF 

51 

LAST 

420 

l3tZC56 

5 U V w 1 

‘J 

INDEX 

L 



1 (A 7 

REF 

i>Z 

LAST 

425 

13,2057 

^ C- jr 1 

Vi 

6A 

L 

CAOR IN A« 


' L4b 

REF 

5-> 

LAST 

425 

i3,2.;o\. 

24 001 

3 

U 

INCK 

L 



49 

REF 

54 

LAS! 

425 

13, 2G61 

24 OCl 

G 

INCR 

L 

RETURN ADRES IN L. 


uf> 

REF 

9 

LAST 

424 

13,2062 

53* 115 

1 

DXCH 

EdUF2 

STORE LADR AND RETURN. 


Cit>l 

REF 

17 

last 

413 

13,2o63 

u 61 J6 

1 

It 

INTPRET 



Ui 52 





13,2064 

77624 

1 

CALL 




vC 53 

REF 

1 

LAST 

425 

13 f ZiJb5 

l1114 

1 


£BUF2 

INDIRECTLY EXECUTE ROUTINE. 11 

MUST 

CO 54 





13 ,2u66 

77770 

1 

exit 


LEAVE VIA RVO OR EQUIVALENTo 


Cr55 

REF 

li 

LAST 

425 

13 f j^Ub 7 

23* 115 

ii 

LXCH 

t3uF2 +1 

PICK UP RETURN, 


i. t;56 

REF 

18 

LAST 

425 

13 r 2u7 Li 

1 t> s. 1 ’ 

1 

tcf 

INTPRcI +2 

SET LOC AND RETURB TO CALLER 



hP : A iiL:> t M uL t K L i S 1 U W PK.U jiiAii_ 




_1JJ 4.. ■ f Lii a 2 6 1 1 ajx 


!\i[ S-^ j'AGi 


jVSTLM lur standard lead ins 


USER'S PAUfc NU. 




D 0-1 


h' . V- J i 




R LL6 


t_ / JOUWAK 


FDK WAKl)>(b UP cHASAULt MEMURY JOBi. 
lilii - KUUTIiM E MUST B£_LAJLLEjj .1-N JNJjtJiiiUPT Gul-ktOil - i T EfaJ^UP 
(HE CALLiHG S£WUti>jCL IS; 


A' (.ol 
AE( 62 

Ati'Oi 
Af.064 
Ai 65 
A \ V t*o 
A’.c67 
AvU6B 
^6 S 
A ( '.7* 


INHINT 

rA 

& 


CA 

rc 

GADR 

a 


■o 

a 


RELINI 


!ti AK fcA JK 
1 6N KuA L L 
E/JUBWAK 


ADDRESS UR SLEEPING JOB 


RETURNS HERE 


IE YuU UiL AN INHINT 


CE72 
f C 73 

' t 1 ^ 

REF 

R tF 

i 

1 



1 -2 t ^ v. L’ 
i 2 f 2 C fc,/ ^ j 



SETLOC E/PRJG 

BANK 

, COUNT »S:F/£^7- 



^ -r- 1 M ^ 

'■ ' J 

IfcJ 

KcF 

.iJh 

3 

LAST 

388 

12 1 ‘ 

si. 5 io / 

1 

E/JuBWaK tc 

JU8H AKt 

ARRIVE IWTH 

AORES IN A.t 

t'.. 76 

REF 

18 

LAST 

339 

12 f 1 

4 47f>o 

0 

cs 

1 ITil 



' < 77 

REF 

2 

LAST 

383 

i2,2o'w2 

50 064 

0 

NDX 

LOCCTH 



7 8 

8 EF 

3 

last 

425 

1 2 r 2C C 3 

26 164 

|- 4 

Sr' 

AOS 

LUC 

KNOCK FIXED 

MEMORY BIT GUT UP 

< C7^ 

REF 

1 



12,2004 

C Co 7 2 

1 

TC 

KUPTKEG3 

RETURN 



RCC8{ 

RCCj82 


THESE PROGRAMS ARE PkJVlUEU TO ALLOrt UVERLAY UP BANKS So Tdr.J S3 uP THt 2 l 5 VEkSICKS OF SYSTEM TEST, AMD 
PRELAUNCh ALIGN* THE INTENT IS TO ALLOW THc ST G AND HYBRID LABS TO RUN ALL THE TESTS WITH COLOSSUS 


CG85 
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4521 
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PROGRAM NAME-aPTIMUM PRELAUNCH ALIGNMENT CALIBKATIUN 
lATL- NOVEMBER 2 1966 

B\- GEORGE SCHMILT IL 7-146 EXT<, 126 

MOD NU 3 

K v 34' - 

functional DESCRIPTILN 

~uT41 
t<\ 342 

R 1 34 3 

R •' 344 
RC343 

R 346 

kTJ47 

THIS oECTlON CONSISTS OF PRELAUNCH ALIGNMENT AND GYRC DRIFT TESTS 

INTEGKATtU TOGETHER TU SAVE WORDS# COMPASS IS COMPLETELY REGTArT 

PRQCFED EXCEPT FOR THE FIRST 30 SECONDS CR SO* PERFORMANCE TE6TS OF 

THE IHIG S IS REST ART PROOFED ENOUGH TO GIVE 73 PERCENT CC.'iFIDENCE THAT 

If A RESTART OCCURS THE uAT A wlLL STILL BE GOOD* uOOO PRACTICE TO RECYCL 

WHEN A REcTAKT OCCURS UNLESS IT HAPPENS NEAR THE END Or A iESI-THEN WAIT 
fCR~TRl UATa Tu^ FLlilih* 


kv.3471 A RESTART IN GYRGCQMPASS DURING GYRO TORwUlNG CAUCiti PUL ShS TO bt LOST 
Rtj^c' THE PRELAUNCH ALIGNMENT TbCHNIwUE IS BASICALLY THE SAME IN BLOCK 1 


RC349 

RC33l 

A P 351 

R 3 52 
R- 35 3 

K 354 
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R V 3 5 o 
_R_357 

EXCEPT IFaT it HAS BEEN oIMPLIFItD IN THE SENSE THAT SMALL ANGLE APPRUXo 

HAVE BEEN USED* THE DRIFT TESTS USE A UNIQUE IMPLEMENTATION OF tH£ 

OPTIMUM STATISTICAL FILTER* FOR A DESCRIPTION SEE E-1973,BUlH OF THESE 
ROUTINES USE STANDARD SYSTEM TEST LLADIN PnOCEDURES. THE INI Ti AL IZ AT ION 
PROCEDURE FOR THE DRIFT TESTS IS IN THE jDC S* THE IN IT I AL IZ AT I ON METHOD 

FOR gyrocompass is an eras load then A MISSION PHASE CALL# 

TFE COMPASS ALIGNS TO Z D'0WN,X DOWNRANGEt HAS THE CAPABILITY 

CHANoE AZIMUTH WHILE RUNNING t IS COMPENSATED FOR 

COMPONENT ERRORStlS CAPABLE OF OPTICAL VERl F I CA T iUNi CSM ONLY)* 

RL35a 

COMPASS ERASABLE LOAD REQUIRED 

.< i'35 9 

RC360 

H 361 

i-LAUNCHAZ -OP AZIMUTH IN REV FROM NORTH OF XSM DESIRED tNGM=«2J 

2- LATITUBt -DP-OF LAUNCH PAD 

3- AZIMUIH-DP-CF ZNB OF VEHICLE 


rTbeH 4- rwu CCMPENSATION PARAMBTERS 

K.362 5-A2 ANC ELEVATION OF TAnGLTS it! »^‘*=»=uPT iDNAL^*^^ 


8 l 363 

TC PERFORM AS PART LF COMPASS 

. H -3.64- 
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_izda£I-iCALJV£a.I£lCATliJlr^-^ . . - . . . 

2-AZIKUlH CHANGE-V 78 E 

K » 3o6 
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kl367 

RC368 

CURING OPTICAL VEklFICATlUN tCSM ONLY) ESSENTIALLY ALL OF INFLIGHT ALIGN 

IS CALLED IN ONE WAY OR ANOTHER# SEE THE LISTING. 

RC369 
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K(37' 

KL37i 
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♦ 
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0 
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I NHI NT 
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3 3 f Z Z 3 3 

3 C-j25 
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CA 
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R^ 

1 
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96 
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T8 
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TS 

PIP AY 
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TS 

PIPAZ 
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4 3 
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4 3 
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c 
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5 5 * 655 

1 


TS 
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0 6i J o 

1 


TC 
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R EF 
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0 
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1 
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(' 4-: 9 
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1 

- 
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■ 415 
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0 
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I 
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6 2263 

1 


TC 
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1 


TC 
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1 


TO 
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t-4^21 





33, 2264 

7 7624 

1 


U M L L 




V 4222 

KcF 

1 



33,2265 

64 3u 




EkTHKY 8 1 



4223 





33 f Z2b6 

7777o 

1 


EXIT 
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KEF 
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1 


CA 

LeNGTHG i 

TIMES FIVE IS the NuM UF SFC 

ERECT I ivU 

424 

REF 
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33,227t 

55 • 646 

0 


TS 

tKhC 1 IM t 



425 

REF 
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33f ZZ7 i 
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i 


TC 
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33,2272 
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U 


MM 

z 


4 

' 42 7 
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J 3 f Z Z T 3 
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u 
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KEF 

“2 

LAST 
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SLEEP lb 

TS 
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11 
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> 54 .'4 

1 
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FC 
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UCT 
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5P13SPTi 

— 
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HEF 
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TC 
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TC 
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33# 23 ^ 4 
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TC 
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TC 
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1 
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1 


EXTENU 
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AU 
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w 


AU 
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1 
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REF 
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u 
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FC 
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449 

REF 

1 
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TC 
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1 
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THE F AXl 

‘‘40 

REF 

215 

LAST 

437 

33, 2332 

5 - 154 

1 

I ND£ X 

MPAC 

:461 

REF 

1 
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c 
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0 
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1 
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A 
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>5 ' 314 

1 


DtLVX 



1 49 f’ 

REF 

98 

LAST 

438 

33, 23 7 L 

3 4772 

1 

LAF 

2cRQ 
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c3562 J 


VPAS$3 

.217 





35,2136 

43337 1 

VSR* 

SET 

‘;..218 





35,2i-J / 

57176 


f XL 

C219 

KEF 


LAST 

461 

35,2i4w 

%/34od 


kVSW 

*'22- 

REF 

3 

LAST 

461 

35,2141 

36746 1 

S JCALL 

V V c u 

c221 

REF 

2 

LAST 

401 

35,2142 

25' - .‘2 1 


1 i rl fc: T H c 1 

t222 





35,2143 

777-»5 1 

JLOAO 


<723 

REF 

7 

LAST 

4o8 

35 f 2144 

03663 1 


nvi 

C224 

KEF 

z 

LAST 

126 

35,2145 

035 J 3 1 

UR£ 

I 5 11 

u225 





3 ^ f 2 1 4 6 

77615 9 

L)Aii 


226 

REF 

2 

LAST 

461 

35,2147 

C..93 7 - 


J 

« 227 

REF 

4 

LAST 

165 

3i 5 , 2 1 5 - 

3 7 o 3 6 J 

SICALl 

tpas . , 

'22 a 

REF 

2 

LAST 

2.2. J 

35,2151 

7 2 5 a 1 


S34/33 ^ 

'-229 





33,2152 

51575 1 

VLUAU 

AaVAi- 

i73' 

REF 

5 

(.AST 

135 

35,2153 

.3o46 u 


D EL V El 1 3 

■731 

REF 

4 

LAST 

292 

35,2154 

26635 V 

STuVL 

u EL V i P 1 

;.232 

REF 

i 



35, 2135 

U3640 L 


VRAS-a 

*233 





3 5,2156 

51431 i 

VSu 

ABV aL 

-234 

REF 

3 

LAST 

127 

35,2157 

( j62 - 9 


VTPRIME 

£235 

REF 

4 

LAST 

292 

35, 216<.< 

26637 1 

STUVL 

UEl V fPr 

* 236 

KEF 

a 

LAST 

22 J 

35,2161 

ij3540 D 


• ACI J 

237 





35,2162 

45115 V' 

PD VL 

C A Li_ 

'238 

REF 

3 

LAST 

127 

35,2163 

.3612 1 


V IPKl/'tL 

< 23 9 

REF 




33,2164 

45174 1 


PERiAP j1 

(.2M 





35, 2165 

77624 1 

CALL 


9241 

REF 

1 



35 f 2Io6 

4533^- 


SHIr- 1 .si 

9242 

REF 

J 

LAST 

292 

35,2167 

16641 9 

^ r u J L 

FCaT 1 t'L 

<243 

REF 

8 

LAST 

4o8 

33,2179 

9' 3663 1 


r 1 p 1 

.244 

REF 

19 

LAST 

466 

35,2171 

-3413 1 

S 1 URc 

1 i ^ 

0245 





35,2172 

777 I b 1 

EXIT 


C246 

REF 

1 



35,2173 

3 4534 1 

CAP 

V - 6i'*38 

0247 

REF 

7 

LAST 

46 T 

35,21 74 

U 5555 1 

TC 

V NF L A8 ri 

9248 

REF 

4 7 

LAST 

4o7 

35,2175 

J 6 * J u □ 1 

TC 

i'.TPREl 

V 249 





35,2176 

77624 1 

CALL 
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ib _PAGL !±iiJX^ 


Al 


USc.- ' £ f AOt Mj. <> cA S3 


hUK IMlYcL 

r .£NDbZ.VQUS liMt 

FUR INlTVtL 


AP J AliSIHELt- IS ION IjL Lf ^..ZLUA.' 


ii ;4 . ,r.L'.a«, . iL.titXh.n. MEOU3A 




PAa.£. 


•2^1 

o252 

P34-P35f P74-P75 

H t.F 1 

KEF i 

35,2177 

35,220^ 

35,2201 

72774 

77ci24 

73027 

1 

1 

1 

1 

1 

’ 1 

1 

1 

1 

OiH O 

CALL 

S34/35 5 

V'Si 645 

OSEk’S PAGE NO 

^ 2d 3 


~T5,22C2 

7765c) 


udto 



v2t>4 

K6F 2 LAST 46B 

35,2203 

72C34 

j 


P J4/i' . 


■ 2542 


35,2204 

13434 

0 liOCtG 

OCT 

134j4 

ID ijEO “ CENT ANG 

2544 


35 , 2205 

16163 

1 

UC 1 

lol 63 



4 S 



% 



J '' 
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I 




I 


it 


TT 
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AiStMbLL uW ^JZ_-Ci^.AiiL 

P74-P7;> 

RkNDEZVbUi MlC-i-UJRS£ MAt\i£uV£R PROGRAMS tP-i:> AND P7?3j 

K£iJ. m- i LUG. _S£CIIiM - - _PjlZr-£i^r R1Z=FJ.> 

RCD BY kihlTL.P jAft IJUNE67 


Pib. 26 x197 1 M LL’USA _o. !j35 £AG£_ itL, 

USER'S PAGE NU* . 8 £4 S3 


RCZ5b PURPOSE 

RC^G'^ ii) TO CALCULATt THE REgUIKEU DELTA V A<\D UiricR INlIlAU CUNDlllUNS 

R^2o. _ REU UiKED BY THE A CTIVE VE HICLE PUK t.X£CUTIUN UP THE NEXT 

u'' 261' ' MIUCCUHSE CORRECTION OF THE TRANSFcK PHAj»E OF AN AClIVt 

VcMlCLE RENDEZVOUS* 

M vt,3 (2J TC DISPLAY TO THE ASTRONAUT ANC TH^ GKUuND CERIAIN DtPENtLNf__ 

K' Z64 variables associated with the PAwLUVcR fur APPROVAi. OY J HI 

R*.26p__ AST R ONAU T/GRUUND* 


Rr266 t3J TO store the TPM TARGET PARAMEIlRS FUR USu 37 i HE JtS I kEU 

Ri2li7 THRUSTING PHUGKAM* 


RC26e ASSUMPTICNS 


Ri^ 26V 111 THE ISS NEED NOT BE ON TO COMPLETE THIS PKuGKAH 

K'> 27<: (2J STATE VECTOR UPDATES BY P27 ARt Dl SALLOwED OUiU aUTuMATIL 

K 271 STATE VECTOR UPDATING INITIATED BY P2. (SEE ASSUMPTiON (J)i. 

BjQ£ 2Z 1 THE RgNDbZ VOUS RADAR _£S.JiiiL_ANa_J A. LQC KED-QN . iHL. i-Zilu TH I S WAS 

Kv 273 DONE DURING PRtVlGUS SELECTION OF P2v,» RADAk SloHIING MARKS 

R1274 WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MllUiu WHtN 

273 ENASLEO BY THE TRACK AND UPDATE FLAGS I^EE P.i I . TH^: 

RC276 RENDEZVOUS TRACKING MARK COUNTER IS ZEROED QY THa SELl.iiON OF 

r<277 P2C AND AFTER EACH THRUSTING MANEUVER* 


R 278 147 THE OPERATION OF THE PROGRAM UTILIZES THE FUi.LUwiNj FLAGS - 


RC279 

RC28<; 

HC 281 

1-282 


ACTIVE VEHICLE FLAG - DESIGNATES THE v-HlCLE wHICH Is 
DOING RENDEZVOUS THRUSTING MANEUVERS i ' j 1H- PRGuRAM WHICH 

CALCULATES THc MANEUVER PARAHEfERS. SET m 1 THE START uF 

CH KENUEZ V uUS PRE-T HRUS T ING PROGRAM* 


H. 283 FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS MFTLi> CHEW HAS 

r:284 selelted the final maneuver gumpuiation cycle 

R 1.285 EXTERNAL DELTA V FLAG - DESIGNATLS THE TYPE Jr STt^XlNG 

1 > i( 2 d 6 REQUIRED FOR EXEC UTION OF THI S MA NEU VER UY T Hu. IH R UJ T I NG 

r<;,287 program SELECTED AFTER COMPLETlU.j OF THI^ PRUwRAio 

rC28c5 (jI THF time OF INIEKCEPi tT(IiMT)} wAS DEFINED BY PREVIOUS 

R(J289 COMPLETION OF THE TRANSFtK PHASE INITIATION ( I PI ) PRJGKAM 

RC29*' (P34/P74J AND IS PRESENTLY AVAILABLE IN STORAGl * 


-t 


0 : 




U LR^JL_£RaaRAa AKT£RiS _iiY hA 5 A^. Ij. 


ia.iiu. -Ft:a. 2JulSJJ MEDUSA B.AU1-. _ AJJ 


I 


r> 7 ^t-pr 5 


USER'S PAGE ML) 


E4 S3 


R f ^ V I 

R 

J 

M 2'v4 
R E 293 


OtCt THi. parameters KtwUlKED FCR CGMPUTlUlJ IHt MamEUVuR 
HAVE BEEN CaMPLfcTELY SPtCIPlEOf THt VALUE OF Iht aCIIVE 

VEHICLc CENTRAL ANGLE LF TKANSFfcK IS GQMPUTtO AND o>TaKLJ» 

' NUMBER 


S NUMBER i^lLL BE AVAILABLE FOR UlSPLAY TU FhF aSTku lAUT 
THROUGH THE USE Up tf 06 NB 2 o 


KL ;296 
R‘' 297 
Rf.298 
R' 299 
R' 3 ( 


THE ASTRONAUT WILL CALL THIS DISPLAY Tu VERIFY triAT THE 
CENTRAL ANGLE UF TRANSFER OF THE ACTIVE VEHICLE IS NUT NiVhiN 
170 TO 190 DEGREES* IF THE ANGLE IS rtlTHlN THIS ZONE THE 
AST^NAUT SriUULO KEASS'ESg THE INPUT TARGETiNG PARAMcTlirs BAScD'^ 
UPON DELTA V AND EXPECTED MANEUVER TIME* 


K( 3 U 


I/) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY USKY ENTRY 


RC 3 C 2 


P 33 . if t his VEHi uLt: IS ACTIVE VEH I C L E^ 


I ' ' 3 " j> 


P 75 IF THIS VEHICLE 1 :> PASSIVE VEHIULE, 


I Z 


K 3 i4 

INPUT 

- 

K ’ 3'. 5 

III TPASS4 

TIME UF INTERCEPT - SAVED FROM P34/P74 . 

Rf 3- 6 

OUTPUT 


R .3i'7 

(i» IRKMKCNT 

NUMBER OF MARKS 

R V 3C a 

(2) TTOGO 

TIME TO GO 

R 3 'O 

(3J +MGA 

MIDDLE bIMBAL ANGLE 

Rv 31^ 

(41 DVLOS 

DELTA VELOCITY AT MID - LINE OF SIGHT 

kraii 

(b» DELVLVC 

DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES 

i<v312 

CCViNLINK 


R *32b 

ili TIG 

TIME uF THt TPM MANEUVER 

r:326 

12) DtLVEETi 

DELTA VELOCITY AT TPM - KEFekENCE COuRDINATES 

R\327 

13) TPASS4 

TIME OF INTERCEPT 

R '■ 32 8 

CCMMUNiCATlON TO THRUSTINl, PRDi^KAMS 

RL329 

Cl ) TIG 

TIME OF THE TPM MANEUVER 

Rt33 .! 

12) KTAKG 

OFFSET TARGET POSITION 

Is :331 

t3) TPASS4 

TIME OF INTERCEPT 

Rv332 

14 ) XDELVFLG 

RESET TO indicate LAMBERT (AlMPOlirU Vc UOMPUlATibN 

R333 

SCBROUflNES USED 


R’/334 

AV FL AGA 


RL33b 

AVFLAGP 


RC336 

lUAJTIME 


K 337 

SELcCTKU 


R033 8 

PREUSET 


RC33S 

S3X/35. 1 


Ki:34 

S3 A/ 35* 2 



n 


At 5 


Aj SLH dL L KL VIj^lQN ’u72 LiF A uL .^PjiUijHAH-.AHT £1*1 Xi- ilY_ j:i(A oA 


^Li^St=i-J_L 




i-JA/ Jt>o 5 

Kf 3A2 VN164b 


343 

kef 

X 






L0UNT4^ 

1>$/P3575 

344 

REF 

5 

L A3T 

96 

E4,i754 



i.8ANK= 

RT 


RFF 

2 

LAST 

466 

35ti2U6 

4553 


P35 TC 

AVFLASA 

346 





33,22C 7 

w C-*6 

1 

CaT end 


<3^1 

KEF 

1 



3 1 1 << 

3 1422 

i 

Uc A 

ATlGiNC 

1348 

REF 

1 



33 f 1 1 

S 2215 


tl 

P35/ P7b A 

<349 

REF 

2 

LAST 

466 

35,2212 

0 4565 

O' 

F75 Tu 

AVFLAGP 

r35i 





35,2213 

U Osi vJ 6 

1 

tXrENO 


^ 351 

REF 

1 



35,2214 

3 1424 

1 

JCA 

PTIGINC 

U352 

REF 

6 

LAST 

472 

35 , 2213 

53' 755 

0 

F35/P75A DXLH 


C3525 

REF 

2 

LAST 

4oo 

35,2216 

J 4572 

• 

TC 

PZcFLGliN 

• 333 

REF 

48 

LAST 

46 6 

33,2217 

U 6c-. 6 

1 

TC 

INTPRET 

C359 





35,2228 

77o24 

1 

CALL 


i!36i' 

REF 

2 

LAST 

466 

35, 222 1 

11217 

1 •, 


StLECTMU 

C361 





35,2222 

/7o34 

S t 

w 

F35/P753 RTB 


'-362 

REF 

4 

LAST 

458 

35, 2223 

51751 



LCAUriMfc 

362 1 

REF 

2 

LAST 

129 

35,2224 

3666 

1 

STORE 

l:iTRT 

i3bl2 





35,2225 

77615 


UAD 


3623 

REF 

7 

LAST 

472 

35,2226 

w2355 

0 


Kl 

' 3624 

REF 

2c 

LAST 

4c> d 

35,2227 

L.34L3 

1 

jTURE 

TIo 

v36^ 

H E F 

3 

LAST 

4 tj 8 

35,223L 

V35U3 

1 

STORE 

INTI ME 

u 364 

REF 

r 

L AST 

467 

35,2231 

34C4i 

c' 

STCALL 

I UCLO i 

365 

REF 

2 

LAST 

40 / 

35,2232 

45236 

1 


PKECSET 

C366 





35,2233 

77624 

i 

CALL 


l3ol 

REF 

2 

LAST 

22 

35,2234 

74c’U-j 

1 


S34/i5a 1 

136 8 





35,22^5 

77624 

1 

Lr A L L 


CBGC' 

kEF 

3 

LAST 

468 

35, 223 6 

72561 

0 


S 34/ 3&<? 2 

<-37 ■ 





35,2237 

77624 

1 

Call 


<371 

SEF 


last 

469 

33,224c 

72774 

f 

L. 


S34/ 33^ 5 

< 3711 





3 5,2241 

43814 

l' 

dJFF 

SET 

.3712 

REF 

2 

LAST 

4tj 7 

35,2242 

vl351 

1 


finalflg 

C3713 





35,2243 

72245 

1 


+2 

;3714 

REF 

1 



35,2244 

5 0 o 7 

(> 


P35FLAG 

i372 





35,224^ 

77624 

1 

CALL 


V 373 

REF 

2 

LAST 

469 

J5 t 2246 

73227 

0 


VNi64:>, 

3 7 9 





35,^247 

7765c 

1 

cjO r Li 


L38C 

ftcF 

1 



35,225. 

72222 

r 

»■ 


P33/P75B 


Ll;4tl EEfc/i 26 « 1^ 71 MhQU^rt tLAXiI ftlZ 

USER'S PAGE NOo i E4 S3 


SET UPPATFLGt TKACKF LG 


FOk iNlTVEL 


ADVANCE BOTH VEHICLES 


GET NORM AAD LCS FOR TRANSFORM 
GET DELTA VILVI 




Al)5£HIiLt. _eSi3vii&H,J\.HJ_ELflJi>_iiy_ NA:iA 


4 


i 

F34~P35, P74-P7.5 

Pv3i)l 

3/ 9 X auoflo 


‘vJJj?. oj^Z4iI.i- S33/;iA«,i 

. ^ r* t- 1 - C J '■'I - 1 ! T ■> 1 


^ Jo 3 

REF 

1 



J5t2252 

C 1023 

1 



3d 

REF 

2 

LAST 

13J 

35,2233 

^366^ 

1 



335 





35,2254 

4C”^ou 

J 


UCT 

i b 





33,2255 

4U345 

1 


ULUAO 

V 33 7 

REF 

1 



35,2236 

33143 

1 



1 3^8 





35,2257 

OX CO I 

'•V 



i 33 5 

REF 

2 

LAST 

126 

33, 226 V 

2 7454 

1 


STOVL 

t 39* 

REF 

7 

LAST 

468 

35,2261 

m354 J 

< ; 



(-391 

REF 

1 



3 5i ^£162 

27576 

4 1 

' 1 


STOVL 

r392 

HEF 

5 

last 

223 

35,2263 

C 3346 

V- 



* 393 

ref 

1 



33,2264 

2737-. 

• .i 


S 1 UVL 

1394 

REF 

3 

last 

463 

35,2263 

L3554 

f 

*, 1 

■u. 



C395^ 

■ REF 

1 



35,2266 

27 62 i 

V 


STOVL 

< 396 

REF 

b 

LAST 

463 

33,2267 

03562 

0 



(.397 

REF 

1 



35, 22 7 C 

}36i£ 

1 


STORE 

•':39e 





33,2271 

77624 

1 

ELCALC 

GALL 

c399 

REF 

J 

LAST 

472 

33,2272 

7 406 0 

1 



\ 4’ ' 





35,2273 

63255 

T ' 


vxv 

< 4t 1 

REF 

b 

LAST 

473 

33,2274 

.;354 J 




':4C2 





3 6 f 2^ 7 3 

53315 

0 


POVL 

l4':.3 

REF 

9 

LAST 

473 

33, 2276 

/334^J 

c 



4c 4 





33,2277 

46315 

1 


PDVL 

X. 4 j 3 





35, 23c C 

31 332 

1 


VSL2 

c4.i 6 

REF 

2 

LAST 

97 

33,230 1 

t, 2 a2 5 

1 



4i 7 





33,23C2 

63256 

0 


JiMlT 

.v4 . e 





2> 5 1 2 3> ^ b 

63241 

i 


OUT 

i,4lj9 





35,23C4 

oCOOi 

'J 



^41* 





35,23v5 

75241 

i 


OUT 

* 411 

REF 

3 

LAST 

A73 

35, 23C6 

^2623 

i 



412 





33,23C7 

65552 

r 


SLl 

4x:r 





33 , 2310 

5c3 1 3 



PDVL 

414 

REF 

4 

LAST 

473 

33,2311 

02623 

i 



■ 415 

REF 

1 . 

LAST 

473 

35 t 2312 

j354.i 

V- 



1-416 





35,^313 

71244 

'w 


dPL 

417 

REF 

1 



35f 23i4 

72317 

i 



418 

REF 

4 

LAST 

46. 

33,2315 

1 5344 

c 



>'41'^ 





33, 2316 

41423 

1 


USU 

42. 





35 1 2:>i 7 

71214 

O' 

1 tST Y 

BuFF 

421 

REF 

4 

LAST 

467 

3 5 f 232 

V 3 7 4 1 

— 



,4^2 

REF 

i 



33,2321 

72546 




423 

REF 

> 

L A ST 

126 

33,2322 

03452 

1 



424 

REF 

1 



33,2323 

1 4 J 3 3 

1 


STOOL 

1425 





33 , 232 4 

77625 

L 


05U 

.426 

REF 

d 

LAST 

467 

33,2325 

.3 744 

V 



427 

REF 

3 

LAST 

A73 

33, 23«i6 

■ 3452 

1 


STORE 

(mZ H 





35,2327 

45246 

< 


AbS 

C429 

REF 

1 



35 , 233* 1 

33151 

1 




i.^“ ', ij. 


35 PAGE 47 i 
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USER'S P^GE NOo 11 t-4 S3 


P 

h CKMcX 
TlTEri 
43 r. ■ 
Sc T R J 
MAX^b- 

Op 

j E C rt A X 

i^At,T3 

rapkec 

VACT3 
VAPRtC 
RP ASS3 

rppkFC 

V Pm5 S3 

V PPRfcC 


S34/35*l KOKHAL ANU LOS 

POVL 

(< AC r 3 t R A *V A ) *R A OD 

ijNl r _ ULQS AT 6D 

KAG '( S 

VPRUJ XCHNJ ANO UP 

dVoU 

UL U 3 

P^’VML UP AT lD 

PUVL UP-UN*RA AT U 

J UP IN MPAC 

^ 1 o N 
ULU^ii 

ACUS 

OuT ' LA aT CD 

LLOS 

K AC r 3 

OLUAQ 

luSTY 

C PPUSNa X 

PUSH 

CLOAU 

X r i 

ELEX 

OELCL 

DELiiLO 



t 


ELEV 

CcLcL 

usu 

CLhP3 


\»AP; 


tC ^ lSlPSht U12 Lf IS JiY. MAiA 


L 

P3A- 

P3 jf 

P7A-P75 

- - 



A3 





33 1 2331 

776Aw . 

OMN 

' Ail 

RFF 

1 



33f 2332 

72336 1 


V A3 2 





33i 2333 

7C535 c 

FIGTlMc SLGAO 

V ^ i3 

REF 

3 

LAST 

473 

33 f 233 A 

, 3 o b 5 1 


1-A3A 





35 f 233 3 

726 3.' 1 

OHIZ 

< AiS 

REP 

2 

L AST 

A/j 

33 1 4.336 

Cl>;23 1 


AJ6 

REF 

227 

LASl 

A53 

35t2337 

col 54 1 


• Ai7 





35 * 23 A ’ 

7733^j 1 

5 A A f 1 

■' Aib 

REF 

4 

LAST 

A7A 

-^5 f ^34 X 

vj3664 c 


'-^39 

REF 

6 

LAST 

A73 

3 f 3 4 4^ 

C3534 C 


AA , 





33,23A3 

65236 0 

UNIT 

AAl 





35f Z344 

0 0 J A 5 0 


' AA2 





33f 23A3 

53315 0 

POVL 

AAi 

REF 

11 

LAST 

A73 

33f 2346 

J354C' o 


AAA 





35,2347 

77725 1 

POOL 

' A A 3 





35 1 Z35 L> 

A1525 0 

POOL 

AA6 





35,2351 

0<i^.*,5 0 


AA7 





35,2332 

77621 1 

6DSU 

■ AA8 





35,2333 

u0013 L 


AA9 





35,235A 

1a:37 :■ 

STOOL 

tA5.’ 

HEF 

9 

< 

Abl 

33,23o3 

i533A 1 


:a31 





35,2356 

41425 1 

USU 

JA32 

REF 

9 

LAST 

A73 

35,2357 

i 37AA -j 


! A33 





35 t ^3 6 V. 

51' 165 - 

SIGN 

r AbA 





35f 4d36l 

L'837 . 


:A5b 

REF 

3 

LAST 

A7A 

33,2362 

u 1 -- 5 1 


Abb 





33,2363 

7154-5 

□ LOAD 

1A37 





35,23oA 

56205 V 

DMP 

*. AS 8 





33, 2 j63 

IX 17 1 


'■ A59 





33,2366 

U C 0 1 3 L 


^ 46l’ 





35,2367 

77b7u ' 

OCOMP 

A6i 





33, 237 

00035 1 

STORE 

CA62 





35,2371 

44240 1 

AoS 

‘ A63 

REF 

13 

LASt 

A7A 

35,2372 

1533A 1 


l AoA 





35,z373 

772A- 1 

aMN 

1 465 

rt EF 

A 

LAST 

A 7 A 

35 , 23 74 
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3 ) cRASAELE I NI T 1 AL IZAT I ON REQUIRED - NONE* 

TAtCrNlT SEgU£NCE^~AND EXIT MODES - CALLED QY AS f RONaU T REjUEST THRU DSKY V ~ 37 ~e 76 
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5 c 322 

REF 

26 

LAST 

449 

13,2072 

7 477 C 

1 

MASK 

BIT! 


5 C 323 

REF 

1 



13,2 j 73 

55 ' 545 

1 

Ts 

LPT FLAG 

OPT FLAG = C LM tPYo) 

5 C 33 





13,2074 
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13,2102 

1 2234 

1 

TCF 

ENDP /b 

_ 

bL 43 





13 , 21.3 

Q 2155 

1 

TC 

+2 

PROCEED 

5 ^ 44 





13 , 21 C 4 

0 2077 


rc 


STORE DATA AND REPEAT FL.aSHING 
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5 ■ b 1 

REF 

5 5 

LAST 

512 

13,2116 

C 60-6 

i 

TC 

I^TPRET 

RETURN TO 1 NT E RPR ET 1 V L CODE 

5 C 52 





13,2117 

43145 

u 

DLUAD 

Sci 

SLI D(MPAC} = Ui, IN CSEC B 28 


■j At' ; 


Aii-J.l Kb.l_L -sl^L- bh iiuL J::' tiUkiilAii -A..II b/lXa bY iiAbA 
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13,2146 

Jims 

1 

VLOAD 

5^66 6 

RtF 

13 

LAST 

2 74 

13,2147 

0354^ 

1, . 


5^ 6 7 
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13,2131 

00013 

L 


5u6S’ 





13,2152 

77653 

1 

VAO 

5t 70^ 

REF 


LAST 

51% 

13,2133 

C/COUV 

L 


3 ;. 71 





13,2134 

tvQO u 7 

u 

0 1 OK t 

3i 72 





13,2155 

77624 

1 

CALL 

5l'73 

REF 

12 

Last 

312 

13,2156 

27 5 1 0 

J 


3t ?4 





13,2137 

77624 

i 

L AL L 

5v 75 

REF 

1 



1 3 f z 1 61 - 

26243 



31776 “ 





13,2161 

33775 

i 

VLOAO 

3 .. 77 





13,2162 

ulOiJ7 
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2. IF AVERAGE G IS UNi 
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-29) M IF DtLRSPL CALLED 

.\5^46 

ERASABLE 

INITIALIZATION KEwUIRED: STATE 

VECTOR, 

- 

K 5247 

L) fc b i< 

IS: 

4PR£Tt 

RUNEf VUNEf TFF/KTMU 1 

HPEPMIN, RPAUTEM, i 

/eZEMFLG, 

R52^8 



maybe: 

TSTARTBZt VeZFLAGS, TDECl, 


524 S 

REF 

5 

last 

291 

e4f 1742 



EdANK= 

HAPOX 

52455 

REF 

3 

LAST 

27o 

4C t i 



S 3ANK = 

PINSUPOr 

5251 

REF 

1 



23t 200 'j 



OnTLCC 

R3- LUC 

52 52 





23f233C 



B 


5253 

REF 

1 






COUNT =8^ 

$ $ / K 3u 

5254 

REF 

61 

L AS r 

515 

23i2o3!- 

i; 3 6 

1 

V32CALL TC 

INfPRET 

5255 





23,2331 

45ol4 

V 

BUN 

CALL 

5256 

REF 

i 



23,2332 

00 716 

1 


A VEGFL aG 

5257 

REF 

i 



23 1 2333 

4635 i 

i 


y 626 Ur'i 

525 8 

REF 

1 



23t 2334 

Slvt o4 

L. ' 


VtHOPT 

5271 





2 3 , 233 5 

inici 

i 

EXIT 


5271 

REF 

^3 

LAST 

391 

23f 2336 

3 47o 0 

1 

CAP 

31 T4 

5272 

REF 

11 

LAST 

419 

^3,2337 

U 5233 

L. 

To 

waitlist 

52 73 

REF 

4 

LAST 

292 

£4, i7j^4 



EbANK= 

IFF 

52 74 

REF 

1 



23 f 234 "J 

• 2514 

L . 

2C *^Dk 

TiCKTEST 

5274 

REF 

1 



23 , 434 i 

46 1 V ^ 

v 



5275 





23,2342 

^ 3 

1 

RE LINT 


52755 

REF 

8^ 

LAST 

5*v 6 

3 C f 2 J U V 



SBaNK- 

LGiflrf SUPu R 

5276 

REF 

- 

1 



23,2343 

3 2372 

: J 

\i82GOELP CAF 

TFF BANK. 

5277 

REF 

13 

LAST 

428 

23,2044 

5*+ 003 

c 

TS 

EdANK 

52 78 

REF 

1C6 

LAST 

456 

23,234:> 

3 4772 

1 

CAF 

ZtRQ 

5279 

REF 

3 

last 

95 

23,2346 

55* 73j» 

U 

TS 

V32FLAGS 

A 5280 










5281 

REF 

3 

LAST 

276 

23,2j47 

3 5J51 

b 

CAP 

PRiU7 

5282 

REF 

21 

LAST 

5 j7 

23, 2350 

0 5135 

1’-' 

\j 

TC 

r itJOVAC 

52 83 

REF 

3 

LAST 

517 

£4,1734 



cBANK= 

TFF 

5284 

REF 

1 



23,2351 


1 

2GA Ur^ 

\l d263FF i 

5284 

REF 

1 



23,2352 

46C 64 

1 



5285 





23f 2333 

u Cl ji 

1 

R EL INI 


5286 

REF 

17 

LAST 

395 

23,2354 

3 6214 

u 

VaaSlALL CAF 

T HREE 

5287 

REF 


last 

517 

23,2355 

7 1733 

_ fl 

MASK. 

VaZFLAGS 

5288 

HEF 

138 

LAST 

448 

2 Jj 2356 

1l Quo 

0 

CCS 

A 

52 8 S 

REE 

1 



23,2357 

^ 2 363 

0 

rc 

F L Aobiify 


1 1 ; 4 FgB^ 26^19/ L HhUUSA EAGL— tiU 


USER.'S PAGE 2 t- S3 


IF AVERAGE 6 Qi\ 

I F OFF, ALLOW VEHIC LE aPT ION 

8^ MS 


MAJOR RECYCLE LOOP ENTRY 


ZERO FLAGS FOR i iCKTES T. INHlGlTS 
DECktMENTING OF TFF ANU ~TPEfi> 

VSZG'JFFl WILL EXECUTE STATE VhLIOK 
UPDATE AND ORbiT CALCULATIONS FOR 
selected vehicle AbUUT PROPER BDDYo 


STALL IN This LOUP AND WITHGLD V 16 N 44 
UNTIL STATE VECTOR UPDATE SETS ONc OF 
uUR FLAG BITS, 

EXIT FROM STALL LOOP. 


QAi>i Aii^ fcMiiLl: .HEj/ISI £N.. J I ii-CfL Au€ . PiUDlaiiAri. ARLEMlo . av IJASA . 


L H3J' 


:>^il 

ref 

y a 

LAST 

513 

23 f2J6j 

L 46 j 6 

D 

TC 

BANKCAlL 

5232 

REF 

3 

LAS t 

5 7 

2 Jf 2361 

0 1 7 3 J 

1 

CAOR 

ISECDELY 

52 '3 3 

REF 

1 



23t2i62 

U 2 3 ->4 

1 

TC 

V82STALL 

5^54 

REF 

1 



Z3f2363 

3 2371 


FLAGbUH CAF 

V16N44 

52^5 

REF 

97 

LAST 

513 

23,2364 

l> 463o 

1 

(C 

BAKKCALL 

52 '36 

REF 

11 

LAS! 

586 

23,2365 

2C576 

i 

CAOR 

G0XD5PF 

5297 

KEF 

3 

LAST 

5d7 

2 3 1 2366 

8 362 6 

1 

L . 

I 6 

35UFF 

5^:9 d 

REF 

4 

LAST 

518 

23, 2367 

U 5626 

' J 

Tu 

850FF 

5299 

REF 

1 



23,2370 

U 2343 

1 

TC 

V 820 OF LP 

53 1 





23,2371 

u4u!>4 

1 

\(i6N44 VN 

1644 

. 1 V 

REF 

o 

LAST 

517 

23,2372 

L2334 

1 

TFFBANK ECAOK 

IFF 

53oy 

REF 

62 

LAST 

317 

23,2373 

U 60 ; 6 

i 

vaZGQFri fC 

INTPREI 

53D4 





23,2374 

45145 

1 

ULQAD 

CALL 

53 J 4 5 

REF 

i' 

LAST 

*^0 3 

23, 2a75 

1533 6 



ZERuVcC S 

53*-. 5 

REF 

3 

LAST 

5G5 

2-3 f 23 T 6 

46424 

1 


TlHtUPT 

5307 

REF 

1 



23,^:37 7 

16316 

1 

STODL 

IbrARIbZ 

53U9 

REF 

I 



23,24u: 

' 12d7 

4 

k ' 


LPT 1 ONE V 

531' 





23,24^ 1 

46142 

1 

SRI 

cHlZ 

5312 

REF 

1 



23,241 2 

46 4Z*'; 

J 


THISSHIP 

5314 





23, 24v 3 

77624 

1 

CALL 


5315 

REF 

2 

LAST 

513 

23,24L4 

27161 

1 


ClrlPRcC 

5316 





23, 24^ 5 

77775 

1 

BUTHSHIP VLOAJ 


5317 

K EF 

13 

LAST 

514 

2 3 f 2 ^ c 6 

oou n 

.r , 


iSAl I 

5318 

REF 

1 

LAST 

512 

23, 24U 7 

2632: 

1 

STGVL 

RCNE 

5321 

REF 

11 

LAST 

514 

23,2410 

.v 7 

1. t 


VATi 

5322 

PEF 

7 

LAST 

512 

23,2411 

1 63Z6 

1 

STOOL 

VCiME 

5323 

REF 

6 

LAST 

515 

23,2412 

0CU5-J 

i 


X2 

5329 





23,2413 

45030 

J 

8HIZ 

CALL 

5331 

REF 

i 



23,2414 

46457 

(i 


E Ai<T H PAb 

5332 

REF 

1 



23,2415 

46635 

( • 

C- 


MCOtMOON 

5333 





23,2416 

7765. 

1 

GOTU 


53335 

REF 

1 



23,2417 

464oi 



BGT HPa j 

533 5 





23,2t2' 

77624 

1 

THlSSrilP CALL 


5336 

REF 

2 

LAST 

^5 

23,2421 

27145 

1 


iHiSPRtC 

5337 





23,2422 

7765 C 

1 

v,UTQ 


5338 

REF 

i 



23,2423 

46405 

1 


BGTHSHl P 

533EC5 

REF 


LAST 

233 

23,2424 

01255 

1 

TIMEUPl itURE 

C3PT EMX 

5338 1 





23,2425 

7742 V 

1 

+ 1 STg 

EXIT 

53382 

REF 

3 

LAST 

5 '.’6 

23,2426 

00734 

1 


V £Hk ET 

53383 

REF 

1 



23,2427 

3 2446 

0 

CAF 

V 0416X 

533B35 

REF 

98 

LAST 

518 

23,243* 

0 4636 


TC 

bankcall 

53334 

KEF 

12 

LAST 

518 

ZJf i 

20576 

1 

CAOR 

bbXDSP r 

533345 

REF 

25 

LAST 

5G9 

2 3,2432 

1. 5524 

1 

TC 

tiVOEXT 

53385 





2 3, 2433 

J 2435 

1 

TC 


533655 





23,2434 

- 2427 

1 

TC 



ll;4„ Fhli^ ^6 T 1^71 MfcOUS^ . ^35 PAGF 


USLr^'i PAGE NO* 3 E4 S3 


i^ONITQK HAFC,HPtk,TFF« 


r&RM THiS TELLS TICKTES1 TU KILL ITSELF 

PRUCEEU DITTO 

RECYCLE RECOMPUTE STATE VECT + LISPIAY 


liMITiAL TIME = ^ = PRES> TIME 

ALLOW TIME SELtCTiOK 

TIME FOR IMER.^IAL USE ( = TUELi TIME! 


CALL STATE VECTOR UPDATE FOR OTHER SHIPo 

MOVE RESULTS INTO TFFCUNIC STORAGE AREAS 

TO BE CALLED BY SR3 ',i^ 

RATI AT (-29JM FOR EARTH OR MOON 


CALL STATE VECTOR UPDATE FOR THIS SHIP, 


'jP^i AaSaWiiLt. .JBY JSIAja. 1 LiA> Jt£a»... .,2^auUi^XI^ fii-iilU^A liACJi — tilSi 


1 

53 J b 6 
!3iA65 

5338 7 

K38 

8EF 

KEF 

o3 

4 

L AS I 

LAST 

518 

513 

^ 3t ^43 5 
<: Jt 2436 

Zif 243 7 

U 6L u t> 

53 143 
L 1255 

1 

1 

1 


TC 

ULOAO 

INrFRtT 

BZc 

cspri.rix 

USER'S PAGE NGm 4 1 4 >3 

533875 

KEF 

1 



23,244 

464^3 

u 



GcTiTJR 


533 8 b 

REF 

16 

LAST 

51*7 

23,2441 

34J41 

a 

STKl LcLi 

STLALL 

i DtL 1 


53jb83 

KEF 

A 

LAST 

518 

23,2442 

00 734 

i 



V c H K t T 


5338 86 





2 3 , 244 3 

5Z0^H 

1 

GETiMOk^ 

RT8 

GGTU 


SiibS 

REF 

7 

L A 

5lJ 

23,2444 

51731 

1 



LGAOriME 



533893 

REF 

1 



23,2445 

46441 

1 



S I R i OLC 1 


5333^6 





23,2446 

u 142-- 


V v6T*i6X 

VN 

d16 


K5339 

TFE 

E0LL0W1<\G 

CONSTANTS ARL PAlKWlbE 

TNUEXtUo DO 

NOT StPARATc PAIRS* 

- - 

534i 





23,2447 

27533 

1 

1/RTHUH 

2DEC* 

>45162595 E-4 

814* 

5341 





f 245 u 

v>757i 

L 





5341 





23, 2451 

2 5004 

1 

1/RTtMGL 

2DtC* 

o5uj 87529 t“5 

817* 

5341 





23 , 2452 

067 2 

1 





5342 





23 , 2453 

'o U J ' ^ 1 

f, , J 

Kli^PERM 

2GEC 

1 *668 8-27 

35 KFT MIN PERIGEE Hr I bH 1 FUR MOON(-27JM 

5342 





23,2454 

11530 

1 





5343 





23,2455 

>'2 

*. 

R IN PE RE 

2UlC 

9144.; 3—29 

3C KFT l-29)M EUR LAbiH 

5343 





2 J, 245 6 

3123 

1 





5344 





23,2457 

776^4 

1 

EARTHPAD 

uALL 



5345 

REF 

1 



23,246' 

46647 

3 



uAKTHGUN 

- - 

535 

KEF 

2 

LAST 

94 

23 f 2:.46 1 

36 314 

I 

BO i HPAU 

STCALL 

RPAOThK 


5352 

REF 

1 



23, 24u2 

4666 - 

L 



SK3v.^o i 

CALCULATE UKbirAL PARAMETERS 

5352 1 





23,2463 

461 j5 

1 


SLOAU 

BHIZ 


53522 

KEF 

11 

LAST 

513 

23,2464 

01215 

c. 




ARE WE IN PDO 

53524 

KEF 

i 



23,2465 

4661 1 

i 



CaNUEL 

YES, DO DELRSPL 

5353 





23 f 2466 

45234 

J 

SPLRETi 

RT6 

L 



5354 

REF 

'Iq 

LAST 

519 

23,2467 

51751 

J 



L C A □ T 1 M t 


5356 

RtF 

2 

LAST 

513 

23, 247 1. 

\ 2 3 1 o 

L 



T>TAKi 82 

PRESENT TIME - TIKE V82G'JFF1 BEGAN 

535 7 

REF 

3 

LAST 

519 

23,2471 

16316 

1 


STuUL 

T S T A KT 6 2 

SAVE IT> 

5358 

REF 

3 

LAST 

234 

23,2472 

233 7 

1 



-TPtR 

SR3l>i SETS -TPER=f IF HPER L/ 

5359 





23,2473 

77654 

I,: 


Bit 


HPERM1^4 I3v OR 35) KFT, 

536'} 

REF 

1 



23, 247 4 

46564 

1 



HCKTFF 

(— T PE Si = < ) 

5361 





23,2475 

43345 

i 

T I Ci^T Pt fi 

DLUAO 

DAO 

(-TPER NON ZES<U) TFF WAS NUT COMPUTED, 

5362 

REF 

4 

LAST 

519 

23,2476 

C2337 

1 



-TPER 

dUT WAS SET TO 59M59S^0 UinT TICK TFF, OU 

5363 

REF 

4 

LAST 

519 

23,2477 

U23iu 

1 



T 5 1 A T ti 2 

TICK -TPEK> DISPLAY BOTH 

5364 

REF 

5 

LAST 

519 

23,2560 

*2337 

1 


ST URt 

- rPER 

-TPER CORRECTED FCK TIME SINCE VR2GUFF1 

5365 





23, 25i; 1 

77776 

I 


uxir 


btuANo 

5366 

REF 

2 7 

L aST 

513 

23,25o2 

3 477 

•-r 


GAP 

5 1 T i 

INFORMS UtKTEST TO INCREMENT ONLY -TPER 

536b 

REF 

2 

LAST 

519 

23,25u 3 

2512 

1 . 

w 


fC 

li^KTFF +6 


5369 





23,25^.4 

43345 

1 

IlCKf FF 

DLOAQ 

LAi> 

(-TPEk= ) TFF WAS COMPUTED, TI CK IFF. 

5371 

REF 

7 

LAST 

518 

23, 25 V. 5 

0 2335 

t- 



TFE 

DO NUT TICK -T PER, DISPLAY TFF, BUI HUT 

53 71 

REF 

5 

LAST 

519 

23 f Z666 

02316 

1 



1 j T ART 82 

-TPtR. 

5372 

REF 

B 

last 

519 

23, 25 u 7 

33^ 

it 


3T0RE 

TFF 

TFF CORRECTED FUR TIME SINCE Vf.2GrFFi 

5373 





23 ,251 ^ 

77776 

1 


cX 1 T 


BEuAN. 

53 7 4 

REE 

21 

LAST 

456 

23,2511 

3 476 7 

L' 


CAr 

diTL 


53 75 

REF 


LAST 

517 

23,2512 

55 * 733 

L- 

+ U 

r 3 

V 82 r LAijS 

INFORMS TICKTES1 TO INCREMENT UNLY TFF, 

53 7 6 

W EF 

51 

LAST 

458 

23 , ^Di3 

j 52‘J5 

1 ; 


TC 

LNDOFJJB 



RLiflilLii Cf- A ilU Pft titiRAH ART £Ka.S-ia y . iMAi>A 2: 21 i I^- i -ii 


L K3C 


S3 7 7 

h£l 

21 

LAST 

8 

23,2514 

3 4764 


T 1 CKT tS ! 

LAE 

Ll I 3 

bjt\^ 

kef 

11 

LAST 

5' .9 

23,2515 

7 1247 

r 


MASK 

tXT V dAuT 

S J / s 

HEF 

139 

LAST 

517 

23,2510 

1 V. 1 L 

. f 


CCS 

A 

S3ti*^ 

REF 

1 



23,2517 

c 2525 

1 


IC 

OCT I LK 

5381 

REF 

1 



23f 252c 

3 764 7 

>» . 


CAP 

PRI025 

5382 

RfcF 

5 

LAST 

365 

23, d321 

u 5121 

^lK-» 


TC 

ACV74C 

5383 

REF 

12 

L AST 

52'.) 

1247 




hbAMK- 

t XT V3AC T 

5384 

KEF 

26 

LAST 

518 

23,2522 

*.5524 

1 


2CADR 

END E XT 

5364 





23 1 2i>2 3 

o4i.'62 

1 




53&5 

REF 

18 

LAST 

438 

23,2524 

u 5314 

1 


TC 

( ASKUVfcH 

536 6 

RFF 

b 

LA ST 

432 

ZJf 25-1^ 5 

3 5 ‘.i 1 o 

v/ 

DOT iCK 

CAF 

isec 

5387 

KEF 

12 

LAST 

517 

23, 2526 

0 5233 

i 


TC 

k*AITLXST 

53 68 

REF 

9 

LAST 

519 

£4, 1734 




£BANK= 

TFE 

5365 

R£F 

2 

LAST 

517 

23,2527 

22514 

1 


2 C A D K 

TICKTtST 

538V 





23, 253' 

46b64 

1 




53 V 

w £F 

1 15 

LAST 

517 

23f 2 d3 1 

3 6214 

0 


CAE 

THkEE 

5391 

REF 

6 

LAST 

519 

23,2532 

7 1733 

0 


MASK 

V b2 F LAG S 

53 92 

REF 

14^ 

LAST 

52.1 

23,2533 

5 - 2 U ii 

i 


I i'ilJE X 

A 

5393 





23,2534 

2 2535 

t 


TC 

+ 1 

5394 

REF 

19 

LAST 

52J 

Z3f 2535 

u 5314 

1 


TC 

TASkUVcR 

A 5395 











5396 

REF 

1 



2 3 f 253 6 

C 2544 

0 


TC 

TPcHflCK 

5397 

REF 

O 

A 

LAST 

5 20 

23, 2537 

3 5 j16 

L 

TFFTiCK 

c af 

l^EC 

5398 

REF 

6^ 

LAST 

449 

23,254i 

54 C^.l 

1 


TS 

L 

5399 

REF 

1/7 

LAST 

517 

23,2541 

3 4772 

1 


CAF 

ZERO 

54. 'L' 

REF 

ic 

LAST 

520 

23,2542 

21' 735 

1. j 


UAS 

TFF 

54'.. 1 

REF 

2 

LAST 

52. 

23,2543 

L 5314 

1 


TC 

TASKGVtK 

54< 2 

REF 

i o 

LAST 

52v 

23,2544 

3 5016 

rj 

TPtfRTILK 

CAF 

1S£C 

540 3 

REF 

63 

LAST 

52 t 

23,2545 

54 J 1 

1 


TS 

L 

54 4 

REF 

1C 8 

LAST 

52U 

23,2546 

3 4772 

1 


CAE 

ZCRj 

54.5 

REF 

6 

LAST 

51? 

23,2547 

21* 73 7 

1 


U A ^ 

-TPER 

54^ o 

REF 

21 

LAST 

52 

23,255.. 

u 5314 

1 


TC 

1 ASKOVtR 


F F n ^ ?h 7 L A ^ _ •^■S_ . P 5y 

OSta'JS PAGE kUo ^ £4 od 

THIS VIAITLIST PKQGRAM PERPETUATfS IT^ELl 
CNCE A SEC UNTIL BIT 5 OF EXTVBACT = . 


TERMINATE V i2>CAN1 CALL ENDLXI IN RUPT 


R£-RcgUESl TlCKTLSTc 


IF ND FLAGBITS SET DON f CHANGE TFF OR 

-T PER , BUT CUNT1NU6 LOOP, 

UNLY BIT 1 SlT^ INCR -TPER BY 1 SECo 
ONLY BIT 2 Stl , INCR TFF 6Y 1 SEC. 


ly a' : 


AS i tliML t ty_i_Si Cfi • ■ -^i-vl fcM J S. i>X _.NA SA i 


H3f 


1 





23i255i 

77776 1 

\rfts20L)hi 

Exit 

A 54 ' 5 










REF 

6 

LAST 

517 

23,2552 

3 5 c.' 5 1 u 


CAF 

S4i;. 

REF 

22 

LAST 

5" 17 

23,2553 

G 5135 . 


TC 

5411 

REF 

11 

last 

52'. 

E4, i ?34 



E8AfMK = 

5412 

REF 

1 



23t2554 

02567 1 


2CADR 

5412 

REF 

1 



23, 2555 

46r;6^ 1 



54 IJ 





23,2556 

j t . ) 1 


RLLiNT 

5414 

KEF 

4 

last 

25 i 

23,2557 

1 

>D' 

* 

o 


CCS 

5415 

REF 

2 

last 

25u 

23, 2561 

5 5152 1 


TC 

A 541l 









A54161 









5417 

KEF 

2 

LASl 

518 

Z 3 f Z 6 X 

3 23/1 V 

VB2RhlJ*^P 

CAF 

54 IS 

REF 

99 

LAST 

518 

23, 2562 

J 46 3 6 C' 


TC 

5419 

REF 

13 

LAST 

518 

23,2563 

23576 1 


CADR 

54^* 



TTAST 

5a 

"23 , 2564 

U 5626 V 


To 

5421 

REF 

6 

LAST 

521 

23, 2565 

0 5626 U 


TC 

5422 

KEF 

1 



23, 2566 

u. 2561 i 


TC 

5423 

REF 

64 

last 

519 

23,2567 

J 60 J6 1 

Vd2G0Nl 

TC 

A 5424 









542 5 





23, 257 u 

521 T 5 


VLOAD 

5426 

REP 

6 

LAST 

512 

23,257 1 

U1u3g j 



5427 

REF 

i 



23,2572 

46573 1 



542 B 

KEF 

11 

LAST 

518 

23,2573 

2632G 1 

NEXT LINE 

STOVL 

5429 

REF 

6 

LAST 

512 

23,257 4 

6 1 L 3 o 



543 . 

REF 

a 

LAST 

518 

23,2575 

j232o 1 


STORE 

5431 





23, 2576 

45g14 V 


aoN 

5432 

KEF 

1 



Z^f ZO^ 1 

0C315 V 



5433 

REF 

1 



23, 26 L J 

46t>jl 1 



5434 

REF 

2 

LAST 

519 

23,26L 1 

46647 

- 


5451 

REF 

J 

LAST 

519 

2 3 f ZoL Z 

36314 1 

Va2&0N2 

STCALL 

5453 

KEF 

z 

LAST 

519 

23,26v 3 

4566i/ 0 



5454 





23,26u4 

77776 i 


EXIT 

5455 

REF 

15 

LAST 

^r9 

23, 2o^ 5 

0 5354 - 


TC 

5456 





23, 2ol 6 

QU013 j 


DEC 

545 7 

REF 

1 



23, 26l 7 

0 2622 y 


TC 

545 8 

REF 

65 

LAST 

52 1 

2 3 t 4^ 0 1 C 

0 6siv6 1 


TC 

54581 





23,2611 

77624 1 

C AMD EL 

CALL 

545 82 

REF 

14 

LAST 

514 

23,2612 

27516 L 



5459 





23,2ol_> 

45145 - 


OLOAD 

546 

REF 

12 

LAST 

521 

23 , 2614 

J2335 J 



546 1 

REF 

1 



23, 2615 

64.27 0 



5462 





23 1 26X 6 

46135 1 

SPLRET 

^LOAD 

54621 

REF 

12 

LAST 

519 

23 ,261 7 

g1215 0 



54623 

REF 

1 



23,2o2'J 

4tj466 i 



54o 2 4 





23,2621 

77776 1 


cXlT 

5463 

KEF 

zz 

LAST 


23,2622 

3 4764 C 

V d2G0N3 

CAF 

54 o4 

REF 

13 

last 

52 J 

23,2623 

7 1247 . 


M A 6K 


1 4- A 1 . . 11 : ^ hbfl^ /1C,1971 ^ikL)US A aLiS j;^v^£ ^ 

USER'S PAGE NG, 6 „ S\ 


PRIU7 
E 1 Ni> V A C 
IFF 

V6<iG*-}i'41 


AVERAGE G Ghy USE tURRE-'jT STATE VE< 1 OR 
FOR ORfalTAL PARAMETER CALCULAflQOo 

LESS THAN LAMBERT 

vaZGONi WILL PERFORM uRGlT CALCUL AT lOc: 
ABOUT PkuPEK BUOY APPRUX UNLt PER SEt 


KhWjOB WITHDLU Vi6 N4A UNTIL FIRST DFiblT CALC 

GHANGI” ' IS iToNLb note: VBZGONi tPRI07, FlNDVAC 

JOB) IS COMPLETED bEFuKE VBZGOn (PR107, 
NOVAC JUBlo 

V16N44 MUNI TOR HAPU» HPERt TFF 

eankcall 

glxuspf 

d"5jFF~ ''TeI^TfU ' s~Ti: iXs V azGtlNi TIT' KILL rfSbllF. 

BSOFF PROC DITTOb 

VaZREDSP KbCYCLE 


IMPRcT 

G UT IT 

KN 

NuX I LI NE 

RUi'i t. 

VN 

YCOt 

CALL 

A MOO NF LG 
MCONGONA 
EAR f HGUN 


THIS EXEC PROGRAM PERPETUATES ITSELF 

once a sec until bit s of ex tvb a ct = .. 

HOLDS OFF CCS NEWJOb BETWEEN KN AMO 
VN FETCH SO RN , VN ARE FROM SAKE 
STATE VECTOR UPDATE^ 

KN AT t-29JM FOR FAHTH UR MOON 

VN AT (-7)M/CS FOR EARTH UP MOON 


FLAG INDICATES SODY ABOUT WHICH ORBITAL 
CALCULATICNS ARE TO 6£ PERFORMED* 

IF SET - muon , IF RESET - EARTH, 


R P AO TEH , C 0 MM 0 N_ CODE FO R EARTH L M OON, 

SR3 J t> 1 

CHECKMrt 

ii 

Va2GUN3 NOl IN MODE 11 o 

INTPRET IN MODE 11 OH Pr^ 


INTilALL CELHSPL DOES INTWAKE 

call 
) FF 

UELRSPL RcTURN IS TO i'jLXT LINE I SPLRET )u 

BHI Z _ , 

ROOK LG 
SPlRlTI 


Li IG 

c XT Y tJAC T 


S L c If 


AaTRO.,AUT HAS SIGNALLED TERMINATE 


u I EMiiL £ ZZ UF Au l PRu^RAM, ART.£tUJ^ i^Y-ilA£A-2 : ^idl-l. 



H 3 • ^ 













23,2624 

□ G0l6 1 


tXTENJ 

t)A6o 

REF 

27 

LASi 

j 

^ 3 f b 

1 5524 j 


BZF 


REF 

IL > 

LASl 

521 

23,2626 

U 463 o L 


TC 

bH?' 

H tP 

4 

LAST 

518 

23,2627 

0173^ 1 


CADR 

sA a 

REF 

> 

LAST 

521 

23,2630 

0 2567 1 


TC 

5 'SO 





23,2631 

77624 1 

puunguna 

CALL 

SS i 

REF 

2 

LAST 

518 

2 3,2632 

46633 



5S*, 2 





23,2633 

7765l 1 


OUTO 

bS03 

^ref" 

- 



23, 2634 

4660£ 1 



b S' *♦ 





23,2635 

71214 0 

MUONGON 

SET 

bbi j 

KEF 

1 



Z3 f £636 

u4462 



bS'.i 6 

REF 

1 



23,^637 

06450 U 



550 7 

REF 

1 



23, 2o4'- 

14037 0 


STOOL 

55* 8 

REF 

1 



£3 f Zd41 

66454 1 



55L « 

REF 

2 

LAST 

94 

23, 2o42 

26312 0 


SfOVL 

551*' 

REF 


LAST 

499 

23,2o43 

, 2 \> £o 1 



5511 





23, 2644 

77646 / 


A3YAL 

55112 





23, *.645 

43414 1 


oET 

5511A 

REF 

5 

LAST 

459 

23,2646 

LJ 14oji' X 



5512 






71214 U 

EAKTHGGN 

LLEAR 

55 1 3 

REF 

c 

LAST 

522 

23,26SL 

46o2 1 



5514 

REF 

1 



23, c651 

, 6452 1 


^TUOL 

5515 

REF 

2 

LAST 

522 

23 ,2652 

14^37 i 


5516 

REF 

1 



23,2653 

, 6456 0 _ 


STOOL 

5517 

REF 

u 

LAST 

522 

23,2654 

X 63 X £ 0 


5518 

REF 

2 

LAST 

499 

23,265 5 

1 5173 1 



5519 





£ Jf £a36 

43414 1 


CLEAR 

552* 

REF 

6 

LAST 

522 


01663 w 




7 , 


L'ir" — Jui. 


^ PASkt 3 ^. 


_ ^LLlj^ I fl£ilU.AA 

Ui . *b TAGC N0» 7 b4 S3 


L-NOtXi Y. Sf Tu.'MINATc Vii 82 LOOP 

B A lY K £vi L L ['* 1 : 1 1 UN£ :^£cUiYlj BEFORE KbPEATING 

■HTtCDEi-Y ” .R131TA1. PARAMETfck GOMPU1 AT ION, 

V 82bUi‘ij. 


P.GGNUUtu 


V 82b ON/ 
uLJAD 

Vd2bilFLi 1 JDlCATfcS LUNAR iC/LING FOR 5R3‘.l 

1/kTMU.', lunar PARAMETtRS LGADEJ HERE FOP SR3 i 

fFF / R I iiU 

KINPERN 

HPERMiN 

PL_S .. _>£ALE0 >T {-27IM. 

RVU 

LUNAFlAU ‘ ->R LAT“LCNb SUBROUTINE 

C LUA 0 - I 

Vd2bMFLb i.OJlCATE EAkTH Sc/'LING FuR SP.3v 1 

1/RT-iUc: L ,- TH PAkAMETERS_ LOADEU HERE FUR SP3. • 

IFF/RlilU 
MINPEKL 
HPtRMl iN 

KPAD 


i AK LAl-LDNo SUBROUTINl- 


RV, 

LUi4 A Fl A b 


gap; as ^£ tia.Lt KLyi.SIC^Li / ;^Lti^_PiiUUKA^ 


miii ii-Y J^IASA ^lLi^-^±l. 


htti . 26.1971 MEDUSlA. 


I k3u UStR'S PAGE NOo 6 . A i) 


P §548 
R5549 

K 55 5 1 

SUB 

MCO 

MCD 

Rucri NC 
Nu; u 

t3Y : RR 

NAME: SR3t. 

BAIRNS FATHER 

.-1 





cate: 16 FEB 67 

LOG SECTICN: R32 

R'555-> 

PCD 

NC: 

I 

MUD 

by: KR BAIRNSFATHEk 

DATb: 

ii 

APR 

67 

SR3. . 1 CHANGFb lU ALLOW MONI ! UR .jPtRN 

R 5555 

MCE 

NO: 

2 

MUD 

BY: RR BAIRNSFAIHER 

DATE : 

i.4 

APi 

< b 7 

ADO QVfL CK FOR RAPO 

K 5557 

PCO 

NO: 

3 

MOO 

BY ALONSO 

DATE: 

ii 

DEC 

6/ 

SUBROUTINE REWRITTEN 

K 513 ^ ^3 5 

MCO 

Nl : 

4 

MOD 

BY ALUNSO 

DAT i::: 

26 

MAR 

68 

PROG MUD TO HANDLE DIF EARTH/MUOh :XALE 

K !j55^ 

PCD 

NO: 

5 

MOD 

BY: RR BAIRNSFATHEK 

DATE: 


AUG 

68 

QVFL CK FOR HAPO C HPER. VOIDS HOD rf2 


R5561 


K5562 
R 5b 6 A 

K 5565 
H 5566 
K5567 
R 55M 
R5569 
R557'. 
R5571 


NtW FlNCIiONAL DhSCklPTlON; OKdITAL PAKAMEieRi 6lc>PLAY FOR NuJNS i2 AND 44« 

<.i CALLS TFPCONMU AND TFFRP/RA TO CALCULATL RPtK (PtRIGEt RAOlUSJ, 

RAPL (APCGtt KAOIUSi, HPtR IPEKlGtt HuIGHT AbUVE LAUNCH PAD JK LUNAR 
LANDING SiTE)f HAPO {APCibEL HEIGHT aS ABOVE) » TPER ITIME TC PtKlGEE). 

TFF (TIME TO INTERSECT j.G KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE)o 
IF HPEK"Tb“GirEATERn>XN^^ TO HPERFIN, CALCULATES TPER AND STUKES 

NEGATIVE IN -TPER« OTHERWISE STORES +C IN -TPERa wHENEVtR TPER IS 
CALCULATEDf TFF IS NCT COMPUTABLE ai^D DEFAULTS TO -59M1N SDSECo IF HAPO 
WCULO EXCEED SS9G*9 NMt IT IS LIMirED TO THAT VALUE FOR DISPLAY 


K 5572 A CD ENDUP: HAPO AN D HPER SHOULD BE C HANGEmCLiiEAJj AND_ tiPEAX__Ili_ IHE 

R5570 ABOVE REMARKS- 


R557A 

K 5575 

K 5576 

R5577 

R5578 

R 5579 

R558* 

R5581 

R5582 

R558B 

RT58F 
R55e7 
R 5586 
K5589 
R 55 9 ‘ ■ 
R5591 
R5552 
R5593 
R5594 
R 5595 
R5596 
R5597 

R5598 


CALLING sequence: 

SLBBUlTINcS CALLED; 
NCRPAL EXIT HUD£: 
ALARMS: 


CALL 

SR3v-»l 

TFFCONMU* TFFRP/RA, CALCTPER, CALCTFF 
CALLING LINE +i (STILL IN INTERPRdTIVE MODE) 
HONE 


gctput: rapo 

RPER 

riAPOX 

rtP^^ 

TFF 

-TPER 


(-29) M EARTH 
(-27) H MOON 
(-29) M EARTH 
(-27) M MOON 
(-29) M 
■(-29) M 
(-28) CS 
(-281 CS 


APugEE radius EARIH CENTERED coord, 

MUGN CbNItkED COORD- 
PERIGEE RADIUS EARTH CENTERED COURD- 

MOON centered COORDo 

APOGEE ALTlTUDc ABOVE PAD UR LAND, SITE MAX VALU^ 
PTrTGEE ALT- above pad uR LAND- SITE MAX VALUE 
IIME TO 3 .DKFT OR BSKFI ALTITUDE 
TIME TO PERIGEE 


ERASABLE 


INITIALIZATION REQUIRED- 

TFF/RTMU (+17) EARTH RECIPROCAL OF PROPEk GRAV CONSTANT FOR 

( + 14) MOON EARTH OK MOON = 1/SQRHHU)^ 

RONE (-29) M STATE VECTOR 

VUNE (—7) M/CS STATE VECTOR 

RPADTEM (-29) K EARTH RADIUS OF LAUNCH PAD OR LUNAR LANDING 


(-27) M MOON 
HPeRMIN (-29) M EARTH 

(-27) M MUON 

VaZEMFLG (IiNT Sw BIT) 


SI f h* 

(3ei. or 35)KFr MINIMUM PERIGEE ALTITUDE 
ABOVE LA UNCH PAD OR LUNAR LANDING SIT E- 
RESET for' earth, SET FUR MOON, 



LIMITED TO 9999,9 NH 
LIMITED 10 9999-9 NM 


R 5599 


CEBKIS: 


WPKET, PjL* S2 


-ASSlWatl. K£itXSl-UN /£ JJE- AU. PftOt^ kAii AwTb^Nl:^ BY. iiASA -2-.ZAU.4--iiJ. . . 


U. tlHjlLLAi 


P mXi L 


7 a« 


y l 



L 

h35 










USfcK * S PAuC NUt. i. 4 J.} 


K tF 

1 







COUNT* 

$$/ aii3u S 


iO'.A 1 





JL ^66 Sr . 

44, . 1. 


. SR3L, 1 . 

St IPO - 

iTJ 

INIllAUZ^i: PUSHDOWN LIST. 

56^ Z 





23 1 2661 

UOOJi 

■? ■ 





36 J 

REF 

4 

LAST 

44 y 

23, 2662 

06 J 5 1 

C 



S2 


A 30 H 











SRii . 1 INPUT: RONE AT (-29)^. EAHTH/MUON 

A 56-; 3 











VQNt AT t-7JM/LS 

A 56 *'6 











tffconnuiTFFrp/raiCALCtpek and calciff 

A 5o. 7 











CALLS Rc; QUIFF : 

A 5 6' .; 8 











EARTH LENTbREu (NU RfcSCAl.ING KEQul LO) 

A56 .5 











KUNE SCALEt) TO K 

A 3u 1 ‘ 











VUNE SCALED TC B-7 M/CS 

A561i 











MUUl LtriTEREp {RESCALING REQUIi-EcJ 

A 56 1 ^ 











KUNE SCALED TU L-2 ? :'f 

A5613 











VONE SCALED TC B-5 .:/Cs 

56 





23,2063 

77214 



duFF 

\/LQAD 


5615 

REF 

3 

LAST 

522 

Z3 f 2664 

.4742 

1 



Vd2EMFLG 

JFF FQI. EARTH , . QN FOR MOON 

5616 

REF 

1 



23^2663 

406 74 

O 



TFFCALLS 


5617 

KFF 

12 

LAST 

521 

23 1 2o66 

o232L 

1 



R Gi4L 


5618 





23f 2ti67 

77752 

1 


VSL2 



56 IS 

REF 

13 

LAST 

524 

23 f ^67 L 

26^2 

1 


STOVL 

RGNfc 


562 r 

REF 

o 

LAST 

521 

2 3 f 267 1 

^ Z3Z 6 

1 



VCNL 


5621 





23,2t>72 

77752 

1 


VSL2 



5622 

HEF 

1 , 

LAST 

524 

23,2i>73 

u ^ 3 ^ 6 

1 


S T OR E 

VCNt 


562 i 





23,2674 

77624 

1 

TFFCALLS 

CALL 



5624 

REF 

1 



23 f 2 6 7 5 

57152 

J 

L. 



1 Fr CUN MU 


5625 





23,2676 

77624 

1 


CALL 


TFFKP/ka CCHPUTES RAPOiRPER* 

5626 

REF 

I 



23,2677 

57Z2J 

U 



TFFRP/KA 


A 5627 











RETURNS kllH KAPU IN J(MPACK 

5623 





23,2700 

77625 

4 


J 



5629 

REF 

4 

LAST 

521 

23,270 1 

02314 

L' 



KPAU 1 cfl 


5oi 





23, 27;^ 2 

64414 

1 


60FF 

SRzi i< 

NEED HAPU AT {-29 JM FDR DISPLAY. 

A5631 











IF MUON CENTERED, RESCALE FROM 

A 5632 











IF EARTH CENTERED ALRE^OY AT {-29 )H 

5633 

REF 

4 

LAST 

524 

23,27 3 

.4742 

1 



V S^i. £ b 

OFF FOR EARTH , ON FOR MOON 

5634 





23, 7*, 4 

46705 

1 



+i 


56 J 5 





23,27v 5 

llblh 

1 


CALL 


IF HkiPU > MAXNM, SET HAPD =9999 s NM 

5636 

REF 

1 



23,2706 

46 74!> 




MAXCHfL 

CTHLKWlSe STOKE t R APO-RP AOTEM) IN HAPO* 

5637 

REF 

6 

LAST 

517 

23,2707 

16343 

1 

STukHAPu 

S lOUL 

HAPUX 


563 8 

KEF 

1 



23,27i: 

k. Li J ^ 7 

1 



KPER 


563«i 





23,2711 

7 7625 






564' 

KbF 

5 

last 

524 

23,2712 

^2314 

c 



KPa D i u2i 

GIVES hPLR AT {-29)M EARTH, (-27 )M MOOa' 

5641 

REF 

229 

LAST 

490 

23,2713 


1 


^ f ORE 

MPAC +4 

SAVE THIS FLK COMPARISON 10 HPERKix. 

5642 





23,2714 

64414 

1 


dUFP 

SR2k 

NEED HPER AT (-29JM FOR DISPLAY., 

A5o43 











IF MUCN CENTERED, RESCALE FROM (-27 }M 

A 5644 











IF EARTH CENTERED ALREADY AT {-Z'^JM 

5645 

REF 


L AST 

52A 

23, 2715 

.4 742 

1 



V82EMFLU 

OFF FOR EARTH, ON FOR MOON, 

5646 





23,2716 

46717 

1 



+ 1 


564 7 





23,2717 


1 


CALL 


IF HPEK > RAXNM, SfcT HPER = N,S 

3643 

REF 

2 

LAST 

524 

23,272C 

4o 7 ♦ 3 

u 



MAXCHK 



4 


AS XJEHdL t -HI iLLSIXiii_im 


QE-JlbL. -PJiDA/lUul . AaXEJ!tlS_i3 Y HASA li 


u AF I 


XL: A 



Mfci'jU S A 


X _JaX5_ ,-_ 


L H3v USEE!S PAGE hUo li hi 



1^ Li 

5 

LA;»T 

292 

23*2721 

16345 

1 

SrORilPEK 

STuDL 

hPERX 

STOKE {RPER - KPADTLM) O'.! 1 G HPLRX- 


KEF 230 

LAST 

524 

23*2722 

0 G 1 6 1 

1 



MPaC +4 


!i63l 





23.2723 

51325 

1 


OSU 

BPL 

HPER'IIN AT 1-29 )M FOR EARTH, C-27) M HOO ' 

S>6i? Z 

KEF 

4 

LAST 

522 

23*2724 

u2312 

/ ' 



HPEkMI(M 

IF HPER L/ HR t KM IN t3i UK 35)KFT, 

56 i 3 

REF 

1 



23,2725 

46731 

< ( 



GGrPEK 

then zero into -tper. 

!L6i>4 





f <{l7^6 

52145 

‘ ./ 


Ui-OAQ 

GCTU 

OTHERWISE CALCULATE tPER> 

S6SS 

KEF 

i 



23, 2727 

1533 o 




ril6Z tKUS 


56t5 6 

K EF 

1 



Z3f 

467j 5 

1 



SKIPTPEK 


5657 





23,2731 

45145 

0 

DOTPER 

OLJAU 

CAL L 


565 b 

“TTF" 

~~r 

LAS’n 

52^4 

23,2732 

. ■ G > 1 7 

1 



RPEK 


565 

HHF 

1 



23,2733 

57250 

1 



CALC TP £R 


566' 





23,2734 

77 6 76 

u 


JCUMP 


TPEK IS PUT NtG INIO -TPEK 

5661 

REF 

7 

LAST 

52 ; 

23,2735 

1633 7 

1 

SKIPTPcR 

6TU0L 

- IPtR 


566^ 

RfcF 

5 

LAST 

525 

23,2736 

.2312 

L 



HPciiMI 

HPERMIN at for .ARTH, (-z7)M MDOiJ 

f)663 





23,2737 

453 1 5 

1 


DAO 

CALL 


5&^64 

hef 

6 

LAS”T“ 

524 

T3, 2746 

i.'23i4 

1 : 



RPAOTEf^ 

RPAUTEM AT (-2.IM FOR -ARTH, {-27jM MOOU 

566 5 

REF 

i 



23,2 741 

57261 

u 



calctff 

GIVES 59M59S FUR TFF IF RPEH G/ 

5660 





23,2742 

77676 

u 


DCUMP 


HPdHMIf4 + KPADtEM- (IPER wAS NON ZtKUi 

£667 

REF 

13 

LAST 

521 


36 JJ 5 

1 


STCaLL 

rPF 

OTHERWISE COMPUTES TFF„ (GOlU) 

566S 

REF 

5 

LAST 

524 

23,2744 

•-i 6 •. v/3' X 

0 



S2 


5669 





23,2745 

5122 5 

1 

PAXGfiK 

osu 

BPL 

IF C(FPaC) 5 5999 9 NM, MPAC = 9999 9 NW 

5671 

REF 

1 



23,2746 

j 6 7 5 b 




KA<N3 


5671 





23,2747 

46752 

0 



4 3 

LTHC>Wl5t CIKPACi - BtMPACi 

5672 





23,2750 

43415 

C 


DAD 

RVW 


5673 

REF 


LAST 

525 

23,2751 

6755 

•W 



PAXN4 


567^ 





23,2752 

435-+3 

1 

+ 3 

6U0AD 

KV w 

(U;>J:U BY P3G - PS 7 ALSU I 

5675 

KEF 

> 

LAST 

525 

23,2753 

i6 755 

0 



KAXNM 


5676 





23,2754 

1 - 1 j 6 5 

wJ 

^ AX N M 

20CT 

ulirfoS 05663 


£b7o 





23,2755 

56 J 3 

1 






t , 1 




i 


M 









jiAt>; AS>£MiiU^Jt£tf lSiim JLi/Z-Xif^-AiiC- 


R A J1 akT FMI:; by ^ ? M 1 4- , U. 


i I i4 FFft. . ?At 1Q71 MF^miS 





R3v 


:'j 


UStB.* S PAGi _NXi^L^il 



S 


»** XJ^O JI£ _ MEUm A .^35 ** ♦ 


1^ 




4._ .i ,.,_ . 


^fcG£ 52^ 




_£4 i3 


iii. 


■k ^ ’. 

*-,» * • 
- -j 


I* 

I 


r rta 



AKl^li tiY JI4A.SA .Z ^11 1-^- xi 


iX.: _Fi 1 9 71 H E N E L AUS .. ' , 61 t- A u il 



1. 

P15 

; ■ ‘•J 

R 15 

^‘c S • 5 


K V. 51' 


t 1515 


Ri52i 


R0525 


R< 5J* 


R ’ 535 


k054‘*'^ ■ 


K i 545 


Rr 55C 


K '555 


R 156' 


K . 565 


li V 57 i 



USER'S PAC.E KLi., I 


I.UTI Alt/CUTCFF 


_iLl SPJUAY S I imJLN J EUTXaN S tsiUXiX&i^ _SliiilI, i T^ oJ, 

tSTABLiSHfcS TbStT Tu £>£ EXECUTEU AT TB6 TIME 

SETS TLITlo = TB6 + 9:37,i. 

DISPLAYS Ni4 : INERTIAL VELOCITY MACNiTUUt AT TLi C/J 
DISPLAYS N95 ; TFl - TIME FROM TLITio (UECREASINu* 

Vb - VELOCITY-TC-bE-GAlNEQ 
V - INEkTIAL VELOCITY MAGNITUDE 
T6SET ; VETS~THE SI VS INJECTION SEwUENCE START SIT^ 
ESTABLISHES foRtSET (DT = 1C SECSJf AND 
TURNS ON THE UPLINK ACTIVITY LIGHT 
Tt>KESET : CLEAKo THE SIVS KS,S« SIT AND 
TURNS OFF THE UPLINK ALTIVITY LIGHT 
P4CS/SV : CALLS MIDTOAVi TO INTEGRATE THE CsM 
"TTaTT 'VECTSR^T u TT ITITT^ 10 / ANC - - -- 


R‘5?S ESTABLISHES TIGSLNK AT TLI TIG - 1.5 

R'bB' riGBLNK : blanks THE USKY FOR 5 SECS AND 

Rti)8& ESTABLISHES TIGAVEG FUR TLlTlG - iC 

RC59C TIGAVEG ; STARTo REAUACCS AND REDISPLAYS 

R 1.595 N95 tVG AND V NOi^J DYNAMIC) 

Rrs^-?^ ' ' 'SIVBCljMP ; UPDATES VG AND V AND 

hi.tj5 AFTER TLITlG + iO CALCULATES TGC AND 

K 61 CHANGES THE N95' Hi DISPLAY TO TFC 


K - b 1 3 



mh en 

T GU ^ 

4 SECSf S 

IVdCuriP ESTA3Li6 HE S 

c.iVaOFF 

IDT = TGU) 


R, 1 6 ^ V 



jIVSUFF ; 

SHUTS DOWN 

THE S 1 VS AKD CALLS 

POST TLl 



Rl625 



PCISTTLI : 

FLASHES N95 TO INDICATE TLl IS 

, COMPLETED 


RG6JU 



P15 

EXITS 

VIA GOTO POOH 




f.Qf' 

*r j ^ 

K h f 

i 



33 f 2U v. t 


SETLOC 

Pi:? LOCI 


091 1 





33,3455 


dAinK 



} O 0'^ 3 

■W >' -t b 

REF 

1 





COUNTS 

$i/Pi5 



REF 

29 

LAST 

51 ■» 

LT, 1412 


ebank= 

TIG 


1\ 1 

kef 

2 

LAST 

513 

33,3455 

3 5 -i 2 6 i ) F 1 3 J 0 8 

CAP 

V v6N3j> 

DISPLAY T86 TIMi_ 

1 \ 1 2 


Q 

LATT 

4a'4 

33,3456 

D 3535 1 

TC 

vkflash 


K * 14 

REF 

66 
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1 


CA 

T I ME2 


237 ; 





34, 237 3 

0 t •~j 0 6 

1 


t X r £NU 



0371 





34,2374 

Q 237 6 

1 


3ZMF 

+2 


1 3711 

REF 

3 

LAST 

543 

34,2375 

6 2612 



IC 

NCPULY 

GO TO ATT ITUDE HOLD 

‘.372 

REF 

3 

LAST 

118 

34, 237 6 

31*661 

1 


CAE 

PGLYi-JUH 


0373 

REF 

E4 

LAST 

520 

34,2377 

54 Ov.1 

1 



L 


0 374 

REF 

1 



34,246 •: 

3 2616 

1 


C AF 

CtitF ? JLY 

EVALUATE PITCH POLYNOMIAE 

03 75 

K EF 

1 



34,24C 1 

7164 

“i 


TC 

PCWkSEKS 

SCALED TO 32 REVOLUTIONS 

038 7 

REF 

114 

last 

540 

34,2402 

3 4772 

1 


CA 

ZcKJ 

RETURN WITH P1TCHI32REV) 

0388 

REF 


LAST 

31^ 

34,2403 

54 133 

1 


TS 

RCDE 

STORED IN MPAC, MPAC +1 

.’3 60 

REF 

72 

LAST 

541 

34, 24u4 

1^ 6’.. V 6 

1 


TC 

IN f Pk£ r 


-.39'; 





34, 24o 5 

54231 



.iETPD 

SL 

32(PITLH(32KEVI ) = PI TCHlKf V ) 




GAl'i 


KniiSlXiN ^ PKaGRAM-ARl li_ii Y Ok 


lli_A- i-r,4» P 6. 1971 MFNf L AUS^AJ aACJl—SAA 


Pll 


US£H.*S PA-^E 


il 


l ;6 ii 


yn 



ii4f 24u6 

'.J U'-J w i 

1 

.y>z 



34,24C7 

2 C 2 uo 

1 

’• . J 



34,241:: 

776.-0 

I 




34,2411 

776pv. 

1 

3S b 

kEF 

i 

34 f <i,4L2 

67672 

J 

Al306 






A'. 39? 






* 

HEP 

I 

- 3 ^ OaL - 



1 39 9 



33,3o72 



4 2 ' 

REF 

i 




♦ 44 i 1 



33f ^67 Z 

57 346 

1 

4-.; ^ 




L4ul7 

i 

493 



33,3674 

77736 


4^4 



33 , 367 3 

14 .13 

I* 

‘ 4! 3 

REF 

11 

LAST 3l<J 33,3676 

1533 6 

- 

^.4s6 



33,3677 

UL913 



t) 

GOTO 

4 I I LHi.Pl 

CONSTRUCT iM Tu S/0 MAIkIX, 


LET P(KAD)= 2 >PUPI 1 CH(HL n 
AROUND SET LOG 

♦ 

rsrtv 


. JJUflC JEJ. 1 T VTU._ 
dANK 


OUUNT* Ji/Pli 
ATTDISPI v^OS [;CC. 4 P 

STuuL 14 J 
SIN 

S TOOL 1 . J 

ZcKUVtCS 
STORE 12 u 


36 IN Goto t 34 IH DISK 


-.S*CQS tP i 


,5*SIN(P) 


A - 4 .: 7 







EVALUAl b 

HULL = 

^ 4 <i 9 





33 , 37 GS 

41335 1 


SLOAD 

‘ 41 ( 

REF 

Q 

LAST 

543 

33,37 1 

,‘ 33 u 5 i 



411 

REF 

H 

-t 

LAST 

539 

33 ,371; 2 

033-1 - 



‘ 412 





33 , 37^3 

452 S 1 vJ 


iL 

: 413 





33 f 37 v 4 

2^217 1 



' ^14 

REF 

13 

LAST 

342 

33 * 37 j 5 

15334 1 



413 





33 , 37 C 6 

45 215 L' 


JAO 

416 

REF 

a 

LAST 

339 

33 , j 7 w 7 

02634 1 



' 417 

REF 

4 

last 

£39 

33 1 3 7 1 L, 

L' 24-'1 



<418 





33,3711 

7 7 6 j 4 j 


rTb 

\419 

REF 

1 



33,3712 

7 w 6 ^a 1 



.421 





33,3713 

714.06 0 

ATTulSPR 

PUSH 

v 422 





33,3714 

77606 1 


PUSH 

<423 





33,3715 

724 ^:j 0 


OMP 

t 42 A 





33,3716 

.^017 1 



'425 





33,3717 

14-27 1 


STUDL 

i 426 





33 , 372 vt 

7767 to : 


UCOMP 

427 





33,3721 

;:L 023 V. 


STOKE 

42 B 





33,3722 

72405 ■ 


DMP 

> A 29 





33 , 3723 

00013 0 



‘: 43 i. 





3 3 f 3724 

i 4 i >33 1 


STOOL 

<431 





33 , 3725 

41556 i 


SIN 

L 432 





33 f 372 6 

lt-C 3 i U 


STORE 

0433 





33,3727 

72405 < 


UMP 

9434 





33 , 373 v- 

00 J 17 1 


^ ^ , . 

'-435 





33,3731 

14021 1 


^ I UU L 

^'43 6 





33 i 3732 

77 o 76 C 


UCOMP 

l 437 





33 f 373 3 

72405 9 


DKP 

9438 





33, 37 d 4 

CC' 0 i 3 



439 





33,^735 

24025 C 


STuVL 


L AUNCHAZ-AZ 1 MUTH-o S+ SATRLRT ^T 

L«P^ ^ 

SPCLYARb TlMLl - RP START ,CSbCS B-14, 

SATrLKT 

CSJ 

IAS 

uPHAL F 

SjJ ASSUM ING X (S >4 ) ALONG LAUNCH AZIMUlHt 

LAUNCHAZ LAUNCHAZ = ANGLE FROM NORTH TU X(SM)u 

AZinUTH AZiNUTH = -ANGLE FROM NORTH TO ZtS/C) 

detekhine if roll out 
RLT iT IS Completed 

cos CONIINUfc COMPUTING TSMV 

LET KtRAO) = 2*P1*R0LL(REV i 

A 4 J 

2Zo -^ 5 ‘f'CGS lR)=»COStP» 


SLi 

1 J 
ZoO 
PUjH 
240 
SlL 
L4D 
ISO 

SLi 

1'50 

2 0 


-» 3 *CCS (R ) 


-,S*C0S(RJ*S1N(P) 

o 5 =i=SIN(R) 

“>‘5^rN i R ) ♦COS ( P ) 


-« 3 =<=SIf 4 (R)*SiNtP) 


iiAp: 

MibfcMaLL ai.l/is,iur .72 bF AuCJ^QUji^ liY WASA_2_2l. 
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33,3736 

cuei3 

1,’ 


1 jO 

- - 

A AA i 








FROM T3rtV FII'JO 

THE HALF UNIT 

VECTORS XDC,YCC,2D0 = INPUI TO CALCGTA 






33,373 7 

77o56 

i 

UNIT 



Aa J 

KFF 

J 

LAST 

QQ 

33, 374; 

26714 

1 

o T uV L 

XDC 

XDC == •5»0NITtSIN(PI, ,-CUS(P)l 

•JAAA 





33 1 5 74 1 

0C3>2i 

1 


160 


AA5 





33,3742 

7765o 

1 

UNIT 



. 446 

REF 

3 

LAST 

Q Q 

33,3743 

26722 

i 

S TOVL 

YOG 

YDC = •5*0MTt-SIN{R)*CDS(P), -COSIR), 






33 f 3744 

V V- U 'Z I 

1 


220 

-SIN(R)*SIN(P) ) 

t 44 a 





33,3745 

77656 

i 

UNIT 



«.44^^ 

KEF 

3 

LAST 

99 

3 3 f J74 6 

36 73 J 


STCALL 

200 

2DC = .5»UMT{-CGStR)*CC5(P),SINlR), 

v;4t> - 

REF 

^ 

LAST 

451 

33 1 374 7 

4724i 

1 


CALCOTA 

-CQS(R)=1SIIM{ P) ) 

A 451 








CALL CaLCuTA TO 

CCMPUTt UESIKED SM ORIENTATION UGC.IGC.ANO MGC 

' AC452 









— 


AC453 








FIND DlrFERtNCt 

VECTOR OtLTACOU = 3GC-CCUX 

A( 4531 








ENTER HERE IF ATtITUUc HOLD 

- - . . . - _ 

454 





33j3Ji)^ 

41575 

L^‘ 

AOPQL Y M V-kOAO _ 

.PUS.H _ 

QGC IGC . __ 

* 455 

^reF 

17 

LAST 

5^3 

33,j751 

j 27 ovi 

1 


LGC 

CHANGE IGC TO MGC FuR COMPA T I6I L 1 TY 

'456 





33,3752 

45 JU6 

0 

PUSH 

CALL 

MGC Ot>C 

^ 457 

REF 

2 

last 

5 'j 3 

33,3753 

475 3 3 

1 


CDUTRIG 

WITH Y,Z,X ORDER OF COUSPOT 

V 45 8 





3 3 f 3 7 54 

471/5 

1 

VLQAU 

RTd 

DPHI OGC-COUX ,PD4 

.45S 





33 , 3755 

'v' J 

1 


Z 

CELTACUU - DTHETA = IGC-CDUY , 1 

V 46^ 

REF 

J 

LAST 

413 

33,3756 

45644 

. % 
i: 


V1STJ2S 

DPS I MGC-CDUZ , 2 

i 461 

^RE F 

2 

LASt 

119 

33,3757 

27 3'^ 6 

1 

STOVL 

bCOS ThMF 


V 4 6Z 

REF 

i2 

LAST 

344 

33 , 376 

15336 

w 


2t,<uV£0S 


^ 463 





33,3761 

2400 1 

I'* 

STOVL 



464 

REF 

4 

LAST 

3l 

33,3762 

1 11/2 

1 


L uus Pii r 


' 4o5 





J J f J 7 6 3 

47 '64 

Lt 

RT8 

RT3 


4o6 

REF 

4 

LAST 

5 ‘4-3 

J3 f 37 64 

45644 

./ 


Vl6TU2i» 


■ 4ST 

■ KEF 

1 



3 3 f j 7 6^ 

76561 

1 


DELSTok 


^46 8 





33,3766 

14313 

V/ 

STOOL 

1 0 


"469 

REF 

1 



33,3767 

01144 

1 


Sl;^CuUZ 


V 47 





33,377 J 

724.j5 

V - 

13 

UMP 

^L1 


(,,471 





33,3771 

vO J 1 

0~ 


j 


.472 





33,3772 

6' 41 5 

1 

UAO 

S RZ 

CHANGE SCALE OF AK TO 2HEVS 

c473 





■ 33,3/73 

0C-i)tj5 

i 


4 


'474 





33 , 37 74 

77650 

1 

6l)T 0 



C47 5 

REF 

1 



33,3775 

70413 

J *4. 

1 1 


ATTDISPl 


V 476 

REF 

2 

LAST 

536 

34, 200s' 


- 

SETLOL 

PiiUNt 


'477 





34,2413 



dANK 



47 S 

REF 

2 

LAST 

5 Jo r Q 

54''+J 

Za7 Z67^ 

GUUNT-^ 

$i/pil 


- 479 





J4 » Z4i J 

14l 21 

1 

ATruISP2 STOOL 

16 J 

160, .5(0PHI ♦ DTHETA’*‘SIN{CDJZ) ) 

r48': 

REF 

i 



34,2414 

vli52 

LJ 


c».scouz 


(481 





34,2415 

41 4s- 5 

•w’ 

UHP 

PLijH 


^482 





34,2416 

1 ■' J J 1 

1 

» r 
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34,^41 7 

724u5 

L 


DMP 

SLi 

- A ''i A 

REE 

1 



34 1 2 42 

‘vll54 

L 



CCSCDUX 

^ 4SS 





34 » 2421 

41325 

! f 

>• 


POOL 

DKP 

■- 4po 

rlf 

i 



34,2422 

0 1 1 4 0 

. ' 



S INC DUX 

' 4 J 7 





34,2423 

OOfi 3 

1 




- 4(3 * 





3‘t,2424 

7241:) 

1 


DAD 

SLi 

•V 489 





34,2425 

7762o 

L.' 


STADR 


49C 





34,2426 

63 755 

L- 


STOOL 

ITiJ 

4‘'1 





34,2427 

724 j 5 

L 


DMP 

SLI 

■ 4S2 

REF 

2 

LAST 

54u 

64f Z43 

1146 

‘1 



3 Ii>)C3JX 

■493 





34 , 243 1 

41325 

1. 


POOL 

DMP 

C494 

REF 

2 

LAST 

546 

34, 2432 

.11 34 

1 



COSCDUX 

L49i) 





3'4 f ^^3 3 


1 



2 

(496 





34f Z4J4 

7242 5 

1 


osu 

SLI 

#497 





34,2435 

77626 

L. 


STADR 


_498 





34i ^43 6 

7773^ 

i 


.>T URE 

idiy 

V 40 Q 





34 , 243? 

77751 

1 


TLOAJ 


> S' ^ 





->4, 244 >. 

V v: J 2 X 

1 



16 D 

' 5 1 

REF 


LAST 

261 

34,2441 

U3u77 

i 


SIURt 

AK 

<5 - Z 





34 , 2442 

77776 

1 


tXl T 


C5G2C1 

REF 

4 

LAST 

543 

34,2443 

3 1714 

1 


CA 

Sat a wi 

•-50202 

REF 

142 

LAST 

54j 

34,2444 

ID OGO 



L L ^ 

A 

C5T2C3 

REF 

i 



34,2445 

3 24q 6 

1 


TC 

SATuUi 

2'. 4 

REF 

1 



34, 2446 

D 2474 

1 


i C 

AKLO.^\li 

.5 21 

KEF 

73 

L AST 

543 

34, 2447 

0 6 w tJ 6 

1 

S f t lR sa t 

TL 

INI PKt 1 

.5 '211 





j4, 245' 

7 63 J 1 

1 


TLUAD 

lAO 

6 212 

REF 

2 

LAST 

119 ■ 

34,2451 

•j3 316 




8IA^ iK 

5.213 

REF 

10 

LAST 

546 

-»4, 245 2 

030 7/ 

1 



AN 

u5 214 

REF 

11 

LAST 

546 

34t 2453 

- 3 . ^ / 

i 


STORE 

#4 K. 

'-5 215 





34,2454 

77776 

1 


EXIT 


.5 122 

REF 

12 

LAST 

54o 

34, 2455 

3 1476 

' J 


CA 

A(\ 

■ 50 221 

REF 

1 



34, 2456 

U 262. 

1 


TC 

KEiCALEi 

50222 

REF 

13 

LAST 

34^ 

34,2457 

35 '476 

1 


rs 

AK 

l5 3223 

REF 

3 

LAST 

ld2 

34 1 246v 

3 1477 

1 


CA 

AKi 

‘5 .32 24 

REF 

2 

LAST 

54o 

34 f Z46 1 

*-► 262^^ 

1 


TC 

RES CALLS 

050225 

REF 

4 

LAST 

546 

34,2462 

55* 477 

i' 


TS 

AKi 

C5i 226 

REF 

3 

LAST 

162 

34,2463 

3 1 3^ D 

V 


CA 

AK2 

' 50227 

REF 

3 

LAST 

546 

34,2464 

v; 2626 

1 


TC 

RtdCALfcS 

*. 50 2ZQ 

REF 

4 

LAST 

546 

34 f 2465 

55 * 3UG 

1 


TS 

AK2 

Ap5 '3 




, , 


- - 


DISPLAY 

ATTirUD 

w ERRORS Oj' 

i 5" 34 

REE 

i''3 

LAST 

541 

34 , 2466 

w 4636 


SATOUT 

TC 

tANKCALL 

C5i !5 

KEF 

2 

1.AST 

541 

34, 24t>7 

42425 

1 


CADR 

NEED LhR 

V S'- 6 

REF 

3 

LAST 

437 

34 f 247 

3 4125 

_ J _ 

AIERSOT 

C AF 

L C f 3 1 

u5l 7 

REF 

it. 4 

LAST 

546 

34,2471 

J 4b36 



TC 

aANKCALL 

w- 6 -> 6 

REF 

3 

LAST 

399 

34,2472 

01731 

'1 

r— ' 

CADR 

DELAYJUE 

1 50 9 

REF 

2 

LAST 

541 

34,2473 

i, 2342 

\ 

I,/' 


TC 

A f E R J U 6 

< Sir 

REF 

14 

last 

546 

3 4 f 2474 

4 1476 

1 

AKLQAD 

CS 

AK 


) 
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I7 0t , j(DTHETA*^COS{CDUXJ *COS{CDUZJ 

+UPSI*SiNtCGUX» ) 


IBUf ^i>t-CTHETA<=SINtCUUX)^CUS( LGUZ) 

+ OPSL'^CQS( COUX) ) 

i>r^Ki ATTITUDE ERRORS IN AK,AK1,AKZ 


ChN TAKEOVER STATUS 
Pu:> - DISPLAY ONLY 
i, STukE BIAS 

NEG STEER L/V 


AKS = AKS - STOKED BIAS 


EDAI VIA NEEDLER 


M 


UlL AY ^ 25 SEC 

EX t C J 1 1 iJN + ULLAY — «56SEL APPRCJX 

END UF ATT ERR-Jk DISPLAY CYLLE 


STuRl AKS 


A Si tH fcLJL A&i iiJiJfi / U , Ufc-_jiyiC- PK m^KAM Ak t> Y_ .MM. 4 J.I 





Pll 









- Sll 

R hP 

3 

last 

546 

34i2475 

5 5 ' 7 1 5 

1 


X;> 

‘Jl2 

REF 

5 

L AST 


34f 247 6 

*♦ 1477 

' 


cs 

^.SlJ _ 

REF 

4 

last 

547 

34,2477 

55*716 

1 


TS 

f SIA 

RET 

5 

last 

54 6 

3 4 1 ^ 3wC 

4 is:) 

1 


cs 

7 *51^ 1 

KEF 

5 

LAST 

54 7 

34, 23ij 1 

53*717 

L 


TS 

5 1 A 2 

REF 

29 

last 

541 

34 , 2:^C 2 

4 47 7 

1 


Cj> 

' Sl4i 

REF 


LAST 

546 

34^t 3 

55 ' 714 

1 , 


IS 

’ S144 

REF 

1 



34, 25C 4 

U 2447 

1 


TC 

‘ 513 

REF 

ij 

LAST 

547 

34,25C5 

3 iZi-* 

1 

STKSAT 

CA 

4 5151 





34, 25'j6 

'u ^*6 

1 


tXTtrND 

V.51311 

REF 

2 

LAST 

543 

34,23u7 

o 236'y 

u 


BZMF 

i 51512 

REF 

S 

LAST 

541 

34, 25 iv 

4 1531 


/iTKtcLT 


^-51513 

REF 

25 

LAST 

541 

34,251 1 

7 4766 

0 


MhSK 

• 5152 

REF 

1. 

LAST 

547 

34,2512 

27 ' 5 Jl 

t 


AUS 

151521 

REF 

Ic5 

LAST 

54 6 

34,2513 

ij 46 3 6 

1 


TC 

51522' 

ITEF 

3 

LA^T ~ 


'34;z5n^“' 

'4Z425" 

1 


C A Ot^ 

i 51523 

REF 

1 



34,2515 

3 6211 



C AF 

751524 

kef 

li b 

LAST 

547 

34, 251 6 

U 4636 

c 


TC 

C 51525 

KEF 

4 

LAST 

546 

34,2517 

€ 1731 

' . m 


CADK 

<51527 

REF' 

7 

LAST 

547 

34,2520 

11* 714 

y 


oCS 

v51528 

REF 

1 



34,2521 

w 2531 

1 


TC 

L5152S 





34,2522 

u 2523 

1 


TC 

C 5153 

REF 

3c 

LAST 

547 

34,2523 

3 47 7 1. 

J 

\ - 


CA 

' 51531 

REF 

8 

LAST 

547 

34,2524 

55 *7x4 

w 


T 3 

C51532 

REF 

16 

LAST 

262 

34,2525 

4 476 c 

n 

'*■ 


CS 

C 51 533 





34,2526 

U LO'tD 

1 


t.KTEND 

051534 

REF 

31 

LAST 

531 

34,2527 

w3 ..12 

1 


WAND 

■51535 

KEF 

2 

LAST 

546 

34,253C 

■J 24ot) 

1 


Tt 

f 5153s 

REF 

17 

LAST 

547 

34, 2531 

3 47biw 

1 

IaKEGN 

G AF 

t 51 537 





34,2532 

U 0 ., j b 

1 


EXTEND 

' 51530 

REF 

32 

LAST 

547 

34,2533 

25 ./12 

1 


WOK 

. 5154 

REF 

115 

LAST 

543 

34, 2534 

3 477 2 

1 


CA 

v515Al 

REF 

9 

LAST 

54 7 

34,2535 

55* 714 

t 


TS 

515 42 

HRTF 

■'3” 

lAIST 

~5^~ 


0 246b 

1 


TC 

■•;5i6 





34,2537 

51575 

1 

Silo 1 

VLCAD 

C5i7 

REF 

7 

LAST 

521 

34,254 J 

. 1 € 3 6 

n 



C518 

RbF 

1.. 

LAST 

293 

34,2541 

27723 

i 


31UVL 

751^ 

REF 

7 

LAST 

521 

34,2542 

Clc3T 

O 



- 52A 





34, <:543 

5€ 256 



UNIT 

€525 

REF 

8 

LAST 

547 

34, 2544 

^ X, ‘J 3 o 




;526 





34,2545 

77752 

1 


SLl 

€527 

KEF 

2 

LAST 

293 

34 » 254 6 

17741 



S 1 DDL 

t 5271 

REF 

3 

LAST 

522 

34, 2647 

l5173 

1 



<-5272 





34,^55 . 

77214 

L 


BGF 

l52 73 

REF 

2 

last 

521 

34,255 1 

1.035 5 

1 



T5274 

KEF 

1 



->4 f Zb5 2 

705 j5 

» 

1 



' 5275 

kEF 

3 

LAST 

522 

34 ,2553 

Q2026 

1 



C5276 





34,2554 

60446 

i 


AB VAL 

-5277 





34,2555 

776 2 1 

1 

EARTHALT 

BDSU 

.527 8 





34 ,2550 

‘ l45 

i‘ 
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bl AS. 4K 

AKl 

BlA:iAK +i 

AKi 

bIA:>AK 
bll 1 
S ATo 

S rt t KoA I 
S '-iT S W 

T T U I S A 
b L j F L Aij S 
bIT3 

KC^FLAGS 

BAnKCALL 

REtULbTr" 

REVCNT 
eANKCALL 
DELAYJUb 
SAT :> W 
I AKt JN 
+ 1 

-IT 1 
S A T i» iN 
bIT9 


CHAN 12 
SAl uUV 
c 1 r ^ 

C h >» 412 
L EKC 
SiTSW 
SAT jJT 
A C »' *+ L 

V iV 

V/AGl 

R 14 

b ..i f 


JNT'U BIAS 

COMPLtMtNTtU 


SET SW 
TO ST EER 
GO STEER 
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Kt 782 INTPRET FLAGUP FLAGOOWN 

R7788 BANKJUWP CRS61«1 RGuCSM 

i<nr94~ pFOiTcmG 
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{7) FORM DIFFERENCE BETWEEN DESIkEU AND ACTUAL LOUS, 

IF ANY CF THE THREE ANGLE DIFFERENCE^ EXCEELS DEGREES, 
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THE EXTRA b+1 RESULTS FROM RESCALING AGSDV Ed AFTER NORM 
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SUdR SMN3 REQUIRES UMEGATHSM IN VIVAC32U* AnU Ac i UAL CUU5 
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R1714 INPUT 

R17i5 
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77656 

1 

GOTO 


296 . 

KEF 

1 


3 v ,3642 

61624 

U 


R cw ij 0 r 

2931 * 




JC f 35^43 

TTT 4 ^ 1 

KUMUUi 2 JLOAD 


2982 




3 v , 3 o 44 

77616 

i; 

RVW 


2933 




30,3645 

77614 

1 

R 0 WDaT 3 CLKGG 



ll:4y f-fcB. 26,iV/71 MENELAU3. j61 PAGE 623 


2Vd4 

2985 

29 60 

2968 
298« 
2999 
2991 
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31:1 • 

30 C 1 


REF 



REF 


9 LAST 
2 LAST 


614 

623 


^4.i j 

3wt3647 


32 1 2*- I- '- 

32,2617 


C 1 63 1 1 
61643 1 


CRbrtFLAG 

RCWGQT2 


ULOQ 

KQRKW 

, L) 

OUv 6 

‘XTKPl = 

“UlT 

JCl / 

90RP = 

BD 

i 2 

9DWI = 

ITD 

ywl4 


i2J 

0016 

9DWJ 

140 

0022 

S223X1 * 

130 

I7U3*r*' 

S221X3 — 

Z4ir 

0036 

S22D 

3 ,D 

i V 4 

S22RH0 

320 


USER'S PAGE NO, 


72 


t7 S3 


6ETL0L P2 S9 
BANK 


P 

I 

N 

J 

6 


o 

2 

2 


30. 15 

REF 

1 







COUNTS 

l$/P22 

3iii 2 





32,2017 

o o s>6 4 

U' 

9L}ii<2ti J 


52 6-14 

3wv 2 





32, 202 u 

0000“) 

1 




3C i ’3 





3 2,2 j21 

Li* 00^ 

*\/ 

9UWID 

4^D EC 

2 6-14 

3l, l 3 



- 

- 

32,2022 

00000 

1 




3t ’ 4 





32,2u23 

16366 

0 

SC T VAR 

2iJEC 

1 j 

^0Tr4 ■ 





3 2f^XJ24 

~3TST5Tr 

c 




3i.y5 





32,2025 

0 ,;253 

C' 

IMJVARH 

20EC 

6*^4 fc ^ 

3i . 5 



- 


32,2^26 

31436 

1 




3Li 6 

REF 

U 

LAST 

5 74 

26,33z5 



CECiaa 


DPi/4TH 

3C0 7 

REF 

2 

LAST 

585 

5030 



VC6N49EC 

— 

V:5N49 

3C 0 8 

REF 

1 



50 36 



V 06N d 9B 


VL6N89 


REE 

3r 

OST '■ 

■3Bu " 

~ZT72TH?u 




t: 1 L DC 

~P 2 y S 2 

Ji 1 1 





23,3143 




BANK 


3L115 

REF 
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P2 -F25 USER'S PAGE NOo 74 b7 S3 

F ; IJ 

K i‘ 1 A 

K i* 1 5 

SLGHUliTlNc NAKE: Y89CALL 

HCD NO: ) DAft: 3 FEB iVoB 

HOD by: JioITAL DfcVEL GROUP LOG SLGTIUN: P2.-'P25 

K i' lO 

FUNCTIONAL DESCRIPTION: 

P,3' 1? 

R 3v 1 r] 

K il. 1 S 

CALLED YERB 89 ENTcR DURING PUG* PRIG io USED* CALCULATES AiTL 

DISPLAYS FINAL GiMBAL ANGLLS TU POluT CS7#. +X maIS Or PKcFERrED AXIS 
<LNITUJCOS55 DEG + UNlTlXISiN55 DEGI AT LM« 

i-, j-. £' 

K 3v 2. 1 

1. KEY IN V 89 E ONLY IF IN PROG Oi;, IF NOT IN P jL f uPcRATuR tKROK AND 

EXIT R63t DTHERRISE CONTINUE, 

K3-22 

R3G23 

2. IF IN PS^ , 00 IMU STATUS CHECK lRJ2btjTH}« IF IHU ON AND liu 

URIbNTAfiuN KNOWN TU CGC* CONTINUE, 

K3< 24 
« 3125 

K 3C 26 
R3C;27 

3. FLASH DISPLAY V 14 N ^.o* K2 INDICATES WHICH SPACECKAFI AXIS IS TO 

BE POINTED AT LM. INITIAL CHQlCt IS PREFERRED AXIS® lK2-i)= 

ASTRONAUT CAN CHANGE TO (+XI AXIS (R2 NOT= 1) BY V 22 c 2 E. CUNIINUE 

AFTER KEYING IN PROCEED. 

R3C2a 

K 3C2 5 

4e Scl PBEFERREO ATTifUDE FLAG ACCORDING TO OPTION DESIRED, SET FLAG 

FCR PFLFEkREO axis. RESET FLAG FOR X AXIS, 

i< 3v 3 V 

5. CURRENT TIME IS STORED A NO R63CUMP IS CALLED . 

R 3; J 1 

R63CCMP JOB: 

H 

UPDATES CSM AND LM STATE VECTORS USING CUNlu EQUATIONS 

R3i 3J 

CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM 3SM TU LM, 

k 3v. 34 

DtSlREO GIMUAL ANGLcS AS INDICATED BY PREFERRED ATTiruDE FLAG 


— 17303^ TTR^ STORnj FUK LATHfi R6GCSK ITA^L , 


K 3C 3 6 

6. FLA3H uISPLAY V U6 Ni3 AND AWAIT RESPLNSl, 

i> 

k 3L 3 7 
R3v 38 

7. RECYCLE- RETURN TL STEP 5, 

TERMINATE- EXIT R63 ROUTINE 

FirCLEHF“Ti'E5 tT~37FXrSFnr“A(VD CALL R6 ; C XTT U UDE MANEUVER, 


i* 


K 3' 4^, 

CALLINu sequence: V 89 E 

K3' 41 

SUBPOUTINcS CALLED: CHKPQOH, RuZBQ lH, GOXDSPF » r63CuMP» F6uu;:.M 

K3' 42 
R3v43 

K 3 44 

ALARMS i. OPERAFOR ERROR IF NUT IN Pul 

2, PROGRAM ALARM IF IMU IS OFF 

3. program alarm if IMG urIENTATIQN IS UiTKNCiflfj 


Al-'i tMbL L b -W _ V_/,4- Qh ^H.Ob RAM A KT6HI <- ZLi L 4~ 1 1 
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X ‘V^ 


tRASaeLt- IMl r lAL IZATlUiM KlUUIRED: iviLNt 


. Ji 


UEdKIbt U PlIONlt OPTlONi-Hr P kFT KK AT t PRfcF ATT FLAG ) t PZl 1 I Ml t iAXlSFLG 


3 A 7 





23f 3143 


1 

CPIMIN 

2ChC 

6 ' ■ 

4 / 





23# 3144 

1356 

0 




3 ' '+ S 

KtF 

13 

L AS T 

6i,3 

t: 4 f 1715 




EaMNK= 

K 6 3 f I L 

3' b 

REF 

i 



1 1 2 ‘ j lA 




b 1 LUb 

V d 9 1 Ab 

31 51 





Jli23 77 




oAMK 


3L5Z 

REF 

1 







lGUNI* 

$4/ Ko3 

3i.'53 

RbH 

131 

LAST 

017 

31 1 2 -» 7 7 

0 4636 

1 

5 J 

'V89CALL 

TC 

EANKCALL 

3s- 5^ 

REF 


LAST 

565 

31# 24. 

6373 1 

1 


CADR 

,28 JTii 

ii. 55 

H EF 

113 

LAST 

618 

3 1 f 2 w X 

3 6y'^6 

1 


TL 

IMPRET 

3{ 56 





31# 24C2 

71214 

Ij 


oLcAK 

LLOAD 

3i 57 

REF 

o 

L aS T 

6G 1 

31, 24C 3 

K 5657 

V 



AZIMFLAG 

3l 5 5 

REF 

25 

LAST 

611 

31 # 24i. 4 

15336 

0 



ZEROVCC S 

3« 


7 

LASt 


31#24c5 

^5740 

i 


store 

UTPlT 

36 6 ' 

REF 

7 

LAST 

559 

3 1 , 24l 6 

;3 742 



STORE 

UIYArf 

3.61 





3 1 # 2 4 V, 7 

77776 

1 


fcX I T 


31 62 

REF 

1 



31# 241- 

3 2443 

_ '« 


CaF 

V d 6 N 7 6 

3C63 

REF 

132 

LAST 


31 #2411 

j 4636 

V. 


1 c 

eankcall 

3t 64 

REF 

2 

LAST 

6l 6 

31,2412 

211U1 

1 


CADR 

GCFlA^HR 

jt 65 

KEF 

28 

last 

522 

31# 24 1 3 

u 5524 

1 


To 

ENot AT 

3*. 66 

RcF 

1 



31# 2414 

1 2421 

■L. 


TCF 

VaSRECL 

3\ 67 





31#24l5 

0 241') 



TC 


3< 68 

REF 

30 

LAST 

616 

3 1 f 2"^ X 6 

3 4765 

1 


CAF 

8173 

3t' 6 9 

"FTEF 

r 



“'TTr2TI7" 

5516 

cj 


X b 

bLAf^Ktz 1 

3t 7 c 

ref 

65 

LAST 

616 

31, 242' 

u 3 



Tl 

bNDOFJUE 

3(71 

R bF 

114 

last 

626 

31,2421 

w 6u o 

1 

vaVRECL 

To 

INTPKlT 

3C72 





31,2422 

43234 



R 1 3 

L A (X 

3L?J 

REF 

14 

LAST 

6 w 

31,2423 

51751 

■^v 



L Cad 1 1 ME 

31 7 4 

REF 

i 



3 i , 2424 

.. 7 144 

1 



lpih in 

3C75 

REF 

14 

LAST 

626 

31, 2425 

36307 

i 


ALL 

Kbci 1 1 iHh 

3C 7 6 

REF 

1 



31,2426 

73171 

1 



K63C0i'.P 

36 77 





31,2427 

1111 o 

i 


EXIT 


3C78 

REF 

1 



31, 2430 

3 5,31 

U 


CAF 

V i 0 NX o 

3C76 

REF 

133 

Last 

62 o 

31,2431 

i 4636 

3 


TC 

lank CALL 

3 J 8 C 

REF 

14 

LAST 

617 

31,2432 

2 V 74 3 

Ci 


CAUR 

oTTFl aSh 

3Cdl 

REF 


LAST 

626 

3 i t 3 

. 5524 

i 


fC 

ENubXT 

36 82 

- - 




3 1 f 

. 2436 

1 


TC 

+ 2 

3<^d3 

REF 

2 

LAST 

626 

31 ,2435 

w 242i. 

1 


TC 

V39KtCL 

3C84 

REF 

39 

LAST 

579 

3 1 f ^4 J 6 

556 1 

1 


TC 

U C W N F L^ L? 


im" STATUS 'CHeCK^. RF TURNG if QRIFNTATION 
KNOWN, ALARRS IF NOT, 


HEAL PKESLM riHh 

WtGRArtTu i MIH FROM NiiW 

SUiRt TIME FOR CALL TO R63COMR, k63C0MP 

LEAVES DESIHEO GIM ANGS IN TFltiAUtLOS IN 

HUINTVSM, AND GLLOCTEO AXIS IN SLAXIG, 

V 6 N 1« 

NOUN Iti REFLKS TO lh£ DESIRED UlMBAL 

mmwm-^-r- t - t m — — ■■■ p ■ < ■ ■ i 


TERMINAi c 

PROCEED 

RECYCLE 

RESET 3 AXIS RLAb 


*1 


i 
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> as 
y<> 

P20-P2S 

KEF 6 

KtF i3^ 

LAST 

LAST 

t>fZ 

31 f ci43 7 

3 1 1 2*»"4''. 

L!(.!l^4 p 

0 46 3 b C 


AOKES 

TO 

3AXISFLG 

fiAiMKCALL 

USER'S PAGE NOc 76 

RESET blT 6 FLAG 5 
PERFuKMS CSM MANEUVER TO 

b4 S3 

“ALIGr'l SELECTEO - - - 

3t t4 7 

KEF i 

LAST 

tilZ 

31 f 2441 

56','74 1 


LADK 

K6iiC SM 

SPACECRAFT AXIS TO LOS., 



REF 30 

LAST 

fi'ZF' 

Tl , 2442~ 

X 55i!4 0 


1 LF 

tiVUEX T 



3urf9 

30 VG 

_ -- - - 

REF 3 

LAST 

395 

31,2443 

5031 

Q1516 1 

V U J 6N 7 d 

V BviidNId 

VN 

L6 78 

VwbiXifi 

_ 

- — - _ . _ , - ^ 

3V.9 1 

REF Z 

LAST 

5^ 

35,3171 

— . — . _ _ _ 

R63CUMP 

tWUALS 

rrm/ 9-^ 7> 

R63 


1 

_ , , . . J. 













i: 


1 1 


»o 



I 





9 




0 


V- 

^ ^ 
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h 


.T 


ST 


^ Cl 


V# 


r ■ 
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t 
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USL 1 <*S PAGE N 0 « 77 


E 4 S 3 


P 

H 3 < - 4 
P J' 

K j; V. 5 
k 3 \ 76 
3 ' V 7 
K 3 ; ’J d 
. ( Ji. '77 
K 31 ' v 


PhUGRAM AAHL- ?^5 CISLJNAk MIDCOUk;jL -MViGATIUN 
PCD NO 

MGD GV- IGM KNATT 


FUNCfiui'JfiL GC'sCRIPTIC'N-'DG' MIQGOURSt: NAVIGATION BY INCUKPUKA TlUN LF StAR 
/EAkTH AKiJ STAK/MutJN OPTICAL MEASUKEMt NTS« 

CALLING SEQUENCE- ASTKQNaUI JPEHATtD 

SGaRdUri )\ES CALLEU-R 52 rR 33 i R 37 ,k 6 -fUKBlTAL INIUoRAriGN (lGTr.aK 7 ) 


INCGXPl, I.'lC 0 KP 2 ,LALU IURVi LUNPCS 
NCRPAL tUT MOOES- VIA RGU 


t AND DISPLAY INTfcRFACfc RUUI 


" r^ 3X r ~ 

^XRHS- 









rlil 2 

ABORT MUG 

cS- NONE 








3 L —I* 

ERAS ABLE 

IN IT lALUATION KEUUIREO- PAD- LOADED 

6R A SAaL E S , O kHwf Lag RESeT, 



ri 31' A 

kefsmflg= 

j IF 

IMU UFP AND KEFSMELG-1 IF IRU ON 





R 31 V 5 

inputs by 

USER 

REQUIRED- SIAR 

NUMBcRfL AN L MARK 

laT 

,LDNG/2 

f AL T 



K 31 . 6 

If LANDMARK IS 

USED 

1 NcAK UR Fak hURlXON IF HORIZON IS USEUi AND 



ITS ITT? 

■BTDY 

TITT 

c ^ATIK ED OMir ARTFriTR 

NIjURTT 3 EFXTSOFXn^ AFT 




Riirs 

CLTPUT-UFOATED 

CMC 

STATE VECTORe VECTOR PROM 

S/C 

TO HCKIZGN OR LANDMARK 



R3i<.9 

IN PUlNrAXS. POINTAXS CAN 6E i 

USED TO GENERATE 

THI 

5 VELIJR APART FRuH 



R2il 

P23 

IF UE:>IRED 

• 







M 

4 

i< 3 1 1 1 

UEBRlS-NU 

USABLE DEBRIG IS GENERATED^ RENUWFLG IS 

t RL66T 

FOR P2.. UPON 



R 3112 

ENTRY INTO P23 


ruptkuGS and eKmSables used by 

displays ARfc utBc^iS 



3114 

reF“ 

1 



3i*2')uu 



SETLQC 

Kr23 



3115 





31,2444 



BANK 




3116 

K tF 

1 






COUNT* 

li/P2j 



3117 

REF 

44 

LAST 

590 

67,1722 



t □ AK K— 

PRK JiJFi 



3118 

KEF 

4. 

LAST 

626 

31, 24-4^4 

5 5ol E P23 


TC 

DU W j>ih LA G 



3119 

KEF 

9 

LAST 

588 

31,2445 

C ^ R/ .X ^ 'u? 


ADkES 

KNDVZFLG 



312w 

REF 

16 

LAST 

6:9 

31, 2446 

•j 5362 c 


Tu 

2Pr|:>CHiNG 



3121 





3i,24A7 

E:0!y .'4 U 


JL 1 

U.'o 4 

LEAVE GROUP 4 


3122 





31 ,2451. 

DOG 12 1 


UL 1 

IV 12 

ENIIR GROUP 2 


3123 

REF 


LAST 

242 

31 , 245 1 

3 50 52 C* 


G A F 

PRI Ji3 



3124 

PEF 

J 

LAST 

57 7 

31,2452 

55*262 1 


Tg 

PHSPRDT2 



^ T175 

"RTF" 


L A S T 

~FZci 

~n,245^ 

*1J~5561 


f G 

LurtWFLAb 



3126 

RtF 

6 

LAST 

610 

31,2454 

: C 1 3 1 1 


AUkE S 

RENOwFLG 



3127 

REF 

115 

LAST 

626 

31 ,2455 

w 6086 1 P23*v 


TC 

rCfPRET 



3128 





J 1 1 6 

45-14 i 


BON 

CALL 



3129 

REF 

4 

LAST 

563 

31,2457 

"X7Li2 C' ' 



REFSMFLG ‘ 

SET NOW AS INPUT, NORMALLY EXTERNAL CONT 


313 

RtF 

1 



3i,246x 

62466 i 




WHEN ALIGNED, PERFORM MEAbUREMENT 


3131 

'XeF” 

1 



31,24^ 

761 o 7 u 



R j 7 

DC OPTICS CALnjRATIQJT IF iMU TTGl ALIGNED 


3132 





31, 2'462 

77i324 1 


CALL 




3133 

Ref 

1 



3 1 f ^463 

31571 . 



KbJ 



3134 





31,2464 

7765*. 1 


GOTO 



4 

i-* 

3135 

REF 

1 



31,2465 

62567 i 



P23 i 6t. 



3136 





31,2466 

45 14 0 P23«u 

5 

CL t AR 

CALL 



313? 

“rET 

1 



31 , 2467 

04665 . 



S AV lCFl g 



3136 

REF 

2 

LAST 

628 

31 , 247 ‘ 

76 1 u 7 u. 



K 5 7 

PERFORM MARK CALIBRATION 


3134 





31,2471 

43135 1 P23,!J 

6 

5L0AD 

CALL 



314' 

REF 

2 

LAST 

562 

31,2472 

2551 3 1 



V 5N7^i'^ 



3141 

ref 

1 



31,2473 

63355 1 



P 23 i M 7x / i 




; A 5 S tMBLL GN AyC PRUbRAM AHTfcrliS BY NA 



P2 - 

P25 












d1#2474 

77634 

J 

V94EN TER 

31^3 

REF 

2 - 

LAST 

oZO 

31,2475 

51731 

J 


3144 

REF 

16 

LAST 

589 

31, 2476 

^5t62 

i 


3145 

REF 

1 



--^1,2477 

63 V C 2 

1 1 


3146 

REF 


LAST 

125 

31,25: 

0 3642 

1 


314 7 





3l,25vl 

77776 

i 


3148 

REF 

1 



31, 25l 2 

3 3514 

1 


3149 

REF 

135 

LAST 

627 

31 ,25. 3 

0 4636 

u 


31 > 

REF 

3 

LAST 

567 

31,250 4 

21C6 7 

\ 

1 


3151 “ 

REF' 

'23”'^ 

XaST" 

“61 3^ 

ii , 25 5 

b 41.- 3 

1 


3152 





31,25w6 

c 25 a 

1 


3153 

REF 

1 



31,25.-7 

:j 2552 

1 


3134 

HEF 

116 

LAST 

628 

3 1 f ^ D I w 

u b 2 K/ o 

1 


2155 


- 



31,2511 

53575 

1* 


315o 

REF 

3 

L AST 

629 

31,2512 

3642 

1 


3157 

REF~ 

—3~ 

LATT" 

444 

3 1 1 £l51 3 

3 6 T w b 

I 


2138 

REF 

1 



3 1, 2d14 

6261 4 

f , 


3i D S? 





31,2515 

53435 

1 . 

OCCLCUMP 

31 6r 

REF 

4 

LAST 

629 

31,2516 

02 7b 6 

1 


3161 

REF 

4 

LAST 

444 

31,2517 

02 700 

1 


^162 





3 I 725 Zv 

53435 

r , 

!^j 


3163 

REF 

5 

LAST 

629 

31,2521 

u27o6 

1 


3164 

REF“ 

2d 

LAST 

538 

31,2522 

2672 



316 5 





31,2523 

7oi31 



3166 

REF 

14 

LAST 

622 

31,2524 

0 1 C 5 i 

.} 


3167 





31,2525 

O0CU6 

1 


3166 





3 1 #2526 

('-'00 2 2 

i 


3169 





31, 2527 

61373 

1 

NcXTVLCl 

31 7‘ 

REF 


LAST 

297 

31,2531 

36322 

1 


3171 

REF 

26 

LAST 

623 

31,2531 

32672 

J 


3172 



• - 

~ 

31,2532 

7765o 

1 


3173 

REF 

4 

LAST 

432 

31,2533 

'>6736 

h 


-3X74-“" 





31 , 2534 

/dlu’w- 1 


3175 

REF 

1 



31,2535 

o252 7 



3176 





31 , 2536 

■1322 

1 


3177 





31,2537 

77773 

1 

NEXTVbC2 

3176 

REF 

23 

LAST 

6 U 6 

31,2540 

ol756 

I 


3179 

REF 

27 

LAST 

62 9 

31,2541 

u67 14 

•V# 


-3X3^ 





3 1 f Z 

HD X V V' 

1 


3idi 

REF 

1 



31,2543 

oZDJ 7 

1 


31 hZ 

REF 

2 

last 

427 

31,2544 

47344 

1 


3183 





31, 2545 

45.14 

U 


3184 

REF 

7 

LAST 

627 

3 1 f 2 546 

G2471 

i 


3185 

REF 

i 



31,2547 

62765 

1 


319^6 





~ 3 r, 235 ^ 

7 7 o5'c 

1 


318 7 

REF 

1 



31,255 1 

o2556 

c 

CuVcCPT 

3183 

REF 

117 

LAST 

629 

31,2552 

L' b 0 0 6 

1 

3189 





31, 255 3 

4517 5 



319 ‘ 

REF 

4 

LAST 

627 

31,2554 

33642 

I 



0 o 
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RTB 

LOAur laL 


si CALL 

FAKKTIME 


TCTTvTAXs 

S T URE 

UCLSTmR 

EXIT 


CAF 

V5.M2dP 

re 

EANKCALL 

lADR 

OCPeRFI 

TC 

tjLJ OPuOH 

TC 


Tl 

DOV-CPT 

TC 

INTPRET 

VLOAC 

b i >i I T 


GCLSTmR 


STCAT-XTSK 
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PUJ.H 

— ^4r;7 





T^333X“ 

55366 

1 

s wRt 

ldDv 

4 - d 

REF 

1 



„ 4, 3332 

334 d ^ 

J 


2 F I b 

C4C9 





34,3333 

652C5 

K, 

OMP 

POOL 

L4i;: 

H E F 

3 

LAST 

496 

. 4 ,3334 

- 37 52 

1 


RTiKl/HU 

r4ii 





“4,3335 

65301 

0 

NORM 

FDDL 

412 

BEF 

17 

LAST 

64 ''J 

.4, 3336 

uL' u4 7 

1 


XI 


A 13 


414 





'6 *^1 33 4 V 

20172 

1 

415 




" 

04,3341 

77621 

1 

V 41o 

KEF 

5 

LAST 

283 

04 , 3342 

‘,24aJ 

1 

•418 

REF 

44 

LAST 

645 

J4f 3343 

03413 

1 

0419 





V 4, 3344 

77770 

i 

r42': “ 

REF 

-4 

““L“AST 

644 

54, 3345 

3 3C26 

,-i 

421 

REF 

23 

u AST 

645 

0 4 f 3346 

0 533 5 

i 

' 422 

REF 

132 

LAST 

653 

6 4 , 3347 

^ 6 j 0 

1 

•423 





04,3350 

77624 

i 

c424 

REF 

3 

LAST 

472 

»J 4 1 335 1 

11217 

u 

42 5 





-4,3352 

?i2i4 


• A26 

"RTF 

■ 1 



0 4, 3353 

■ 0347: 

IT 

•42 7 

HEF 

6 

LAST 

653 

0 4, 3354 

^2463 

1 

-428 





0 4,3355 

77624 

1 

-.42^ 

REF 

1 



V 4,3356 

11491 

t • 

:43i 





' , 4 f 3 3 5 7 

7777 j 

1 


7 J 1 1 


tit/ SU 

STORE 

EXIT 


TESi 
I I a 


Tc 

rc 

pJiUNWRU CALL 
F3IKECYC SET 


CALL 


V:oN 33 " 

Vi^tFL ASrt 
i iS T P R t T 

SELhCTMU 
CLQAO 
FAiaAo 
I CS 1 

P J i t- N j 


PJIKI 


7 LUAU 


61 P Auc 653 


4 FhB« 26,1971 MENELAUS, 


USER'S PAGE NO, 11 L4 S3 


' — - - . _ 

Scl TRACK, UPDATE, CLEAR FINAL fLACS 


PL AT "4D 

HTX1=1/MU B+34,E+2b, RT i'1U=SQRT (HU ) 

B-T3, B-I5, RTSFa/FRj=l/SQRT(HUr 34I7,G + 14 


VStJ/^lU 


6+Z fi+l6 

k VSC/MU PL 

AT 2u 

B-6 

(2 - K VSQ/MU } 


8-? 

{ 2 - K VSC7RU )/R 

AT . L U 

D+22f LI"** 2 

7“ PT Rn2 - R' VSUTT^U) 

2Pi R SURTtTTU)/I2HU-k 

V5Q) 

O-I 5 » 0-19 

3-2,6- 


HAFPAl = PCkIOD/ 2 a-2£. 

TIG = ( TCSI - HAFPAl ) B-2E 

TIG = I TCSI -■ PcPIGD/2 I 0-28 




V ^ 




K LV ISt oil OF A uO PRUakAH ARX tHl: ^ aY NAS A 2 21iil- ii 


FOB, Zbti^in McKELAUS, 61 


(Ajtu 65 4 


1 

P2 » 

Kii 



- - ■ . - 

. 





USER VS PAGE NO. 

12 E4 S3 

J 

RlF 

7 

LAST 

6*.-^ ^ 

u 4 f 33 b ' 

11762 

1 



ZcKCVEC 



AJA 

RE? 

lo 

LAST 

514 

04 f 336 i 

174# 5 

1- 


STUDL 

uelvlvc 



A J f> 

KEF 

3 

LAST 

293 

-.4* j362 

2 63 3 

3 



DIFFmLV 

CELTA H AT CDFl 


♦ 4 3 6 





V 4 j 3363 

572Ij 

0 


IJaD 

’TTRFk' 



1 **d7 

HEF 

2 

LAST 

r. 

-'U 

►j4f 3364 

32370 

i 



HAilDELri 

METERS B-29 


436 

KEF 

1 



1 , 4 1 33 6 5 

11376 

U 



25rHaus 

K = -.025 


439 





^ 4 1 33 O 6 

450ol 

1 


;>L 

call 


» 

' 44 





t. 4f 3 36 7 

2 'j Z . 6 

1 



50 



• 441 

KEF 

1 



j 4 f 3 3 7 

24v' 35 

1 






:44r2“ 





■■ 04,3371 

77o24 

T 


“CAtl 




' 44J 

REF 


LAST 

496 

04f i372 

73l27 

0 



VNi645 

S32/33.1,DISPLAYS AND 

COHPUIES DELVLVC 

1 444 





w 4 1 3 3 7 3 

77 650 

1 


uOT 0 


AND DEL VS I No 


445 

REF 

1 



04» 3374 

11352 

u 



K31RECYC 



-447 





4 f 33 7 5 

56 57 4 

1 

25THDUS 

2DECi' 

-^4ii447u842 

¥-5 B+17* 

3 + 17 

V 447 





U 4 1 3 3 7 6 

47556 

I 






<^447T 





C 4| ->j77 

" T34X4F 

T 

0 

OuDEGLlT 

00 T 

13434 



<4472 





1 4 1 34^ J 

X u 1 o 3 

1 


JuT 

161 i>3 



. 447 3 





4f 34L. 1 

224u 7 

1 

2 ^ B D 6L U 

3C T 

224.7 



4474 





1 4t 34.ir 2 

3o67 j 



OCT 

36673 


r 

-448 

REF 

1 



22, 2?^OC 




ScTLOC 

P3oT Ai^ 



<445 





ZZ$ 3334 




SANK 





O Af’ : AS S EMBl t Hi; V 1 SiL N < 71 OF AG C PRU&KAM AH TE MIS 8Y MA SA 4^ J,Li ii 


L 

P3'',P3i 

- 

P f 

K . 431 

PURPuSE 

PLANE CHANG t TARGE MNtj PKUGRAM P36 

K ‘♦‘jA 

R 4 "t i 

1 NPGT 

lu CUMPUfE PARAMLlcRi) FUR PLANE CHANGE MANEUVER 

r*. \ 434 
t< ' 435 

aUTPUT 

IXSI 

K 436 
i 43 7 

Rv450 

R C4l>^' 


TIG TIME OF Plane CHANGE MANEUVER CUMPUTEJ TU 

TCSI 9G DEG TRANGFLK TIME 

nCLVLVC DELTA VtLOCITV AT PC - L3CAL VEKfICAL 
ULLVSJN DELTA VcLOClTY AV PC - REFERENCE 


' 43^5 

R EF 

1 





COUNTS 

1$/P3i36 

C4I51‘ ' 

TTEF“ 


'TTAST 

653 

22» 3334 

"TT 4555 CT 

'P36 TC 

A Vf L AbA 

L46l 

REF 

4 

LAST 

633 

22,3333 

U 4572 J 

rc 

P2-.FLO0N 

^462 

REF 

36 

LAST 

652 

22,3336 

“0 SSt? 1 

rc 

UPFLAG 

C46i 

REF 

6 

LAST 

o32 

22,3337 

U(>244 J 

ACRES 

FChL Ab 


R E E 

13 J 

LAST 

6 S3 

22,334- 

U 6C U 6 1 

TC 

I NTP KuT 

■ 463 





“Z2, JJ41 


CaOT” 


“ 4t»6 

REF 

4 

LAST 

o33 

22,3342 

11217 ' 


ScLECTMU 

! 467 





22,3343 

71214 

P36A SET 

CLGAO 

' 466 

REF 

J 

LAST 

644 

22, S344 

t 1067 1 


XJLLVFLb 

469 

REF 

7 

LAST 

653 

22,3343 

02463 1 


ICSl 

V47' 

REF 

24 

LAST 

644 

6 

i4C-+l - 

STCALL 

J JtCl 

— ^^4T1 

■RTF" 

"5“ 

ITATl 

'6XD — 

“Z2T334T" 

27 ITT 1' 



472 





22,3J5c 

43145 ; 

uload 

SET 

'473 

REF 

3 

last 

641 

22,3351 

15336 > 


ZERO V EC 5 

^ 4 F4 

KEF 


LAST 

463 

22,3352 

'33460 iv 


KVSW 

475 

REF 

4 

LAST 

466 

22,3353 

16734 

STOOL 

csth 

0476 

REF 

i 



22,3354 

^5547 i 


C S3 5 9+ 

C4T7 — " 


-y 

xasT — 

■4173 ■ 

f 33 5 5 

2l6/32 L 

^ i u V L C) 1 n 

'47 b 

REF 

13 

last 

644 

22,3356 

v. .. ojlI O' 


ratt 

l479 





22,3357 

45 115 u 

POVl 

CALL 

• 4b: 

REF 

lo 

last 

644 

22,3360 

/ < 


VAT J 

' V.43 1 

REF 

1 



22,3361 

45323 1 


VtpSHl r i 

C4b2 

REF 

6 

LAST 

493 

22,336 2 

2674a ' j 

bTdVL 

VVlC 

' -^rniwy 





"2ZV3363r 

7 iCiZb ' 

b 1 AUi’i 


' 4a4 

REF 

4 

last 

498 

22, 3364 

4112. 1 

P T b A L L 

RVEC 

<4b5 

REF 

3 

LAST 

46 3 

22,3365 

250o2 1 


TIMETHiT 

>486 





22, 3366 

77615 0 

UAU 


' l4 37 

REF 

3 

LAST 

655 

22,3367 

02463 1 


I L a i 

8 

REF 

43 

LAST 

653 

22,337^ 

L- 3 4 i 3 1 

b r uRfc 

— — -h »■ 1 ■■■ " * ~ ~ 

I I p 

» 1 ^ mmrn ■■ ■■ 1 

v4 ?9 ~ 





22T337I 

“77776 1 

t X I T 


^ 49^ 

REF 

3 

LAST 

b5 3 

j3 7 2^ 

3 5v>2p 0 , 

C Ar 

V . oN33 

C491 

REF 

24 

LAST 

653 

22,3373 

y 5535 1 

TC 

vb F lash 

4 ^ Z. 

REF 

134 

LAST 

633 

22,3374 

60 o 6 1 

fC 

I A 1 PRc 1 

'-49 3 





22, 3375 

77624 1 

CALL 



1.4* 4 F EB. MfcNLL AUj ' 61 P/*&? _63 Jj 

UStK'S HAGE HU« 13 r.4 Sj 


SlT 1 .'iACKtUPuAfh - CLEAR PC FLAGC 


IWTLGRATt STATES'lO TCSI 


CCS 9-j OEGREtS 
■51NE-9(' DEGREES 


CCMPUIL TRANSFER TIME OF 9C DEG 


Ii:4^ FEb« Z6,1971 M^N£LfUS*C6I PAGfc 


Ap: 

ASSEMBLE Kt 

iVlSluN 7^ 

OF AoL PRUgKAM ARTEMIS 

OY MAS A 2., 21114-11 


P3 if 

P3i 







4 <1 

KEF 

S 

LAST 634 

1 33 7 6 

73027 

0 


YM645 

t 4vS 




22,3377 

45175 

0 P36RtUYC VLOAD 

CALL 

i 4*^6 

KEF 

31 

last 633 

22,343 J 

15336 

0 


ZEKu V tiL S 

C497 

' hET' 

2 LAST 65^ 

"22,'J4n 

T40u5 

i 


'miTRST' 

049tJ 




22t34u2 

JlbZ^ 

1 

CALL 


1 499 

REF 

6 

LAST 636 

22,3403 

73027 

0 


VN1645 

'V t> 




22, 3404 

77650 

i 

GOTO 


C301 

REF 

i 


22,3405 

453? 7 

J 


H36RcC YL 

l5-2 

REF 

1 


12f2UtU 



SET LOC 

N90 I AG 

73^3' 




12,2u05 



dAl^K 



USER'S PAGE hU, 14 E4 


DI'SPlAY COMPUTE YDCJT 


S3 


• r » 





AS S E M BL Yi S J- 7^ GP AoC PhU GRAM AKrirHIo d V H A S A 2^ 2 11 14-jII 


i-AAA PfcB« 26,1971 MENfcLAUS*! 61 PAGt: 6S7 


i. 

P 3 f 

P31 








p ^ M 

'• • • il 

u o N 

9<y/N81 

« « • • « 

•• CQHPUTES FOUT, 

DISPLAYS N9 

w AND NBl FUR P3i,P36 

C4»y 5 

K xz F 

1 






Count* 

>i/P3136 

Ubv'* ?> 





12,2005 

7762C 

N90/N61 

STO 



REF 


LAST ' 

"1C5" 

12 fZZr6~ 

TZ55r Ot 


TTTFITET ' 

v<5''»7 

REF 

17 

last 

654 

1 2 , 2uo 7 

1 7 4 j 6 

L 

I «J0L 

lEls/L VC 

(iSt'S 

REF 

46 

LAST 

655 

12,201* 

' 3413 

1 


1 1 u 

Si., 'J 

REF 

2j 

LAST 

655 

12,21*11 

34u'41 

r-. 

ST^ALL 

TDtCl 

i.510 

REF 

3 

LAST 

472 

12,2412 

45236 

1 


PRECSET 

‘SI 1 





12, 2i 13 

43u 14 

V 

aoN 

StT 

C51Z 

■KFF“ 

— ^ 

'tTrST ' 

4?e — 

i 2 1 ^ v> i 4 

L 13X1 

0 


FInALFLIj 

(-513 





12,2315 

24017 

1 


+2 

[ 514 

REF 

9 

LAST 

652 

12,2:. 16 

0047*. 

1 


OPDATFLG 

t515 





12,2wl7 

77775 

1 + 

VLOAD 


v516 

REF 

13 

L A ST 

5’"'v/ 

12, 202 c 

•:3546 

0 


VACT3 

C517 

REF 

6 

LAST 

644 

jL 4^ f Z\j 2! X 

27640 

0 

sruvL 

VTIG 

rSlTT ■ ■ 

"RTF' 

ZZ- 

rTrsHT- 

644 

'‘'TZVZU2Z 

03540 

u 


iv75rCX3^ 

.'519 

REF 


LAST 

644 

12,2 

37632 

1 

STCALL 

FTlb 

r52" 

REF 

1 



12,2324 

15756 

1 


DISP.'19.^ 

1.52 5 





12,2625 

77624 

1 

CALL 


52o 

REF 

4 

LAST 

644 

12, 2026 

72721 

1 *. 


LC.MAT " 

52 7 





12,2 27 

61375 

1 

VLUAD 

VXH 

■5ZS 

■prFF' 

~T8“ 

LAST" 

657 

■ I’2V203T 

~’ir3^4o5' 

r 4 

i 


CbLVLtfL 

u52V 





12,2^31 

000 j1 



J 

'53* 



• “ . 


12,2032 

777 72 

0 ~ " 

VSLl 


.531 

REF 

7 

LAST 

64 J 

12,2 j33 

37 o46 

1 

S r 0 A Liw 

C h L V a i N 

i 532 

REF 

3 

LAST 

657 

12,2^34 

:;235i 

1 


N ET 


USER'S PAGE NCo 


HUTA! I UV fLV lU RrR 



14 S:> 


I 





K^yi^iUN U Ljr A ^C PHUbRAi-^ AgTifMIS 6Y UASA ^ 21il^- II 


1I:A. FEBo 26tl971 MENLLAU 


PCul<. 

r^' ‘ I i 1 

il 


^^ 32 -P 3 jr P 7 <;-P?J 

CUtLLlPfiC Sc^Utr^tE INI r iAi ION ( CS i ) PROGKA«b IP 32 AND P 72 I 


MCD NU -1 


MCD DY WHTE,P uATE 1 JUWL 67 


LUG SECT luN - P 32 -P 35 , P 72 -P 7 ii 


USEK’S PAGE NO 


I J 


PLKPUit 


' 14 
6 


RC0i7 


(1 ) 


TO CALCULAIE PAKArtETERS ASSUCIATEO WITH THt 
CONCENTRIC FLIGHT PLAN MANEUVERS - THE 00- 
nvTTT xn ON I CSl i "IRTiTiEOVcft" Sm THtTX OHS VAm 
(COHJ MANEUVER, 


FOLLOW i NG 
LLLIPflC SEwUtNCt 
TJFL T A ■ aXTTT wr 


R ' 1 c"' 
K 'Ll v 1 V 


12 1 TO CALCULATE THESE PArtAMETEKS EASliD UPUH MAi^EUVbK DATA 
APPROVED AND KEYED INTO THE DSKY bY THE ASTRONAUT 


Ml t ^ 


R . ^ 21 

RL' 22 


(31 TO DISPLAY TO THL ASTRONAUT ANC THE GkOUHD DcPEHJEHI VAkIAoLES 
ASSOCIATED WITH THE CUNCcNTRiC FLIGHT PLAN MANEUVERS FOR 
APPROVAL BY THE ASTRUHAUT/GRCUND, 


> 


i'\ L ' 

RLi 24 


(41 TO STORE THE CSI TARGET PARAMETERS FUR USE BY The DESIRED 
THRLSTiNb PROGRAM, 


K '' G 2 4 


A5S0MPT1CHS 


K i - 020 
R^t27 
K;.<.2a 
R » t 2 bS 


(1 i 


AT A SELECTED TPl TIME THE LINE OF SIGHT 
AND PASSIVE VEHICLES IS SELECTtD TO BE A 
FROM THE HORIZONTAL PLANE DEFINED BY THE 
PUS I T TUK, — ~ ~ 


BETWEEN THE ACTIVE 

pkEoChibed angle (E) 

ACTIVE VEHICLE 


RTL29 (21 THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE 

RCt3v COMPUTED TC BE GREATER THAN 1) iMlHOTES FOR SUCOcSSFUL 

RvG 31 COMPLETION GF THc PROGRAM, 

RCr 32' “(3 1 THE TIMtBETWEtN C0H“ IGNITIO N AND 'fpF I G N I T 1 0 H~Hkrs“ f 'b E 

RU 33 CDMPUTtD TC BE GREATER THAN lu MINUTES FDr SUCCESSFUL 

Ru\34 COMPLETION OF IHE PROGRAM, 

Roi.SS (4 1 CDH DELTA V ‘iS SELECTED TO MINIMIZE THE VARIATIOH OF THc 

RCC3S ALTITUDE DIFFERENCE BETWEEN THE ORblTS, 


KC< 37 
R0C3B 
R Cl 3 85 

RCH 39 (6 1 THE PERICENTER ALTITUDE UF THE ORbi ( FOLLOWING CSI AND CDH 

R:.i4 ■ most iJE greater THAN : FT (LONak aRBTT7~LjR Hrt (EARTH 

Ki 41 ORBIT) FDR SUCCESSFUL COMP LET I CN OF THIS PRCGRAM, 


(5) CSI BURiS IS DEFINED SUCH THAT THc IMPULSIVE DcLIA V IS IN THE 
HORIZONTAL PLANE OcFlNED BY THE ACTIVE VEHICLE PGoITlON AT u5I 

IGNITION, 


K‘.. ( 42 
H 43 


(7) THE CSI AND CuH MANEUVERS ARE ORIGINALLY ASSUMcD TO BE 
PARALLtL Te THc PLANE OF THE CSM ORaiT. HOWEVER CcEW 


A^sScMBLL HcVXSlON IZ Lf AGt PrtGGKAK ARTEMIS BY t\lASA 2'21114--11 ll:Av3 HtB. 26,1G71 MENEL AUS. 061 PAGE 




L 

P32-PJJ, P72-P7i USER'S PAGE 740* 2 E; SJ 

K !''» 

1 ' : A :» 

MaUIFltATiLN OF DELTA V (LVJ CCHPONENiT S MAY kE SUL T AN 

UUT-OF-PLANE CSI MANEUVER^ 

R 0 - A 6 
RGt A7 

to) STATE VECTGK UPDATES BY P2 7 ARE DISALLOREU UDRI^hG AUTOMATIC 
oTATE VECTOR UPDATING INITIATED BY P2o (SEE ASSUMPTiUr4 I ). 

K .uAa 
rt' ^ 4*^ 

K ‘ ' 'J '■ 

'K ' ‘05 1 

13) COMPUTED VARIAgLES MAY BE STORED FUR LATtR VtRlFiCATlON BY 

THE GROUND. THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED - - - .. . 

ONLY TU THE PARAMETERS FUR ONE THRUSTING MANEUVcH AT A TIMt 
“ OTTEPT TUR LUNCENTinir FTXGFn' PL AN^'ia^EDVBT s c 

K 0 

R .< 5i 

Ri : 54 
RCt55 
RDU 56 

K '.A 5 7 
RCC5E 
RCC55 

(li) THE RENDEZVOUS RADAR MAY OK MAY NUT UE USED FU UPDATE THE LM 

UR CSM STATE VtCTORS FOR THIS PKUGRAM. IF RADAR USE 

DESIRED THE RADAk HAS TURNED ON AND LOCKED ON THE CSM BY 

PREVIUU:) SELECTION OF P2o. RACAR SIGHTING MARKS HlcL BE MADE 

StrrCfTA T rCArtV APPRUXIHATEtY ONC E ^ "TTirraTE"' HHErrTiT M BOEtr^BT ^E 

TRACK AND UPDATE FLAi^S tSEc P2-). THE RENDEZVOUS IRACKING 

HARK CCUNTER IS ZEROED BY THE SELECTION OF P2 . AND aFTEK E-ACH 

THRUST I No MANEUVER, 

Rt. .L 60 

til) THE ISS NEED NOT BE UN TO COMPLETE THIS PROGRAM, 

K C' 6 i 

(12) THE OPERATION OF THE PrO^^RAM UTILIZES THE FOLLOWING FLAGS - 

R Ct, 6 2 

R 0 iv 6 3 

R C C64 
1TTT65 

ACTIVE VEHICLE FLAG - DESIGNATES THc VEHICLE rtHICH IS 

DOING RENDEZVOUS THRUSTING MANEUVERS TJ THE PROGRAM WHICH 

CALCULATES THE MANEUVER PARAMETERS, :jET A1 IHL START OF 

' ' EACFTK ENO'EZVD uS PRT-ThRU S 1 1 NG FRDgTTAM, 

KM 66 

Ri : 67 

KC068 

FINAL FLAG - SELcCTo FINAL PROGRAM DISPLAYS AFTER CREW HAS 

COMPLETED THE FINAL MANEUVER COMPUTATION AND OIgPLAY 

CYCLE. 

xcr6s 

R6C 70 
Rl0:71 
R0< 72 

EXTEHNAL DELTA V STEERING fLAG - DES IGNAT ES "t HE 1 YPt, UF 

STEERING kEDUIREO FUR EXECLTiON OF THIS MANEgVEK BY THE 

THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS 

PROGRAM, 

K V L 7 3 

(13) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FGk I HOUR PRIOR TO 


jfli^Q5xxrvG mNBJYmi 


R L . . 7 5 

114) THIS program is SELECTED BY THE ASTRONAUT BY USKY ENTRY - 

R' . 76 

P32 IF THIS VEHICLE IS ACTIVE VEHICLE, 

'r*:T77“ 

P72 IF THIS VEHICLE IS PASSIVE VEHICLE^ 

Rvil'J 

INPUT 

4 

Rv 111 

(i) TCSl TIME UF THE CSI MANEUVlR 


Ui TCSi 


TIME UP THE CSl MANEUVlk 


V If ; 


^SS Ln&k£.J^ i Ljli j> u ^ PKutk ikAH AKfbHlS iJA SA 2 A1 


li;4' f-tfBo ^6tlS7 i M br-jFLAUS^ bl PAGc (^ 


L P32^P}Jji, P7^-P73 


US£i<>*S PaijL t'iO* 3 t< S3 


K 11^ 
k 113 

tN ' UA 

k 1 1 3 

k^ 116 

K 13' 


Hi NN NUMBfcK UP APSlUAL CkCSSINUS THRU WHICH THC ACTIV: 

VfcHiCLe UR31T CAN B£ ADVANCtU TG OBTAIN THE tUH 
MANfcUVi_K POINT 

_ - - DESIRED” roS' ANGlir'Trr^P r ~ — ~ 


(4J ITPI TIME UF THE TP I MANEUVER 

GLTPUT 


K IJl til TRKMKCNT NUMfitk OF MARKS 

k 13^ (2) TTOGC time TU GG 

A 13 3 ‘ ■tTl"Vi^GX 'MlUllL'E "G I mAV ~AWGVt 


■RClSb 

k' 136 
!< I 137 
R lit 


14) l» 1FFALT DELTA ALflTUOE AT CDH 

13) T1T0T2 DELTA TIME FRUM C3I TL CDH 

(6) T2TGT3 DELTA TIME FKUM CDH TC TPI 

(7) OlLVLVC delta VELOCITY AT CSI - LOCAL VEKriCAL CUGKUlNATES 

ta) DELVLVC DELTA VELOCITY Al CUH - LOCAL VERTICAL CuOftulNATES 


R^ 139 LCWNLIRK 

R(^139 1 tl) TCSl TIME jF the CSI MANeUVlK 

Ri 1392 (2) TCUH TIME uF THE CUH MANEUVER 

KP1393 13) TTPI TIME OF THE TPI MANEUVER 
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1 

1473 





27,2711 

725o6 

1 

1474 





27,27i2 

57515 

1 

i4‘T5 





27,2/13 

7 7 63 3 

1 

1476 

KEF 

6 

LAST 

63 8 

27,2/14 

^2625 

1 

1477 





27,2715 

o524 1 

0 

1476 

REF 

12 

LAST 

t»67 

27,2716 

U2oll 


14 7 9 





27, 2717 

455fc>5 

^ . — * - - 

0 

14 8L 

REF 

7 

last 

675 

2T t Zij 

61 i45 

1 

■ T?6 r 

■ ■ fTEF 

7 

TISST 

'&B¥" 

Zl tZTZX 

02625 

1 

1482 





Zl,llZZ 

45115 

0 

1463 

REF 

5 

LAST 

683 

ZltZlZ^ 

.2617 

IT ' 

1484 

REF 

4 

LAST 

675 

27,2724 

45320 

1 

1485 

REF 


last 

675 

27,*i725 

26 746 

0 

1486 





ZltZlZii 

77614 

1 

1487 

REF 

6 

last 

675 

ZltZlzT 

u3666 

1 

1488 

KEF 

7 

LAST 

675 

f *1 7 3 ‘ 

36657 

J 

1469 

REF 

b 

LAST 

6/5 

27,2731 

250^2 

1 

149 C 





27,2732 

537j4 

1 

1491 

KEF 

12 

LAST 

644 

27,2733 

03746 

1 

1492 





27,2734 

57576 

1 

1493 





~rtt21T5~~ 

J>T:C2 3 

1 

'5 

1494 





27,2736 

7 644 i 

1 

1495 

REF 

3 

last 

6 6 d 

ZltZl61 

03546 


14 6 





27,2746 

51515 

1 

149 7 





27,2741 

032^7 

1 
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StiTLOC CDHT 

BAl'iK 


CUUNT 
S fU 


PUSH 

STuVL 

UNIT 

PUSH 


iTQDL 

OSw 

SR2 

SUHT 

PUVL 

Txv 


$ »/ U OH 
VlUAU 

bOdfcXl T 
hAC I Sd 

IMT— 


to 
BPASa^ 
UUT 
UNVtU 
SLi 

TTTh “ ~ 

PDOi. 

UPi / »1 f1 

CbJ 

SLi 

VCUfiP 


JOT 

S 1 UN 
STOVL 

Fl),..L 

UOi 

UTAJ% 

SNI.i 


HPASi2 

PUVL 

Call 

V A.‘ SS2 

V J: C ^ H I F 1 

ST JVL 

WlU 

CLbAK 



1 . VS W 

STCALl 

K V E C 

J iMc THtT 

L X A f ^ 

(\ T 

L f Z 

^rui<r“ 

rsij 

DOT 

sLia 


U <)/ tc 

PO VL 

AdVAL 

SL^J' 

H J 7 L 


u> sue A 


u 


V SUB PV 
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27,^:742 

57576 1 


149 9 

KEF 

9 

LAST 

63 i 

2 7 f ^ 7 ^ J 

‘■245 3 1 


is- 





27,2744 

65246 1 

ABVAl 

15 . 1 





"27,2745 

f f 625 G 

6 50 

15' 2 





27,2746 

*H.Cr’. 3 1 


1 3 J 3 

K ir F 

4 

LAST 

654 

27,2747 

i 6 6 3 3 - 

Cil UDL 

15 4 

REF 

2 

LAST 

1 / 

27,275. 

‘-2744 1 


15 v5 





27,2751 

1 

NORM 

15 6 

KEF 

23 

LAST 

679 

27,2752 

Ft -47 1 


- 10 ^' 

“ TTFF' 

-3 

“C'A5T 

6 / 2 > 

2 / 1 dlt^ '3 

1 ?rT41 7 


15'. 3 






77o24 1 

CALL 

1509 

REF 

8 

LAST 

677 

27,2755 

4533' ' 


151' 





27,6750 

56 362 

SRiK 

1511 

* 




27,^757 

41457 1 

Sl^ 

1512 





f 6 ^ 

20174 1 


“ T5TT" 





Z7 , iL /o 1 

65225 1 

usu 

1514 

KEF 

5 

LAST 

639 

27,2762 

.263;5 


1515 





27,2763 

563v/2 

SR 2 

1510 





27 1 2 7o ^ 

♦ * v V 5 1 


1517 





rifZibS 

754u6 1 

P U3H 

1518 





27,2766 

41275 1 

uHPft 

1519 





ITTTTSl 

Q C 6 J 7 u 


1520 





27,277* 

ore a w 


1521 





27,2771 

65272 

SljK 

1522 





27,2772 

ui Uv3 1 


1523 





llflllh 

653^1 f 

i4DhM 

1524 

REF 

24 

LAST 

689 

27,2774 

«;o04 7 1 


1525 

RIF 



T72“ 

TTVITTS 

L 3 7 5 _ 


1526 





27,2776 

56342 1 

Sril 

1527 





27,2777 

65257 1 

.^L 

152 5 





27, 300 C 

2 174 1 


152<^ 





27,3£:'C‘l 

Ol.QO-3 1 


15 





2 7 f 3 V u 2 

653^1 L 

NORN 

15 3T 

KEF 

— 1-5“ 

cAsr- 

"OTir 

^ 1 f J jC 3 

'Ll 0 :? V 1 


1532 

REF 

5 

LAST 

689 

27 f 3 ^ ^ 



1533 

- 

- 



2 7 f 4^ 5 

5o342 1 

SRi 

1534 





^ 7 , j " V 6 

44257 1 

.iL* 

1535 

- - ■ 

- ~ - 

- 


27,3:^:-7 

57o'j4 1 


1536 





27 f 3 j i V • 

63525 L 

POOL 

' T537 





*27^3 JTT~ 

O'.'TIF 1 


1538 





27, 3; 1 2 

75421 1 

bUSU 

1539 





27,3j13 

47315 w 

POVL 

154 

REF 

1 J 

LAST 

688 

27, 3 j 14 

0 2 6 1 i b 


1541 

REF 

4 

LAS! 

688 

2T r 3 ^ i 5 

!j3546 0 


1542 

1 





27 f 3 3 1 0 

74236 ^ 

UNIT 

1543 





2773oTT 

13 - 


1544 





£^7 f ^ J ^ * 

74315 L 

POVL 

1545 

REF 

5 

LAST 

689 

27,3321 

r~354o U 


1546 





27,^ ZZ 

UOCil 1 


1547 





ZliiLZ3 

7645p 1 

V AD 


1 


I 
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■ I a: 

kAC I ^ 

PDDL 20 = LENGTH OH K SUB A 


UELTA H IN .METEkS b+29 

2 - ft T’»:=i‘/P<U u4D 


SHIHTkl 

oov 


2 U 

LIFE AL T 
H 1 A 
POOL 
XI 

Ri - — — 


. f 1 

TODX 

LIFFAlT 

ljV 

. 'i J 

S^kT 

ghp 


6 J 
CO 
POOL 
20 

FOUL 

XI 

“RTHir“ 

00 V 
POOL 
-3 t i 
40 

POOL 

h T M 0 

ccv 

£0^0 

— 6 f 2 

'“TBD 
SwKT 
VAV' 
uPi 
U t i 7 L C 
VXSU 

“I’TD’ 

VXSL 

ONVhC 

iio 

VSLl 


A-SWIT 


^ SUB P 


A SUB P/A SUB A 


^ CTZ ?- 

B+31 

B+2 

UbD 


V SUB AV MeTERS/CS 
ft SUB A i^.AGiMITUOL- b + 29 


B+7 


2MU b+38 

2 HU/R SUBAA 

A5UBA 


+ 14 


1 D 


B+29 


2U/R 


U/fl 


a+14 (WETcRS/CS JSQ 


-rr 


w 


ao 


1 ^ D 


SOftTtHO(2/R SUB A-l/A SUB A)-VSU8A2)H 
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is4a 

1549 

155 

REF 

16 

LAST 

683 ' 

27f 3U24 
27,3325 
27,3026 

7762o 

74231 

77651 

i. 

I 

0 

STADR 

STORE VACr3 

VSU 


1551 

REF 

4 

last 

633 

Z1TW2.T 

"2533 

0 

vAcra 


1552 

REF 

5 

LAST 

663 

27,303u 

37667 

1 

;>rCALL CELVEE12 

DELTA VCDH - REFERENCE COORDINATLS 

15 33 

KEF 

25 

LAST 

638 

27,3J31 

Q23Qb 

0 

iUOtXlT 
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USER'S PAbL- NU 


S-i 


P 12*5 3 
k 129 3 ^ 
R1293A 
kl294 
K 129S 


KAMI 


FLNCTION 


pAf — T\ir HIIRMI 

MOD BY ALBERT t BEALS* AND DOERY TU REUR(SA.>4 I iE 
AND REDUCE CODING iSAUG69 

TD'CmTKCr THE^SFOUeKCI^IJF Tl-E CMC IJUJriTTirTHE^CaO^lTDQwrM' 
AND thrusting MANEUVER UF AN SPS oUKN 


K 12952 
R1295A 
R 12 ■j 5 E 

k 1296 


CLUKTASK 


Rr>2SUrH 


CUMPUTC riME-TC-GO TO IGNlTlUiHEOH NOS/h )* 
RECALL CLUKTASK, AND AFTER S4 .6 CUMPLCT U 
CALL CLOCKJUB TO DISPLAY VJ6N4 


CHECK STATUS OF iMU 


K 1297 
R1298 
R1299 


K loot 

Ri3r 1 
R 130 2 
R13C3 
R 13 -4 


R 137 5 


S4C. 1 


KoLCSM 


compute: 


j NT 1 AL 
INTIaL 
GAINED 


IhkUST DIRECTION AND 
VALUE OF VELUCilY-TG 
VtCTUR (VGTID) 


BE' 


S40«2,3 COMPUTE: 


G1M6AL ANGLES IF THRUSTING m ILL 
OCCUR irilTH PRESENT I ML JkIENTaT 1 tJfJ, 
XAXIS OF ENGINE BELL, 

PREFERRED IHU uRIENTaIIOn, AND 
DESIRED THRUST uIKEcnCN IN SM COCRUS 


PERFORM AITlTUCc MANEUVER 


K 13 6 

k 13 0 7 

Ri311 

kl312 


S40* 6 


HANDLE GIM6AL TEST AND TRIM Ok IkIM UNlY 


MIDTGAVl EXTRAPOLATE CSM STATE VECTOR TU TIG-29«96 SECS 


TIGBLNK BLANK DSKY AT TlG-35 iECS AND 

WAITLIST TiGAVEo IN 5 SE'C:> 


R 1313 
R1314 
"R:13T5 


T I LAV lG 


UN BLANK USKY, 
WAITLIST TiG-:> 
j 1 AR T S 'E R ' V TUtK' 


IN 24.96 iECS, AND 


K 1316 
Rl3i7 
R 131 8 
K 1319 

'in.T2r 


TlG-5 


display flashing V99N4 

uNGINE luNiriGN cNABLE, 
WAITLIST TlG-v IN 5 SECS, 
FINDVAC S4j«i3 TO DETERMINE Ir 
AN ~IMF13LsTVc Oft~ sTeER I NO BGrTN 


IHl^ is 


1321 
R 1322 
Ri323 

1 1324 
R132 5 
Ri326 
RI327 
R1328 


r I G-c 


CHECK IF astronaut HAS U.K. EO IGNITION IPKIOK 
PROCEED Tu V59N4v^) - IF NUT, iGNITlUN WILL BE 
ENTERED BY CLOCKUOti IN R£SPGj,S£ Tu V99N4t-' 


CLOCKJua (CALLED EVERY SEC) 


display VL6N4- EXCEPT WHEN SIGNALED bY TlG-5 
TO FLASH V99u4: ANu 

CALL IGNITION wHtN PKOCElu <lSFUNSE TO V 99N4 
HAS DCCUKrtED AND TIG HA:j PASoED 
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S3 


r.1329 
K U3f^ 
H133i 


IGNITION TURN UN ENGINE, 

CHECK IF IMPULSIVE 3URN, AND IF Su 
SET UP ENGINOFF COMMAND 


H 1332 
K 1^33 

rt 133 4 
R 13343 
R 1335 

ra^3"6~ 

R1337 


S4 


UPDATE Vt-LUCITY IU-UE-GaInED VECTOR, 
GENERATE ANGULAR RATE STEER iNu COMMANDS 

FOR AUTU PILOT, 

UPDATE CSMMASS, 

ESTAGLlSH ENGINE CUT-OFF SIGNAL AT 

xp'pftiJPKTATr~mr;~MD 

INITIATE R4u, IF THRUST FAILS 


i<. 13 3 8 
K1339 
R 134 . 
10341 


S4-.*9 


(AIMPUINT MANEUVERS ONLY) 

GENERATE kEOUlRED VEL-TO-GE-GAINED VtCl UK 
UPDATE d-VECTUR WHICH IS USED IN FINAL 
"CSmiLATTC N OF EJTnTAPUtirrTrV^" THc ■ V G" "V £ am 


Ri342 
K 1343 
K 1344 
K1345 
R 1346 
R1347 


ENGINQFF 


WIPE OUT TVC, 

TURN OFF CLOKTASK, 

SHUT OUWN ENGINE, 

ADJUST VEHICLE MASS PKDPEkTIcS, 
TURN UN acs DAP, AND 
UPDAIE ENGINE TRIMS 


K 1348 
R 1349 
K 135L 

R 1351 
K1352 
R 1353 


POSTBURN 


Cj f 


DISPLAY FLASHING V1qN4 
clean up after engine CUT-OFF, aND 

MAINTAIN VG COMP FUR POSSIBLE KC^ TkIH 


PROVIDE RESTART PROTECTION AT ALL CRITICAL POINTS 

4 ^ 4c 4e ^ ^ 4c 4= ^ 4 ^ ^ ^ ^ ^ ^ ^ ^ 4 « ^ V ^ 4 3$: 4i 4= 7 * 


0 


R1354 


ftl355 

kU57 

K 1 3 5 C 
K 1359 
RUG 

K 1361 


INPUT 


XOELVFLG = 1 EXTERNAL OlLTA V 


DELVSIN 

RTIG 

VTIG 

tig 

csteer = 


XOELVFLG = 


CHANoE Ur VELOCITY (VECTOR) 
CSM PUSI f ION AT TIG 

CSM VELOCITY AT TIG 
IGNITION TIME 

C 


LAMBERTt AlMPOINT) 


R 1362 
K1363 

R 1364 
R 1365* 


RTARG 

fPA:>S4 

TIG 

CSTEER = 


AIMPUINT POSITION VECTOR 
TIME OF ARRIVAL AT AIMPUINT 

IGi'JKIQN TIME 

T ‘ 


i 


R 136 o 
R 1367 
R1368 


ALARHS 


1 4^^ 7 
i7v 3 


VG INCKEASING 
INSUFFICIENT TIME FDR 
T IG WAS SLIPPED 


iNTcGRAflCN 


,1 


•o AP : AS 
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- 72 

CF AGC PROGRAM ARTEMIS BY NAS 
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L 
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P 13o 9 










13 TO 

REF 

lo 

LAST 

292 

Eo, 1465 



EBANK= 

6 AFD ATkI 

1371 

REF 

1 



2 4 f iL u *j L. 



SETLQl 

P4..)S 

1372 





“'24,2214 



SATNK' ■ 


1373 

KEF 

1 






COUNT 

4t/P4. 

13/6 

KEF 

143 

LAST 

6 d 5 

24 f 2zl 4 

sj 6 \ J 6 1 

F4 ;csM 

TC 

INTPRET 

1377 





24, 2215 

67214 1 


c Leak 

SLQAU 

1378 

REF 

1 



24,2216 

% 2 664 C 



ENG2FLAG 

13 79 

REF 

4 

LAST 

652 

24,2217 

03425 1 



EC^T bfcK 

I3BT 





~24T222T~ 

71214 u 


6QFF 

; LO.TD 

1361 

REF 

3 

LAST 

683 

24,2221 

wi347 >- 



aDELVFlG 

1382 

REF 

1 



24,2222 

50-224 



' S/C 

1383 

REF 

12 

last 


24,2223 

15336 t 



Hi o ^ ii K U S 

13 84 

REF 

3 

LAST 

183 

24,2224 

17703 

P4lS/C 

sTODL 

CSTcER 

1363 

REF 

1 



24, 2225 

il532 V. 



FENG 

1386 

TTFF" 

“2~ 

last ' 

123 " 

24 , 222 6 

1T727 T 

P4C S/ F 

^ 1 UOL 

F 

1367 

REF 

51 

LAST 

66 / 

24,2227 

>.3413 1 



T 

1386 

REF 

'J 

LAST 

513 

24,223. 

1745.. w 


STODL 

N CM f I .j 

13882 

KEF 

1 



24,2231 

1153 1 



SEc29*,96 

13S84 ■ 

■REF 

5 

LAST 

531 

24,2232 

\34o, U 


STORE 

A «'£GDT 

1389 





24,2233 

77414 0 


CLEAR 

tXl T 

TB'a'y:!" 

TTEF' 

3“ 

"TATI — 


2^4 f 

05265 0 



cuknfLag 

1389 2 

K EF 

41 

LA ST 

642 

24,2235 

u 4655 0 

TFiGiNi r 

TC 

PCs 1 JUMP 

13394 

REF 

1 



^4 f ZZ3 6 

735^0 L# 


CADR 

S FAkT 1 6 u 

1391 

REF 

lAi 

<_AST ' 

667 

24, 22 J 7 

^.7 4636 2, 

+2 

TC 

E an K CALL 

1391 

REF 

3 

last 

626 

24,224 J 

23731 1 


CAOK 

R 2BJTH 
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tXTtkNAL DELTA V ? 

NO CSTEER ECSTEER 
YES GSTEER = EERO 

SEt UP IHRUST FOR S4.»i 
ENItkS HERE ^ 

OftIGIlViAL TIG MAY BE SLIPPED BY P4u'S/SV 
SET ORIGINAL TIME OF IGNITION FORT S4 . 9 

START AVERAGCG AT TlG-2^. 96 ' 


START CL UK I ASK TO 
CALCULATE TFI FUR N35/4 


iMU STATUS CHECK 


OAF 
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/Z Cf AoC PHGokAM ARTEi'113 tiY hiAijA Z '2iiJ.4“ .ii 


11:40 FEti. 26,1971 MENELAuS^.6l PAGE 69^ 
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ustR'S Page 140 , 


fc6 S3 


Pl 3^2 
R 1 3 
K 13 / 4 


N/MP j40* 1 

FLNCTiUiSiAL DESCRIPTICN 

COMPUTE INITIAL THRUST DIRECT ICN (UT J AND INITIAL VALUE OF Vb 


K 13“ j 
R 13bo 
R 13S 7 
R1398 
Ki399 
K 1 4 'J 
R 14' i 
R 14 . 2 
K14' 3 
K 14v’4 
R 14 5 
R14 ', 6 

“TTi^r 

R 14U9 

Ri4ii 

Kl4il 
R 1412 
kl4i3 


VECTORlVUTiG I. 

subroutine^ called 

CSMPRbC 

INITVEL 

CALCbRAV 

MIDbiM 

ERASABLE I N iTl^LUrTIWllEUU IRE J 

ritIGHT/0 ANTICIPATEU MAU« OF VEHICLE MASS 
XOELVFLb 1=L;ELTA-V rtANEUVER,C = AiMPr ST 


S P J 1 oR bM 


EER 


IF UELT4S-V MANEUVER 


UELVSIN 


specified oelt a- V Required in 

INERTIAL COORDS, OF ACTIVE VeHICLl 

'TGNTTIQM 


IF 


RTIG 
VT Ib 

CSTEER = 
A IMP DINT 
TIG 


P L S 1 T i UN 
VELOCITY 


AT 11 Me 
AT time 
DP 


:jF I G NI 1 1 ON 
OF IGNITION 


VECTOR 
V E C 1 


7W7Z^ 

32 9 M 

37M/ES 


STEER! NG 

TIME UF ImMTIUN 


DP 


d2t;cs 


K 1414 
K141i> 
K 1416 
R 1417 
R 1418 
R1419 


RTARG 

TPASS4 

CSTEER 


PCSITIJN TARGET TIME 

TIME UF ARRIVAL Ai AIMPOINT 

ECSTEERTGR - J DP 81 


VEClUR B29M 


OUTPUT 


1/2 


VGTIG 


R 142 ( 
K 142 1 
K1422 


UNIT VECTOR ALIGNED WITH THRUST DI REC T ION I m REF COOR 
INITIAL VA LUE O F VELJ^ITY 

gaTNEC TTnerTo CdukDoT 




K 1423 


DELVLVC 

F 

GOT 


R1424 


r' 


u dE GAINED TTnERT o 
VGTIG IN LUC. VERT. CCURDS, 
NOMINAL THRUST FoR ENGINE 
V REQUIRED AT TIG -V REt^UlRED 
FOR S4Lro 13 


vTCTuR 67WrC% 


AT 


DP til M ~ 1 « £ W T 
I f 1 ij~2S EC i 

VLlT a7R/CS 





R 142 5 



RTIG 


CALb IN S4U 

.ib(AiMPT) FDR S4- 

« ^ 1 3 

VECTJK b29M 


R1426 





TCSl liON AI 

1 1 OF i tNl 1 1 



' : 

14269 

KEF 

1 





COUNTS 

$ i/S'f / . i 


1427 

RC-F 

144 

LAST 

693 

24,2241 

•V 6‘jj6 1 S4 Jv»1 

TC 

INT PRl J 

■ 1 ! 

1428 





24,2242 

77214 D' 

St r 

VLOAD 


1429 

REF 

1 



24,2243 

fljTv, 1 


FiK.STFLG 


143' 

REF 

13 

L aST" 

6 93 

24,2244 

15336 - 


F EkGS 

1 

1431 

REF 

2 

LAST 

128 

24, 2245 

‘-/37b 5 ■■> 

3 T GR E 

EDT 


1432 





24,2246 

77614 1 

auFF 


•r 

1433 

REF 

6 

LAST 

6^3 

24,2247 

1 1 34 7 S 


XULbVFLb 

S — 

1434 

REF 

1 



24,225t 

S4^. o5 


SR / id 


143b 





24,2251 

513/5 1 

VLOAD 

A 6 A i- 

< » 

1436 

REF 

-iS~ 

lS'ST" 

o7C 

24,2252 

UJ646“D 


^ b L ii 


1437 

REF 

2 

LAST 

127 

24,2253 

iL l D 

^ i VL 

DELVsAb 

?■ 

1436 

REF 

a 

LAST 

6 83 

24,2254 

u364' 


VJ lb 

1 

1439 

REF 

Q 

LAST 

495 

24, 2255 

- 3 5 7 u ^ 

2J t LiHE 

VlNl T 

• 'S . 

144 f 





24,225 6 

5343-> ^ 

y A w 

t *1 r 




k 

,-09 

■ P_ 




r 
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144 1 

REF 

6 

LAST 

683 

^ 4 # z S 7 
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25 

LAST 

7C2 

24,33.: 3 

3 ./''^25 

it 

4 

w 

JC A 
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2ERU SET TVCEXECUTI VL- PHASE 

Ti/CEXPHS 

LPGJUFiG SET Tp BITS Tu INOICATt TVC TAKECVEP,,,, 

ELAGfIkJB BITS lb, 14 = T 

BAPidir 

FLAsjWkuB 

THREE 6,3 = CLJKTASK ll^fCSJ, DROPPING PRe4',6 

L WHICH IS HANDLED NOW BY REDDTVC 


— Prtrt SEo' 

6 , 3S Pul 

STORE RCS ATTTTUOT” ERRORS FOR USE IN 
EkkURY INITIALIZING TVC ATTITUDE ERRORS 

ERRBTHP - . - 


Fi Vc 

4>5 = DOSTRULL { 16 CS ) 


4 

4^5S?0T 

PCs /I AX 
TIMES 

SET TIMES FOR STARTING RIGHT \KAY 

- 

TVCui^ “ 
I5LGC 
FIXDcLA V 

16 

FLAGWROb 

gTrULuII 

(iVCDAPDNT' ■ 

(KILLS RCS GAP! 

' ,4 + 1«6 = 2, SEC FOR ULLAGE-OFr AND 

STEERING (ir NGN-IMPULSI VL i 

CHECK STkULLSW FDR IPiPULS 1VE“BURN 

- 


glauejff ullage off 

FLAGWRDZ SET STELRSVt 

G T EukdI T 
FLAGWR02 
I rKU 


CHANS ZERO CHANNEL 3 

NCG KILL GRGUH 4 (DP NtG = , + I 

-RHA3E4 

TASKJVLK 


STkOLgIT RESEl STKOLL3W (COULD 3E AN IMPULSIVE 

FLAGWtiDG ENGINE FAIL! 

Fiu Au.iRUo 

E/ScTTEk 

i I G _____ 

— 'PREPAKE FUR R1 OF "tCmCKTAFK 1 

TGU 

Til, 


f I I'i L 2 
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16<;8 

REF 

62 

LAST 

7l 3 

24 1 300 4 

21*413 1 


JAS 

1 i G 



REF 

2. 

LAST 

7 1 

Z4 1 

j 33o2 L 


ro 

2PH:>CH4>*G 


leiv 





24,3006 

4oo53 C 


uCl 

4'“ ^,^33 

A,3o5 = EISIGINIUFF ( TbO+1 ) • • <> oMQT l GROUP 

Tb 1 r 





24 , 0oT7~ 

■/7 '. 14 J 


JCT 

. 7.14 

Cf dEltaT ANl) 2CADk FOLlJW Flr lASk Bhtu 

lolls 

REF 

1 



01,2 ; 63 


3P5SPT1 

— 

3 SSP'vjl 


1812 





24,3 ’I- 

77777 6 


UcC 

— 

- CS 

1813 

REF 

2^ 

LAST 

7.2 

t6f 146 5 



t3ANK= 

OAPDATRl 


If 14 

REF 

1 



24, 3w 11 

V 3 1 o 1 ■ 


2uADK 

iMPLCiiMT 


lt>l4 

H EF 

1 



24, 3 12 

iiL U 6 6 1 





1815 

REF 

9 

LAST 

7>'3 

jl 4 f 3 . ‘ i. 3 

31*43 1 


LA £ 

ToJ +1 

(TPAbKEc IN S4 joi3i LES^ THAN 60'' CS t 

1816 

REF 

11 

last 

701 

24, J'j 14 

u 522 1 


TC 

TwIDULh 


1817 

REF 

2 

LAST 

231 

24, 3l 15 

03023 ^ 


AOkES 

t NGl i'lluF r 


i6ia 

REF 

2 

last 

7 2 

24,3^/16 

4 476o> 0. 

implcunt 

C5 

IKPULtii T 

RESET IMPULSE, fcMGlNOFF IS .NiQw SET UP 

1819 

REF 

17 

LAST 

7 3 

24, 3017 

7 G07o 1 


MASK 

FLAGrtKDC 


IB 2- 

REF 

16 

LAST 

7'o4 

24,3020 

54 076 1 


rs 

Flag rtlRD2 


IZU 


9 



24 7 3w 2 X 

6 4611 0 


rcK 

£66 L-J r L R 


1822 

kef 

21 

LAST 

7.4 

£6, 1465 



£6aNK= 

OAPOATKi 


1823 

REF 

1 



24,3 22 

i ^711 0 


TCF 

PKcP T VC 


1824 

KEF 

i 

LAST 

704 

£ 7 , 1427 



EaANt<= 

iGO 

£7 FURCED EY 3.,i5;»POT VARIABLE DELTA-T 

1825 

REF 

1 

LAST 

7w4 

2 4 f 3 2 3 

w 4oll V 

tNulhUFF 

T CK 

t 6 Sl TTL K 

TASKf 15 PHASE (TGO+1 CS) Gtltb 

1826 

HEF 

22 

LAST 

7-j4 

E 6 f 146 D 



Et>AhK= 

cAPOArHi 


1827 

REF 

2 

LAST 

20 9 

24,3u24 

G 3.45 . 

6QSPSUFF 

TCK 

SPSuFF 

SHUT DOWN SPS 

lo28 

REF 

4 

LAST 

7C3 

24, 3 j 25 

0 5255 > 


TC 

FIXD £La Y 

2«5 SECOND DELAY FOR SPS TAiLCFF 

1625 





24,3j26 

■j 0 372 1 


otc 


RESTART MAY DOUBLE THE UELaY, HIT TcVtfU 

18 it: 

REF 

3 

LAST 

559 

24 f 3v. 2 T 

^ 3^17 ' 

CQTVLKCS 

TlK 

S'- 1 riM AU B 

HIDE QEACBANU FOR CUTOFF IKANslENT 

1631 

REF 

24 

LAST 

551 

2 4 1 J 6 3 i 

L 4714 1 


TC 

IdNKCALL 

SET UP rXS DAP (KILLS TVCDAPS, SETS T5 

1832 

REF 

3 

LAST 

262 

24, 3u31 

42 .42 1 


C aDR 

h C Cl D A F u f > 

BlTSf p6^^C^T"Lik TvCtxFC Jlci 

1833 

REF 

25 

LAST 

7L4 

24, 3l32 

^ 4714 1 


TC 

13WKCAL L 

UPDATE WEIGHT/C AND MASS-PRUPEF T 1 ES FOR 

1634 

REF" 

3 

LAST 

266 

24 f 3u«>3 

13313 1 


C A6 K 

HAS jPKUP 

kCS CAP STARTUP f.l :«6 StCUNcS 

1835 

REF 


LAST 

209 

24, 3i^34 

3 i o 1 1 


TC IV 

r VC2AP 

WIPE CUT TVC, TURN UFF CL0K1AS^ 

1836 

HEF 

21 

LAST 

7.4 

^4# 3l? 

L. 53o2 L 


TC 

“2‘PHSCHGC 


183? 





2 4 f 3 \j3 6 

00003 1 


CCT 

J JJ "• i 

KILL GROUP 3 PRUTECTIGN OF EN^^lNLlFF 

— re3 K ■ 





24,Jw37 

UC334 V 


Ul f 

C 1, 33-> 

Af 4>35 = POSITiORN iNDVACf PRID12J 

18385 

REF 

1 



1 f 2 1 7 3 


4P35SPT1 


4 J 3 5 SPwl 


1839 

REF 

4 

LA3ir 

531 

2^ , iu40 

3 4664 i 


lAF 

pKlbi2 

SET UP PUSTBUKN Vior:4 JOB 

184 : 

REF 

k4L 

LAST 

7 G 

24, 3>4 1 

0 5121 . 


TC 

NOVaC 


■ 1841 

REF 

23 

last 

7.4 

to , 1465 



e6AKr<L = 

LAPUAfRl 

(SETMAXue IN PrjST41) 

1842 

KEF 

2 

LAST 

233 

24, 3l42 

03174 J 


2CADK 

Post BURK 


1642 





24,3J43 

5lLjo 1 





lo43 

REF 

32 

LAST 

703 

24,3l44 

1 5314 


TCr 

1 Ac^KOV £ j< 


1844 

REF 

24 

LAST 

7 H 

£ 6 , 146 5 



cBANK= 

CAPUA 1 iU 


18445 





24,3045 


SPSUFF 

lNHlt\T 



1845 





24, 3o46 

^ 3 w J 6 1 


£,’(T£i\J 


ESlASLlcH SPSUFF TtVENT 

1846 

h£F“ 

~16 

last 

~7ZJ 

~2^jy47~ 

"JTT2'5 r:‘ ■ 


\jCa 

T i M L 2 


1847 

KEF 

b 

LAST 

7 2 

2 4 f 3 3 . 

53*022 1 


UXCH 

ri;Vci4r 


1848 

REF 


L AsT 

7 2 

^ 4 1 3 0 5 1 

4 4762 1 


CS 

t KG li N3 i T 

reset engonflg 

1849 

REF 


LAST 

7 2 

24,Ju52 

7 lIOI 


f-lA SK 

J-LAGWKU5 

(RESTARTS HILL SHUT DOWN SPb NGWJ 

185^ 

REF 

13 

LAST 

7 4 

24,3353 

54 1 j 1 t 


IS 

h L A M *4 K G 5 


G AP: 

ASSEMBLE R 

EVISIUN 

^72 

CF AoC PKU 

GRAM ARTEMIS BY NASA 2.21114-^-11 

L 

P4 - 

P47 









1851 

REF 

2 6 

LAST 

7, 2 

24, 3U54 

4 4754 

1 


C6 

\Sll 1 J 

16^52 





24 , 30d 5 

U i, 0 j 6 

1 


EX tend 


1853 

H fcF 

21 

LAST 

7 .2 

24, 3v56 

6 3 1 1 

1 


WAND 

USALMOuT 

135A 

REF 

JT 

~^FAST 

563 ' 

"24,3:-57 

ST'TrST 

-f 

1 


CAF 

"BTn4~ 

18 3 5 





2 f ^ o 

u f.' U 6 

1 


cX 1 E NO 


i85t. 

REF 

34 

LAST 

55C 

24 f 3 .;6 1 

u5 vl2 

1 


WQR 

CHAi412 

1857 

REF 

> 

LAST 

7 2 

24 i 3 *62 

3 1635 

1 


CA 

1 VCPHASfc 

1858 

REF 

7 C 

LAST 

698 

24 , 3 j 63 

6 477C 



AD 

t-NC 

1859 





24 , 3 '64 

U U i * j 6 

1 


EX 1 END 



REF 

F' 



24 F>r63 

1 31 -- 1 



3ZF 

bT Ri HR 

1661 

REF 

21 

LAST 

70 3 

2 4 f 3 -7 6 6 

4 v1j2 

F 

VrJ 


cs 

FLAGWROb 

1862 

REF 

12 

LAST 

73 

24,3u67 

7 4076 

D ■ 


MASK 

OPCUNFl G 

1863 





24,3j7v 

U C 0 - 6 

1 


EXTEND 


1864 

REF 

2 

LAST 

70 5 

24,3^71" 

"6 31 Jl 

1 


JZMF 

BTRIMF 

1665 

REF 

2 

LAST 


24,3^.72 

* 633 



CAE 

RfcPFRAC 

— 1E6-6" 





24, 36 73 

*3 sJ 0 u 6 

T 


t XT lNU 


1867 

REF 

3 

L AST 

75 

24, 3^74 

1 31 .1 

1 


BZF 

B TKl HR 

1868 

REF 

2 

last 

1 j9 

Z4,3C75 

31* 6( < i 

1 

DESTTRIM 

UAt 

DELP3AR 

1869 

REF 

12 

LAST 

696 

24 f 3* J 76 

55 * 423 

1 


TS 

PACT UFF 

i87C 

REF 

2 

LAST 

10 9' 

24,3077 

31' 6.3 



CAE 

DELYaAR 

1671 

RfcF 

5 

LAST 

696 

2 4 1 3 1 J J 

55*424 

U 


IS 

Y AC t OFF 

T:5T2 

KEF 

Trr- 

“TTASF 

592' 

2 4 f 3 i 0 1 

u 0G32 

c. 

y 1 K A WK 

1C 
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SHUT DOWN SPS ENGINE 


TysoE“srT~cuiui-i- lumhanu ““ “ 

FOR POSSIBLE BACK-UP USE 

CHECK IF LK FUK TRIM UPDATE 

THESE CHECKS ARE ONLY NEEDED 
FOR A LESS THAN . ,4 SEC BURN 

?1D7~TN1T1 ALTZATION NOT XCmPTETf 

YES, CHECK IF TVC 


NO, NOT TVC YET 

NO TRIM UPDATES IF K4 (ENGFAlL) ^Cl IVE 
r CUTHHUS T SETS R EPFRAC = 'T 777 TT 


UPDATE TRIMS WITH DELFILTER VALUES 


gap: ASStMBLt R 

Y is 1 GN 

■ 72 

bF AuC PkOGRA| 4 Ai’ 

iTEHiS bV NASA 2 21114- il 

L 

P4 - 

P4 7 








PIBTJ 










1PT35 

HEF 

1 






CUUNT * 

i i./S4-,'- 8 

IB 74 

REF 

3 

LAST 

693 

E6, 1446 



EBANK= 

CNIR 

le 73 





24,3172“ 

T7T75 

1 

S4a.ei yloTg 


1F77 

kff 

l6 

LAST 

693 

24, 31 3 

i 533 0 



Hi oZ ZK J S 

1878 

REF 


LAST 

132 

24,31.4 

03126 

1 

RATE2RU 6TURE 

G AC 

1879 





24,31.3 

7777o 

1 

EXIT 


188i 

REF 

15 

LAST 

7 s 3 

24 , 31. 6 

3 4730 

1 

CAL 

PCbHAX 

1831 

R EF 

4 

i_AST 

7 ;o 

3iu 7 

35 ' 446 

1 

Tb 

CM R 

18 b 7 

ITTF 

9 

X'AST 


“2^r3Tl. 

C 4606 

0 

TUTE 

E 7 S C T T £ K 

1888 

REF 

63 

LAST 

7C4 

37,1412 



1 8 ANK= 

T io 

1880 





24, 31 1 1 

u X j U 4 

0 

1 HHl NT 


189i 





24,3112 

u ouu6 

1 

EXTEND 


1891 

KEF 

64 

LAST 

7 6 

24,3113 

3 1413 

\ ' 

m 

DC A 

1 lo 

1892 

REF 

263 

LAST 

699 

24, 3114 

52 153 

1 

DXGH 

RPAG 

" 15^3 





72473X15“ 

0 C 1 6 1 

iiA i LNl) 


1894 

REF 

27 

LAST 

7 'J4 

24,3116 

4 u-o 2 b 

1 

iJCS 

T IME2 

1895 

REF 

264 

LAST 

7 6 

24,3117 

20 155 

1 

OAS 

ypAC 

IS96 

REF 

6 

LAST 

33 7 

24,3I2e 

. 7224 

1 

TOR 

CP AGREE 

1397 

REF 

263 

LAST 

7 6 

24,3121 

3.' ij5 


CAt: 

ypaC +i‘ 

1898 





24,3122 

G GUO 6 

1 

L K T £ ND 


1895 





2''t,3123 

6 ^125 

1 

3Zrt F 

+2 

19Gt 





24, :»i24 

1 3126 

b 

TLF 

+2 

19 1. 1 

REF 

71 

LAST 

7.3 

24,3125 

3 47?vJ 


CAb 

CNC 

19»!2 

REF 

11 

LAST 

7.4 

24,3126 

55 ' 43b 

■J 

T a 

T 'uii 1 

191' 7 

REF 

12 

LAST 

7 .4 

24, 3127 

U 5223 

1 

TL 

f Hi ijDLL 

lyv’c 

REF 


LAST 

7 34 

24 f J 13^ 

U 2 b 


ADKi S 

rlNGlNOFF 

r979 

’TEF~^~Zr~ 

XAST 

■ 7^:4 

2 > t Si 3 1 

0 5362 

^ — ' 

U 

TC 


191 





24,3132 

4 . . i 

'b.f 

UCT 


l9x 1 





24,3133 

iv j35 

/ 

UCT 

i ... 3 5 

19112 

REF 

1 

LAS! 

7 1,4 

kj i f 2 ^3 



iP5SPT2 = 

3 5SPl»T 

1 9T 1 4 

REF 

4 

last 

341 

31,223. 



5P3SPT2 = 

5 .SPUT 

1912 

H£F 

43 

LAST 

698 

24,3134 

v 536 a 

1 

CLbAKSTR TO 

LORNFoAG 

— vrrr 

"RTF 

73 

Xh5T 

3 31 : ' 

24,5135“ 

U V “1 ^ 

1 

A U K t S 

STE'EkSX 

1914 

REF 

1 



f Ji36 

1 3614 

- 

TLr 

StrK V X 1 

is 1 b 





2 4 f J i 3 7 

77776 

1 

INCRSV. EXIT 


1916 

REF 

24 

LAST 

66? 

29,314 ; 

«j 5671 

1 

TC 

ALAK 

1917 





24,bi41 

- 14.7 

L 

UGT 

‘ i^if! 7 

1916 

REF 

2 

LAST 

7.6 

24, 3142 

1 3614 


T C F 

0 X 1 V 7 > T 

191o5 

K t F 

1 



- 



CUU<'4 T »• 

’t$/K4b 

1919 





24,3143 

77614 

1 

LOTHKJST JuFF 


192S 

R6F 

4 

LAST 

7.6 

24,3144 

01344 

U' 


Z T L x 7 V s> rt 

1921 

REF 


LAST 

531 

24, 3145 

51633 

% , 


vi fc: 7 A r 1 

1^2 





24f 3i46 

772X4 

J 

X4ooHcoX UJiSl 

“VloaO 

1923 

REF 

1 



24,3147 

G* 711 

L- 


I uLcFaI L 

1924 

REF 

3 

LAST 

7 6 

24, 150 

316i 3 



SlkVXTI 

1923 

REF 

17 

LAST 

7 yO 

24,3151 

1533t> 

r- 

R4 J bT Ar 1 

H I Z t>H J S 

1926 

REF 

12 

L AST 

7' 0 

24, .152 

3126 

i 

jTUftli 

LHt b Ab 
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TbQT'KS ThAKT'^"^!: echos 


TVe TO ATTlTUuE HOLD 

inhibit SHITCHJVEl/TVC bJ TRACKING 


iLtSS IHAhi S ix}t< 4J StCaMuS li3 GO) 


Af3/t> — ENGlNuFF t T GU + 1 ) o « MUTE GKUUP 
Bf 5.3 — REKEAOACf AND STAH! BECTOiri 

j . 

CLEAR IHPULSW, ENGINOFF IS NOW SET UP 
KTSTTOTTSTCK 


ALAKH iNCICATlNO THAT THRUST IS POluTIUO 
IN hRONG DiKtCTiUNo 


NU SToLi-INCo tXiT 

Tmurm^ i Lui<r'iT(T=Tm^73m“T:^Di gated 

Stl BY V97P. ALLOivS 1 UYPASS IN CASE QF 
ijNFA\njRA3LE STEERING SYNGri 
START UF FNGiNt-FAlL {j.4 ) uPFRAl luNS 
PUT TYC IN ATmUDt HLLi. 


G/sp: 


1929 
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1931 

1932 
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P^L- 

R£P 

KEF 

P4 7 

2b 
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LAST 

LAST 

7v4 

7l3 

24 1 31 53 
£6# 146 5 
24,3154 

7777b 1 

4 47/2 U 

tXlT 

E3ANK== 

LS 

LIAPl)4TK1 

2cK J 

- -- 

USER'S PAGE NU* 17 

t7 S3 

R5F 

X 

LAST^ 

■ 

24,3155" 

■■55*^33 1 

I S 

RLPF kAl 

XTTC 

TVCuAP CG Tk Ifi iNG 


H£F 

10 

LAST 

7^ 2 

24,3156 

54 777 1 

To 

NVrtJRDl 

SET 

UP ENGINE-FAIL V97FLASH 

(CLOCKJOB) 

KFF 

2 

LAST 

531 

24,3157 

1 3134 0 

1 CF 

LLtAHbTR 
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L 

F 4 : - 

7 
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REF 


LAST 

696 TO 

70 : 

286 3 ^ 7 ^ 


vOUNl =«‘ 

1 ♦ / P 4 l'‘ 

IS 3 4 





24 ,-Ji 6 . 

b iM v 4 


-1 

INHlNT 



REF 

1 



24,3161 

4 352 : 

1 

'I’VUZaF 

60 

tct: 2 zr 2 

193 b 





24, 3162 

L 3 U 0 b 

1 


EXTEND 


1937 

REF 

35 

LAST 

735 

ijl 63 

w 3 vl 2 

1 


fj and 

CHAi'U 2 

1938 

REF 

35 

LAST 

7 i 2 

24, 3164 

4 47 7 . 

i 



BITI 

1939 

REF 

21 

LAST 

452 

24 , 31 u 5 

55*323 

r - 


rs 

UPTIND 

194 

REF 

129 

LAST 

7 t: 7 

24,^166 

3 47 72 

1 


CAP 

2 cRU 

l 97 ?i 

RTF" 

11 

LAST 

Trr 

2 4 f J i u 7 

54 777 1 


rs 

TTTrtTJRDl 

1942 

REF 

2 

LAST 

531 

24 , 317 - 

4 47 36 

1 

w 


uS 

1 InRbl I 

1943 

REF 

7 

LAST 

71 2 

24,3171 

7 01-33 

1 


i-iAiK 

FL Ao rtRt )7 

1944 

REF 

8 

LAST 

703 

24,3172 

54 1.3 

X 


Ti 

FL Au i^KU 7 

1945 

REF 

131 

LAST 

7.3 

24,3173 

0 L 2 

L- 


TC 

u 

1*^46 

REF 

26 

LAST 

7 v ,7 

£ 6, 1465 




23 ANK= 

L APD 4 T k 1 

1947 

REF 

1 



24,3174 

3 3515 


FuST dURH 

CAE 

V I 6 i- 44 w' 

1948 

REF 

146 

LAST 

699 

24,3173 

0 463 6 

L. 


1 0 

t AiNNCAoL 

1949 

REF 

1 



2 4 f 3 i 7 ^ 

2 c 710 

ij 


C AUK 

Rtr L A brt 

195 * 

REF 

2 

LAST 

693 

24,3177 

1 34-/3 

1 


TCF 

PlJ 3 r*,! 

1951 

REF 

1 



24 , 32 vo 

1 34^1 

1 


ruir 

P 4 ..KCS 

1952 

“TFF 

3 

“ LAST 

7 4 

24 , 32 _ 1 

~Tm 74 

i 


T>.F 

POSTiiUkN 

1953 

REF 

27 

LAST 

7 3 

£ 6,1465 




i: b ANK— 

DAPDAfRl 

1954 





24,3202 

U CC 04 

^ ' 

-1 

INHINI 


1955 

REF 

14 

LAST 

7 -■ d. 

24 ,^ 2 v 3 

3 C -32 


ScrHiNDb 

LA 

L UU X 

1956 

REF 

11 

LAST 

599 

24 f 32\ 4 

55 ' 572 

1 


T J 

THETADX 

19 57 





24 , 32 v, 5 

U 0 6 

i 


t: X 1 £ N U 


1958 

REF 

6 

LAST 

51 Q 

24,320 0 

3 3034 

0 


OCA 

CDJY 

1959 

REF 

9 

LAST 

599 ' 

24 , J 2 l 7 

53 • '574 

1 


DXCH 

fHclADY 

10 6 "' 

REF 


LAST 

51 L 

24,321 ; 

3 5 Su 7 

4 



Mi NDb 

1961 

REF 

7 

LAST 

571 

24 , 3211 

55 * 855 
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1 


cXT LiMij 


BIG 8 3 

REF 

3 

LAST 

732 

24 f 3&C 6 

u6 -'31 

0 


KXUR 

CHAN31 

Jl 84 

KEF 

2 

LAST 

737 

24,360 7 

7 3616 

1 


MASK 

NtJLTbTS 

3rc53“ 





"Z4,35T3 

J 

1 


t X T L 


3 1 u 8 6 

REF 

*3 

LAST 

7. 6 

24, 3611 

1 3oi4 

u 

- 

aiF 

B £ r< y X 1 

31-37 

KEF 

O L 

LAST 

712 

24,3ol2 

0 5547 

1 


TC 

JPP L A6 

31^ 3 e 

REF 

H 

LAST 

693 

24,3613 

C«233 



AD RES 

EORNFOAG 

310 9 

KEF 

44 

LAST 

735 

24,J»614 

L 46 D 6 

i > 

serVxt 

iC 

PCS! JUMP 

311 

REF 

2 

last 

714 

24,3615 

77146 

1 


CADR 

SEKVlXI t 

311' 1 





24,3616 

0 77b 

1 

KhJ tT 61 3 

OCT 

t 7 7 - V 

3111 

KEF 

2 

LAST 

444 

24, J>6i7 

3 4763 

1 

TTG/O 

GAF 

PRI02- 

3112 

^nfTFF 

- x4r 

LAST 

7579“ 

2 4 , 3527^ 

0 5l2i 



TC 

nU/ag 

3113 

REF 

55 

LAST 

737 

E 6j 146 5 




t d aNK— 

LAPDAI Rl 

3114 

REF 

2 

LAST 

712 

24,3621 

w 34i^i 

1 


2CA0R 

1 laNUH 

3114 





24,6622 

5C5/66 

1 




3115 

P £ F 

51 

LAST 

712 

24, 6623 

o 5561 

w 

P4 -CLK 

TC 

LuiitrJFLAb 

3116 

KEF 


last 

645 

24 f Bo 2 4 

i! 1 155 



AUKE S 

11 MR FLAG 

^ mw ^ ^ r . ■ ' J>f 

ITT? 

" R EF 


LAST 

‘720 

“r4,3X25 

i 5314 



TXTF 

rs^JCiTirtTi 

3119 





24 f ^626 

77 624 

1 

P41/USP 

call 


312' 

REF 


LAST 

737 

24 f JU^7 

51651 

1 


EXIT 

0 4'..b'’iV d 5 

3121 





24 f J63 

77776 

1 




li:4 FEft, 26tl^7i MhtviEL AUS ^ j61 PAGE 737 


USER'S PAGE NU, 47 t6 S3 


SET FOR RCS 
CSTEER = V r-UK P41 


2JtT THRUST FOR 540.1 

NJETS = 1 2- JET 
tvJtlS ~ 4”JET 


NEW VG FROTl YGCOWP (+ MAYBE 547 .9) 
C'OKPUTf’VTS'PUDT 


ARE ANY HCS JETS PIPING 

NULLING OUT RESIDUAL VG'S FROM P4i ? 

OR PERF0RH1NU~F4T7 " 

NO 

YES - SET BURN FLAG TO 1 NO 1 GATE 
THmT the CSH DIO THE BURN 


TASK (4.4 PRQTcCTS IN P41 » 


COMPUTE 


VbTIb IN CTRL CuOi^jS 




11 :^; 26,1^ /I MbNfcLAUS. 61 PAGE 7 jB 


I ^ t GN .72_ C F A bu AKT.I;iMJ.5 H'i i^M -SA 2 ^AJ- _i.i 


L 

P4» — 

R4/ 








USER'S PAGE NOo 46 E6 S3 






24,3o3i 

V OvJLt) 

1 


LX r END 

UU CONTROL COORD CALCULATION AFTER AVEG 

il/3 

KEF 


L Ai>l 

712 

jIA t Ju32 

3 3 3!j6 

1 


OlA 

ACA0N65 

J1Z4 

KEF 

S 

LAST 

712 

24,3633 

53* >162 

0 


OXCH 

AVEGEXi T 

3124^ 

KEF 

2 LAbT 77 

2'A , OTTr* 

3 35l 1 

i 


LAF 

V '6f7B56 

il^44 

h£F 

21 

LAST 

713 

24f b 

54 777 

1 


Tj 

N7wGRDi FORCE CLOCKJDB 

J125 

KEF 

2 a 

last 

717 

24 1 3636 

V 5 3 o 2 



TC 

2PHSCHNG 

3126 





24,3637 

4*j 036 

L’ 


UCT 

4j 3l» 6^ 3=CLQKTASK( 1;. ; CS ) 

3127 





24,3646 

U * 2 3 4 

1 


OCT 

234 4.23=:P4 S/SV(PRI012J 

31272 

REF 

2 

LAST 

699 

•1,2154 



4P23SPT2 


4 .23SPUT 

■^121^ ■ 

REF 


LAST 

“77T3” 

1 1 2325 



"TFTSF 'f j ' 


'c, . jTPirr"' ' ' 

312 a 

KEF 

3 

LAST 

529 

24, 364 1 

1 2523 

f ) 

■j,-- 


TLF 

pH s/sv 

31^^ 

KEF 

2 

LAST 

712 

24,3642 

3 3 512 

1 

P4iKE5SP 

CAF 

Vl6>i353 “ ~ ENIER FROM P41 SIDE OF TTGaVEG 

313 

REF 

22 

LAST 

733 

24, 3643 

54 777 

1 


TS 

NVWOROi KEDISPLAY NGNFL ASHI'-l G 

3131 

REF 

3 

LAST 


24, 3644 

3 3 33l 

1 


CAF 

S X U 2 9 * 9 6 +1 

3132 

KcF 

14 

LAST 

70 9 

2 4 f J 64 5 

5 5223 

I 


fL 

T K I uULt 

313T 

HEF 

2 

XlfST" 

'TJ2 


" r 

1 


AOKES 

1 r b / 

3134 

REF 

33 

LAST 

735 

24,3647 

4 4766 

L’ 


CS 

blT^ 4.4 = TT&/(.l2y9oCSi , PRECHECKC- CS> 

3135 

REF 

1 



24 1 36S aj 

1 2623 



rcF 

TIGPHA 

3136 

■— - 


- 


24,3651 

4>j22u 

0 

P4aCNV85 

STQ 

SErpo 

3137 

REF 

3 

LAST 

716 

24,3652 

33730 




CTEi'^Pl 

3138 





24, 3653 

L 1 00 1 

c 



~7 

3139 





24,3654 

41575 

0 


VLUAu 

PUSH 

314f- 

REF 


LAST 

731 

24,3655 

L372i 

& • 



VGPREV EQUALS VGTIG ITAHGETTING INPUT) 

3141 





24, 3656 

77624 

1 


CALL 


3142 

REF 

1 



24,3657 

37U32 

1 



S4i 1 

3143 

kEF 

t3 

LAST 

294 

24,366" 

37665 

t 


STCALL 

VCaUDY 

3144 

reT 

4 

LAST 

~T3F" 

24f 366 1 

d373L 




wfErtPi 
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^ • _ .AS S 6 MBL E KEtf lSluN .7 2 QF A^C PROGRAM ARTEM1:> BY NA SA 2.^21114-011 


i-' 


- G £ 






USER'S PAGE NU.> 49 to 6- 


P3145 
K;il46 
R 3147 


NAME P47 - UtLTA V MONITOR 

FUNCTION TO MONITOR VEHICLE ACCELEKATIUN AND 

DISPLAY ACCUMULATED VG IN CGNTKOL COCKDINAT ES 


R3143 


k62BOTH CHECA ST ATUS of I MU 


k3149 

R315' 


MIDT0AV2 tXTHAPOLATE STATE VECTOR TO CURshNl f IHE 

+ INCREMENT OF TIMEDELT 


R3151 

R3i52 


SETUPTIu WAITLIST 1 ICON IN NO. OF CS FOUND 

IN KPAC +1 AFTER MI DTOAV2 RETURN 


K31S3 

R3ib4 

K3155 


TIGO'n' SET CALCNBi INTO AVEGEXII, 

NO VAC PATBODY, AND 

SIAKi SEKViCEK ' ‘ ' 


H31b6 CALCN83 AGO PIPA CONTENTS TO ACCUMULATED DELTA V AND 

K31S7 CONVERT TO CONTROL CUOROINATES AND 

R.3i572 CALCULATE IfTERT I AL VELOC I TY V ri i AND 

K31574 HOOT FOR NOUN 62 


R 3136 
k315« 
R 316C 


P47ECDY ZERO DELVIMO INITIALLY AND 

bLNERATE MOnITGRING DISPLAY OF ACCUMULATED 

delta V IN CONTROL CUORDlNAftS 


R3161 
K 3163 


♦ t!t :(c * ♦ ♦ ^ ♦ ijt ♦ J*t -;£ Jf: ijs ♦ 3lc 4: ♦ * * jjt * ♦ 3? It ♦ JOt 3i! * 4c ♦ + * ♦ ♦ * Jit * 

provide res 1 art protection At AXX ~CR1 ncAL PUlN IS 

4: 4c 4c4c 4t 4t * ♦ * 4! 4: =»: ♦ 4t Jit * * « * 4- ♦ ♦ ♦ ♦ *: ♦ * =*= « * » * ♦ * * ^- * * * * * * ^ * =*" * 



0 AH : Ab b E MB L t : RbtflSlGN Lh Ab C PROGRAM ARTEMlb BY M ASA 2 2111 4- 11 


L 

P4u- 

P47 







- - 

Pil64 










316b 

REF 

1 






COUNT# 

J4./P47 

3166 

REF 

Id 

LAST 

72o 

E7, 1^12 



0£iANK= 

TIG 

310? 

REF 

156 

LAST 

712 

24,3662 

^ 4o36 . 

F47CSM 

TC 

8ANKCALL 

3166 

REF 

5 

LAST 

693 

24, 3o63 

.3731 1 


CAOK 

K' '2 dOT H 

31 oS 

REF 

io2 

LAST 

737 

Z4f ji664 

j 6joO 1 


TC 

1 1\ T P K L T 

317> 





24,3665 

77624 1 


CALR8 


3171 

KEF 

1 



24f 3^6 6 

27560 1 



P 1 D T U A V 2 

31 72 

KEF 

269 

LAST 

732 

24, i66 7 

3v 155 0 

SETUPTIG 

CAE 

>^PAC +1 

3173 

REF 

15 

LAST 

699 

£ 4 f 36 7l) 

3 • 6 7 2 i 


TS 

F4. 1 MF 

3174 

REF 

15 

LAST 

730 

24, do 71 

0 5223 1 


IC 

Twiddle 

3173 

REF 

2 

LAST 

234 

24f Z 

1 3 (>7 0 C.' 


AUKES 

TlbUN 

3176 

REF 

63 

LAST 

733 

^ 4 f 3 6 7 3 

V 54J2 1 


To 

P hA3 CriN G 

317 7 





24, 3674 

4v 5 74 i- 


OUT 

■ 4,3 74 

3177 b 

REF 

1 



J 1,2220 


4P57SPT1 

— 

4v.57SP0T 

3TTg 

rEF* 

7o 

'LAST 

T 35 

24f 367 5 

1 52o5 1 


TLF 


317 9 

REF 

16 

Last 

740 

E 7, ia7 2 

-- - - - 

- 

E6ANK= 

P4 I MP 

2iac 





24,3676 

0 1 

1 IGON 

EXTEND 


3161 

REF 

1 



2 d 4 1 3 / 7 

3 3552 c 


L) L A 

ACA 3i>ib3 

3132 

REF 

f 

‘y 

LAST 

738 

24, i 7-. v 

53*.u2 c 


DXLH 

AVtGcXi T 

3184 

REF 

j- 

LAST 

391 

24 1 jj? i 

c 512- 1 


TC 

j^OVACD 

3163 

REF 

76 

LAST 

740 

E7, 1412 



n 3ANK= 

TIG 

3186 

REF 

2 

L AST 

232 

2‘*,37l2 

0373 ■ -- 


2CADK 

pi,7iiUDY 

3186 





2 4 f 3 7 3 

5L' <.o7 'J 




313 7 

REF 

26 

LAST 

719 

24, 3 7;. 4 

4 4767 1 



c 1 T 2 

3166 

REF 

2 

last 

73d 

24 f 3 76 5 

1 2623 L 


(CF 

ri.,PdS 

31o9 

REF 

77 

LAST 

7 4v 

£ 7f 



E6ANK= 

I i G 

319 (. 

REF 

163 

last 

74, 

24, 3760 

u 6 J aO i 

CALCN83 

TC 

INTPREI 

3191 





2 4 f 3 7 L 7 

772ul 1 


S tTPD 

VLUAU 

3192 





24, 3 71 C 

Ji j 




3193 

REF 

1 



24 f 3 7 i i 

3665 1 



CELVCTL 

TTSTZf 





“24^, 3 712 

4145b~, 


VAD 

PuSfT 

319 5 

REF 

0 

LAST 

726 

24,3713 

S3432 1 



u LL 2£F 

' 3196 

REF 

3 

last 

128 

24 ,->714 

374q' 1 


^TCALl 

Ly^7Tc.HP 

3197 

REF 

2 

LAST 

738 

24,3715 

57032 1 



S4 i j i 

3198 

REF 

6 

LAST 

2 54 

24 f 3 716 

37675 1 


STCALL 

GELVIMU 

3199 

REF 

3 

LAST 

541 

24 f 3 7 1 7 

7:537 1 



:ii i 

3260 





^4,3720 

77776 1 


^XTIT 


32 il 

REF 

64 

LAST 

74U 

24,3 721 

u 54 2 1 


TC 

PriM^^CH.^G 

32 2 





24,3722 

1 : 1 .' 35 


UlT 

i L. 3 3 

32025 

REF 

9 

last 

728 

V 1,223c 


5P3SPTY 

— 

b ) ../SPuT 

32: 3 

REF 

lb 

last 

7u3 

24,3723 



lAF 

FIVE 

32'. 4 

REF 

5 

LAST 

63 3 

24 , 3724 

U 5 6 w 7 0 


TL 

GENTRAN 

32: 5 

KEF 


LAST 

746 

24, j» 725 

^ 1 4j^ / Cx 


mDKLS 

bV4 7 TEMP 

32< 6 

REF 

2 

LAST 

74. 

24 #^72 6 

V 16o^ i 


AUKL s 

GELVlTL 

32-7 

REF 

4 

LAST 

737 

24,3727 

. 3614 i 


TC 

SEkVXI 

32-8 

REF 

16h 

LAST 

74^ 

24, j73L 

w 66v. 6 i 

P47BUJY 

TL 

INTPRET 


11:4 FEB. 26,1971 M£NfcLAU5-, &I HAGt: 74 

USER'S PAGE NU« _ ES Si 


r«U SIATUS CHECK 


DELTA UME TO PRbREAD tLtSS THAN i ' 
with A'TPA&i^EtV IhJTollsin .) 


A , 4 , i>7 = T rouN ( P4 T M P CS ) 


FoRX'irzeRtJiKiG 01 = Nfc 3 " BE'FdR'rs'EFVTrr,’ 


^.2 = PRECHLCK ( - C S ) , P47BUDY t PK I ji ) 


CALC,» VI, H, HJul FOR NOUN 62 


I 


ASSEMBLE HEVI SIOM C?/ UF AuC PKUGRAM AkT c MIS B Y NASA 2 ^1114- ii 


L 


PA "'P47 


i2' S 

i2i.. 

KEF 

22 

LAST 

7J7 

24.3731 

24.3732 

77773 

133J6 

1 

■3 

3211 

REF 

7 

LAST 

740 

24,3733 

13673 

v' 

3212^ 

REF 

J 

LAST 

/4U 

"'24‘,3T34“ 

C3663 

1 

3213 





24,3735 

77776 

i 

3214 

REF 

2 

last 

168 

24 , 3 ?S6 

3 5u34 

% 

3215 

REF 

12 

LAST 

3aa 

2 4 1 ^ 7 J 7 

V 317 6 

1 

3216 

REF 

63 

LAST 

74Ci 

2 4 > 374^^ 

i.. 54w2 

1 

3217 





24,3741 

C5-J24 

1 

“3ZrF' 





24, 3 /42 

G2 / / f 

1 

3219 

REF 

1 



24f 3743 

3 331 6 

u 

32Z0 

REF 

157 

LAST 

74' 

24,3744 

0 4636 

D 

3221 

REF 

17 

LAST 

667 

24,3743 

2C 743 

u 

3222 

REF 

31 

LAST 

711 

24t3747» 

0 41 V 3 

1 

3223 

REF 

32 

CAST 

741 

24,3747 

G 41'C3 

1 

3224“ “ 

“RFF 

■ "3“ 

LTTSn 

74C 

Z4t -TTsr 

1 3 73v 



P47 BuD 


F47/0SP 


VLUAc 

STORE 

HiolEKOS 
CELV IMu 

STOKE" 

EXIT 

rcCVUTT 

CAP 

PKlul3 

TC 

PRi UCHNG 

TC 

PHASCHNG 

cJCT 

3 /24 

OCT' 

6Z7 7T 

CAP 

V 1663 

TC 

EANKCALL 


LADK 

TC 

lu 

TCF^ 


OLhl-ASH 

GaraPQGH 
GCT GPuUH 


li ;4-< FEbn 


2 6>1971 MENELAUS»L 61 PAGE 


741 


USER'S PAGE NU, 31 t7 Si 


CLEAR G1 SPLAY AhO ACCUMULATOR STIJI aGF 
' —TJPTjTr miTl ATim JK-LM LK-RLSPDNSTr ~ 

LuHfk Pkio Than CALCN63 (2 )■ 

TU PREVENT INTERRUPTION OP CALCN33 

TYPE C GROUP 4 BELOW FUR NuUN 63 
PRIG 15"WnVA'C 


RECYCLE 


CLEAR ACLUMULATFL; VELUCIIY 


b Mk' : Ai>$EHBL£ li JJ. Lf AbC P ROGRAM A.-^T EH !:> oY NASA ^11 14- _li. 


11 ; 4b rFB« 26,1971 


MtNtLAU^^ 61 PAUL 74<i 


L P51-P53 


USEk'S page NU. 1 I S:i 


1 FRObR/iM NAME - PRUv.32 
. J MCDIFICATIUW BY ALBERT , BARNiERTtHASLAM 


DATE - AUGUST 1,1969 
LOo SEcnurv; - p&i.-P3 


i . ■ ’ { 

Kt.t C 8 
RbAl' 

KLt 11 


RC LZ 
RL‘C14 

K i ^ C 1 5 


K A 16 

R‘.a: 17 


K 1 1 d 

K' ‘ iv 


FUNCt ICN - 


ALIGNS ThE IMU TU ONE UF IHHct ORIENTATIONS SELECTti; BY THL ASTRONAUU THE PRESENT I URILNTaiIU;. IS KNOWN 
AND IS SlURED IN REFSMMAT. THE THREE PUSSloLh URIbNtATlQNS MAY GL_ 


(AJ PREFERRED ORIEN T ATIUN 

Ai\ OPTIMUM ORIENTATION FOR A PREVIOUSLY CALOUlATEO MANUlVER^ THIS LkIENTATION TUST BE jC ALGOL . I Eu ANO 
STURLD BY A PREVIOUSLY SELECT6U PROGRAM* 


(BJ NOMINAL (LOCAL VERTICAL) ORIENTATION 


X = UNiTtY X Z ) 
— SM — — SM 


Y = UNITIV X RJ 
“SM 


KiXZ^ Z = UNITl-K) 

RG'AZl -SM 


RC Z2 WHERE. __ _ 

Rye 23 R ~ the GEOCcNTKIO RADIUS VECTOR aT TIME T( ALIGN) SbLECTtD BY THL ASTRONAUT 

RCA 25 - 


RC 26 V = THE inertial VELUCIIY VECTOR AT lIMETt ALIGN) StLECIEU BY THE ASTKONAUT 

KUZd 

F(i29 (C) REFSMPAT URIENTATIDN 


: 2S i 


THii OklENTATICN IS StLEGTEG AUTOMATICALLY UNLESS THE ASTRONAUT KEYS IN A DIFFERENT OPTION C jDE 


k Cl 3i 
Kti-32 
RCt 34 

3 5 
RC.37 
t\ y « j 3 9 
R C041 
■RcG43' 
R Ci. 45 


THIo SELECTION CORRECTS IHE 
rtAS last ALlGNbL ONLY DUE TO 

SlNCc THE LAST ALIGNMENT), 


PRESENT 
UK 


IMU URIENTATION. THE PKESENT ORIENTATION tlyPEKS FROM THAT 
IFTd.E* neither GIMBaL LuCK NOR INU POWER I Nl t RRUPT 1 Oi . HA^ 


TO WHICH n 
OCCUkEU 


after a IMU uRlENTAliUN HAS BEEN ^ELECTED kUUTINE 352*2 OPERATED TO COMPUTE T He GIMBAL ANGLES USlNi» THE 
NEW ORIEMATIUN AND THE PRESENi VEHICLE ATTITUDE, CmLSlm IHEN UStS IhcSE ANGLES, STOKED IN THETAD , + 1 , + 2 , TO 
CCAKSE ALIGN THE IMlJ, THE STAR SELECTICN ROUTINE, R56, IS THEN lPEKAIEO, IF 2' STaRS ARE NOT AVAlLABLt AN ALAKH 
IS FLAiHED TO NOTIFY THE ASTRONAUT, AT THIS POINT THu AoTROiTAOi WILL MANUEVLK THE VtHlCLE AND SELECT 2 STA.yS 
EITHER MANUALLY OR AUTUMAT I CALLY* AFTER 2 STARS HaVL BEEN SLLLCTeD THE IMU IS FINE ALlGNECf US I WG ROUTINE R5l^ IT 
THE RENDEZVOUS NAVIoAFICN PROCESS IS UPER AT i NGl I NDICArLO BY RNUVZFLG) P2c IS OiSPLAYtin UTHEPWISL- Py IS 


f ) 


RLC47 REGUESrEL 


Ro: 43 CALLING SEGUE NCE- 

R0C49 THE PROGRAM IS CALLED BY THE ASTRONAUT BY USKY ENTRY, 



gap: assembl e i^ev^lSIUN LT Z GF AGC PROGRAM ART£<>^rS flY NASm Z, 2i J.l^- li _ _ FCB^ 26il^7l MEfifcLMUb. t>l 743 

L P5L’-P53 USER'S PAGE KU ^ ^ S. 


K< OS'. SLBHUU TINES CALLED"" 


K ^ ' 5 i 

lo 

FLAGDOWN 


S52.2 

ilo &0PtRF3 

K':C52 

2o 

RC2jQTTr'“ 

7 ^ 

C:AL53'A'' 

12i I'JtWMUOEX 

RCt33 

3o 

GCPERT4 

Bo 

FLAijUP 

13. PRICLARM 

«C\ 54 

4» 

MAT4DVE 

?. 

K5o 


Rc 35 

5o 

GQFL ASH 

Xo 0 

R5i 



K .S7 NCRMAL EXIT MODES- 


r OS3 EXITS TG ENDOFJOB 


H(;T5S alarm or abort exit KUDES- 


RCC 6i, NOME 

RCi 61 OLTPUT- 


62 THE FJLLOWiNG MAY BE FLASHED ON THE CSKY 

RCC63 !♦ IMU ORlENfATlQN CODE 

t<:r64 2» ALARM CODE 213 -PRcFERkcD IMG ORIENTATION NOT SPECiFlEO 

irCX'6^“ — H E D F ■ r3E XmiG MI Tim ' 

KLi 66 A, GlMiiAL ANGLES 

RO- 6/ So ALARM CODE 4 .3 -TWO STARS NOT AVAILABLE 

RCi.ou 6o PLEASE PERFORM Pi*' 

kCl69 THE MODE DISPLAY MAY BE CHANGED TO 2. 



RCl7’' 

R L < 7 1 
R< < 73 

RC.'74 


ERASABLE INI T 1 ALl ZATICN REQUIRED- 

PFRATFLG SHOULD 6£ SET IF m PREFERRED ORIENTmTIUN HAS lJ££:i^^ COMPUTEQ^IF 11 HAS BEEN COMPUTED IT IS ; T 
XSM0iYSMD»2SMD. 

RRD\ZFL& INDI CATES' ^HET HER THE RENDEZVOUS NAV IGAT ION PROCESS 13 OPERATII Go 


L. ' 



I J 


rCTTb ceeriS- 


RCtT? 


WCRK 

AREA 





P34 


PR0lp32 





cr7s 

REF 

3 

LAST 

233 

14i2jl2 



— 





C08C 

REF 

1 



I4f 




3ETL0L 

Pi . S 





LC B 1 





14»20u2 




B 






6 --.a 2 

REF 

11 

LAST 

7 33 

3 G f 2 * 2 C L 




SBANK^ 

LuWSOPtR 





CL S3 

REF 

7 

LAST 

451 

£5,1773 




EuANK— 

i) AC 





CL 64 

REF 

1 







COUNT ^ 

4 * / P 32 





Cl 67 

f<£F 

52 

LAST 

737 

14,20G2 

o 33ui 

i 

PaOG;>2 

TC 

U i-i W i\ F L A6 



FLAG 


a 875 

REF 

12 

LAST 

666 

14,2U‘ 3 

^ U‘ 2 7 

1 


AD RES 

gpdatflg 

bi 1 

7 

1 

CCB'B 

■“RIFF 

' 53“ 

IXSJ 

“7'43“' 

r v, 2^4 " 

“;5'55ol 

■3“ 


TC 

LQwNFl AG 

BIT 


FLAG 


0C885 

REF 

12 

LAST 
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1 3175 . 


TCF 

OS 11 

KEF 2 

LAST 

761 

14, 33 - 6 

1 3173 . 


TCF 

(-912 

REF 79 

LAST 

761 

14,3 3-7 

1 52.5 1 


TCF 

(913 




i4,331< 

-> ^ 4-4 1 

CCT 41 4 

u C T 

C914 




14,3311 

V . 264 1 

I i dS hC 

J bC 

C9i5> 

REF 17t> 

LAST 

761 

14,3312 

J 46 06 

]cKM52 

To 


l"EBa MENtLAUSo' ol rAGc f61 


1 





USLR*S PAGc Nbo Z E5 


riSZJ +i 

i.aScC 
H5ZFA +I 


33TkDcG 

PACTEMP 

RSkJA ~ “ “ 

^iSiPLulT IS R53FLAG SET 

Fr^G^RDi 

M 

R52o YFS 

MO ’ 

FR 1 024 
F iM j i/AU 

MRKGUFT 

JOB 



IM I PKtT 


H5J 


cMOuF JOb 
i, 6 9 2 

d 66 6 66 6 6 7 


IMTlRPhETER RlIURTm'TD bNOOFJubt-z;: USl^) 


CORRESPONDS To SC DECS lA TKUNMiUN 


- j7199 


Exi r 

T ARGl FL G 
.152J 
OCT 404 
bAMKCALL 
FRTJbAkPr “ ' 

T tKM62 TEKMlMATt 

RS2r PROCEED 

K62r No PRaVI;>ION FUR NEW OAT A 

EMOOFJUE 


4 . ♦ 

Id > 

; 


t ankcall 


ASS^■^^lL3Lh KtiVlSlON ll CF AoC PKJu RAM A vTEMiS aY (MAbA Z 21114- l.A_. U-j 4' Hbb, ■r!6, 197I ^^E^leLAUb. ol PA&b 7fc»Z 


L 

P51- 

Pdj 









USER'S. PAGE NO. 21 io S3 

V s io 

KEF 

3 

EAST 

5 / . ^ 

14 r 3313 

2u57 5 

I 


CADK 

KLEENEX . 


^11 

REF 

45 

EAST 

737 

14,3314 

u 4655 



TC 

FlS r JUMP 


>1 ‘ 

REF 

2‘ 

east 

241 

14,3315 

l6v 3 1 

1 


C ADR 

1 ERMSxr 


‘ 91S 

REF 

la 

LAST 

765 

1h» 3316 

^ 5354 

0 

R52 G 

TC 

LhtLiXi^M 

- 

C92- 





14, 331 7 

LL.)3i'J 

1 


MH 

24 


<921 

REF 

4 

LAST 

761 

14 , 332'^ 

1 32 u2 

u 


TCF 

V' b2 FA 

NO 

<022 

REF 

2 

LAST 

563 

i4f 55<£ 1 

11*131 

1 


C C 3 

PaSSCNI 

IS THIS THE NTH(N = NO, PASSU TH J 

r923' 

■rIT" 

r 



14,3322 

i 54^3 7 

— ~T 


tlf 

JVuT hXH 

NO 

<924 

REF 

2u 

LAST 

74h 

14,3323 

4 CJ76 

1 


ts 

FLA 0 WKU 2 

HA6 a new mark been taken 

.:92!> 

REF 

1 



14, 3324 

7 4766 



lAAhK 

F24Ki<.iJi T 


C926 

REF 

178 

LAST 

7oi 

14 , 3325 

IQ <3w’<i 

L» 


CCS 

A 

1 

<927 

REF 

2 

LAST 

761 

14f 552 6 

1 3037 

1 


TCF 

R52D 

NO 

i.933 

REF 

187 

LAST 

761 

14,3327 

5 60 *^6 

X 


TC 

INTPRLT 

YES OBTAIN ADDRESS OF LAST MARK 

C'934 





14,33J‘““ 

4o13p 

i 


S L (J A 0“ 

ShTl 


t9ji> 

REF 

1 j 

LAST 

248 

i4f 353 1 

<.3754 

1 



P22CE< 


^936 

REF 

1 



14 f 555 ^ 

31411 

1 



LSTMRK 


v937 





14,^333 

5416 J 

1 


A XC 1 1 

X 5 U f 1 


■’JOib 

REF 

28 

LAST 

565 

14,3334 

-.35 3‘J 

i 


fcCAJR 

C)VMRKUAT 

-7 

<939 

REF 

14 

LAST 

762 

14,3335 

/3753 

■j 



P 2 2 5 c X 


• 94 . 





1 4 f 5356 

7 <73 

1 

R52k 

SXA, 1 

cluao# 


1 

REF 

2 

LAST 

79 

14# 533 7 

L1.C7 7 

1 



ARK JA i A 


-. S 42 





i4f 554 v 

tj U C I 

, 1 



f 1 


^9421 





14,3341 

47v'44 

i 


BPL 

RT8 


<9422 





14,3342 

31344 

A 



+ 2 


(■942 3 

REF 

3 

LAST 

7o2 

14,3343 

3 If 37 

1 



R52j 


<94<J 

REF 

13 


617 

1 4f 3344 

< ' 5 0 7 ‘ j 

L 


~i>ru?Tr“ 

T 22 i 1FF~ 


<944 

REF 

35 

LAST 

7 59 

14,3345 

34641 

L/ 


S T CALL 

^ DEC i 

I NT 10 TIME OF MARK 

<945 

REF 

7 

LAST 

7 59 

14, 3346 

2717. 

I 



C.>MCuNi C 


V 946 





14i 354 7 

77775 

1 


VLUA2 


i 

•: 947 

REF 

7 

last 

617 

i.4, 335u 

-17 

1 



r<AT 1 1 


C94b 

REF 

1< 

LAST 

619 

14,^351 

0 i < 46 

1 


S T Q H £ 

CSM P US 

EARTH 829 MUON B27 






X4,3352' 

4515 - 

T' ‘ 


L'XA , i’ 

CALL 


.’95 

REF 

3 

last 

762 

14, 33^3 

3 1 7 7 

s- 



mark OAT A 


<951 

K6F 

3 

LAST 

610 

14, 3354 

47.17 

1 



GbTUH 


<952 

REF 

14 

LAST 

618 

14, 3355 

250 72 

Q 


stuvl 

UM 

UNIl 11 HE CF SIGHT VECTiJR 

'. 953 

REF 

11 

LAST 

7 62 

14, 335u 

1. i 4 6 

1 



CSNPDS 


<954 





14,^357 

77656 

1 


UNIT 



<955 

“REF 

12 

LASf 

~T5T~ 

14, 336c 

36132 

i ■ 


^TC/^lC 

ALPriA-/ 

ALPHA V +4 = 5^1 NL FDl^. 

<.956 

K tF 

2 

last 

611 

14,3361 

26654 

i 



S 1 r' 


<057 



— 


14, -^362 

43345 

i 


JLQAO 

DAO 

CORRECT RC FOR ALT OF LHK 

C95« 

REF 

J) 

LAST 

619 

14, 33o 3 

.224 




£R AUa^ 


<959 

H£F 

7 

LAST 

647 

14,3364 

0 ■w 7 5 

' 1 
'm.* 



fiL r 


.-96 

REF 

0 

LAST 

762 

i^t, 3 j65 

02240 

\ 


oT JKc 

ERAUi^l 


^961 





14,33u6 

" 7T62 4 

1 


CALl 


COWPilTT lAnOTT^RR vector 

<962 

REF 

3 

LAST 

617 

14, 336 7 

6 i 551 

1 



S22h24X 


<9to3 





i 4 f 5 7 V 1 

7l4j.4 

1 


3UFF 

V 


C964 

REF 

2 0 

LAST 

675 

14,337 1 

. 4545 

1 



C lJ U . ^ r L C 


<965 





14, 3372 

31373 

1 






— — 1 ■ 




vj AH i Ab 

SbMBLE kL\/iS10N 

72 

Oh AuC PRO 

GRAM ARTEMIS 87 NASA 2 211 

L 

P51- 

P5-. 






i S66 

KEF 

1 J 

LAST 

762 

14,3373 

16152 0 

S T u D L 

<967 

KEF 

14 

LAST 

762 

14,3374 

i J 3 d 7 C G 


C 96 d 





14, 3375 

77624 1 

CAlL 

C969 

REF' 

■ 6 

I A ST 

T 43 

14, 3376 " 

26453 1 


» 97C 





14,3377 

77624 1 

Call 

CS71 

HEF 

3 

LAST 

745 

14, 34c t 

623u3 


C972 





i4,34'Jl 

77414 f 

S tT 

v:973 

REF 

3 

LAST 

759 

14,34C2 

84061 1 


■'.974 

REF 

5u 

LAST 

755 

14,34:3 

D 5561 t: 

rc 

■“TST^r HEF 


CTLS T “ 

5 63 

i 4 f 3 4-3 4 

UTTsSZ c. 

ADRES 

.9742 

REF 

31 

LAST 

73 J 

1 4 f 34 3 

4 47 70^ 1 

LS 

r.9743 

KEF 

2 

last 

565 

i4 , _>4L‘ 6 

6 0737 1 

AD 

<^975 

KEF 

3 

LAST 

762 

14, 34L 7 

55*131 1 

NCT4Tri Tb 

L 976 

REF 

4 

LAST 

762 

14f j41*. 

1 3:37 1 

TCF 

t 977 





14,3411 

5216C 1 

LSTMRK aXC,1 

79TB" ■ 

1TEF~ 

~"2?~ 

L AS1 

TS2 

r4E34T2 

C 3 57 3 U 

fc L aU ii 

-979 

REF 

1 



14 f :j 413 

3i3JO 0 


r 98 c 

REF 

1 



07 f w C c 


S ETL OC 

( 9 B 1 





a7,253u 


BANK 

''.9815 

REF 

1 





COUNT# 






" C7 , 2^ :" ' 

45345 1 

"TonrE SUB jEmc 

v9d3 

REF 

a 

LAST 

7b L 

C 7 , 253 1 

o2347 0 


t,934 

REF 

3 

LAST 

76 C 

u7 ,2532 

UC3o4 


: 935 





C. 7, 2533 

77634 u 

KT3 

E986 

REF 

1 



^7,2534 

45636 C 


1967 





j 7 f Z33 & 

77612 1 

SL4 

■ 7- c^-B — arF~ 

4 

TTSVr 

635 

J/','2536' 

14 f 72 C 

^ 1 UOL 

. 969 

KEF 

9 

LAST 

763 

j/,2537 

C2347 C 


c:99 : 

REF 

4 

LAST 

763 

37,2546 

9364 

STORE ' 

C991 





j 7 f ^^4 1 

77545 c 

DLQAD 

C992 

REF 

2 

LAST 

91 

37,2542 

.1771 1 


C993 

REF 

5 

LAST 

763 

37,2543 

3 - 7 7 2 w 

CA 

(9 '94' 

TTEF^ 


TTAST — 

f 6 3 

w r ,2544 

s s 7 71 0 

ac h 

L995 





-7,2545 

22 u07 0 

ZL 

C996 

REF 

272 

LAST 

752 

0 7,2546 

3 cl 55 ij 

CA 

C997 





7,2547 

W Ay 0 X 

EXTEND 

C9 93 

REF 

7 

LAST 

763 

7,255C 

1’ 771 1 

DV 

r Qoc 

'.1 «r « * 

REF 

74 

L AST 

7 3 

'^7,2551 

56 0^1 ^ 

XCH 

lOOU — 

“BTEF 

'Zt 

“TA^T 

T^'^r 

r7 , 2552“ 

3 17/3 L 

~cra 

1C 0 1 





07,2553 

. j V J -- o 1 

EXT END 

ICC 2 

REF 

3 

LAST 

76- 

07,2554 

2i'3i3 0 

MSU 

^ 3 





C 7,2555 

4^' V. 0 • 6 1 

EXTEND 

li v 4 

REF 

75 

LAST 

763 

u 7i 2556 

7 0 1 . 1 1 

MP 

It 5 

KEF 

3 

1* AST 

756 

.7,2557 

55 * 7 U 

7 j 

* ' H 76 





L> 7 1 ^56. 

22 C*. 7 TT 

ZL 

1 7 

KFF 

273 

LAST 

763 

5 7 f ^^6 1 

5 154 1 

CA 

ICC 8 





.7,2562 

- t :-.:6 1 

EXTEND 

lLt9 

REF 

d 

LAST 

7 j 

, 7 , 25o3 

1 771 1 

DV 

ir 1 r 

REF 

76 

LAST 

76j 

37 , 2 50 4 

36 I 

XCH 


t 




11; 4. FEB, 26 »1< ?71 MEN^LAUS^ fc 1 7o3 

USER'S PAUL- NUo ZZ : Lj Sj 


/iLPHAV 

S^^rOFF 

COMPUTt L AT, LUNG, ALT 

L A 1 “TTUiV G 

LLASkG 

£<1T 

alwlhflg 

CUmI^FLAG 

P2‘4'HKFLT3 

LNL 

NO;. PASS 
FASSGNT 

R520 ^ 

GO r u 

SimRT<n3MT — 

RS2K 

rATEBNK 


$S/RS2 

DSU 

AuPT iHL 
AOPULO 


^ ■ ■> 

S 





,-tf5 


■RAT ETtPTP 1 IMf tTF “STTfCrnirTC^ 

ACPTirtt 

ACPuLD UPDATE GLD TIAE KEG' 

EXIT LOAD SHAFT AND TRUNNION SCALE FaCTuRS 

TRUNSF ■ 

}< A I c T t M P +1 

RS T ET E FTP rrME-TTlF' SP ' 50741 ED "BT 

RPAC +A SHAFT SF B25 

fATETEMP 215 ' -v 

L 

SaC SfTATT 

DcSUPTS ii— 1 ^ 

L LI 4 

SRfbNP 


FPAC 


TP.UNSI- 227 



f 

\ 


I 


HAT t I cHP 
L 


I 




b 11 
li IZ 

!♦ IJ 
1' 14 
1*. 1 5 
I' 16 
1M7 
1‘ IB 
if 19 
b Z 
i 21 
If 2 2 
H. 2 3 
1( 24 
1025 
~'ir2b 

V. 27 
It 2 b 
ii.29 
11/ 3 i 

1< 31 
U32 
If 33 
1634 
1C 35 
U36 
1» 37 
^'163$ 
1C39 
li 4 
IC 4 1 
42 
1(4 3 

“1744 


i 


.A.5 Sl HBLfc Cxi V 1 6 ION 72- iF AvjC PkOGKAM A K TEMIS BY N AS A ^ 21 114 " .! i 


1114 FfcB* 26*1971 MbNELAUS. cl 7 q4 


F51-P53 UScR*S PAOt Nl1»_ 23 S3 


KfeF 


LAST 

761 

) 7, 256 5 

3 C 3 3 

1 


CA 

pactemp 


^TRUNNION 







u 7i 2566 

iJf i. 1 -.7 M 5 

1 


EXTEND 






REF 

7 

LAST 

7 6i. 

T ^ / f ^ 5 5 7 

21* 312 

1 


MSU 

UcSJPTT 


fl"“3 







-/ 7*25 7s 

U 0 O -j 6 

1 


“ETTENli 






Rtf 

7 7 

LAST 

763 

7,^571 

7 LOl 1 

1 


HP 

L 


014 



REF 

2 

LAST 

93 

7 f 257 2 

55* 656 

1 


TS 

TKTcMP 





REF 

62 

LAST 

763 

C7i2573 

3 47 72 

■ 


CAP 

LKc 


INITIALIZE FOR SHAFT RATE 


* 

REF 

‘ 9 

LAST 

7 

v.7,2574 

54 772 

1 

W Ao UK 

Tb 

kA I £ TtzKt P 

Fl 

CHECK IF SHAFT, TKUN RATES GR THAN i">\< 



REF 

!'■ 

last 

764 

i7f2575 

l>u 172 

( ' 


INDEX 

RATETEMP 

+ i 




REF 

3 

LAST 

764 

: 7,257"£~ 

3 16 >6 



Ca 

1 R I L i-iP 









1. 7 » 23 / 7 

w d 6 

1 


cXTENS 






RcF 

1 



i / 7 f 2 6 C * 

6 26“1C 

1 


3ZMF 

NcGkAT t 





REF 

i 



7f 1 

6 Z6Zo 

1 


AU 

-raxsht 









> 7 f 4^6 iw Z 

6 sOOb 

1 


EXTEND 






REF 

1 



7 t ZdO 3 

6 Z61 7 

0 


BZMF 

CMOLNP 





— kEF" 

2 

nrsT” 

~T64 


4“2'5Z6“ 

TT" 


cs 

-RAx3RT"“ 





kEF 

11 

LAST 

764 

7*26t5 

S'; 7 72 



I L t X 

RATETtMP 

+ 1 




REF 

4 

t AST 

764 

j 7 1 2666 

35* 636 

1 


TS 

T RT t'-tP 


SET RAIL TU +MAX RATE 



REF 

2 

last 

764 

U 7 1 ^ 6 L 7 

1 2617 

1 


TCP 

CMDCMP 




¥ 





0 7f 26lv 

4 F'-Cui. 

'J 

KEG RATE 

C D i*1 






REF 

3 

LAST 

7 64 

77,2611 

6 2626 

1 


AD 

-MAX SRT 









“0772612 

C V '‘i - 6 

1 


fc X 1 E ND 






REF 

J 

LAST 

7 54 

j7,2613 

6 2617 

0 


3ZMF 

CMDCMP 





REF 

4 

LAST 

7o4 

37, 2614 

3 2626 

1 


CA 

-MA XSRT 





KEF 

12 

LAST 

764 

07,i^oi5 

i>u 772 

c 


INDEX 

RATE TEMP 

+ 1 




REF 


LAST 

764 

07,2616 

5 5 * 5 b o 

1 


TS 

TRl LMP 


SET RATE TO -MAX KAIE 



REF 

13 

LAST 

7 64 

''7,2617 

is 7 72 

1 

CrtQLFiP 

CCS 

kATh temp 

+ 1 




KEF 

1 



•.. 7 , 26 2 L' 

1 25 74 

1 


TCP 

H AuCK 


I RUN RA fC 



KEF 

168 

LAST 

762 

>7,2621 


I 


1 U 

1 1\ r pNtT 









» 7 , 2622 

777-»5 

1 


□LOAD 






REF 

6 

LAST 

764 

7 T Zo Z 3 

■ 2657 

1 



IKI ->1P 




*. 

REF 

5 

L AST 

2C9 

^ 7,2624 

3473 6 

1 


stlall 

T Hm i t 





REF 

2 

LAST 

759 

7^ 7 f Zo25 

31 lo 1 




ix53CHA 









>772^6 

771 TT 

' J 

~=iwxypT 

DEC 

— 334 


”TTAX PULSES 
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AP; ASGE!»^8Lfc Rh^^ISlQN > 72 UF AuC PROGRAM ARTEMIG BY NASA 2 2iiiA--il 


I 


L 

P3l-P5j 


P1^47 

NAME - LCCSAM ALIAS S5 / 


Rlc48 

FUNCriQiN -TO COMPUTE UUAIITIGS LISTED BELOW , 

USED 

' RIC49 

■ TMD ALrGTfHENT PTTITGRTSMS ' 


R 1C 3< 

DEFINE: 


Rli 51 

RATT=PdSITiaN VECTOKtiF XK WRT P RIP ARY 

body 

Rl' 32 

VATT=VELOCITY VECTOR GF CM WKT PRIMARY 

BUOY 

R1C53 

RE =*RADIUS OF EARTH ' 


R U 34 

RM =jRAOIUS OF MOON 



USER'S PAGE NO 


24 


E5 S 


T?'ir5y' “ 
R K 36 
Rlv 57 
R ii 3G 
RIG 59 
Rlv.6*- 
RirST ' 

R 62 
R1C63 
Rii 64 
R1065 
R K 66 
R iG6 f ~ 

R IC 68 
R lw69 
R 1^. 7 
R Ic 7 1 
Rli 72 
RTTTT" 
R 1-^74 
R K 7 5 
K IG 7 6 
K1C77 
K 1C 7 8 
H 16 / 9 

R i: 8C 
R 1C 8 1 
R 1082 
R1C83 
R1034 

Rirg 5 “ 

R If 36 
RIG 87 

kuea 

R 1G59 
Rlv9n 
R 1T9 1 

Rlv 92 
R 1C93 
R 1^94 
R 1C93 


■ECtlPGL= PCLE" OF ECLIFTIC SCATL^Uay TANGEfiT I At” VELOCITY tJF "TATTnT 


TO SUN OVER THE VELOCITY OF LIGHT 
REM =PDS ITION OP TIOUN WRT EARTH 
RES ^POSITION UF SUN WRT EARTH 
C = VELOCITY GF LIGHT 


EARTH IS PRIMARY 


i/EARTh=-ltRATTI 


RCON IS PRIMARY 


VEARTH=-li REM+KATT) 


7MUL}Kr= llREM-RArn' 


VMUQN 


iTKTArn 


VSUN = KKES) 


VSUN =l{RES-KcM) 


-1 


FAirrFPrCUS t 3 1 N ( RE / KATn"+ 5 T 


TrFARTH^TTOSD 


CMOON= COS 5 


CMJUN=C0SISIN GRM/RATT)+3) 


C5UR = CCS T5 


rSUTT 


■COS T? 


VeL/C = VSON X ECLIPUL + VATT/C 


CALL - 


JLOAD 


IKPLTS 


M P AC 


CALL 

DESIRED 

LOCSAH 

TIME 


TIME 


TI0TPUT5- V tSRTH,™:GK,'17GD7r,“LbART IT, CM DOM ,X5y FT, VEL/C 
SLSROLTINcS- LSPOS ,CSMCCnI C 
DEBRIS - VAC ARcAtSEE SUBROUTINES 


u Af' : ASS fcHBLE KrtflSIOi'i 12 U F AbC PROGRAM AKT ti Mib tY N ASA I ZLL 


L 

K IL 

1197 

li 9 ij 

P 3 1 ~F 53 

HEF 1 



13 f 2 UuO 
13,2345 




setlgc 

BANK 

l< ‘■ii 

REF 

i 







COUNT* 

11 '’ 

REF 

1 



13,2345 



LOCSAM 

— 

Lun 





13,2345 

7762 . 

u 

S 5 '.. 

o ru 

llu 2 

KEF 

3 

LAST 

452 

13 1 2 S 46 

uO 3 U 0 

1 



'IT'T- 

~RTF“ 

~T' 


754 “ 

1 Jf <£347 

36607 0 

S rCALL 

11 ?4 

REF 

2 

LAST 

51 1 

13,235 

d 41 Jo 

1 



il<i 5 

KEF 

2 

LAST 

99 

13 , 233 1 

26752 

0 


S 1 J V L 

11 6 





13,2352 

uu 063 

1 



IK 7 

REF 

2 

LAST 

99 

13,2333 

16744 

1 


STOOL 

11 ;d 

REF 

8 

last 

766 

13,2354 

026 l 7 

1 



■ 

REF 

36 

LAST 

"7 67 

13, 235 5 

34341 

L 


3 1 calc 

111 ' 

REF 

o 

LAST 

7 o 2 

13,2356 

27 17 : 

1 



1111 





13,2357 

01131 



S^P 

1112 

REF 

11 

LAST 

751 

13,230 . 

Ou‘j 52 

♦ 



1113 





13,2361 

OOU 6 - 

1 



1114 

REF 

1 



13 , 23 o 2 

264 U 5 

1 



1115 





13,2363 

52375 

1 

EAKTLNTK 

VlOAO 

1116 

REF 

3 

LAST 

766 

13,2364 

02752 

L 



1117 

REF 

25 

L AST 

759 

i 3 f 2 d 36 S 

OOOO'i 

w 



me 





i 3 f <£ Job 

7765 o 

1 


UNIT 

1119 

REF 

4 

LAST 

766 

13,2367 

26752 

c 


STUyL 

1120 

KEF 


LAST 

7 66 

13 , 237 ^ 

UlO?*./ 1 

, 



1121 





rJT^jri 

57456 

1 


1 T 
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X 7 1 3 

77745 i SXTSM 

DLuAC 



1575 

REF 

49 

LAST 

7 6 i 

17,2.-53 

03723 1 


MRKeoFl 


13 76 

REF 

11 

LAST 

7 7o 

17 f 2u5 4 

C26.7 1 

STORt 

1 SiOHT 


1577 





17,2v55 

777oO 0 

AXC , 1 



r5Tb 

AEF 

5 :: 

“LS'ST" 

77B 

1 7 f ^ * 3 6 

iJ 


MROuFl 

ADDRESS OF MARK DA f A FUK P5. *S 

1579 





17,2357 

77620 3 SXTSM 1 

jTU 


CALLED HERE FkDM &ETUM (P2 aND F23) 

153V 

REF 

3 

LAST 

767 

17,2-bC 

u03xjlj X 


mMAJ 


1561 





1 7 f /dub X 

66744 0 

LXC,2 

SLOAU* 


1582 

KEF 

11 

LAST 

776 

i 7 

003l4 0 


i f Ais INU 


1583 

REF 

1 



17,2063 

41673 0 


MK»jNC0R,2 


]Ja4'~ 





1772^64 

76744 1 

L X C f Z 

“vLuad* 


1585 

REF 

274 

LAST 

763 

17,2065 

Cvl54 1 


npac 


1536 





i 7, 2vfo6 

Oc U wy 1 U 


f i 


15B7 





i 7 f ^ w 0 7 

i 0 Lr J X 1 

SfQRE 

f ^ 

1* 

1588 





17,2L7l 

77743 1 

OLOAU* 

f* 


1589 





17, 2c 7 1 

□0006 1 


5,1 


1591 





X 7 1 ^ ^ 

16006 0 

STORE 

:5,2 


1591 





1 7,2073 

77773 1 SXTSH2 

LOAD^ 



1592 





17,2074 

V- 0 3 X 


2,1 


1593 

REF 

3 

LAST 

5 96 

i7,2j75 

35172 J 

STC ALL 

cdjspgt 


1594 

REF 

2 

LAST 

512 

X 7 f id ^ 7 6 

46 000 - 


sx r H8 


1595 





17,2077 

77624 1 

CALL 



1596 

REF 


LAST 

T9r 

17,210-. 

47642 1 


T 

transfer loS^O SM 

15^7 





17,2101 

34 '41 ' 

STCALL 

320 


1593 

REF 

0 

LAST 

773 

17,2 10 2 

Cc300 i 


CMAJ 


1599 

rtEF 

7 

LAST 

63u 

17,2iu3 

03674 i MKUNCUR 

E C AO R 

KARKOGWiN 

M 

16 .! 

REF 

2 

'last 

183 

17,2io4‘ 

W 34'6C‘ 0 

cCAOR 

KARK2DRN 



I 








. -s 7 . . • 


r> 








.»»«*- 





.» 


V 
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P51-P53 


USER'S PAGE NO 


3d 


E7 S3 


Pi6( 1 


NAME 


H5J - SIGHTING MARK ROUTINE 


• K 


* 1 

t. 


• ;:/♦ :■ i 


* . f 









. • 


1'^ i ‘ 


'4 H 

^ k 



•! 


-- — ^ 




K‘J| 


._?a! 


4 *• • 

• k \ 


>* 


I . " rr 


> 


J - - -■ 









■ - '* ' 

r .- 

• 

‘ • j k 




*. V - ■■ # > ‘- - 


' ■* . W'fr •■»■/•. 

Nr y-.% 



I 


* / ^ 1 • • 







■ >i»- - . 5 .. « 

•r" » 

*S , ’> t, 

'^V \ . 


u. 


n^t* 


J 


mmAi 


vA 







>- - 
« *» r*T "Sri 

■ 1 - 



r3S 




r 


’ I'- ■;< - . •- 
/ » , % *: 

• i • 










'» 

■• . J 

\A>. ' 

* ■’y *■• 

>. ^ 

J * , 


• ^ •, ' ■% 
. 4 - _t 




‘ ^ ' 

• .« 4 






/,. . - 


-/ — ’4.* •• ^ • * •... ►* 

' ^ ^ * ' 






^ 'n-i 

r-,i 

V -•' • 


-H 


* V 

I 

> iJLy- 


idUIii 1 ^ 


^2 



- ✓ f I Q * , 


, ■ , J#-l . ^ 

' • .' 4 V 


^ - 





N ^ • 

V ■ 

.V- > A 


■ rK 


rv* 


■*-N v'^ t* 
* n 


^ r 


"gc-if 


• t. - 
I -' 

^ -- 


s*. 


10 


'f* A’^.‘ Ti 

*• • •' W ’ 


■«K*' 



» 


7 -^ 

sV , 


& 


t p 


o 


/NJ 7 - 

t 4 ^ -w 


A i 










• 4^ • .'-J 

il 


•_J > 


T;V 

'' k . J 




■. ' ' T ‘•H' 'r 





■ * ■'* r" 




* 

r_ , 


>/. I'.^'ii 


. I 

( 

■ :-> • 






- j 






5^ 




h • 


i 1 




1 















0 . ^ ' 


■: 4. ■■ 

■'^ • '•‘•Tj • ^ •* 


•-StV#-;- 


‘ V 


- V; >' 

V' 


f •» 


■' r" 


■ 7 *X *- • * fTA »l . 
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('8 


L 


PSl’-HSJ 


USLK'S PAGE NO. 


B 9 


17 


^ J 


P I6il2 
R16.>B 
K 16 t) 
K io-' 7 


F i/NC T I iV 

JJ PERFORM A SATISFACTORY NUMBER UP SIGHTING MARKS FOR THt REQUESTING 
CAN BE MAJ£ ON A STAR UR LaNUMAKK^ WHEN THfc CMC ACCtPTS A ilAKK IT KbCURDS ANU 
CCOGSI ANU THE TiMc CF THE MARK. 


PkUG'RAM I or ROUT 1 ML ) , S IGH I 1 
STORES b ANGLES (U ICDUS kuU ^ 


R lu 6 CALLING* Sequence 

a 16 '9 K53 IS CALLED AND RETURNS IN INTCkPRETIVE CUJE, KtTUK.M !;> VIA QPkET, 

Ri6l, THERE NO ERROR EXIT IN THIS ROUTINE ITScLF. 


Rloll SCBROUTlNcS CALLED 
R16i2 SXTMARK 

R1613 OPTSTALl 

Kl6i4 GChLASP 


erasa ble I NITIA LI ZATION 
kloiS ■ TARGLI FLAG - STAR OK LANDMARK 

k 1617 MARKiNDX - NUMBER CF JXARKS HANT ED 

K161S STARING - INDEX Tu' BEST 1 OR DES T J (STAR NUMBER) 

Rl6i? OUTPUT 

R162 MARKST AT CONTAINS 'INDEX TO VACANT AREA WHERE MARK CAT ^ IS ST.JRtD 

K162i flhSri (INUEXED BY STARINU) CONTAINS STAR NUMBER SIGHTED 

K1622^ DEBRIS 

R162i MARKINCX CONTAINS NUMBER OF MARKS DESIRED 


1624 

KEF 

2 

L. A SI 

639 

i4t20v'0' 




GtT LOC 

xTaJ 

■ 

1623 





14,3:»71 




BANK 


----- 

lii^ 6 

K t F 

i 







uUUNT * 

$$/R53 


1627 





14,3571 

43 

1 

K53 

STq 

Scl 

ScY i G HT IN" D M ARk Ft a G 

1626 

ci t F 


LAST 

121 

14, -35 7 2 

^34^7 

1 



i vSic T 


162 9 

KEF 


LAST 

76i. 

14,3573 

‘CL 7 1 

i 



H53 flag 


163'- 





14, 3574 

7777o 

1 


fcXl T 



1631 

KtF 

163 

LAST 

774 

14,3575 

C 4636 

(j 

K53A 

1 L 

6 A KC all 


1632 

KEF 

2 

LAST 

4 52 

14,3576 

16u jJ 



CADR 

SXTMARK 



IW 2~ 

rAST~775“ 

"17473577" 

C "STST 



■/ 1 

1 o 

CheCKMM 


1634 





14,36.: c 

<: a 

1 


Mrt 



1633 





14,36?. 1 

1 36. ‘B 

V^‘ 


TCP 

+ 2 


1636 

PEF 

1 



X ^ f 6 3 ^ 

1 3612 

1, . 


TCP 

k 53 Ai 


1637 

KEF 

21 

uAST 

73.^ 

1 4f 36t 3 

1 5 J34 

i 

L 


TC 

CHllLXrtH 


1638 





14,36.4 

Gt .>26 

Kt 


PITS 

22 

P22V 

1639 

REF 

6 

last 

437 

1 4 1 J 6 « 5 

'’T~vrzir 

TT 


CAF 

PJUR 

I\Ot MaRKINDX ^ 1 

164 - 

REF 

1 



14, 36. 6 

6 3t>5t.' 

1 


A J 

I * 6 

YDS, IS MAPKINDX = 5 (CHECKMN LEAVcS ) 

1641 

REF 

12 

LAST 

452 

1 4 1 i 6L 7 

o 1 

0 


AD 

MAKKINUX 


1642 





14, 3ol 

L C- u 

1 


cXTEND 



1643 

REF 

1 



14, 3611 

1 35 75 

1 


UZP 

K53 A 

NU NARKS TAKEN., I>ll AGAlrio 

1644 

REF 

134 

LAST 

780 

f 1 ^ 

j 463 0 

3 

R53A1 

rc 

EAiJKCaL L 

J 

1645 

REF 

4 

LAST 

4i> <d 

147 3613 

1 6 . ? 3 

1 


C AUR 

HKXcLt A S 


16457 

REF 

14 G 

LAST 

776 

14,3614 

3 4772 

1 

R53Ci 

CAF 

Z CfAti 


1645 6 

HEF 

185 

LAST 

7 8g 

14,3615 

u 4636 

0 


Tu 

LA KCA L L 


1645 9 

REF 

5 

LAST 

769 

14, 36io 

Z 1 i'j 

. } 


umDK 

CLEANG jp 
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L 

P51- 

■P53 











USER'S PA-^E 

N U ffi 

4 t7 S3 

1 64 b 

REF 


LAST 

7.1- 

14 1 J6 1 7 

4 

47 63 

S-.' 

R53B 

C3 

Bllo 

CUT 

BtlV^btlS P2' S 

AND 

P5 S 

1647 

REF 

!:> 

LAST 

764 

1 4 1 3 GZ 

6 

1214 

1 


AU 

inODRLo 

P24L, 

P23 CALL 



1648 

1649 

REF 




14 f 362 1 

u 


1 


lKTEND 






1 



14,362Z 



f 1 


6 L iP 

R 5 3 U 

Yh6 




165J 

BEF 

1 



14,3623 

3 

363 3 

1 

B53C 

CAF 

V -Hm?! 





1654 

R E F 

36 

LAST 

745 

1 4 f 3 62 4 

- — 

L 

5535 

1 


1C 

VNFlaSH 


" 



lo55 

REF 

2 

LAST 

756 

14, 3625 

u 

3636 

1 

R53Z 

1C 

LHXSCUDE 






R 16551 RCUTIfvc TJ ALLOW QwLY +' <= STARCODE <= +5G, OTHERWISE 'OPFRATOR ERROR* 


16^6 

K fcF 

13 

last 

756 

14, 362o 

b 4362 

1 


TC 

F AlT JN 




1657 

REF 

1 



14,3627 

^ 3623 

U 


TC 

R53C 




1653 

REF 

1 



14,363'-^ 

C- 3732 

1 


TC 

S T U rt IJ 

SET bESTITBFSTJI = 

i5T( 2ND i 

STARCODE 

1639 

REF 

1 j4 

LAST 

776 

14 , 363 1 

u 6 M 6 

1 

R53D 

TC 

IN TP RET 




166 .. 





14,Jo32 

77614 

1 

R530UT 

SET GO 



~ 

— - ~ 

1661 

REF 

2 

LAST 

7 57 

14,3633 

L 3 42 ■; 

i 



i ^.vimFLG 

SET IhKMlNATE FOR 

R52 



"16^2 fTEF 3 LAST TSC! I4t363S T53EXn 

1663 REF 21 lAST 756 o211 SIGHTSIX = bIX 

1664 14,3635 ~ TRJ^OT V01N71 VR 171 


A 1665 

R1666 4:*#+** KEEP IN SAME BANK AS R51 AND R53 


16o7 

REF 

1 : 

LAST 

754 

14 1 J6B6 

11*14 

1 

CHKSCODt 

CC3 

b f AkC liDE 


16675 

RHF“ 

~ir 



14 , 3637 

1 3643 

1 


TUF" 

scpos 

5 Cf UHfcCK if 

1668 

REF 

2 

LAST 

302 

14,3643 

i 6 a 

0 


1 CF 

C+2 

^ +i t UK. 

16685 

REF 

141 

LAST 

735 

14,3641 

0 L ' J 7 Z 

J 


TC 

w 

NEGATlVt STARCODE OF ANY 

166 9 

REF 

142 

LAST 

781 

1 3u42 

G lJv2 

L 


TC 


i'^AGNITUDt IS IMPROPER 

167^ 

REF 

1 



14 , 3643 

6 3 64 7 

1 

SCPUS 

AD 

i\cG47 


1671 





1 4, 3o44 

0 C Lj U 6 

1 


tXTENJ 



1672 “ 

■ REF" 

3 

~L7rST" 

751‘ 

“nnr,3o43' 


r 


birth 

Q+Z 

“<= '5t' , OK 

1673 

REF 

143 

LAST 

781 

14 , 3o46 

L . ■ '-..'2 



Tu 

b 

> 5^,, IMPBCPEK 

1675 





i 4 f J 64 7 

77 73,. 

k. 

NEG47 

jCT 

7773 


167t^ 





14,3o5 > 

iim 

1 , 

KIN5 

DEC 
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Lli^ F£B« 26ti97i ^^£N£LAU^o ol 


L P51-P53 


USfcK'S PAGt Nu, 41 


Plo77 NAME-S32.2 

klt>76 FtNCriON-GUMPUTt GIHBAL ANGLES FOR OESIKED SM AND PREStNl Vt^HiCLt 
R167y CALL- CALL S^2,2 


K 1691 

TTsTtr- 1< 

. Y asm 







Kl6di 

CUT PUT- 

Cu C f 1 GC 

f M GC f 

T HEX AO f A 

, + 2 




R loti2 

SUBROUTINLS-CDUTR IGt 

CALC5MSC, 

MAT HOVE 

,C ALCGA 


1683 

R tF 

1 



-Li f iciO u 




SETLJC S52/2 

1684 





lit2247 




bank 

1685 

REF 

1 







COUNTS 41/352-2 

1686 





lit 2247 

4502'.' 

1 

S52.2 

3Tu call 

1687 

REF 

7 

LAST 

778 

li t 22 5 1. 

~C t,.’ 3'..' 

1 


vMaJ 

ltj88 

REF 

a 

LAST 

759 

lit 2251 

47 53. 

1 


courklb 

1689 





11,2252 

77624 

1 


CftLL 

169f’ 

HEF 

2 

LAST 

751 

lit 2253 

34756 

1 


CALC 4>MSC 

■ TS91 





i 1 f 

663Xu 

0 


AjCT 1 1 S-^ P 

1692 





11 ,2255 

0 C j 2 2 

1 


ISU 

1693 

REF 

28 

LAST 

738 

i 1 f j2 ^ G 

2*1051 


- 

SI 

1694 





11,2257 

w u o u 6 

1 


iU 

1695 





i 1 f 4i2 . 60 

61373 

1 

S529 2A 

i/LQAD^ V\M 

1696 

REF 

8 

LAST 

771, 

11,2261 

.2736 

1 


XNi +i8D,i 

1697 

REF 

4 

LAST 

776 

11,2262 

V 1 7 34 

( ^ 

V/ 


tP SrtMAT 

169 8 





11, 2263 

77656 

1 


UN 1 T 

169 9 

REF 

9 

LAST 

782 

11,2264 

V. 4i7 3 6 



^itOKE Xi>lB +loLJfl 

17U( 





11,2265 

777 0 



TIX,i 

i7Dl 

HEF 

1 



11,2266 

22 2 o. 

ii 


552, 2A 

17 ’ 2 





11,2267 

751u 

1 

2« 1 

AXC 1 1 AXC f 2 

17*. 3 

REF 

12 

LAST 

748 

lit ^^7 


1 


XSmU 

1714 

HEF 

29 

LAST 

749 

11,2271 

ZaTl 

j 

% / 


XSM 

179 5 





11,2272 

77624 

1 


CALL 

1716 

REF 

4 

LAST 

775 

11, 2273 

3473. 

1 


MAf HQVt 

170 7 





11,2274 

77624 

1 


CALL 

17u8 

REF 

3 

LAST 

629 

11,22?5 

47344 

1 


L Al-C uA 

-1770 — 





11,22/6^ 

T ? 

T ' 


bO 1 U 

171 

REF 

8 

LAST 

782 

11,227 f 

0w3:. 

1 


wMA J 


61 H G 


783 
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L 


P31-F3i 


USE.F*S PAGE NOc 4<i i f G-i 


Pl7il Tht ACVTKmCK RGUTINc is UiED TU CUMPUTb Ak UPTiCG LUi» VcG fOK TO 


ri 1712 

A PCiKT 

CM THE 

GRGUNE 

FRaCK 6 U 

DE tjR £ SS 

ECRHARl) QE I H£ LuLAL VEkT IGAL 


Kl7i3 

OF AN ADVANCED 

0R31T 

A SRtCIFItD NUMBER 

CF RfcVOLUTIQNS r 

kCM njw 


171 A 

*<EF 

1 



26 f L 


setloc 



171b 





Zb § Zo4 u 


BANK. 



171bb 

REF 

1 





CuUNT^ 

*i/R52 


1716 





26t2‘..'4-. ' 

"776j1 : 

ADs/TRACK SETPD 



1717 





6 t ^ 4 1. 

o< o a .. 




17rB“ 





26 1 2642 

41573 iJ 

VLUAU 

E UciH 

INiniALIZE FGR RP*^TD—R 

171 

RlF 


LAST 

459 

2b,2o45 

1533'- . 


uaiz 

U2 VEC IN PD i -5 

172 





26 » 2w44 

41434 1 

kFS 

EUSH" 

TIME IN PD 6-7 

1721 

R El" 

^4 

LAST 

758 

26 f 2o’45 

51751 C 


LUAlJ T i rtt 


1722 

REF 

i: 

LAST 

763 

26 » 2C 46 

36347 1 

stcall 

A OP i IME 

TIME ALSO IN AlPT IMr FOR CSMCONI C 

1723 

REF 


LAST 

745 

Zbt 2c47 

55345 6 


i IJ-'K 

GET rtOLN ROTATION VEC IN REF 

1724 

TTET^' 

i.r 

LAST 

■T59 

2 o f 2ub .. 

16756" 1 

5TD0X 

i I AK 


1725 

REF 

11 

last 

763 

26 » 2*35 1 

C2347 C 


AoPT IME 

PICK UP TIRE 

1726 

RtF 

37 

LAST 

766 

26,2o52 

3 4'? 41 J 

STCALU 

TOECl 

'UPDATE STATE TO TIP” 

1727 

KEF 

9 

LAbT 

7o6 

26 t 2053 

271/u 1 


CSMCUNIC 


1728 





26 1 2 .554 

47375 u 

VLOAD 

VXT 


1729 

REF 

23 

LAST 

767 

2bf 2U55 

GLuuY 0 


VhTT 


ITJi 

"FTtF" 

25 

“LA'S!"' 

76 T 

26,2D56 — 

'DUrOi 2 


RATT 


1731 





26f 2u57 

24131 0 

oTUVL 

240 

bAVE -UNIT tv X 2) FUR 200 P.LlAHLNi 

1732 

REF 

33 

LAST 

18’^ 

2 6 f 2o u j 

« ^ I J 


RATI 


1733 





2^6 f 2^ 6i 

b / 4 J>6 1 

UNIT 

V^-URP 


17^4 





26»2G62 

41"itvi i 

StTPD 

PU^l^ 

PUSH LUS=-UNIT (RVtC) PL -5 

173b 





26f ^u63 

J 0 0 1 i 




TTJB 





T^S 1 64 

54335 

^ LuAD 

in 


1737 

REF 

26 

LAST 

656 

26t 2u65 

g375z 1 


L AND MAf\ K 


1736 





26f2066 

2'-2l4 1 


itO 


1739 





26,2o67 

41342 1 

SRi 

LRP 


17 4T’ 

REF 

1 

■ 

— 

26 , 2 ere 

14135 D 


Pels 1 OU 


1741 

KEF 

12 

LAST 

763 

2 6 f 2u 7 X 

36347 1 

STCALL 

AUP 1 IME 

ROTATE ANG ABOUT Ur 

“1742 

RET 

r 



26 f 2DT2 

5^1 u 5 1 


U I A 


1743 





26 f 7 J 

53575 L 

VLUAD 

GNi T 


1744 



— 

- 

26 f 2u 7 4 

^uC31 


24D 

PICK UP 2ND ROT.'.TION ATIS 

1745 

REF 

12 

LAST 

763 

26 f 

16760 1 

STCDL 

s r ak 


1746 

RtF 

1 

-w_ — - 


26,2v76 

14133 9 


CPi/6 


1747 





f 2\i 7 7 

77625 G 

ObO 



’“me 

~RTF 

" TX 

LAST' 

'TB'3 ^ 

2 6 f 2 i w V. 

‘.2347'T~ 


*iT3PTTHE 

2NP RAt Ar4bLh - b\. — A 

1749 

REF 

14 

LAST 

763 

2o T 2it 1 

3t>347 i 

bTCALL 

AOP 1 i HE 


17b 

REF 

2 

last 

7 83 

26,21u2 

5^i‘^5 i 


Pu t A 

GO rJIATE 2ND TIME 

1751 

REF 

13 

LAST 

783 

4 6 1 2 1 u 3 

36766 - 

C.TCALL 

J I A R 

final LOS IN STAR 

1752 

REF 

3 

LAST 

759 

2(j. 1 2 li 4 

31120 L 


oQMb.d 

RETURN Tl, SR52. 1 

”i7^”~ 





2i 6 1 2 X L. 5 

73545 1 

ROTh uluau 

5 liH 


1734 

REF 

13 

LAST 

763 

26f 21^ u 

K 234 7 ^ 


A UP i 1 ^ 


1735 





2 6 f 2 X ^ 7 

4731-/ 

PDVL 

7 A V 

PUSH 1/B3IN(AJ Pi> 6-7 

1756 

REF 

14 

last 

783 

26, 21iL 

i 2 7 oo 1 


6 T Af\ 

UK VEC 

1757 





26,2111 

e t- . I 



L >jS 


11x4^ FEb» 26*1971 HbNfcLAUS ^ ol PAGh 78*» 




cv 


^<LJ3fLA^ J^J^ U& KAa A HULfU-^X. i A lifc.„.4jL 


L l^5i-P5J 


USUK'S PAGb J4U. _43 t? Si 


17 i« 





26,2112 

725ol 

0 


vxsc 

VSL2 

17:j'^ 
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THt:*E SUBROUTINE;* ARE USED TO DETERMINE THE POSITION AND VELOCITY 
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LU^P3S COMPUTES THE POSITION VECTOR OF THE MOON, 


R LO 1 2 
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2) TIMEMO - TIRE AI THE CENTER UF THE RANGE UVER WHICH THE LUNAR 
POSITION PCLYNGMIAL IS VALID IN CS X 0-42, 


R’.'i22 

“R‘'"rZ3' 
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^ - 


Ri 1 26 
R:C29 


Ol UMEGAES - ANGULAR VELOCITY CF TKc. VECTOR kESO A I T I MEMO IN 
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7 

LAST 

53 7 

26, 232 C 

34 :i32 

1 


TS 

CM :.TLCl 



<- 1 47 

REF 

2 

LAST 

792 

2o,232i 

u 2546 

1 

Po2 

TC 

Sci . 1 

CHECK. STATE VEClUR AND 

IMU ORIENT AT lONa 

' 14 8 

REF 


LAST 

793 

26,2322 

L 6 Kt C 6 

1 


TC 

i P Kb 1 



^14° 






47 X3 1 

1 


SSP 

K 1 iJ 



115 ; 

REF 

2 

LAST 

lib 

26,2324 

G3325 

u 



FQSEKIT 



'.131 

REF 

i 



26,2325 

544s;2 

0 



P62 > 3 

CALCULATE DESIRED o- 5G 

GIMBAL ANGLES, 












WITHOUT CISTPimri 


133 

REF 

1 



26 f 2 l326 

417-3 

1 . 



C VDAPIC 

start CM/PQSt AND BODY 

RATE CALC 


A*.- lt>4 
A! 135 


DUES 2PHSCHNG, 3CT 4 <Ti 6 , OCT . 5(<24i JC T i3i 

CK/DAPIC SETS EBANK = EBAOG 


AC156 


H157 




26 1 2->2 7 

V 00 L 6 

1 F62 j 2 

F158 

REF 

1 


26 • 233 ; 

3 2431 

^ r 

:i59 

REF 

1 

LAST 

74- 26,233 1 

53*062 


016^ 

REF 

1 


26, 2332 

3 254:j 

1 

^161 

ReF 

1^7 

LAST 

793 26,2333 

6 46 i 6 


• 162 

REF 

1 


26,2334 

2114 7 

ci 

l63 

REF 

49 

LAST 

793 26,2335 

, 41 3 

1 

vl64 




26 , 2336 

C» 23=+! 



AND KtTURNS IN BASIC TO P62.2, 

c XTEfNU 

DUA FUSECADk CONTINUE WXTH CM/POSt AFTER AV G, 

UXoH .‘VcotXIT 

OAF UGI4i KtUUEST SEPAnAl'ICN 

TC ^E-aMCAlU' 

CADk GOPbRriH 

TC GUTwPouH 

TG ♦ i 


PROLE EL 


: __ Ai.S L . K ( V iAJLfiN. . T<L Ch rtoC P KUoRAM ARTEi^AS BY N A SA l\Ul 

L Pdi-F(37 

A‘i’165 _ . 


0166 

'167 

REF 

1 

2o,2337 
26 340 

C 2332 
0 2244 

1 

1 

TC 

TC 

i iod 
i 169 

REF 

REF 

46 LAST 7oE 

1 

2o f 234 1 
26,2342 

. 46 S S 

41624 

i,/ +3 

1 

TC 

CADR 


A < 171, 


A:_1L1 


:i73 

A 174 

REF 

> 

LAST 

792 

2.t> f i434> J 

3 3 vJ 3 4 

P62*l 

CA 

A- 173 









A- 176 









AC 177 









178 

REF 

1^0 

LAST 

793 

2o,2344 

463o 

1/ 

TC 

’179 

KEF 

23 

LAST 

793 

2o , 2345 

2C743 

L' 

CADK 

lb* 





26 , 2346 

0 2343 

1 

TC 

181 





26 f 23^ T 

J 2351 

1 

TC 

' 182 





26 f 235^j 

0 2343 

1 

TC 

•183 

REF 

79 

LAST 

792 

26,2351 

0 5402 

1 

TC 

184 





26 ,2352 

2*+ 

\J 

OCT 

Akias 









C 166 

REF 

3 

LAST 

793 

26,2333 

11' 726 

i 

CCS 

Ci87 

REF 

36 

LAST 

793 

26,2354 

3 4753 

1 

CA 

■ ’ 168 





26, 2333 

12 356 

1 

NO UP 

■ 

RfF” 

0 

“LAST" 

T93 

26, 2336 

^5*713 1 

TS 

19? 

REF 

1 



26,233 7 

3 1411 

1 


<-191 





26f 236v 

22 f 27 

j 

2L 

192 

H tF 

2 

LAST 

llo 

2o ,23o 1 

53'6 j4 

r 

DXCH 

193 

REF 

85 

L A ST 

795 

26,2362 

3 4770 

, 

CA 

.194 

REF 

1 



20| 2363 

55'727 

J 

TS 

195 

REF 


last 

774 

26, 2364 

3 3C25 

J 

CA 

^'196 

REF 

1 



2 6, 2365 

53* 122 


rs 

AC197 









<’198 

REF 

62 

LAST 

744 

26 f 2:366 

j 5547 

1 

IC 

lOQ 

-V# A - • 

REF 

i 



26f <:36 7 

G: 134 

1 

AMTS" 


AC1S91 SKIP 


14--^11 11:4' F b6« 26tIS71 WfcNE LAUSo > bl PAGE 79b 

USER'S PAGE NUo .5 _E6 S3 

NUTb; NUDQFLAG WILL BE SET IN CM/DAPON, _«< 

-u ENTER 

, 3 FOR PHASCHNG AND EiMQQFJuB, 

POST JUMP 

CK/OAPaN 0 IS ABLE RCS OAPr ENABLE ENTRY DAP AND 

DO ATliTUDE HULUi 

WILL IDLE UNTIL CM/PQSE DUES ONE UPDATEo 
LM/OAPON OOES'hu PhASCHWt. 


V o.Nol LATtSPLJ LNGtSPLJ HEADSUP 

XXX o X X OE G X XX > X < □ E b t C ' X 


TtKHINATE ATTITUDE HOLDo SET UP COMMANDS: 
RJLLCt ALFACCM, BETACQM« BEGIN MANUVcR TO 

ENTRY ATTITUDE* 

BANKCALL 

bU r L ASH 

“3 
+ E 
—3 


PHASCHNG 

USE E NT RYVN FUR DISPLAY BELOW* 


E8ANK WAS SET IN CM/UAPON TO EBAOG 


HEADiUP C(HEADSU_PI ^ +/- 1 

aiV14 IF HE*At)SUP PQStROLLC=ia DEG (LIFT DWN) 

IF HEADSUP NEGt R 0 L L C ='- DEG (LIFT JPI 

Ai_FAPmU nominal ALFATKIM pad LOAOEOf NEGv Nu« 


ALFACUK SET ALFALOM - ALFA TRIM, BETACOM= 


PE KFI.I TS EXLAP2 T Q CH A NGE FLAG TO i- f 

F63FLAG AS INDICaTCKo STAB,TS UP~P63l 


7 SEI UP DISPLAY FuP COU utSlRED VALUES 

ENIR7VN FPXM cNTRY ATTITUDl CALC, THAT IS 

ALRLADY GLING* 

UPFLAG TURN ON ENTRY DISPLAY 

"E K f KTJsP ENTRY DSP == mr~n FTAITT 




GAP; ASSEMBLE REVISION \)ll OF AGO PkOGRAM ARTEMIS BY NASA 2 >21114-11 


ii:4u FEB. 26>i971 MENELAUSa>.tol F'AGE 797 


L 

PI 1- 

P67 



- 





•: 2 -'' ' 

KEF 

& 

LAST 

187 

26t 23 ?i. 

4 i7,>^ 

5 . .• 

cs 

CNdAPHOD 

i2'' 1 

KEF 

86 

LAST 

796 

26,2371 

7 47 7 v; 

1 

MASK 

CKi; 

2( 2 





26,2372 

U OOiJo 

1 

fcXT LNU 


■ ■ ''2''3 

RtF 

1 



26V2373 

~l 2-422 

'0 

ciZF 

PoJ 

A ' 4 





- 

- 



- 

'■■235 

REF 

1 



26,2374 

w 24v6 

1 

TC 

Pb3 

A *. 2' 6 










‘7 










A ' 20 8 










A 'Z09 










A' 21--; 










A' 211 










*^12 

KLF 

4 

LASt 

628 

26,2375 

3 5052 


hAKEPbL CA 

PR 1 01 3 

213 

RcF 

15 

L A ST 

737 

2u,2376 

u 3121 

L 

TC 

NOV AC 

T214 

KEF 

14 

LAST 

"792 

E6, 1661 



EliMNK— 

AuG 

213 

REF 

2 

LAST 

797 

26,2377 

U24 o 

1 

2CADR 

P63 

215 





26,24CS 

54066 

0 



< 21 6 

REF 

38 

LAST 

737 

26,24Gi 

0 5314 

1 

TC 

TASKiJVt H 

A 21H 









t: AC 

A 2 1 ^ 









DIT 

A €22' 









aV 

A 221 









IN 

222 





26,24w2 

52131 


P62®3 SSP 

OLIO 

_ - 322-5— 

17ET=“ 

4 

LAS7 

— ?ir2 

“2 6, 24473' 

OC'353 

1 


WPK cl 

’.224 

REF 

1 



26,24t4 

533 7'+ 

1 


E*\iJr: <11 

L225 

H E F 

i 



26,24- 5 

20412 

I 


S62 ^ ^ 

A ,226 





- 




- - - 


USEK*S PAGE NO® 


E o S3 


GO GIRECILY TO P63 IF BODY ATTITUDE 
IS SUCH THAT THE DELAY TASK: WAKEP62 
HILL BE OMITTED^ 

DISABLE GH F 4 , GIJ I U ' tNOOF JOE® 


{IE, continue if CMDAPMOO 


OR + 1 


TO SLEEP UNTIL VEHICLE MANUVER HAS 




OTTSTD'E K"'mE’HAnn WiJ 


PUT JOB 

RECUCEIT'SLTA TO +/ 

63 DEG (23 DEG IF ALFA NEGI TO ALFA TRIM TU 
OCCUR AT 3 DEG/SEC » AND TERMINATE P62 AT THAT 
riME® 

TASK WAKEP62 IS CALLED FROM ENTRY DAPc 


PRESENT RNi VN® COME HERE FROM CH/PQSE AND ALSO 
t^EPLER PHASE OF ENT RV. 

SET RETURN ADDRESS SO THAT ROUTINE 

ECTLVrO FNIR Y’T-Uim'NCr'TjaT — 

THAT COES entry DISPLAY , GRP 3, 

PUT dlsired cdu values in cpki*s for 

N22 DISPLAY. 


! r 


1 


_ ^ . A:>S £MBL£ R EVISION ^ 7ji^ C F PROGRAM AKTEMi :> tiY NASA 2 li 


ii;4J FEB* z:6,197l MtNELAUS. 61 .‘AGE 793 

~ -- j ajii ..■s^.j m ^ ~ ii — ■"- i f m\ i\ ■ - ■■! h i 0k i-m^ ■ ^ i m ^ \ 11 ■ T mtM ~ij a ' I M 


PEI-P67 


USER'S PAGE NO, 


to S J 


pi, ^^7 

P63 

ktzzd 

PROGRAM" 

Rc229 

PCD NC,- 

RL23': 

KCO BY- 

R 23 1 

MCO no: 1 

Rl233 

PCD NG: 2 

R i. 2 3 5 

FUNCnON- 

Ry236 


RC238 




RL241 

CALLING ScDUENCE- 

RL242 

EXIT- 

RC243 

StaRUDTlNE CALLS- 


P63 

0 MAR, 13, 1967 
R, HIRSCHKUP 

MCO UY: RR 6A1RNSFATHEK UATt: JIN oT j^ESFARlSo 

MUD 6Y: KK bAlRNSFATHtR DATE: 14 JUL 67 REVISED kESTARTS 

IJ TU l.'liTIALlZE THE ENTRY EUUATIQNS __ 

^} TU CaNTlNUE TO HELD THfc CM TO THE CORRtCT ATTITUCE WITH RESPECT TO THE ATMUSPHERE FUR 
THE UNSET OF ENTRY DECELERATIGU, ROLL ANGLE LIFT UP/DUWN AS SPECIFIED BY HEADSUP, 

TTTO sense . 35 "6 ~ " ” 

DIRECTLY FROM P62 
TJ LNDCFJOB 
Nti^MODEX , GODS PR 


,i£.44 

REF 

1 







CUUN T+ 

ii/P63 


245 

kEF 

6 

LAST 

795 

26 , 24^6 

J 5344 

1 

Pq3 

TC 

NEWMODE X 


246 





2 6 f 2^j y 

00077 

1 


MM 

£3 


At 24 7 











ARRIVE WITH EdANK = 'AQG. 

' 24 3 

REF 

1 



26,241 . 

3 2427 

I 


LA 

ENTCAUR 

CONTINUE AT STARTEKT AFTER CM/POSE • 

A ' 2.^ 9 


- 








AT 

END OF STARTENY, CHANGE ADDRESS IN GQTDAUDK 

AL25'; 



. . 


- 





TJ 

CONTINUE AT SCALEPOP ThEREAFTER. 

! 251 

REF 

3 

LAST 

795 

26,2411 

55' 724 

0 


TS 

PQSEXIT 


252 

KEF 

i 



26,2412 

3 2426 

U 


CA 

V ^ o AOH 

G VI R TQ SPLSH 

A .253 











XXXoXX G XXXXX= FP5 XXXXoX NM 

.254 

REF 

2 

last 

796 

26,2413 

5>' 122 



TS 

-..■sTr^YVN 

FUR DISPLAY CALL IN UVckNQUT. 

2541 

REF 

8? 

Last 

797 

26,2414 

4 4 77'"^^ 

1 


uS 

LHc 

IN CASE FLAG IS LEFT AT BY DAP, THE 



2 


— 

TZT 

U 


~Tr 

"PoTFLaG ' 

-"1 ASSUktS I HAT tKG“AiM dAp 1^iLl nuJ 

AC2543 










- 

CALL P63 cut of SEQUENCE IN Poo . 

C2545 

REF 

d J 

last 

796 

26,2416 

J 54:^2 

1 


TC 

PHaSCHNG 

THIS IS REQUIRED TO PRESERVE CLEANOSP 

‘2546 





26,2417 

OC0;;4 

c 


ULl 


RETURN IN EVcNl OF AN EXTENDED VERB., 

-.254 7 

REF 

199 

last 

?9o 

26 f 

0 4636 

0 


TC 

BANKCaLL 

FLUSH *N22' DISPLAY, IF ON. I OMIT 

C254e 

REF 

7 

last 

765 

26,2421 

2C 71 o 

» 

r 

- 

CAOR 

CL t aND^P 

DISPLAY DURING 'STAKTENT* PASS.) 

255 

REF 

81 

last 

790 

2u t 2422 

0 54.2 

1 

pe3, 1 

Tl 

PHA j>CHNG 


256 





26,2423 

^ C . 4 



UCT 

y i 4 

UISA3LE, DISPLAY RESrARlED VIA ENTRY, 

:257 

REF 

til 

last 

79b 

Zb,2^Zk 

C 5205 

V 


TC 

tNOCF JOii 


L26C 





26,2425 

'j4 77 

• « 

*r“ 

V iuN6 i 

VN 

1663 

- - - - “ - ' 

r261 





26,2426 

01 Sue- 

1 

, * 

Vij6N64 

VN 

664 


.261 

REF 

1 



26,2427 

^ 520C9 

"' * 

«k 

entcaor 

CAuR 

ST AivTfcNT 



u/ip: ASSEMBLE REVISION 072 Cf A^t PROGRAM ARTEMIS dY NASA 2u21114~'ill 


USA: EEB. 26,1971 MENELAUS. >61 PAGE 


- - 

P61-P67 

- 


- 


0263 

K t F 6 LAST 3 J 5 

E7,1451 

t3ANK== 

RTiNi r 

TO 

C26A 

REF 1 

26,243C 03404 1 

P0S6CAUR 2CAUR 

CM/POSE 


‘ 26A 

REF 1 

26,2431 76U67 i 





USER'S PAGE NO, 


3 


66 S3 


TO CARY OVER INTO ENTRY STEtKING* 


-M- 


799 




u AP 


ASSEMBLc KtViSION ■ /Z OF 


GRAM ARThMiS BY .^JA SA 2: 2lllA- II 


11:4 , FF6. 26,1971 MbMEL AUS . 61 PAOb B 


F61-P67 


USER'S PAGE UO. 


E6 S3 


Pv 265 

PRUGKAM- 


Kl266 

KLD NO,- 


R \ 267 

MCD BY- 



R ' 260 ' >!CO'~nD': I 
K '26‘j1 PCD no: 3 
KF27r FLNCTION- 


Rv 272 
K '274 
K ' 276 


“—R'cir^ 


Rf23F 


R‘.281 


Rv2d3 

calling SEQUENCE- 

Rd'284 

EXIT- 

RV2B5 

SLBROUTINE CALLS- 


P64 _ 

1 SEPT. 19, 1967 

R. HIRSCHKQP 

i^uS BY: KR dAI Rfj SFA fHER ' ' OATt: 6 MAY 60 REVISED COMMENTS FOR "CtlLOSSUS 

HGU by: RR dAIRNS FATHER DATE: 1 MAR *69 i\74 

1. TO START entry GUIDANCE AT ^OdG SELECT ING RoLL ATTITUOEt CONSTANT DRAG LEVEL, AND 
crab threshold, KA , NHICH ARE KEYtD TU THE i>S PLiNTo 

2. SELECT FINAL PHASE Pb7 IF V < 2 ?jj FPS WHEN ^26 QCCURS.. 

3o ITERATE FOR UP-CaNTROL SOLUTION P6S IF V > 27006 FPS AND IF ALTITUDE RATE AND DRAG 
LEVEL tONDlTTUNS ARE SATISFIED, ENTtR P6S' WHEN CONSTANT DRAG CONTROLLER HAS SRoUGfIT T<ANGE 
AS PKEUCTED Tb wITFlN 25 NM OF DESIRED RANGE. 

4. SELECT FINAL PHA^E P67 IF NO UP^OUNTRCL SOLUT ION “EX‘I ST S W IT H VL > ' 1 3TUC FPS, 

BY RTB FROM REENTRY CONTROL 
BACK. To REENTRY CONTROL 
NEWHODEX 


267 KEF 1 26,200C 

266 26,2432 


S c T L GO P o j S 1 
BANK 


R' 235 THIS DISPLAY iS CALLED EACH PASS THROUGH STEERING. RESTART 


i 291 

REF 

i 






CGUN T 

$i/P64 

C292 

REF 

7 

LAST 

793 

26,2432 

•J ^344 

1 P o4 

To 

N£i«jMQD£X 

;.293 





26,2433 

UClO'J 

l- 

rirt 

t4 

(294 

REF 

1 



26 ,2434 

3 24^7 

u 

CA 

V .6N74 

a : 29 5 










•:296 

REF 

3 

LAST 

798 

26, 4i;43 5 

55*122 

v’- 

rs 

6 1 Y V >i 

<297 

REF 

8 

LAST 

777 

26,2436 

Q 6 ^3 u 

1 

TC 

CANZIG 


C208 ” 26,2437 -1512 


PROTECT IDN IS VIA STEERING. 


ENTER VIA RTb wHEN .(50 IS EXCEEDED 
ROLLC VI D 

XXX', xx“ dE75 xxxxx^ fP3 Xxx, xX G 

DISPLAY VIA QVERNOUT, 

AND CONTINUE IN IMTRULL ... 


V woN / 4 


VN 


•; 6 74 


T 


ASSEK6LL REVISION li 


AbC PROGRAM ARTEMIS BY NASA 2 


li!4' FEB* 26,1971 MENELAOS bl PAGE 8-1 


P61-P67 


USER'S PAGE NO 


I'.. 


E6 S3 


PE 29^ 
KA3l • 

REii-2 


program: 

MCD NO: J 
PUNCH ON : 


F;v3^'4 


P65 

MOD BY: RR BAIkNSFATHEk OaTE: 17 BAN 6B COLUSSOS GSOP ADuIT 

TO CONTINUE ENTRY GUIJANCE, U^ING THE JP-EC!>iTROL PHASE TO STEER TO A CDNTRGLLEU EXIT 
CONDTT TUTT; n'lTI 5“PTIA‘5rE TrRI*irHATES" A) 'w7 FFSSr^'GCrTCn’BTr' , 


R13.6 
k '€. 30 8 
RC30Q 
RCOIC 
Rt3il 

CALLING ScOUcNCE: 
EXIT: 

SUBROUTINE CALLS: 

BY RTb FROM REENTRY CONTROL 
BACK TO REtNTKY CONTROL, OR 
NEW NOD EX 

IF KUO 1 

TO ENOuFJUB. 

v3i2 

REF 

1 






COUNT^i* 

$$/P65 

S.313 

REF 

8 

LAST 

3^ . 

26 , 244 G 

u 5344 

1 P65 

TC 

NEWMGDtX 

9314 





26 f 244 1 

O^Tvl 

1 

MM 

65 

-315 

REE 


LAST 

797 

26,2442 

3 5hJ^2 

0 

CA 

PRl0i3 

1316 

REF 

16 

LAST 

197 

26,2443 

0 5l2i 

>J 

TC 


:’3i7 

REF 

4 

LAST 

800 

1122 



E3ANK= 

ENTRYVN 

318 

REF 

2 

L A bT 

234 

26,2444 

G245o 

1 

2CADR 

P66. 1 

’ 318 


. _ — 



26,2445* 

54C62 

1 “ 



0319 

REF 

29 

LAST 

738 

26,2446 

G 5362 

0 

rc 

ZPHiChNG 


li » IF ROUT NLG, AND IF V < VL +5* FPS, GO TO P67^ 


r; 


'I 


Ek VIA RTB WHEN RANbE < 25 N M OF 
TARGET. 


— 7 


■JZr 

321 


ToVZWr 0o55'4~C 


2b, 2 45 C 


iUU35 0 


“HOT 
OCT 


' k 


T3212 

F3214 

C322 

i’323 

REF 

REF 

REF 

1 

Iw 

201 

LAST 

LAST 

74C 

795 

Cl, 2223 
Ji ,225'. 
26 , 245 1 
Zb ,2452 

— r32 4 ' 

■REF" 

2 

LAST 

IZZ" 

2b ,2453 

0325 

REF 

1 



26,2454 

4 326 

KEF 

1 



26,2455 

AG3Z7 





— 

C328 

REF 

58 

L AST 

769 

26,2456 

— 

REF' 

2~ 

1_ AS T 

”796 

26,245 / 

A03291 






v33C’ 

REF 

1 



26,2460 

331 

REF 

ZiA 

last 

796 

26 f Z46i 

^y332 

REF 

4 

LAST 

632 

26,2462 

C333 





26 f 2*i^63 

17334 





24(j4 

1.335 





26, 2465 

’336 

REF 

2 

LAST 

776 

2b, 2466 

AC337 






C338 

REF 

bJ 

LAST 

796 

26, Z**61 

C339 

REF 

3 

LAST 

b 1 

26,247^ 

”ST33'^1“ 






■l34 

REF 

2 

LAST 

797 

2 b t 24 7 1 

A C34 1 















6006 1 
47131 1 
T3'6'4"6"0 


APSSSPTl = 
5P3SPT3 = 

TC 

sSP 


i l j3t 5 
4. 55SP0T 
5.3SPOT 
iNTPREV 
RTa 
GCT u 


2 PHASE CHG REQOIRED TO 

3TARI1NG FLASHING Cl 

4.55 SPOT AND SERVICER, 


PREVENT RE 

■cf; — 

HEREc 


rHAITtlE ENIRY HUlJE 10 UPCONTRC 


rl 


53034 1 


5 


UPCuNl RE 
RtFAZEi . 


GO HERE TC REESTA&LISH ENTRY SEQUENCER* 
AND CONTINUE AT UPCONTl<L**„ 


Fo5» 1 


WTT4 T 


To OCWNFLAG 

"AUITES" HTTRYuST' 


ENTRY 0SP =^-ZD ?TTT;3~Fr’AG“ T 


3 247 
0 4636 
21101 
0 246 

TT 




0 246t 
G 2244 


1 

u 

1 

1 

A 

1 

1 


!:VHJ4 1 


2422 i 


C A 

TC 

CADR 

1 C 

V 16h 69 
c ANKC mL L 
GCFL AbHR 
-i 

ROLLC DL (07) VL 

XXX# XX DEG XXXoXX G XXXXX# FPS 

NOUUFLAG IS SEToo 

TO 

+3 


TC 

-5 


TC 

P61 3 

ESI-. GRP 4 FOR DSPLAY AND DU ENDUFJOG 
IF PROCEED, CUNTlNUtv 

TC 

UPFoAb 


AURES 

ENTKYUSP 

LNTRYOSP = 92D 61113 FL.VG 6 

TC 

1 

DISABLE GRP 4, start UP ENTRY DISPLAY 

N '6V66 VIA CVERNOUT, AS USED IN P64. 


J 
2 ♦ 












' •: '* ■ .'V " 

•t - V- . -f * . : • - 


o ->■ .r 




-TPf' 


,* ' . I f r 


t 4 


')*• 


i - 





f-/*’ 





• -» » 


L t _RJ:VJ^im._ar^_QE J^&C PRg&RArt^^^^^^ BY NA6A 2 li 


iX:4«J F£Bo 26tl97i MEfjELAUSaQ61 PAGE 802 




P6i-P67 




Z6|2472 1 Vlt>N6V 





T 

■>, 


■L 


VN 



r . 


4 - 


J ‘ » 


1669 


UStft'S PAGE NO* 11 


E6 


S3 




. r» 


V '; V , •’h 

k ! t ^ , , , 



i • 1 


< 




■P 4 


- /- 

^ -1 > 


A * - 




V.« 




iJ — I — W-l f— ^ il^nr -r 

-.1 


f 



.♦ ^ “ 


12 ^- . 


n 






19 





.r 

. ' ■• 4 

• y- 



1 


V 




Tf 






1 M I I « 








4 






i 



» 




« 


» - ^ 



7 


4 





iMika 







I I 




4 7 



I* 

1 


if* 






«' 


•6 


4 

3 

1 




i-^ 




■P > 



o 






'ST' 
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G ^ P : AS S EM BL E R EV I S 12 . OF AuC PRUSRAM ARl'fcHIS B Y NaSA 2 21 1 1 4-^^ jU_ 


L P61-P67 


USER'S PAGE NUo 12 E6 S3 


P'.343 
R^.344 
'< ' 3 4 o 
R ' 34 8 
RC349 
R 

R '3 5 1 
R 352 


PROGRAM: Po6 

MCD ND: j t^DD BY: RR BAIRN ^FATHER OATE: 1/ JmN od COLOSSUS GSOP ADO IT IONS.. 

function: keep cm ATTITUDE IN TRIM TU THE RcLATlVc VELOCITY VECTOR, ENTRY GUIDANCE STOPS GENERATING 

RULL UTJHMAN0S*13iSrnir DR AG BUI LDS'UP TO ar+BT5~FFSS; ^ 

CALLING SEQUENCE: VIA RIB FROM REENTRY CONTROL,, ‘ 

exit: back TO REENTRY CCNTROL. 

SUBROUTlNt CALLS: f-FEWHODEX 


C“353 

REF 

1 







C00f>iT=» 

1$/Po6 

354 

C355 

REF 

9 

LAST 

B/i 

26i 2‘+73 
26 f 2474 

u 

B344 

1 PG6 

1 

TC 

MM 

NEWHUOcX 

66 

C356 

REF 

5 

LAST 

79g 

2Gf 2475 

3 

5025 


Lp a 

V tjN22 

— S'rT57 

^358 

Ar35« 

AC36^ 

A' 361 

KEF 

i 


■p 

— i 

t 

1 

26f 2476 

0 

25 j2 

1 

Tw 

F6o END 


ENTER VIA RTB WHEN D < Q7 FPSS 


CGA IGA MGA 

■XX5TrXX OEG ■ 'XXXe XT ■D'E'G XTTTnCTnJEG 

IN CASE CAME FROM P65 » GO DISABLE GRP4f 

AND SET ENTRYDSP TO DO DISPLAY VIA 

OVERNOOT* 

.»• AND CONTINUE AT KEP2 


* 


A>i * ♦ 

r* i « 


A $S£HbL £ H£VIS1 


(I C F Av^C PKUc »KAM ah TEHIS BY . WAiiA 


iJ FEBo 26fl971 MLNFLAU^aC6X PAGE a'''4 


F61-P67 


USER'S PAGE hL 


13 


E6 S3 


Pi 362 P67 


Rt J 63 P HLGR Art- 

Rr3ti4 PCD NO,- 

R 365 MCO bY- 

R'-366 PUNCTION- 

R' 363 CALLING SEQUENCE- 

Ki3o9 £)(1T- 

ii . 376 SLBRQUT IN E CALLS- 


P67 _ 

MAR* 16 » 1967 
K, hlRSCHKOP 

TO TtKMINATE ^TEEKlNo WHEW THE CM VELa^lTY WRT EAkTH = l6_ FT/ShC 

TC PUQH 
GCFLASh 



K 37 l 



THIS 

DISPLAY 

IS CALLED EACH 

PASS THROUGH 

1 SfEERlRGo RESTART 

PRUTtCTION IS VIA STEERING. 



<.373 

REF 

1 







COUNT* 

1$/P67 




'■ 374 

REF 

1 . 

LAST 

803 

26*2477 

W 5344 

1 

P67 

TC 

NEWMODEX 

ENTER VIA RTB 



3 73 





26»25uC 

Of: iJ3 

W' 


w w 

67 




‘376 

REF 

1 



4^ 6 f ^ 5 w X 

3 2510 

1 


Cr A 

Vvi 6i4t>Nj 

RCLLC XftNGEKR “ (^RNGERR 



A ' 377 











XXX.XX DEG XXXXoX NM XXXX^X NM 

1 


C3 76 

REF 

i> 

LAST 

8(/l 

26,2502 

55* 122 

L 

P 66 END 

TS 

entkyvw 

DISPLAY VIA dVERNUUT. 

V 


f 3 79 

REF 

64 

LAST 

30 1 

26,2503 

Li 5547 

1 


TC 

CPF LAG 

(IN CASE CAKE FROM P65« ENTRY DISPLAY 



r3 8! 

REF 

4 

LAST 

a.ji 

26f 

UC 134 

1 


AOHES 

EM kYU^P 

WILL FLUSH FLASHING DISP. IF STILL ON) 



AC 300 2 











81 T 13 FLAG 6 



C381 

REF 

82 

last 

798 

26 , 25 .iS 

0 54J2 

1 

KiLLGRP4 

TC 

PHASCHmG 

DISABLE GRP4, IN CASE CAME FROM HUNTEST, 



6362 





26,2506 

0Ot!J4 

0 


jc r 

0. 4 

(COME TO KILLbRP4 VIA RT3,RtT TO CALLER) 

















0383 

K t F 

9 

LAST 

8 ■ 6 

26,2507 

5 6.-'J6' 

1 


fC 

DAN21G 

AND CONTINUE AT PREDICTS 



364 



- 


26 f ^6XC 

w 15.2 

1 

Vv6No6 

VN 

. 666 


r 


f386 

REF 

1 


- -- 

2 6 1 26 V/ 




T LOG 

P6 , S2 

- 



i387 





26 f 26i 1 




B Ar^ K 





.3873 

REF 

2 

LAST 

864 TO 

804: 

1- 

liJ ^ 


C uUNT ^ 

$$/Po7 




C3b8 

REF 

1 



26, 2511 

3 2 544 

0 

P67.i 

CA 

Vloi^67 

RIUGU LAT LONG 



A 0389 











XXXXOX NH XXX, XX OLG XXX, XX DEG 


t 

V39< 

HEF 

201 

LAST 

801 

26,2512 

0 4636 

if 


TC 

EANKC/XLL 




> 391 

REF 

24 

LAST 

796 

26, 2513 

20 743 

V 


CADR 

GQF L ASH 



30^ 

» m,- 

^ .392 





26,2514 

L ^ 2 5^ i 7 



rc 

+ 3 

EPFtCTTlVt GDTOFuQH 



0- 0 3^3 





26,2513 

C 2517 

ij 


TC 

+2 




< 394 

REF 

2 

LAST 

234“ 

26,2516 

0 2511 



TC 

Po? i 1 

REDO 

1 


V.395 

- 




26f 2317 

6 C"./4 

- 


INHlNf 


■ 



i 3^35 

REF 

i 



26, 2526 

3 4767 

r , 

k • 


CA 

1 



7 

.396 

REF 

1 



26,2521 

6 47 70 

ij 


AD 

GYMDlbn 




\ 3 S 6 5 





26,2522 

4 CCOO 



CUM 





0397 

R £F 

1 



26,2523 

7 0102 

* 


KrtSR 

CM/FLAl»S 

Cy/DSi8Y f GAMk^IFSW 



C39 8 

REF 


LAST 

6 ;4 

26 ,2.j24 

54 132 

L- 


r s 

Li ^/ F LAb S 



• 

0399 





Z6 f Zt>2 5 

U 00 v3 

1 


fi E L 1 w r 





• • 




xj AP : 
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OF PROGRAM ARTEMIS BY 

NASA 2021114-011 

li:4u FEB, 26fl971 

MENELAUS*l61 

PAGE 

L 

pel- 

P6 7 






USER'S PAGE 

NOa 14 

E6 S3 

C4’ 




L 0006 

I 

cXlEND 




(, At;' i 

REE 

1 


3 26AA 

0“ 

OLA 

StHVCAuS 




CA':'2 

REF 

11 LAST 791> 

26 1 253': 

53*C62 

0 

JXCH 

AVtGEXi T 




r A'0 3 

REF 

50 LAST 795 

Z6 f 1 

1 4103 

0__ 

TCF 

GOTOPOUh 














* w 


L> Ain 

ASSEMBLt kevisiON 

072 

OF AoC PRO 

GRAM ARTEMIS BY NASA 2^ 21114-^11 

li:40 FE6, 26,1971 

MENELAUSo: 61 

PAGE &[ 6 

L 

P6i- 

P6 7 









USER*S PAGE 

MO* 15 

M S3 






2o,2532 

43175 

'sj 

P67 2 

YLOAU 

LLEAR 

CALC PRESENT LAI 

, LONG, ALT. 


; 

REF 

11 

LAST 

793 

26,2533 

vl030 

1 

u 



KN 



% 

H 6 

HEF 

s» 

LAST 

745 

26, 2534 

GC6o2 

0 



ERAGFLAG 

USE PAD RAD FUR 

ALT. (NUT SEEN 

ANYWAY) 

"4 7 

REF 

14 

L A ST 

T€3 

26,2535 

' 1 6152" 



sTODL 

alphav 




’ ti 

REF 

12 

LAST 

793 

Zo t 

oi 344 

1 . 



P I P 1 1 Mt 

USE TIME OF RN 



v4<J9 





26,2537 

^5 ,2 i ^ 

0 


CLEAR 

CAcL 




04 1C 

REF 

17 

LAST 

745 

26, 254f 

G1663 

0 



LONAFLAG 



1 

A , 

1 . 

04 il 

REF 

/ 

LAST 

763 

26, 254 1 

26453 

1 



LAT-LUNG 

— - 



' 412 





26,2542 

77634 

0 

P67o3 

RTB 


ENTRY EXIT THAT 

OMITS DISPLAY. 


413 

REF 

1 



26,2543 

■ i?36c 7 

IJ 



VHUUT 




-414 





26,2544 

0416 3 

1 

Vi6N6/ 

VN 

16o7 

- 


---------- 

415 





26,2545 

00 3 ^ i 

1 

CLT41 

□CT 

41 




i 416 

REF 

1 



Zof Zb^3 



SEHVCAD2 


SER rfCAU 1 





2 . 


GmP: 

L 

Pv ^17 

K' 4i2 . 

■ R : 42 2 
'<♦24 
R<’425 
<42 7 
RC429 
R'.4Gi 
■'1?T4 J? 
R-'434 

♦!. 4 J» 6 

R L-<*ie 
R' 

R t 4 m 1 

R .'442 
R< 4m3 

R V.444 

~Rr445" 

1<(447 
R0448 
R0449 
Rt'45u 
K’:431 
■~RT^f5Z' 
R1453 
R C 45 5 
H ^457 
RC:459 
R< 461 

R^ 464 
R"’46o 

. 467 
i 469 



'471 

L472 
: 473 
"v 4T4 
(47 5 
C 476 

( 4 77 




IIL^ I6I0N 6 72 OF AbC PROGRAM ART fcMlG BY NASA .2v2i 1 14-,-_ii 


1 1^4^ F £6, 26,1971 M£N£LAU 5^ ^6 1 PAGE 8 >7 


P61-P67 


USER'S PAGE MO« 16 E6 S3 


SLdRULIlNc NAKEi :>6it> 1 . _ 

PCD NO: } CATt: 21 Ffc3 67 

MCO bY: Rft BAlKNSfATHEK LOG SECTION: P61-P67 

MCO FfO: 1 ■ “ — TTUD' 3ry~iRR'"3'Al RliSFATHER —ITATt: ~2Z~T31M 6T”“ RbSUKTSc 

FUNCTIUNAL OESCRIPTIGN: CALLEJ BY BCTH P61 AND P62 

TlRSr,TEST TO SLt IF AVEkAGFG IS ON^, IF NOT, UPUATE THE STATE VECTOR TO PRESENT TIME + TOLERANCE 

ANU TURN UN AVhkAGEG AT THAT TIMt, AND CONTlOUc. UTHtRWISE CONTINUE: SEE IP I MU Y AXIS IS 

wiTHIN 3-. DEG OF V^R. IF YtS , EXIT SUBROUTINE Sol. IE IF NO, SEE IF -Y AXIS OF IHU IS WITHIN 

ir. DEG OF VTR, if YES, DISPLAY ALARM: ^142/ IMU REVtKSEDu 

-£ p 1^07'- U 1 S H L AY'“A01CMT~ ' G 14 Z6 IMErOTTSA U SEAL I URYS^^ 

IN EITHER OF THtSE LAoT 2 CASES, HAI I i - SEC AND THEN EXIT SUeRGUriNE Sul.l« 

REMARK: THERE RILL BE A SHORT L<; SEC DELAY IF An ALARM EXIT IS TAKEN. THE DELAY FOR INTEGRATION IS 

AS SHORT AS CAN BE MADE, BUT IS ARBITRARY SINCE IT DEPENDS ON THE AGE OF THE STATE VECTOR. 


CALLING ScQUENCE: CALL 

3 61.1 

CtMPACJ UNSPECIFIED 
PUSHLOC UNSPECIFIED 


SUBROUTINES CALLED: LOAUTIME, CSMPKEC, TPaGREE, 
^ -jXIH5UEFP"r“JTWAKF 


, Pk 'E RF ArrAL7lHKr~CUCSPir,~TiAi^^ ITELTTrJOB 


NORMAL EXIT MOOES: RVC 

ALARMS: 01426 IMU UNSATISFACTORY 


OUTPUT : 
ERASABLE 


01427 iMU REVERSED 

POSSIBLE ALARMS 

POSSIBLY TDECl, RATT, VATT , RN, VN 
TRi riTarTZTmON RFCUTTfFin 


AVEGFLAG 

PIPT IME (-281 CS 
RN (-29 J M 

VN (-7) M/CS 

REFSMMaT t-ll 


AVERAGEG ON UR OFF 
TIME OF PIPa update 
STATE VECTOR 
STATE VECTOR 
o5 REF TC SM MATRIX 


D'EBRl S: — OFKET 

PuSSIBLY PiPTlMEl, RATT, VATT, TUECl, KM, 
PUSH LIST LOGS USED BY CSMPRtC 


VM, CTEMP, Xi 


LEFT BY SERVICER 
LEFT BY REACACC5 
LEFT BY AVERAGEG 
LEFT BY AVERAGEG 
LEFT BY LAST IMU ALIGNMENT 


IF updated 


REF 

REF 

IS 

1 

LAST 

797 

£6 , 166 1 
26, 20iN i 



h3ANK= 
SE { L Lo 

^ G B 

P6l 

^ 0 f< 6 4 

GhNHfcT 1 ii61DT 





~27>72547S“ 



B aTJ K 




REF 

1 






oJUNT* 

$$/oSi 1 



REF 

2 

LAST 

119 

26 . 2546 

26.2547 

u 0306 
23' 773 

1 

S6l. 1 tXTcND 

u XL H 

6 .GtNKE T 

SAVL 

RET ADDf^ IN 

T?EF'^J2 
REF B 
REF 2C2 

“OfST SC 4' 

LAST 743 

last a.i 

— 26;255.:~ 

26. 255 1 

26.2552 

G 4^6 i o 
375 i 

6l. ’^6 

♦ 

i 

1 

- TIT ■ 

CADR 

TC 

EATiKCAL L 

F- 2 BOTH 

IMPRET 





- - 


26, ^>53 

4 ^ ’ r i 4 

i j 

BUN 

CALKB 




V ^ P • . -A5.SkHBL -7^ OF AGL P ROGKAM AK TfcWlS BY I^a S a A 21 iA4- l.i 


L 

E61- 

Po7 






- 

C47« 

REF 

2 

LAST 

5iir 

26 f 2554 

- 716 1 


AVEGFLAG 

.A 79 

REF 

1 



26 f 255 5 

54605 0 


S6i., lA 

‘'A' 

ro 

REF 

2 

LAST 

743 

26f 2556 

27566 i 


Rlj IUAV2 

cAai 

REF 

276 

LAST 

787 

26,2557 

J v. 1 3 3 J 

CA 

MPAC +i 

' Aa2 

REF 

3 

LAST 

234 

26, 2S6L 

55*774 0 

TS 

So ID I 

f A83 

REF 

21 

LAST 

71.. 

26 , 256 1 

L 5233 L 

TC 

hAi TLI 

* 984 

REF 

9 

LAST 

698 

£7,1425 


E8ANK= 

lVTUT al 

C435 

REF 

2 

L AST 

234 

26 , 2562 

-2567 1 

2CA0R 

S6is> iC 

C48 3 





26 , 2563 

54jo7 1 



0486 

REF 

63 

LAST 

804 

26,2564 

L 5 4'j 2 1 

TC 

PHA^ CHit G 

C487 





26, 2565 

4C434 0 

OCT 

404 J 4 

(.48 7 5 

REF 

1 



'.1,2204 


4P43SPri = 

4 i 43SFiJT 

<.488 

REF 

82 

LAST 

798 

26,2566 

u 5205 0 

TC 

ENDGF JOB 

-.'48 9 

“r¥f” 

6 

LAST 

80 1 

26, 256 7 

3 5j52 C 

S6i.,iL CA 

PRIUli 

f 49E 

REF 

33 

LAST 

761 

26,2570 

V 5135 0 

TC 

FINLVAC 

’w49 1 

REF 

16 

Last 

8.7 

E6, 1661 


£bANK= 

4CG 

C492 

REF 

2 

LAST 

234 

26,2571 

j 2 6 J 4 X 

aCADK 

561. lA-1 

f492 





26,2572 

54066 U 



C4C3 





26,2573 

0 00C6 1 

extend 


C494 

REF 

2 

LAST 

806 

25 1 237 4 

3 2644 L 

OCA 

SEKVCADl 

>'49 5 

REF 

12 

LAST 

805 

26,2575 

53 •162 C 

OXCH 

aV tGEXl T 

0496 

REF 


LAST 

80 1 

26 1 237 6 

0 5 3 2 

TC 

2PHSCHNG 

C497 





26,2377 

0C454 1 

UCT 

454 

V.4S8 





26, 260 C 

CGI ?5 1 

□Cl 

175 

C498C2 

REF 

i 



^ 1 fTAC T' 


"?F45SPTi = 

4 . ■hoSPUT 

(49 8*' 4 

REF 

1 



Ul,2272 


5Pi7SPTl = 

3 17 SPuT 

049 3 i 

REF 

12 

LAST 

786 

2 6 1 26C 1 

4# 46 u 6 c 

TC 

t 7 6 t r 1 t r ' 

t499 

REF 

47 

LAST 

796 

26, 26c 2 

U 4655 0 

TC 

POST JUMP 


REF 

3 

LAST 

7 1 j 0 

2 6 f 2 6 ^ 3 

7 66^ 7 1 

CAOR 

PREREAD 

0 5 C 1 

REF 

2-3 

LAST 

60 7 

26,2604 

- 6c - 6 1 

S61»iA-l TC 

I !\ IP RET 

<: 5 . 2 





26,20-5 

772u4 1 

S61,1A 80V3 

VLOAD 

r50 3 

REF 


LAST 

30 5 

2 6 f 2 o V 6 

57544 - 


1 CD Aiiil2 1 G 

1 50 A 

REF 

li 

LAST 

793 

2o t 2o%^ 7 




0 5 " 5 





26,2610^ 

64235 1 

vxv 

RXV 

c 5o ' h 

REF 

12 

LAST 

6 

26 f 26 Jl 1 

J i Vi J ^ L 


iIa 

' 5 1 7 

REF 

41 

LAST 

7u2 

2 6 1 2 6 T 2 

.1734 V 


RcF SMHaT 

( S'- L’^ 





26,2613 

71256 V 

u \ 1 r 

DlOAD 

' 3 ^ 

REF 

277 

LAST 

808 

26, 2614 

J 1 vJ J 


PPaC +0 

051' 





26,2615 

4324 J u 

8 MN 

LAO 

<*511 

REF 

1 



26 f 26 i 6 

54623 1 


Sol .18 

"512 

BEF 

1 



t 2uj X T 

14646 vJ 


C 1 3 J L X /'i 

513 





26 f 262L 

- 

3 L V >3 

RTo 

‘514 

REF 

1 

— 


26, 262 1 

54642 L- 


Rt T rla^l 

'-515 

REF 

i 



26, 2622 

5462 7 L‘ 


1 


ll :4~ FEb, 26>1971 MbN£LAU5.f/61 PAGfc SOd 

USHR*S PAGE NQo 17 E6 S3 

IS AVER AG EG ON 
YES 

GtT FUTURE STATE VECTOR SOON AS CAN 


RETURN INHINTEO 
FOR RESTARTo 


HE WH O ST ART S A V ER AOE G HU^T SERV 
THE EX1T« 


PREKEAU DUES TC TASKOVER. 


TURN OFF OVFINO, IF ON 
VN 1-7) M/CS 

■ RN (-29) ft 
o3 UNIT KAlKlX 

GET CUSIThri a)/2 

DO TEST ON -YSM 

= 1., -.T^rasTin ““ 



ASStMBLt RtViSIuN 

12 

OF AoC PROGRAM ARl EH 

IS BY NASA 2 : 21 11 4- .il 

1154" ^EB* 26flS71 

MENELAU$o-61 page 809 

L 

Ptl-P6? 









USER'S PAGE 

NOo 18 E6 S3 

t>iO 




26, 2623 

43276 

0 

S61*18 

OCOMP 

DAO 



: 1 7 

kef 2 

last 

868 

26,2624 

1464 b 

0 



l{ 3 >L1 M 

== l.i - o5 CaSi3^ 

) 

.bLB 




26,2625 

77404 

1 


BOVB 

EXIT 



75X9 

REF i 



Z^f~Z626 

— 54*oirz 

1 



RET RRZ 



■ 

KEF 26 

LAST 

7 74 

26 , 262 7 

u 5o71 

1 

ReTHN3 

T 6 

ALARM 



(521 




r 3 ‘U 

t. i'+26 

Q 


□Cl 

.1426 

IMU UNSAT ISFACIQRY 

< 52 2 

REF 2 

LAST 

8C 9 

26,2651 

0 2634 

1 


rc 

BETRNZ 42 



v523 

REF 29 

LAST 

809 

26,2632 

J 5671 

1 

KEIKN2 

1 L 

ALARM 



^524 




Z6 f Zo3 3 

t 1 4Z 7 

1 


UGT 

.1427 

IMU REVERSED 

. _ , - - , — - — 

.525 

REF 5 

LAST 

753 

26 , 2634 

3 5023 


42 

CAF 

v>. jiN'.y 



(52C 

REF 2w3 

LAST 

8 ^*-7 

26,2635 

u 4636 

0 


TC 

EANRCALL 



-527 

REF 4 

LAST 

Too 

26, 2636 

2u71o 

0 


CADR 

GLJbPK 

DO DISPLAY 



RET= 1 



26 , 2o j 1 

5 2647 

u 


tTR 

"T'jSECS' " 



<529 

REF 2v.4 

LAST 

8 9 

26,264': 

o 4636 



TC 

EANKCALL 



■ r530 

REF 15 

LAST 

733 

26,2641 

J17J1 

A.. 


CADR 

CEL AY JOT 



r 53 i 

REF 3 

last 

8C7 

Z6 f 264-2 

6 1773 

6 

RETRNl 

TC " 

6 TGENkET 



C532 

REF lu 

LAST 

8'jB 

E7, 1425 




tBANk== 

DVrUTAL 



C 533 

REF 3 

last 

73 7 

26 , 2o43 

■3143 

1 

SERVt 401 

2CADK 

ScRyEXI T 



.533 




26 , 2644 

76 u6T 

1 






534 




26,2645 

22111 

0 

C{3v 1 LIK 

20tC 

■ 56o985 

= l»w -^5 CUSi i 

) 

>534 


- 


26,2646 

17335 

1 






>.535 




26 ,264 7 

0175c 

1 

1 u S t: C S 

DEC 

iua9 

iv.;, cs 


^336 




— 26',255T 

mULFl 

T" 

f 

213^1: 

" 6C0U~Ef-'ZB~ 

CS 


(536 




2o f 265 1 

1336C 

0 







4 ^ 
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L 
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72 LF A 6 C PROGRAM AKT EM 1 6 BY GASA 2 2 ili^- li 


l l; 4 . FEB, 26 > 197 i MENELAUS^-bl PAGE 81 , 


U 6 ER*S PAGE NO 


19 


E6 S3 


Tr:55T 

RC 53:5 
R*' 555 
Rv :557 
Ri 559 
Rt 5 o 


R V 56 1 
R 562 
R^SbS 


P’ 53 7 

K <.53 8 

PROGRAM 

NAME: 

S 6 i ^2 







DAVE: 

14 FEB 67 

— - - - 

Rt 540 

MCD NO: 

i 








LOG SECTION: 

P 61 -P 67 


R 5 A 2 

MCD by: 

MUKTH / 

BAIRNSFATHER 









K v 543 

MCD no: 

2 

HOQ 

BY: 

MGRTH/ BA IRNSFAf HER 

DATE: 

li 

MAY 

67 

ADD 2 ND ITER 

FOR ERAD AT 4 ; 

K FT, 

H '545 

MCD NO: 

3 

MOD 

BY : 

RR BAIRNSFATHER 

DATE: 

21 

NOV 

o 7 

VAPIaBLE MU 

AQDEOo 


K ' 54 7 

MCD NO: 

'4 

MUD 

BY: 

RR BAiftNSFATHER 

date: 

21 

MAR 

68 

DIFFERENT EARTH/MUDN SCALES 

IN TFF' 

549 

FUNCTIONAL DESCRIPTION: 


CALLED BY P 6 i. PROVIDES DISPLAYS FOR 

NOUNS N 6 : AND 

NG 3 , 



?kl>G RaM’TT^L CU L at fc' 5 " EMTRTn^T^CAV OF HAXIHliM ACTTECER Al 1 b>r IJ? ECTED 
INERTIAL VELOCIIY {VPkED) AND ENTRY ANGLE IGAMRA.i! 

ELLIPSOID, 


{ GHTi'X I ^ 

THAT RILL OBTAIN AT 4 
PROGRAM ALSO GALCULATES A SECOND DISPLAY HELATlVc TO THE LMSALT 


CALLING 


AND CONSISTS OF RANGE TO SPLASH FROM NOW IrTGO) 
ijO FROM NOW ITTEJ • 

SEQUENCE: CALL 

S^T72 

CIMPAC) UNSPcCIFIED 
PUSHLLC WILL EE SET TO ZERO, 


■ ALSCT THE 'fXP'ECTTD 

K FT aGuVE the FISCHER 
AbCiVE ■ F I S CHER ELL I PSOl D' 


PRlUICTED iNtKTIAL VELOCITY tVIO) 


AND THE TIME TO 


.564 


Kv 

RC 566 


RL567 
RC56S 
Rr 56 « 
RC570 
Rr571 
ft 1572 


R • 5 7 4 
R .576 
R 57ti 


SUBROUTINES CALLED: 
NORMAL tXIT MODES, 
ALARMS: 


TFFcONIC, CALCTFF, 
RTB P 61 . i 


TFF/TlUG, FISHCALC, GcTERAD, VGAMCALC 


OLTPUT: 


NONE 

THE FOLLOWING REGISTERS ARE WRITTEN IN FUR USE BY DISPLAYS 
GHAX IjV GMAX (-141 G,S MAXIMUM ACCtLERAllQN 

VPRED (-71 M/Cb PREUICTEC VLLUCITY AT 46 , K FT 

GAMHAEI GAMMA/SoO PREDICTED GAMMA AT 4 .' R «"T 

FOR TM, OP(GAMMAEll = IGAMMAEI, RTGO) 
RANGE ' Angle ~T tr SPLASTi’lFKllAreMSALT 
VIO (-71 M/Ci INERTIAL VELOCITY AT EMSaLT 


TTE 


THET AH/36U 
(-71 M/C;> 
(-261 CS 


TIMc 


10 


EHSrtLT 


/ 


36 . 

emsAlT 

E MS AL T 
EMS/.LT 


TS' “PAD 

iS PAD 
IS PAD 


lUAD^ 

LOADED 

Loaded 


RCSur 

RF: 5 Si 

R' 7 r 5^2 
KC 58 a 
R L 5 8 5 
ftt587 
ftC589 
K-591 


R <593 
RL 595 
R 059 7 
R< 599 

H ^ & ! I ^ 

kr 6 ( 1 


CEdKiS 


PUSH LOG - V 

CONIC PARAMETERS STORED IN VAC AREA I SE 
TiaTIAOZATTUirWQLmrElK ^ 

RONE (-291 H STATE VECTOR 

VONE (—71 H/CS state VECTOR 

JRONE UR/2 
UNI (-11 
THET AH THET AH/ 36*. 

( ' 


TFF .iUEKOU ri NE:^ 1 


UNIT NORPAL V+K 

ranoH angle 


1 


t'l 


UNIT POLAR VECtUH 
EMS INTERFACE ALTiTUDc 
0 R 31 TAL REENTRY: 


UNIT W 

EMSALT (-291 

28^4643 r-r, LUNAR 

QPKET, 

ALL POL LUUAIICNS ABOVE i 4 i>j INCLUDING XlfX 2 ,SlrS 2 
ALSO PDL + . PDL+ 5 , WHERE INlflAL PUSHLOU = PuL 


LEFT 
LEFT 
LEFT 
L L H 
LEFT 

i:e f t 

LEFT 

reentry: 


6 Y USER 
BY USER 
BY USER 

bV ENTRY / P 61 
BY ENTRY / P 61 

iv — P 7 r 0 ”ros'o 

BY PAD LOAD 
297431 f-Vr 


b>5P: AbStMB LE Kfc'VlSION n72 CF AbC PKUbRAH A RTdMI S BY iMASA 2^21114- 

L P6l-Pfa7 

P 6- 

THE FCLL Owing PUSH LIST LOCATI ONS HAVE B EEN RESERVED FO R TF 

Rfto(5 OF COURSE FOR S6l*2 USAbfct EAKTH ORIGIN SCALING IS UScOo 

A ‘ bv6 

A. 6' 7 


A 1 6 C 8 
A* 6 9 

A' Gi: 
A <61 1 
A 0612 
Af 613 

A»761S 
A< 616 
A^6i7 
AC616 
A 06 1 9 
ATSZC 


KTERM 

NRTERM - 

HMAG 1 - 

NRMAG 

ISO 
16 J 

120 

32u 

SDElF /2 


CDELF/2 = 

14D 

TFFX 

340 

TFFTEM 

360 

TFFNP 

230 

TFF/RTMU = 

3 U 

rFFV3i[ ^ ■ 

2 li) 


11 


l l;4v F£8, 26,1971 MENELAUSo 61 PAGE 811 


USER'S PAGE NOs 2' _ _E6 S3 

y tines and are repeated here for CUNVENIENCE. 


GE LON 


E: is used fur EAKTH URIGIN SCAL 
M; IS USED FDR MOON ORIGIN SCAL 


TERMINAL RADIUS M 
TERMINAL RADIUS M 

E: 

E: 

1-29) Ml 
1-2 9+ NK) 

{-27j 



(“27+Nk) 


PRESENT RADIUS M 

E: 

1-29! Mi 

(“271 

PRESENT RADIUS M 

F; 

(-29+NRI 



M; (-27+NR) 

SITJTTTiETTn 72 

COS I THETA! /2 


X, ARGUMENT 

OF SERIES 

TIXJ« 



ARG FOR TRANSFER ANGLE CALCULATiOb. 

LC P H e; 

(-38+2NR) 

M : 

1-36+2NRJ 

l/SgkT(MUl 

fc 2 

117) 

rt: 

( 14} 

-ivNrwTTcrr 

l/H T: 

(2 2) 

m: 

O. c> ) 


ujUj 


u AP ; A S> J M e L h_K E /I SI UN Vf I UP A GC PKO ^ j KAM ARTtMIS BY NASA, 1. 1 i 

L P61-P67 


r' OZ I 


'.623 

REF 

2 

LAST 

8C4 

Z 6 1 ZOC 




SET Luc 

P 61 ^ S 2 

62 





26,2652 




BANK 


o2 5 

REF 

1 







(uOUNT* 

iS/Sola 2 

Ac 62 6 











i dll 





26,2652 

45345 

1 

S 6 tc 2 

DLUAO 

DSU 

<6271 

REF 

1 



26 ,2653 

^ j 2 c^ 2 

1 



EMSALT 

C 6272 

REF 

1 



26,2654 

15Cu6 

J 



2 ajKFT 

i>bZ13 





26,2655 

71244 

C 


aPL 

UcUAD 

tb27 4 

REF 

1 



26 f 2656 

55 u w 2 

0 



LONE MI 

'62 3 

REF 

1 



26 f 2b5 7 

31757 




i/RTMU 

* ro 2 dT~ 





25,2166 , 

77624 1 

CALL CON 

CALt 


f 629 

REF 

1 



2 6 ,266 1 

57151 

U 


- 

T FFCUi^ 1 C 

:63< 





26,2662 

45 145 

0 


DLQAD 

CALL 

•’631 

REF 

i 



26, 2o63 

1502'^ 




KTRi AL 

(632 

REF 

'T. 

4L 

LAST 

525 

26,2664 

57261 

u 



CAl-CTFF 

\ ^33 





26t 2665 

77624 

i 


CALL 


(634 

REF 

2 

LAST 

647 

26 tZboo 

57u52 

1 



TFF/TkIG 

i 63 5 




- 

26,2667 

77624 

1 


GALL 


L 636 

REF 

i 



26, 2670 

5 5C 33 

1 



F 1 aH vaLL 

(637 





2o , 267 1 

45015 

1 


DAO 

CALL 

‘‘638 

REF 

2 

LAST 

812 

2 o, 2o7 2 

02u2(i 

1 



EMSAcT 

(639 

REF 

3 

LAST 

812 

26f 2673 

57201 

u 


- 

CALC IFF 

C6391 

hF 

2 

LAST 

124 

20,2674 

03733 

u 


STORE 

IT El 

264 s 





“ 27.72^75' 

“57415 



Dad 

IZCUi^'P 

('641 

REF 

4 

LAST 

793 

26 f 267 6 

I 3o5 1 

1 4 



KM 

AC 64 2 











< 643 

REF 

2 

L AS T 

124 

26 1 26 7 1 

' 3 735 



SI ORE 

TTtZ 

'6431 





Ib-tZlCa 

77615 



DAD 


’6432 

I 

REF 

13 

LAST 

8C6 

26,27G1 

0 1 044 

, * 



PiPTIME 

(^6433 

REF 

6 

LAST 

193 

26, 2Tcir 

'~TrTzr 

i 


0 1 CALL 

I Tc 

> 

A t644 











C 64 5 

REF 

3 

LAST 

812 

26f 2703 

57-. 52 

1 



IFF/ TKiu 

A . 646 











(647 





26, 2 7C 4 

lldZ^ 

1 


CALL 


’ 64& 

REF 

z 

LAST 

312 

2 6f 27c D 

55 .f33 

1 



f ISHC.ALC 

> 649 





2 6 f 2 7 C 6 

7762^ 

1 


CALL 


r 65 '' 

REF 

1 



26,27G7 

11 744 




VKCALC 

’651 





26,271^. 

77624 

1 


CALL 



1 : A ’; FEB . 2 6 ,1 9 f 1 MENh L AUS . ■ : 61 P AU r. 


d i. Z 


USER’S PAwE NOo 21 to SS 


POL LEFT AT ZERO BY TARGETNG 


ESTABLISH MU FOR UPaiTAL ENTRIES 


FILL VAC AREA WITH CONIC PARAMETERS 


1 ST GUESS AT TERMINAL RADIUS (-29J 
SAVES MP AC IN KTERM CldPt 

CALC SDELF/2, COtLF/2 
RETURN WITH SITHETm) IN MPAC 


GET FISCHER RADIUS I-2Q) M 
ANS IN MPAC AND IN ERADHo 


SAVES MPAC IN RTEFM (180t 


USED IN TARGET ULRATIUN tDlSPTARGl 

XTtTT'« ' •* T T E »■ ■ f pro M ' ’ STTS'lE ' 'TTlT'' IM ■'SER'ViraT 

•PiPTIME* FOR STATE VEGTQR 
DNLIST and DSKY V^ILL USE TTl^ 
TTL=PIPT1ME+T 1 i:2=- IT T ci + MM-PlPl IHt) 
OECREMthl 'TfL* FOR DISPLAY AND DOWNLINK 
UNTIL SERVICLK COMES ALONG^ 

"• TTF’^ls 'NEGST IVP ' A$“rNrT:DDTTruTriTFI7 ' 

TTt= TIME FHCM NOW TO EMSALT ♦FISCHER 

StTlli:TAj IN f-;PAC ON RETURNING 

AND rHLTA= HA.\l>E from Nbw TU EMSALT 


wAP: Ai:>EM 6 Lt KcVISION 72 OF AOC PROGRAM AR 1 EMI 6 BY NASA ^ 11 


11:4 t-Ebo ^otX *>71 MENELAUSc 61 PAGE 



P 61 - 

Po? 






6 bl 1 

REF 

1 



26,2711 

11731 

1 

( 1 2 





26,2 712 

77 c >24 

1 

’ 6513 

REF 

2 

LAST 

813 

26,2713 

11731 

1 

'6514 

RTF 


L'AS^T 

293 

' 26 , 2714 -^ 

377 T 7 r 

1 

.652 

REF 

2 

LAST 

647 

26, 2715 


tJ 

•'653 





26 ,2716 

77665 

1 

C 654 








' 655 





26, 2717 

43265 

1 

CoS'S ■ 

t • 

' - -r“ 



26 , 272 C" 

15032 

1 

i 657 





26,2721 

tCOu 1 

1 

. # 

r .65 8 

KEF 

6 

LAST 

293 

26,2722 

17725 

1 


PAGE NOo 22 


h 6 S 3 


UliPTAKG 
CALL ■ 

LISP lAKG 
3 TCALTr~RTGII" ' ™ 

V 'jaMCALC 


JQOV 


DaU 


,> T 00 L V 1 J 


MPAC = GAMMA 
P DL HAS V GAM 


-HS 0 18 G/Pr ~l^T 41 ■ 

VGAM FROM PbL . 

PREDICTED T/ELOCITY AT EMSALTo 


A ::’ 6 S 9 
Ac 66 *- 


GAMMA AHD VGAM AT 3 GrK FT ARE REQUIRED BY GMAK 
ALGORITHM.. 


bul 

REF 

7 

LAST 76 iJ 

.-2240 u 


LkAUi^I 

EARTH RADIUS I ROM GETERAD 

A 1662 







= FISCHER PADIUS 1 - 29 f 

♦. too 3 



26,2724 

77613 . 

UAD 



1664 

REF 

1 

26,2725 

'645 6 - 


3 V^KFT 

M (- 29 ) 

'60 5 

REF 

1 

26 f Z 7 l 6 

34 23 1 

STCALL 

R 1 ERM 

TcRMINAL RADIUS M (- 29 ) 

^666 

REF 

1 

26,2727 

55_51 p 


PREVGArt 

VGAMCALC WITH NEW RTERM 

AC 667 







V 6 AR = (V(FPS) - 36 KF/S) / 

K L 6 6 8 

GMAX 

= 

{'t/Ii+ 4.8 VBARSQ) ) ( GAM - 6.0 5 - 

2,4 VtoAKSQI -1 tL/D -.31 + 1 . 

AifSUME L/D = . 3 , BANK = 

A c 67 ‘ i 





bMAXC AL C 



671 



26 f 273 \ 

45325 1 

POOL 

S ^ J 

GAM TO PDL 2 

1672 



26,2731 

j 


1 

VGAM IS IN POL (- 7 ) 

•'673 

REF 

1 

26 1 2 7 ^ 2 

1501 O 1 


36 KEr/S ' 

(- 7 ) M/CS 

‘ 674 



26,2733 

634 7 X ^ 

DDV 

OSQ 

- 1 “^ ■ # 1 * ' ' ■ ■ — 

^ 675 C - 

TTEF ' 


2 6 , ‘ 2734 “ 

“T 55 I 2 ^~C' 


2 KF l/S 

T”u} TT/L S 

L 676 



26, 2735 

'J-''-"j 31 iJ 

STORE 

- - 

V BARS a (- 2 ) TO PDl 

■677 



26 f 2736 

432 J 5 1 

OMP 

uAJ 


1673 

REF 

1 

26, 2737 

15114 1 


Krll 


AC 679 







GAM, PCS DOWN, FROM P 0 L 2 

<68 



26 , 274 <. ' 

41215 1 

__ 

TJTtP 


C 68 i 

REF 

i 

26,2741 

15-16 1 


iJi-G 


1632 

REF 

1 

26, 2742 

IS.'Z.. 1 


KR 2 


• 633 



26,2743 

77725 1 

POOL 


XCH PUL+l- FUR VBARSg (- 2 ) 

1684 



26 , 2 744 

43271 1 

uJV 

CAO 


r 685 

REF 

i 

26,2745 

15 J 3 .. 0 


KK 4 


' ■ ^6 W 6 ~ ~ 

_ . 

2 

LAST 7 ^r ■ 12 to , 2746 " 

^1771 r 


CP 2 (- 4 » 


• 687 



26 1 274 7 

77665 1 

aoov 



Ai 688 







UUM FROM PDL+ 

t 689 



26 , 275 l 

51 oiD 1 

OAD 

il PL 


C 69 C 

REF 

1 

26,2751 

15022 1 





(- 29 ) M 
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t -J L 





26,2732 

3473^ 1 


3 


< o92 





26,2733 

77743 1 

OLGAO 



o93 

REF 

2J 

LAST 

741 

26,2734 

15336 ^ 


h io2hr< JS 


^ 6 9 4 

REF 

3 

last 

292 

26 ,2735 

17722 0 

STOOL 

Umax 

n. gmax ^r-141 

R * 6 3 

DISPLAY 1 

USES 1 

GMAX AS 

SP, SO LU 

WORO IS 

WRITTEN GVcti SY 

Y pkeg.-. 


C 6 9 6 

REF 

t) 

LAST 

813 

26,2756 

02240 - 

- 

b K A D M 

= FISCHER RADIUS (-29) M 

t697 





26,2757 

45015 1 

DAG 

call 

2 NO ITERATION FOR FISCHER KADI US 

v698 

■r^f 

1 



^6 f 276^. 

l5‘.'26 1 




{.699 

REF 

4 

LAST 

812 

2 6 1 2 7& 1 

572ol i 


CALC TFF 

ESTABLISH TRANSFER ANGLE DATAe 

v7: 





26 f 2 762 

77624 1 

CALL 



< 701 

REF 

4 

LAST 

812 

26,2763 

57 i32 1 


IFF/ TRIG 

GET SIN, CCS PELF 

^ 702 





26,2764 

77624 1 

CALL 



vioi 

REF 

3 

LAST 

812 

26,2765 

55333 1 


i i jHCALC 

GET CORRESPONUING FISCHER RAL’IUS* 

' 7v4 





26f 2766 

73-ji3 1 

GAG 

LXA, 2 

SAVE Hl-WCiRP FOR DCWNLIST, 

^ 7o5 

REF 

2 

LAST 

814 

26,2767 

15326 1 


9 iwK FT 

M (-29) 

C 7C! 6 

REF 

6 

L AST 

813 

26,277v 

3713 1 


r i? u 

(RANGE Angle from EMSALT)/J6 

C 7< ' 7 

REF 

2 

LAST 

8l3 

26,2771 

34.23 1 

STCALL 

RTEKM 


i.708 

REF 

2 

LAST 

813 

26,2772 

55031 L 


PRcVGAM 

VGAMCALC WITH NEW RTEKH 


C 709 

':7iU ft£F 273 LAST 8.-6 

’711 REF 1 LAST 292 

A(712 
AC.713 


26.2773 

26.2774 

26, 2773 


67C76 1 
00133 
17 761 1 


tJCOMP 5XA,2 

I'lPAC +1 
STUoL GAMMAEl 


Hi-WOKD OF EACH ON DOWNLISTo 

CUNIC GAMMA/36 AT 4' K FTo ( HI-WORO) 
CONIC RTGd/36> FROM EMSALT (LU»J-WORa} 
FOR TH, DPtGAMMAt:U= (GAMMA, RTGDJ/36'> 


AC 714 VGAM FROM PDL+ (-7) 


v7I5 





26, 2776 

77626 

1.; 


S 1 mOk 





( 716 

REF 

8 

LAST 

292 

46,4711 

7402C 

c 



STORE 

\l P H £ U 

CONIC VELOCITY AT 4f 

K 

f T 

1717 





26,3UCC 

77o34 

0 


Rid 





“f 7 1 8" ■ 

“irEF~ 

— T~ 



“ 2o ,3o7n" 

“54T07r 

1 



P 6 1 IT 




AC719 










- 

PGL BACK TC ZEROo 



t 7192 





26 f 3 L 2 

52143 

L-‘ 

L UN ENT 

GLOAD 

6u ru 



TYPE ENTRIES 

C7193 

REF 

2 

LAST 

322^ 

2l 6 f 3 J L 3 

t64j 2 

1 



i/nTMUE 

tSTABLISH MU r-UR LUNAR 

’7194 

PEF 

1 



26,3u04 

54660 

u 



CALL CON 




<7195 





26 , 300 5 

’cCGj2: 

r* 

w 

29GKFT 

2DEC 

8839 2.,.^ d-2 9 




C 7195 





26, 300 6 

26244 

1 





t 


<720 





26, 3CU7 

333 j» 5 

1 

36KF f /3 

20EC 

1J9«728 8-7 

(-7) M/CS - 36 KH/S 

-7 ) 

( 72< 





26,3U1C 

.57c 7 

1 






(-7) 

C721 





26 f 3u 1 1 

3636 5 

1 

^ ..KFT /S 

2GtC 

121.92 6-7 

(-6) M/CS = 2 2 KF T/S 

7 721 





26,3ol2 

30-244 

L.. 







C74Z 





26,3013 

~ 77113"^ 

1~ 

"KRi 

2GEC" 

^ o ji. 666665 7 

4 4 /~3^ 



C722 





26,3014 

427 7C 

1 







C723 





26 f 3^- 1 5 

77354 

i- 

—6, 330EG 

2Di.C 

> i6oo 55l>a 

= -6. 5 / 3o 



C723 





26 , J('l 6 

6 5 L '3 

1 







C 724 





26,3017 

2i45t 

o 

KR2 

2GEC 

p549U»lu4i 

-(J6 /4) Is i"i4) = 


9 H-14 

L724 





26,3v.2- 

) vO Jl 





K ■ * - - 
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USER'S PAGE NGo 24 


E6 S3 


i- 7 25 
C725 
A<:72o 



26 1 3u2 1 
26,3022 

0175C 1 
(^OCcji' 1 

KK3 

”C727 

C727 

A f 72 8 
• 729 
r729 



f 302 3^ 
26 f 3o2 ^ 

26 f 302 b 

26 f 3G26 

C C 3 0 5 1 
G4541 0 

00Co3 i 
“27040 T) 

R (Rl AL 

4G^KF T 

R .73 " 

3CvKFT 

20EC 

91440 8-29 

(-29) 

M 

R073i 

fcPSALT 

20EC 

36759# 2 6-29 

28 >643 

FT (-29) 

k«.732 

EMSALT 

2DEC 

90657 3-29 

297431 

FT (-29) 

0733 

C733 



26,3027 
26 , bU3l 

32525 1 
12525 0 

KR4 

300KFT 

VEMSCUN 

C734 

C735 

REF 2 

LAST 

522 23,2455 

26, 303 1 

77777 ' 

C735 

AC736 



26,3032 

760.^1 1 



/□EC 


"ZD^C 


DEC 


iO 


b— 14 


= Ic .. tlv .t ) (-141 


G, S 


ASSUMES L/D = 0»3, BANK. 

c4oZU9T:TEr "B-2'9 — HP AD"12'34'643 ET- =Z1 ‘ 1 94~545 “FT 


HP AO £TEFINED AS 2t ^(I9~901^57 FT =6 373 338 M 
12i92u b-29 METERS 


(URBITAL KE ENTRY) 


(lunar REENIRYI 


2UEC 


o 83333b333 


EQUALS MINPERE 

2DEC - j 3 B9b76 3-14 


= -HS i) ri PI (-14) 


h sy/ CS SQ 


=— 16369 •L'5G 32 j 2 #3043 


3^H8/2 PI 


(-14) 


. AoSfcWBLE RcV IS lON 


72 OF A u C PRO^jRAM A kIlM IS 8Y N aJ, A 2C2ill 4~ 
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USER'S PAGE NOo 25 1*6 S3 


P ' 737 
k 73*’ 
K i. 7A 1 

KTIVI 

K< 744 
Rt746 


StBKUUTiNc NAME; FISHGALU tUSED oY 361^2 i LAI E: >11621,67 

MCD no: J log SECTION: P61-H67 

MCD by; :-10RTH / BAIRNSFATHEH 

P'Ctr"NU:"T~ J^Ou tin — RTT ITa rKNsrffTHTR "DAThV ' ri“HA7”‘6T IWOirr^GETERAO — CTSrr 

FUNCTIONAL DESCRiPTlCN: GIVEN THE PRESENT PUSlTiON. Ui\ITR, CALCULATE A NEW UNITR THAT IS ROTATED THKuUGH 

TRANSFER ANGLE# ThETA, ALONG TRAJECTORY. THEN CALCULATE SlNlLATJ AND USE TO OSTaTN FISCHER KAI'IUS 


Ru74a SINCE FISHCALC OSES UNI tLcFT 3Y ENTRY) tAnTH aCALING I S ASSU^IED. I Wi LL IMPROVE FOP SUIT ABLE TENNANT ) 


Rt75v CALLINo SEQUENCE: CALL 

R(751 FISHCALC 

RC752 ENTER WITH .5 SINITHETA) IN MPAC. 

RL753 PUSHLOC IS AT PUC+v- # AN ARBITRARY BASE VALUE IF LEQ BD 


P : 7j4 

SUBROUTINES CALLED; 

GETERAD 






NCRPAL EXIT "ffoDE : 

WQ 





Kv756 

EXIT 

MOOE 

i i 


NCNE 





K0757 

OUTPUT; 

ERADM 

(-29) 

K IN 

MPAC UN 

RET URi4 1 NG 


R'^'TSd 



NEW UNIT VECTOR NOT 

SAVEO^ 




kC759 



^ INI LAD NOT 

SA V E D « 





R vJ76'-.’ 



PUSHLOC AT PDL+ . 





RC761 

ERAS 

6 Able 

INITIALIZATION RECUIRED: 




R 762 



SDELF/2 

= Sli'i( THETA) /2, 

1 

IN MPAC 


R { 764 



CO EL F/ 2 

=CJS(THE 

TA) 72, 

STORED In PUL 14D 


RL766 



RONE 

(-29 ) 

H 





' RC768 



VdNE ^ 

1-7) 

M/CS 





RC77 



J RON C 

UR/2 






“HTT72 



JNl 


*3 UNI T t V^R) 




R^. 774 



JNlT \fi 


UNIT NORTH POLE 




RC776 

CEBRIS: 

QPRET, 

PL 

L « 

POL+5 




R • 7 1 1 








- 


A 778 










" 't7T9 




26,3033 

4TJr5 

J 

FISHCALC T'DVL 


L 7 8 0 

REF 

3 

uAST 

793 

26f 3 j34 

•.;2334 

i 


L R3i i t: 

G781 

REF 

3 

last 

793 

2d f 3u35 

03502 

</ 


CNl 

T782 





26,3036 

763o 1 

1 

VXSC 

VjLx 

A 1783 










C784 





26 1 303 7 

74315 

C' 

PUVL 

V X sc 

.. 785 

REF 

4 

LAST 

816 

26 , 3u4 

. 2364 

1 


URON P 

-786 

REF 


LAST 

64 ? 

26 f J i 

L L . i 7 

1 


C C t L F / 2 

,737 





2o f 3o42 

4545 5 

1 

Vau 

3 I 

C787 i 

REF 

i 



26, 3'J43 

74235 

l; 

3 r ORE 

uKrl 

G788 





26, UC44 

72441 

1 

DOT 

SLi 

'‘78s 

REF 

7 

LAST 

539 

26 f 3.,45 

01712 

1 


UNI I W 

f 

ref 

15 

L&sr 

8' 6 

2 6 f ^ U 4 6 

>2136 

1 

^ T Ur^ t 

/iLP'HMV +4 

1-il 





26, 3047 

7765U 

i 

CUMPFIjH oUTO 



REF 

2 

L A ST 

635 

2 6 f 

2657! 

1 


GEl ckAu 

Ar7^3 











LEF1 BY TFF/TKIG 
LEFT BY IFF/TRIG 
LEFT BY USER 
LEFT BY USER 
LEFT BY USER 

LTFn''~FrTrFnrRY~/“p^ 

L/.f-l BY PAD LOAD 


URPR“~aRr CDFTF 'UHUTVsiJETT 


SINlThETAJ 72 FROM PDL+> 
TO _P[^Jl_ # * 5 

COSITHETAI 72 


FOR USE IN KTGO FROM EMS OIS^LAY 

FULL UNIT VECTOR UNIT NORTH 

“■■.'T'TTTTTTAn — - 


SAVES FISCHER RAD (-29) M IN ERADM AND 
IN MPACo RETURNS TO CALLER VIQ QPRE I 


R ( 8 ( 4 
R ■: 80 6 
k V 8 -: 8 


GAP; 

ASSEMBLE 

REVISION 

.72 CF AuC PROGRAM ARTEMIS EY {• 

IASA 2 21114 


11 


li:4i. FEB* 26,1971 

MENELAUS , 

61 PAGE 

L 

P61-PG7 








USER’S PAGE 

NOo 26 

t6 S^y 

P T 7 94 

SLBROUTINE NAME: 

VGAMCALC 

lUSEO 

BY S61*2> 




date: 

1*21^ 67 


kl7P6 

MOD NQ: 

u 







LOG SECTION: 

P61-P67 


k .79 3 

MED by: 

NORTH / 

BAIRNSFATHEK 









R-: 799 

MED NO: 

r 

KX3D B Y r~ 

"RR~B7Vr RN3FATHER 

DATE: 

11 

APR" 

157 




iv 8u P' 

MED NL: 

2 

MOO BY: 

RK BAIRNSFATHER 

date: 

21 

i40 V 

6 7 

VARIABLE MU ADDED* 


kC8C2 

MCU NC: 

"’i 

HDD BY: 

RR BAIRNSFATHER 

DAT E: 

21 

MAR 

o8 

“ ” ACCEPT DIFFERENT 

EARTH/ MOON 

SCALE 


817 


FUNCTIONAL Ot SCRI FT i ON : EARTH CENTERED VIS VIVA CALCJLATIQN OF TERMINAL VELOCITY AND GAMMA IREL TO 

HORIZONTAL J GIVEN THE SCALAR QUANTITIES: FkEsENT RAuIUS AND VELOCITY AND THE TERMINAL RADIOS 

THE USER MUST APFENO PROPER SIGN TO GAMMAi SINCE IT IS CALCULATED AS A POSITIVE NUMBEKa 
j-Ht' EaUATIONS" ARt ^ — - - 




PC 811 


VGAM = S^RT(VN VN/HU + 2 ( RN-RTERH ) / t RN RICKH) ) RTMu 


K 612 


CUSGAH = H /RTERM VGAM 


SUkTILCPI/ (t^TERM Vi^AN/RlMU) 


R06i3 VGAMCALC ASSUMES THAT THc TERMlivAL RADIUS IS LESS THAN THE PRESENl kADIUS. BOTH CALCTFF AND CALC) Pt.< 

RvE15 MAKE THIS ASSUHPTluN* 


RCei6 CALLING SEQUENCE: CALL STCALL RTERM 

RCai? VGAMCALC PKEVCAH 

k Cii IB PUSHLUC A I PDl+c i AKailKARY IF LEQ IZD ' 

R<619 CIMPACI UNSPECIFIED CIMPACI-NcW RTcKM 



Rcezc 

■RC 821 

Rce 22 
— RTirZT' 
RC824 
~RC825 
RC826 
nr 827 
h t 82 5 

— 

RCS33 
‘ ■ RC834 
kC636 
KC838 
Rc83S 

RC843 
RC844 
R^. 843 


SLBFQUTlNcS CALLED: NONE 
NORMAL tXlT MCDE: RVQ 

ALARMS: NONE 

UUTFDT: GAMMA / 36J IN HP AC, PU^lllVE NUITdER 

VGAM E:(-71 M/CS IN PDL+^ 

PUSHLOC AT PDL+2 
cRASAELE INIT IALI7ATI0A REQC: 

TFF/RTMU E:(173 M: ( 141 1/SQRT(HU) LEFT BY TFFCONIC« 

RMAGl Es{-29> M:(-27t M PRESENT RADIUS LtNGIH LEFT BY TFFCONIC 

NK HAG E r~ r -=27+7Trn iT — RGimiENinTr'aF' P KES ETTP- TO5 IT 1 ON "“Tchi BT TFFCONIC 

H* (~27+^4kJ 

rtTERM E:I-29) M:(-27) H TERMINAL RADIUS LE.'.CrH LtiFT BY CALCTFF 

NRT6F.M E: (-29+NR) M NORM LENoTH UF TtRMIiNAL KHDiU:> LtFT bY CALCTFF 

M: l-27+i7RJ 

TFFVSQ E:(^.J M:(ltiJ i/M —(V PRESENT VELUC 1 TY t NORM LEFI BY TFFCUMC 

— TFFTTF — ET r^'B+2IW} ' T'l L CP V S E R I - L ATU S R EC TW» “Wl I GHT 7'iR LEFT BY I FFCONi L 

M: 1-36+2NRJ 

DEBRIS: QPRETi ?yL+ ••• P0L-*-3 

RTERM I NRTcRM IF PREVGAM ENTERED* 


) 


p I ASSfcHa H: Kt:VISl Uf4 - 7^ OF A(iC PKOG kAM A KTtiMl i BY NASA 11 IHA FEa<> 26,1971 WENLLAU^»> 61 PAGE &ia 


L P£i-P67 USER'S PAuE NO* 2/ fc6 S3 


Piti46 
















' 847 





2 6 1 .30 5 1 

77657 

\j 

PKEVOAM 

S 


ENTER WITH NEW 

KTERM IN MPAC 



A ’■ 8 4 b 











t: (-20} M: {-27} 




•' 34*^' 





I6,TjSZ~ 

2U201 

u 



f X 

.'Cl = -NK 





ceso 

R tF 

1 



26 f JU 5 J 

oOu21 

1 


^ T URE 

NRTbKi^ 

RTeRM M 

e: (-29+NR} 

M: (-27+Nf< } 


- - 

(H5l 





2 o t w i) 4 

41345 


VGAMCALC 

DLOAD 

DMP 






C852 

REF 

1 



2 6 f i 0 5 5 

1 4 1 

1 



hti AG 

rmao K. 

E: {-294»TR J 

M: (-27+.'4;< J 



C853 

REF 

2 

LAST 

813 

26,3'J56 

00021 

i 



KRTEKi'^ 

RTEKM M 

E: (-29+NR} 

Ms (-27+Nki 



n54 





26,3057 45325 1 


POOL 

LSU 

rmag rterthr 

~TTr^5I+2TiTrT 

H: (-54T2fiFt) 



C65d 

REF 

2 

LAST 

818 

2c, 3C60 

0604 1 

1 



i\ HH A\^ 

RMAG 

£ : (-29+NK) 

M: (-27+NR} 



:8b6 

REF 

3 

LAST 

818 

2 6, 30 fa 1 

> . 2 X 

1 



NRT tRM 

RTEP.N M' 

{-29+NR) 

rt;(-27+NT<7 



C857 





26, 3C62 

5625 7 

1 


faL^ 

CC7 

ZlKN-HTERh} 

L ; (-3 +NR) 

Ms ( “ 2 cl + N R ) 



C8!>8 





26,3063 

20 1 ? I 

i 



w d J f X 

t-a+NR) 





A-w85S 











PUSH UP PKLDUCT, 





V 8o' 





“2S‘,li76'4“ 

775‘25 

^ - 


“lTSu 







r 861 

REF 

1 



26,3J65 

(j€025 

t 

w' 



1 FP V 21 U 

-(V SO/HUI 

E: t2 ) 

M: (18) 



1 1 6Z 





2 6 f ^ 6 6 

41566 

1 


SORT 

PUoH 

SAVE VGAM/PtiMU} 

FOR NOW* E: 

(1 ) M: (9) 



. 8o_i 





26f Ju6 7 

652 71 

u 


ODV 

PDJL 

XCH PUL+", LEAVING VGAM FOR 

CUTPUTo 



AC864 











VGAM TO PDL M/CS 

E; (-71 

M; (-2) 



Cb65 

REF 

3 

LAST 

522 

26, j'J 7 p 

u C .. 3 7 

*1 



TFF/RTMU 

E; (17} M: (14) 





b '860 





26,3 :7l 

65205 



OMP 

POOL 

R ll;TiM“VGAWKTHD 

e: (“19+flR) 

M (-Ib+Nft) 



C667 

REF 

4 

LAST 

813 

Z6 § 3j7 2 

06021 

1 



kRTLHM 

RTERM M 

E: (-2 /+NR} 

«: (-27+Nk ) 



C86€ 

K E F 

I 



26 1 3^ 73 

00035 

1 



IFF TP 

LL P =H.H/MU M 

e: t-38+2NR} 

H: (-3fa+2NR) 



,86'^ 





26,3074 

5 6 3 D a 

1 


SwkT 

UL)V 


t; (-i9+NR ) 

M: l-ia-t-NR } 



A €87' 











PUSH UP UEN 

t : (-i9+NR) 

M: (-18+NR) 



AC87i'l 











USE DDV OVFL AS 

LlMll EK ( ICUS 1 <1« ) 



C871 





26, 30 7? 

o5542 

1 


Ski 

ACuS 






'.872 





26 1 3 J 7 6 

776 1 o 

lJ 

CUiiPVGAM 

KVU 






- - 

Ab8721 











CALLER MUSI SUPPLY OWN SIGN 




AC873 












22W 

27MS 




1 
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ASSEMBLE REVlSIOI'i .72 CF AGC PROGRAM ARTEMIS BY NASA 2 21il4-uli 


P61-P67 


USER'S PAGE NU® 28 


to S3 


P 1.874 Sl.aRUETI^c NAPE: TFF/TKIG tUSEO BY S6lo2) oATt ilol7.67 

ki 876 KCO NU: J LOG SEETIUN: P61-P67 

Hi 878 MCD BY: RR BAiRNSPATHER 

n*‘37<5 PCD NdJ' l ■ KDD BY^: RR BmIRNSFATHFR UAl o: T^SAPIT^T ' ~~ 

t :;fcd' MCD NQ: 2 MuD BY: RR BAIRNSFATHEK DATE: Zl MAR o3 ACCEPT DIFFERENT EARTH/MOQN SCALE 

RC8a2 FUKCTIONAL DESCftIPTICN: USED BY ENTRY DISPLAY TO cALCUEAft: SlMTHtT/.), COSITHETAJ FROM DATA LEFT IN 

Rt884 PDL ev TFF SUBKQUT IiNES, THE ECNS ARE 

RCe85 COSdHETAl = 1-2 ABSIARGJ /TkN RTERM ll + XJ } 

RC886 2 

TTCBBT STRl THETA) ~= SGNIARGJ STJRrd-DOr TTHET AT " ) 

RC6a8 WHERE THETA = TRANSFER ANGLE 

KC8B9 AND ARG - P Z AB5CZ) IF ALTA ZZ LEQ 1 

Ki 891 ARG = (P / ALFAI soNiDl + K 1/Z) IF ALFA Z Z G 1 

RrG93 AND ARG HAS BEEN AFFIXED WITH THE SIGN OF SINCTHcTAJo 

RC894 CALLlNu SEQUENCE: CALL 

■R rS95 “ ■ rpF/TRTG “ 

RC896 PUSHLDC AT PDL+t-, ARBITRARY lE NOT EQ 14D 

RCe9T CtMPAC) UUSPECIFIEC 


KR898 SUBROUTINES CALLED: NCNE 

RC899 NCRPAL EXIT MCOES : RVQ 


RE 901 
RfSOZ 

R 9i 3 
RL904 
RC9C5 

QCTPUT : 

ERASABLE 

.TUNE 

CiPiPACI = .5 SlNlTHETA) 
CDELF/2 = «5 COS(THETA) 
PUSHLOC AT PDL+j 

Initialization kequikld: 

TFFX X 

I IN PDL 

14D ) 


LEFT BY 

CALCTFF OR CALCTPEK 


~!TrW7~ 


‘TFFTTH~ET 

T^TZNRT 

akG 




Cept B7 

L AL lO F F OR CAL CTP E"R 




M: 

( -55+2NR J 

hHcKE 

1 ARG = LCP ZZ SGNiDcLP) OR ARG = 

LCP/ALFA 

SGNIDELF) 



- 

NRTEPH L: 

1-2 9 + NR I 

M 

NORM LENGTH 

Or T c K M i i\ AL K A Ij I U S 

LEFT BY 

CALCTFF OR CaLCTPE'R 


RC9i3 


m: 

t-27+NK) 








R0914 


NRHAG E: 

( —2 9+i iR J 


NORM LENGTH 

OF PRESENT PaSlTiON 

LEFT BY 

TFFCONIC 


RCG lo 


m: 

(-27+ NR) 








— RCV17 

BEBRrS^ 

QFKfcT, CDbLF/2 








(9173 

REF 1 


27,2utL: 



SETLOC 

P6wS5 




1917 5 



27 1 ^ t) 2 



BANK 





0917 8 

REP 1 





COUNT 

S6i^. 2 




918 



27,3 352 

7U545 

1 TFF/IkIG 

DLUAO 

SiU 




— CGIV - 

TTF T 


' 27 ,3U53 — 

~rn343' 

0 


TFFX' ' 




C«»20 



27,3334 

41215 

i 

DAD 

OMP 




2921 

REF 3 

LAST o48 

27 f 3L3b 

15334 

1 


hi DP HALF 




C922 

b F 3 

LAST 818 

2 7 1 3 uB o 

Cv..41 

1 


N Krl Acj 

HHAG M 

t.l t-29+NR) 

M: 1-27+NR) 

0923 



27,Bu37 

552 

•. J 

* i 

DMP 

3D0V 




C924 

REF i> 

LAST 813 

2 i J L 6 1 

0 - 2 1 

1 


isKl cRii 

RTtKM ^ 

l:(-2S+NR) 

M: (-27+NRJ 

T9Z5 

RTF 1 


27,3DoT ■' 

>. 4 5 

*i . 


TFFTTH 

P UK K/ALf'/* 

MS 1-55+2NKI 

t 92 6 



2 7 f 3^ Ci2 

44246 

1 

A 4^ ^ 

8DSU 

THE SIGN IS Fiji' SDLLF* 


C927 

REF 9 

LAST 319 

27, 3-: 63 

15334 

1 


F; I DP HALF 




C 9 Z B 

REF 3 

LAST 816 

27, 3 %.64 

(: -J . . 1 7 

X 

STOKc: 

COELF/Z 

i5 CJS(THLTA) 


0929 



27 f 65 

57516 

1 

OSQ 

DCUNP 

KEEP HCNLST FOR SqRT^ 



_ - ASS6MfeL£ KSVISIDN IZ G F AOC PRQGR AH Ak TcHIS bV NASA Z 21114-^ li 


Xl; 4 FEB> 26,lS7i flENELAUSo . 61 PAGE 82 v 


AC93S 

v936 
■ 3 7 


kef 


CS44 
v,c.45 
' 94 6 
C947 
C 94 8 


KEF 

KEF 

REF 

REF 


L 

F6i“ 

P67 


- 


■- 

USER'S PAGE NOa .29 E6 S3 

t 0 3' ! 

0931 

C932 

REF 

1 

2 7, 3 j b 6 

2 7,3 o7 
27,3071) 

75415 U 
i5->26 1 

43565 ) 

DUMPTRIG 

UAJ SyRI 

HlOPl/4 

S 1 GN R V y 


" ^*33 

A ^ 934 

KEF 

2 LAST 

819 2 7, 30 7 i 

OC iJ‘,5" 0 


IF FT tM 

affix S 1(5 C get fc72 J 

RETURN WITH *5 SINITHETAJ IN MPAC 

09345 

0 9346 

REF 

1 

04 , 20uo. 
04,3731 

... 


otTLOc P60S6 

BANK 

■ ■ 

19348 

KEF 

1 




COUNT* $$/S61.1 



(949 

u93r 

C951 

<:952 

(i 954 
TSTto 
C9563 
C9563 
Rc: 957 


REF 

REF 

REF 


15 MS 


last 809 


r 

3 

t> 

I 


LAST 

LAST 

LAST 


812 
3v 5 
3.5 


2 last 812 


5 LAST 820 

2 LAST 816 

3 LAST 305 


w 4 1 3 73 1 
04 t 3732 
04*3733 

iPrrsT^ 

04 1 37.35 
04*3736 
^ 4 * 373 7 
L 4 f 3 7 4 0 
04,3741 
04 ,j 742 
0 4* 3743 
t. 4* 3744 
J 4* 3745 
0 4, 3746 
'J4, 3747 
"4,3751'^ 
v4* 3751 
.4,3732 


77 u2 : V 
033 73 </ 
432o5 1 

11752 


OiSPTARG STy 


C(MPAC) 


TRGO estimate 


UMP 


3 7 3 3 
37 

46223 

77624 

11744 


T 

0 

1 


6v’ G tNRtT 
DAO 

icthta: 

JfEl 

stcall dteakut 

EARKUTZ 

GALL 

vkcalc 


(TTEI is PCSITlVfcJ 


7765u 1 
C3373 0 
50375 V 
<33542 1 
U3474 a 
6551 2 1 
6 0 
: 052 ^ 
5716 1 


VRCALC 


GOTO 

6 GtNRhT 
VLOAO DOT 

UKH 

01 

SL2 ACUS 

w 


KTETAl 


20Eg^ 


42184^723 L2 8-14* 


11( !. 2PI / 16384 (163. 84 J 


ERD QF PROGRAM Sol 


621 


biiP: AiSEMtiLt KLVISiCN .72 OF AOC PROORAM AKTErtli BY fMASA ^.21114-. 11 11:41 FEBo 26,1Q71 HUIlLAUSc 61 PAOb 


L P61-P67 USER'S PAGE Nbo 3 t6 S3 

P < 5 Q 

K?9b« PFCGRAM CcSGKIPTIUN S62.3 DATE IvjJANaY 

96', KCD NC 1 LOG SECTION P6.-P67 

R< 961 MCD BY ZTtmN 

ftC'^62 MCD NO: 2 MOD BY: riK BAIKNSFATHER UATe: 15 MAY 67 CHANGED TO REF COGKUS» 

K : 964 KCD no: 3 MOD GY: KK BAlHNSFArHtR GATE: 17 JaN 66 ALFAPAD CHANGES MADEa 

RCS66 FLNCTIONAO DESCRIPTION 

RC967 COMPUTE DESIRED GIMBGL ANGLES FOR ENTRY ATTITUDE 

KC96e THE FCLLOWING TRAJECTORY TRIAD IS AVAILAriLE IN KEMOKY AND IS COMPUTED EACH 2 SECONDS BY CH/PDSE IN 

ICCOlZ — RtFFRlRCB”CDURUTi'raTES“f V'S-^LTJCTTT TlEX'ATl VE ■TcTTARTH) : — 

RlGTI DXA = -UNIT IV I 

RC972 UYA - UNlTtV+Rl 

RC973 UZA = UXA*UYA 

TTsTA w^NERATE a desired BCbV TR I AD~ f~CK "TITTM MEi>~F L rGH I w T T H ~ "RES^E CT^T 0 THE PEL AT I VE VELOCITY VfeCtORf UsTNG 

R0976 ROLL COMMAND AND TRIM ANGLE OF ATTACK: 


kv977 UXD = UNIT (OYD’^UXAJ SI N( ALFATRIM ) + UXA CO:* I ALF ATkI K ) 

R0978 UYD = UYA CCSIROLLC) + UZA SINIRCLLC) 

Kf'97° UZO = UXD * UYD 


Rt96D USE THE DESIRED SET (IN REFERENCE COQHOSI AND kEFSHMAT TO CALL C ALCOA AND OBTAIN GIMBAL ANGLES 

RD982 IN 2S,C IN MPACt +2 AND THETAOt +2. 

RC963 CALLING SEQUENCE 

RL984 L CALL 

~TT9'65 Ufl ^ZZrS 

Rt986 NORMAL EXIT MODE 

RTSST RETURN VIA CPRcT DIRECTLY FROM CALCGA* 

R9988 SLBKijUTINtS CALLED 
Re989 ^ALCuA 

RL99C ALARM DR ABORT MODES _ _ 

— RirS^ TTOWE — ■ ' 

KC992 ERASABLE INITIALIZATION REQUIRED 
“ R(993 kOLLC roll COMMAND DP i:^ COHP AT IREV 

RC994 ALFAPAD SP 1S»C /18D LcFI 3Y PAD LOAD ALFAlRih IS NEGATIVEo 

RC996 UXA/2 REF COORDS ' LEFT BY CM/POSL 

RC997 UYA/2 REF COORDS LEFT 6Y CM/PDSE 

— ><r998~“ ~~ ~7}ZA/2 — RinF~mURirS ' ' LhFT DYTTMTPIfSF 

RC999 CLTPUT 

RiOOC OPHl GTMBAL ANGLES 2:S COMP TP lO,i,M)/it3C 

Rir;'l DEBRIS 

Rl'-,2 wIEmP, gpRET,PUSHLIST 

RiLC3 ^ _____ _ _ - 


1CC5 REF i 10i20u<. SETLUC PovS4 

ICC 6 lw,2412 BANK 

iCl7 REF 1 COUNT* $$/SS2o3 


0 aP ; AS 

SFMOLE K 

t: V I ON 4L 

OF AGO PROGRAM ARTEMIS BY 

NASA 2 21114- l.L__. 

. 

L 

F(i- 

P6 f 








* O 





iOf 2412 

672^1 0 S62.3 

6ETPU 

SLOA.D 


1' . L 





lOf a413 

LCoui 0 


■ ' 


h 1-..' 

REF 


LAST 

796 

10,2414 

3.J12 1 


ALFAPaU 


ll 11 





I'J ,^413 

41542 1 

SRI 

1- 1 i h 


l: 12 





1^; , 2416 

d534t» VI 

COS 

POOL 


1< 13 





10,2417 

65356 1 

SIN 

POOL 


1114 

REF 

9 

last 

796 

lU f 

J33i6 V- 


rollc 


H IS 





10,2421 

74346 M 

COS 

vxsc 


1* lo 

REF 

2 

LAST 

122 

1^,2422 

0355U 1 


UYa/2 


ir i 7 





1X72423“ 

73325 1 

POOL 

Hlv 


1. 1 e 

REF 

lo 

LAST 


10,2424 

0"33i6 w 


RCLLC 


1M9 





I'v ,2425 

533oi G 

V X sc 

VAO 


ir2C 

REF 

2 

LAST 

122 

1 j,2426 

03556 1 


LZA/2 


A 11 21 










1022 





l.;,242 7 

77772 U 

VSLl 



■F23 

TTtT 

> 



' 1^72 4347 ■ ■ 

02722 i 

STrEnTF" 

ynb 


ll 24 

- 




10,2431 

76436 1 

VXV 

VSLl 


1C 2 5 

REF 

3 

LAST 

122 

1 j , 2^32 

w3542 1 


L X A/ 2 


U 2 6 





10,2433 

65361 v' 

V X sc 

POOL 


AiC27 










Air 28 










K 29 





10 ,2434 

53361 f 

V xsc 

VAD 


11 37 

REF 

4 

LAST 

822 

10,2435 

j3542 1 


UXa/2 


A 1C 31 










ll 32 





1 j f 243 o 

77772 ^ 

VSLl 



1033 

R EF 

I'J 

LAST 

782 

1C , 243 7 

02714 1 

ST '3KE 



h 34 





Iti f 244u 

76435 1 

VXV 

VSLl 


1' 35 

REF 


LAST 


10 , 244 1 

72722 1 


(Nd 


1( 36 

REP 

6 

LAST 

770 

1 - , 244 2 

2673G 1 

S TOVL 

ZNd 


1137 

KEF 

42 

last 

8G3 

1. ,2443 

Cl 7 3 4 L 


RbhSHMA 1 


U 3d 

REF 

3 c 

LAST 

782 

1. ,2444 

26672 C 

STOVL 

XSi*4 


“ir3^ 

ITEF 

~43 

’XTESr 

'STT 

11,^445^ 

“GIT42 1 


refsmMa 1 

+ 6 

lC4f 

REF 


LAST 

o29 

1- , 2446 

267v0 1 

SloVL 

ysm 


1(41 

REF 

44 

LAST 

822 

ii. ,244 ? 

0 1 7 5 j 1 


K EFSMrtAT 

+ l2U 

It 4 2 

REF 

6 

LAST 

629 

1*:, 2450 

02 7^^ 6 1 

STORE 

ZSH 


11 43 





i:,2451 

77650 1 

GOTO 



K 45 

REF 

4 

LAST 

782 

i:.,2452 

47344 1 


C ALC Ga 
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A 1C 4 6 
A 14 47 


USER'S PAGE NUo 31 


t6 S-> 


ALFATRIM / IbH t ALFA IS NEGo 


XCH PDL, CCS TO PDL” 
SIN TO PDL2 


REF COORDS 


PUSH VECTOTr‘1 NT C PLT4", 75" 


REF COORDS 


VECTOR FRCP PDL4, 9 


= 'OYD 


REF CUaT^TJ^ 


REF COORDS 


SIN TRIM FROM PUL2 

Kt^ PCtLc PCk CilS TRIM 


URD 


FROM PDLl 


X SC AXIS l»S UNIT) 


REF COORDS 


Z SC IN REF COOHo SCALtU AT 2 


CALCGA WILL RETURN TO uKlGINAL CALLER 
VIA gPRtl i^ITH 2,S COMP. ANGLES IN CPHl 


L 



'■ i 
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3fcRVIC£R2U7 USllK*S HAGb NU , 1 F S i 

PKGbKAM NAME - PKtKEAQ,R£ADACCS, SERVICER, AVERAGE G, 


1 \ 


' Cl. 


rlt. .jc“ by M-HAMILIQN DtCal^, 1966 


K ir3 EUMCTIGMAC UESCRIPTXCN 

4 THE RCUTIiitS DESCRIBED BtLQW ARE USED TU CALCULATE VALUtS UF RjV, VN, AND GDT/2 DUkING ACCELERATED FLIGHT* 

RTTT' 6“ TH^ SFVEKAL‘'R0CrrrNE3"Ct;HPkl St A PTTCKAGF AND "ARE TTDT MEANT TCT'BE USED^Ao^GPARAi E SUBKOUTlNESo 


K Ct.C 8 
RnCii: 


GENERAL REFERENCES 
KEACACCS, SERVICER 


Tl StkVICtK OR AVERAGE G ARE UNDERSTQUO TU REFER TO THE ENTIRE SET 
, AVERAGE G, INTEREAD, SHOOTHEft, AND ANY ADDITIONAL KOUTINcS ATTACHED AT 


DP' ROUTINES INCLUDING 
AVGEXiT (SEE FELJrilo 


R{ri2 PFCGRAMS INITIATING SERVICER ARE REQUIRED TO MAKE A WAITLIjT CALl FOR PREREAD (UR, IF LIFTOFF, FUR EIBIBIAS) 

Rrrr4 aT~Z SECLWUS before TF rF F T KS T W E K7 reE'~irT7PD7\TE ~ m ORTIHR TEri.irTTAT:TrF~T}HE SEQUENCE- ,~T5H ICR VTin- RhCUK EVERY 

RU016 2 SECCNOS FROM THAT TIME ON AS LONG AS AVEGFLAG REMAINS ScTo 


RfXtl7 TFE USE CF ERASABLE AVGtlXIT ALLOWS VARIOUS kUUTINES TO Be PERFORMED AS PART OF iHE NORMAL CYCLE (SEE 
RX019 EXPLANATIDl^ OF AVGEXIT BELut^K 


ROC2C DESCRIPTIONS OF INDIVIDUAL ROUTINES FOLLCw, 


k;.l 21 PkEREAP 


F T - 22 
R sA 2S 

RCi 26 
RCr 27 
ROC 2 8 
RCC 29 
TTCFOBl 

RCC33 
ROC 3 4 
RCC3S 


PREVIOUSLY EXTRAPuLATED VALUES COPIED FROM RM, VNi, mNu PlPTIMEl INTU RN , VN, AND PIPfiML. 

ofsraTAs JOB scheduleo; ‘ 

PIPS READ AND CLEARED VIA PIPASR SUBKOUTiNEo 
AVERAGE G FLAG geT GN. ' 

UkIFT FLAG SET uFF# 

v3T flag set CN- - — - 

INITIALIZATION UF 1) THRLjT MCNIIOR (DVMUN) - UVCNTR StT Tu ONEo 

2 ) T i TTAir^ACC U M ULA T E gnTECirVAEUE ( O VT OTALT" - SET TC~2:FKT3T 

31 AXIg VECiOR (AXISJ - Sul Tu ) . 

NORHLIZE JuB SCHEDULED, 

kEADACCS TASK CALLED IN 2 SECONDS* 


t 

! 


RC’. 3b NORMLIZE ' 

kCr37 GUT/2 INITIALIZED VIA CALCGRAV SUoKGUTlNE, 


real A CCS 


kO: 39 
R0041 
R< c43 
KiC44 


IF ONMQN FLAG SlT 
GNMONITQR LUjP IS 


w’JIKREAO KOUTINl I^ PEKFORMEO dEPUHE PIPASR ZEROS THE PIPA kEGISTt,- 
INUIATEu TO PROVIDE DOWNLINK INFORM ATI ON DOR I NG thTRY. 


PIPS READ ARC ULEAKEU OY PIPASR SUdRUUllNc* 

IF CM/DSTBY IS ON, ENTRY VARlAdLES INITIALIZEu AND SETJTAG TASK CALLED. 


a ff 


AND THE 1/2 SEC 


A 1 : Ft:B« MLMfcLAUSa , bi PAGli 8 24 


u AF : ASJi lMBL I: R6/ISIQN , 4^ ^C_ PAOGfsAM A ATEMIS BY fM5A 2^21 11 4-. 11 


L SERVICEA2U7 


UStK'S PAGE f4L. 2 E' SA 


A C.( 4 i 
HVG4t3 

ROCS4J 


IF AVERAGEG FLAG UfS RtACACCS CALLED TO RECYCLE Ii\i 2 SEgCNUS, 

IF mVERAGEC flag off average G exit (AVGEXIT) set TJ 2CADK AVGEND FCR FINAL PASS 

SERVICER JdB scheduled. 



TEST CGWNECTOR UUTBIT TURNED CN, 


Kii 52 CNKMTUR 


RC'C'53 M SEQUENCE UF THREE PASSES THROUGH UUICKREAD FuLLURlNu A CALL TQ READACC5 WITH ONMONFlG SET AT 1/2 

ROiSS sEC INTERVALS. INTERVALS aRE COUNTED UUT GY PlHCTRf INITIALISED AT 3 BV READACCS 

KCvST CUIKKEAD 

RCCSe t^EADS CURkFnt Iu INT“g X,Y,T^ P d cF.~’rEADS old xTYt/PIPBUF INTU X , YfToLDBUF , VALUES ARE ScNT 7U ' 

RL^6T JOWNLIST DURING ENTRY. 

KCt'Bl SERVICER 

Rt:C62 DcLV VALUES CHECKED TO DETECT RCNAwAY PIP - 

R(]f63 IF BAD PIP 1) ALARH SENT. 

i<?'64 2) CQMPENSAT iUNf DVTOTAL ACC'JHULAl lONf AND DVMQN BYPASoFO CONTRUL 

RC» Go' ~ TKANSF ERRED TU AVERAGE G^ 

RfLG? PIPS CGRPENSATED VIA I/PIPA SUBROUTINE. 

RCC68 DVTOTAL INCREMENTEO BY AGSuLUTE VALUE OF DELV. 

ktOGO THRUST MONITOR IDVMGNI PcRFORMEC UNLESS IDLE FLAu IS iJN. 

rC».7T* control transferred TO AVERAGE G. 


Rr«.71 


JVMDN 


FTT 72 
R^^74 
RCC75 

wms 

RCi7B 
R * 0 7 9 
R CO 8 1 
kC0B3 


THRESHOLD VALUE (PLACED IN DVTHRUSH GY USER) CHECKED AGAINST AbSJLUTF VALUE ^_^tV TU CFitCK 
THRUST LEVcL. 

IF THRUST 1) ULLAGE CFF KUUTINE PERFOkNEQ. 

■2T“~STrE R I NG ■ FL AG“ TURTIED^OfT’ pT~TIRST~uETECT 1W 'DF“ THF:UST i 

3) CONTROL IRANSFERREO TO AVERAGE G. 

IF NC THRUST ii ON FIRST PASS THROUGH MOMrOKt CONTRCL TRANSFERRED Tu AVERAGE G. ' ‘ 

2) ON SUBSEQUENT PASSES, uUNTRUL TRANSFERRED TO ENGINE FAIL ROUT THE IF THRUST 
has FAILED FOR 3 CONSECUTIVE PASSES. 


RCX84 ENGINE FAIL .. 

ktl.35 ENGFAILi TASK uALLED IN 2.5 SeCOIVDS. IHIs WILL KeI URN CijNJTRuL Tu TIG~"5 StJ TrtAT THE IGNiTlii'< 

RCl87 sequence HAY BE REPEATED. 

RuC80 ENGINCF3 PERFORMED. 

RTC89 DAP SFT uP Fur RC^. 


R0C90 


AVEkAGil g 


Wp J 

L 

R« t VI 

Rcr93 
RU 94 
"R CC96 
f<‘'C98 
■R C C99 
RCiOO 

RCi02 
Re lu 3 
'~Rnr2r 

RMi 5 


Ril^" 6 

e '. X'v''* 
P. V 1 1 ■ 


R L 112 


Reii3 
R - 1 i i> 


R 1 D 

K 117 

Re'lid 
K : 12 '* 
R 121 

R4 125 

R' 127 
RCI20 


R' 131 

R 1.1 33 


H cl35 

ii ,1^6 

k 137 
r 1 3 cJ 
R .. 13 V 
RGi4r 
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SEKV 10132 j7 


USER'S PAGE 1^0, 3 > S3_^ 


RN1» VNl, GDTl/2 CALOULATEU VIA CALCKVo KuUTlNE dY UPUATING RN, VN WITH DELV AND AN AVERAGED VALUt 
OF GDT/2. 

RN1» VNl I 0-CTi/2f PIPTIMEI CUPItD INTO RNi VNi 0C7/2f PlRllKE FCR RESTART PROTECTIONo 
CONTT^IDL TKfiTTS^FEKRtTT TO ' aUDRbSS TPECTFTEO d7 USrR T GR BY' REA CACX'S' T ORTTAS I P AS S J 1 N" A V oETTT; 

LAST PASS CAVGEND) 1) FREE FALL GYRO COMPeNSaT I □.< StT UP« 

21 DRIFT FLAG TURNED UN« 

31 STATE VECTOR TRANSFERRED VIA AVETOMID ROUTINE. _ _ 

41 ONMCNITOR FLAG RESET, 

51 V37 FLAG RESET. 

67- ihST CCNKhCTOR GOTBIT "RESETS 

7) OCNTRUL TRANSFERRED TO CANV37 TO CONTINUE MM CHANGE ROUTINE (ROlI™ 


Calling sequence 

ei^jtereo DIRECTLy FRGM^ tig- 3 C~V P U “ 
READACCS CALLEu AS WAITLIST TASK. 

SUBROUTINES CALLED 

~ yjU_ ITy~ROU TINES - PHASCHNo FL^CUP FLAGDUWN NOVAC FlNUVAC WAITLIST ALARM NEHPHASE 2PHSCHNG 

OTHER- PiPASR i/PIPA CALCGRAV CALCrVG AVcTCKlO 


NCRPAL EXIT MODES 


ENOQFJGd TASKQVER CANV37 _ ^ 

AVGEXIT - This IS A DOUBLE PRECISION ERASABLE LCCATIuN BY WHICH CONTROL IS TRANSFERRED AT THE END 

OF EACH CYCLE OF AVERAGE G. 

THE 2CADR OF A ROUTINE TO BE PERFORMED mT THAT TIME (E.G.i STEERING EQUATIONS TO BE PERFURMED 

7rr7Z~SECD?ro l N l E K VA L ST ~ITAT~gE~SFr~B^ TTrET'USETr' I NTG AVGEXIT^ 

ALL SUCH ROUTINES SHOULD RETURN TO SEHVi-XlT, WHICH IS THE NORMAL EXIT FROM AVERAGE G, 

SERVEXIT - DOES A PHASE CHANGE FCR KESfART PRQTcCllON AND GOES TO ENDOFJCB, 

THE 2CADR OF SERVEXIT IS SET INTO AVGEXIT BY ThD USER IF NO CTFDR ROUTINE iSEE aBuVlIci 

AVGEND last PASS OF AVERAGE G EXITS HEREf BYPASSING SPECIAL KOUllNF (SEE ABOVE UNDER READACCS) » 

FINAL EXIT IS Tu CANV37. F AVtKAGE Glo 


01 T PUT 


DVTOTAL (2) 

RNiCl 

VN(6) 

&0T/2 (ij) 
DELV (61 


PiPtTME(2) XP1PSUF(2) YPIPbUF(2) ZPiP8UF(2) 
REFERENCE COORD. SCALED AT 2(+2GlM/CS 


REFERENCE COORD, SCALED AT 
REFEKcNCE COORD. iCMLEC AT 
STABLE HEMb. COORD. SCALED AT 


Zt-i-TiH/CS 

2(+71M/CS 

2( + 14) ■*'5. 35^ i:j ( -4 1 M/C S 


(KPIPI USED TO GET JV/2 AT 2 (+71) 


: /sS S F MeiE. REV IJiJ UN 72 Of- AuC PKOijRAK aRTEMI S bY N_A b.A _2 21 Ljl^~_ i i 


11 :4 FEBg 26«197i MENELAUSo 61 HaGu 826 


S£HVIC£K2a7 


USfc-R'S PAGE NO, 


SJ 


LELVRbF16) KeHtRENCt CCURD, iCALEl AT 2{+7)M/CS 
F 1^3 IM T I/HZATIQN 


P 144 jNMONIIQK FLAG :»tT BY ENTRY TO SHOW PIPSUF VALUES KtwGlKbD„ 

RU43 IDLE FLAG ON IF UVMQN TO Bt BYPASSEUo 

K 146 UVTHRUSH SET TO APPROPRIATE VaLLc FUR DVMON^ 

Rv147 aVGEXIT SET to 2GADK OF ROUTlNEt IF ANYt TO BE PtRFOK>lED AFTER EACH CYuLE OF AVERAGE IF NO ROUTINE 

Rr i49 TO faE DONE I AVGEXIT SET TO SERVEXIT, 

WHM! raro^^NTEDiD 

R0151 REFSMMAT 

Ri;l52 UNIT^t - FULL UNIT VECTOR, IN REFERENCE CGQRO>, DF EARTH S”RGT AT lONAL VECTOR 

FM54 KNl, VNl, PIPTlNEl - IN REFERENCE COORD,, CONSISTENT WITH TIME QF EXECUTION OF PREREAU 


K 156 LEapI S 


R! 15 7 
K -158 
Ri:i59 
R\161 

K ? r6 '2 

t\ V 163 
RkUbS 
F it>7 
R i. lb 3 
RC169 

Rv *17' 


C E M R AL S a f L t U 

OTHER INTERNAL - OVCNTRlii PlPAGEll) PIPCTRtl) AVGEXITU) 

EXTERNAL - ITEMPIU) lTEMP2tlI RUPTREGi(i) TEMXlil TEMY(l) TEMZIll 
USEFUL OEdKIS 

RKitSI VN1(6J GOT 1/2 PIPTlMEr(21 

THESE LDCATIUNS USED AS BUFFER sTuRAbE FOR NEWLY CALCULATED VALUES OF RN, VN, 
AND PIPTIME DURING performance UF ScKViCEK ROUTiNES> 

UNITR - HALF UNIT VECTOR QF RN, KEFcRENCh CuuKDo 
RMAG scaled at 21+58) IN 36u, 

RMAGSg SCALED AT 21+56) IN 34U, 

IRE/KMAGTSU fN 32C. 


GD T/ 2 , 


vi72 REF 1 37,2 Cdu _ ScTLGC SERVICES 

0173 37,2607" BANK 


C174 

Rli75 

RC177 

178 

185 

REF 11 LAST 8C9 E7,1425 

REF 1 

REF 2 LAST 312 37,2637 3 5u57 

0 

PKEHEAU 

PREkEAD 

EoaNK= "CVTaTAL 
♦ ^ ^ ^ 

COUNTS U/SERV 

CAF PKiu21 

CALLtR MUST PROTECV PREKEAD 

:i86 

REF 

17 

last 

eci 

37,26iL 

w 5121 

0 


TC 

NCVAC 


• 137 

REF 

i> 

LAST 

315 

E3,146C 




E BANK= 

NbOX 


0188 

REF 

1 



J(7 f 26 1 1 

3 3655 

1 


2CAD.< 

LAST 81 AS 

DO LAST bYRO COMPENSAT ION IN FREE FALL 

•nea 

REF 

1 



37,2612 

14363 

1 





AC1882 











CALL-TO AND LASTBIAS ITSELF ARE NUT 

A 0188 3 











pkdTECTeu^ rEREadaC SETS 1 7PlT^15T 

ACl8b4 











IC 2>' StCS IN CASE LASTBIAS LUST, 

A .1385 











IRECUNDANT IT LASTBIAS IS AOK ) 

"18 9 

REF 

2 

LA^T 

53 7 

37,2613 

26 j , 


fi EJ.j5 3 3 1 

TC 

^ KUiA EAU 1 



o/'F : assemb le K :VXSIUN IZ GF AoC PKQo kAM ART EMIS UY NA>A_ , 11 11: FLB, 26,1971 MENELAUSet61 PAGE 827 

L SfcRVUtK2^7 UScR'S PAGE NOo b c7 S3 


^ 19i. 

PtF 

1 



37,2614 

3 7654 

1 

CAF 

PR1032 


« 191 

KEF 

34 

LAST 

8w d 

37,2615 

'0 5135 


TC 

F 

StT UP NDRMLIZE JOB REQUIRED PPlUK TU 

.192 

KEF 

12 

LAST 

826 

£7,1425 



£BANK= 

LVTuTAL 


"*'■ « 193 

REF 

3 

la:st 

547 

37,2616 “ 

D 3 1 ^ 

I 

■' ZCAOIT^ 

TTIRKTIXT 


1193 





37,2617 

76wo7 

1 




“ C194 

REF 

4 

LAST 

712 

37 1 

3 “S Tj! ? 

1 

C Ai“ 

^ ScC 0 


Ci95 

REF 

22 

LAST 

8*1/8 

37 ,2621 

U 5233 

J 

TO 

WAlIclST 



REF 

17 

LAST 

808 

£6, 1661 



t3ANK- 

A UU' 


^.197 

REF 

2 

Last 

54o 

37,2622 

j2 632 

1 

2CA0R 

REAuACOS 


-riV7 





67, 2623 

70>J66 

n 




108 

BEF 

29 

LAST 

509 

37,2624 

4 4767 

1 

CS 

ImO 


190 

REF 

6 

LAST 

7:3 

37,Z525 

u 4126 

T-l 

TC 

NcKPHASE 







37,2626 

6'iC j5 

1 

UCT 

5 

. 

2 ' 5 

REF 

3 

LAST 

54o 

0 1 f 



5P2SPT2 = 

5 .2SPtiT 


4- i 

K t h 

39~ 

“LXST 

~7^T 

/ t / 

i 531 4 

u 

1 

’TASKti^fK 


0202 





37 , 2630 

V DC 0 6 

1 

PREREAUl tXT£ND 



02u3 

REF 

18 

LAST 

248 

37,2631 

22 t7 J 

0 

uXCH 

4>UP f i^ECl 


02* A 

REF 

1 



37,2632 

1 3171 

0 

rt 

PIPASK 

CLEAR READ PIPS LAST TIME IN FREE FALL 

t2CA2 

REF 

«d 

LAST 

798 

37,2633 

3 4770 

U 

CAF 

CKL 

SET UP PIPAGE FOR KEREADAC ill CASE A 

C2043 

REF 

2 

LAST 

79 

37,2634 

55 '^067 

C' 

TS 

PlPAuE 

REST ART OCCURS BEFORE REAOACCS 

C205 

REF 

35 

LAST 

760 

37,2635 

4 CC75 

1 

CS 

FL AGWr^Dl 

SLT AVEG FLAG 

iZ6b 

KEF 

6 

~LAST~ 

"TTiT 

3772636 

T^TIZ 

i 

mask~~ 

^ V b 6 3 1 1 


C2f)7 

REF 

36 

LAST 

82 7 

37,2637 

lb 0 75 

1 

AOS 

F L A U W K U i 

- - 

1208 

REF 

2 

LAST 

315 

37,2640 

4 4752 

1 

CS 

oRFTair 


C2L9 

REF 

21 

LAST 

762 

37,2641 

7 D07a 

1 

MASK 

FLAG"WRD2 


C210 

REF 

22 

LAST 

827 

37,2642 

54 w76 

1 

TS 

FLAGSnROZ 

KNULK DOWN UK ITT FLAG 

‘211 

REF 

Itt 

LAST 

763 

37,2643 

4 L I 4 / 

i 

CS 

ELAiartKUT 

SET V37 FLAG 

l212 

REF 

2 

LAST 

21 .. 

37,2644 

7 4763 


MASK 

V37FL5I T 


1213 

REF 

19 

LAST 

827 

37 ,2645 

26 lv»3 

1 

AOS 

FLriurtKD? 


^ 218 

REF 

142 

LAST 

735 

37 1 2646 

3 4772 

1 

CAF 

ZERO 


C224 

REF 

TT 

~LA3r“ 

827 

307,2647“ 


1 

TS’ ■ 

WrjTAI 

TXFAK~T)VTIlTfit 

’22b 

REF 

14 

LAST 

82 7 

37 f Z 5 

55 ' 426 

1 

T S 

LVToTAl +1 


y-2Zb 

REF 

19 

LAST 

827 

3^1 X 

U CO 70 

V' 

JO 

K T Kt 1 



VAP; i 

iSSEMbtt KiLVaALCN 

U 

CF Av,G HH 

Ak 

f C> 

lU BY NASA 2 21114- 11 
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H i ^27 



Rt-AOALLS 


( 22S 

HtF 

16 

LAST 

627 

E6 1 166 1 



cSAMK— 

AOG 


< Z^l 

REF 

2 

LAS! 

827 

37,2652 

0 3171 

* » 

■'4rL 

RtADACCs TC 

FiPASK 


• 243 

REF 

lb 

LAST 

776 

37, 2o53 

3 4773 


PIPSDQNE CAF 

FIVE 


1244 

REF 

7S 

LAST 

737 

37,2654 

54 jwl 

1 

TS 

L 


"245 





37,2655 

4 L OJO 

u 

CUM 



; 246 

KEF 

3 

LAST 

536 

37,2056 

53' 166 

c 

uXCH 

-HHA j£5 


'2465 

REF 

I 



ul t iiZbS 



5P5SPT1 = 

5 -> 3 S P u r 


• 247 

PtF 

89 

LAST 

827 

37,2657 

3 477; 

0 

RtUU5*5 LAF 

CNo 

SHUW PIPS HAVE BEEN READ 

< 248 

REF 

3 

LAST 

827 

3 7 f • 

55 ' 067 

U' 

TS 

PIPAGE 


i 

REF 

30 

LAST 

827 

3 7 f Zjbh 1 

3 4 ?b / 

0 

LA 

T WU 

SEl PIPCTR FOR ONMINTOR 

X 23 

REF 

2 

L Ai>T 

79 

37,2602 

55 * 066 

1 

TS 

PIPCTK 

AFTER ABOVE PHASCHNG 

25 1 

REF 

J 

LAST 

8.4 

37t ^5i>3 

4 * 162 

w* 

cs 

CM/FLAOS 


( 252 

KEF 

2 

LAST 

8 '4 

37 , 2664 

7 4767 

1 

MASK 

LR/OSbIT 

lo3c B1T2 

t253 

REF 

182 

LAST 

7b7 

37 , 26o5 

iv Cwv 

u 

CCS 



254 

REF 

2 

LAST 

236 

37 fZtjiiO 

6 2740 

u 

TL 

CHEKAVEo 


C255 

REF 

6 

LAST 

699 

37 f 7 

4 11ij5 

0 

CS 

PIPlIMtl +1 


C256 

REF 

2 

LAST 

7o9 

3 7 f V 

55'271 

0 

TS 

1 BA SEb 

FOR RESTARTS 






37,2671 

U t* U 0 6 

1 

cX r enu 


CONTINUE FOR ENTRY DAP 

r2bl 

REF 

19 

LAST 

828 

37,2672 

3 1662 

1 

OCA 

AOb 


l262 

REF 

2 

last 

115 

37,zo73 

53'67*> 

0^' 

DXCH 

ACU/PIH 


f 263 

REF 

2 

LAST 

115 

37, 2674 

3 1 6 a 3 

0 

U 

CA 

AND 


« 264 

irpT 

2 

LAST 

TYT' 

37 i 4ici7 b 

57* 6? r 

0 

xCh 

amg/Ri p 


C265 





3 7 f 4^ 6 7 6 

J 0306 

1 

EXTEND 



l266 

REF 

2 

LAST 

ilj 

37,2677 

3 1 6o3 

0 

UCA 

RCLT/IS; 


C2 67 

REF 


LAST 

113 

37 f rfd 7 i.!* L 

3 3 • 6 7 3 


DXCH 

RCLL/PI P 


€268 

REF 

i 

LAST 

183 

37,2731 

3 1666 

0 

CA 

eETO/ifa 


\':269 

REF 

2 

LAST 

115 

3 7,2702 

57*674 

u 

XCH 

btTA/Hl H 


X77« 

TOT 

4 - 

~~CKsr ' 

~STS~ 

J77Z7uT 

~3 n .2^ 

TA 

CH7 P L AC 3 


C271 

REF 

1 



37,2704 

7 4755 


MA 

CKARMBl T 

93U 61112 

C272 





i l jZl o' 5 

*3 0 w (pJ 

1 

EXTEND 


DURING ENTRY, WHEN KCS DAP IS INACTIVE, 

' 273 

REF 

1 



37,2766 

1 272-> 

1 

3ZF 

NUoAVPiP 

SAVE PIPAS EACH a5 SEC FUR TM., 

C274 

REF 

7 

LAST 

760 

3 7 f icl ^ w‘ 7 

3 5011 

1 

CAF 

» 3St:C 


v275 

REF 

16 

LAST 

7 4 "J 

3 7 f 27 1 > 


1 

TC 

rNfUDLL 


<276 

REF 

1 



37,2711 

2773 


AOKE s 

CUi K K t AD 


AC276 










NO NcED TO KESTART PROTECT THIS. 

:274 

REF 

9 

LAST 

439 

3 7 f 7 1 2 

.j» 1314 

u 

CA 

C EL V < 

SAVE PIlAS AS READ (BUf NlU COMPENSATED) 

’"28; 

REF 

3 

LAST 

137 

37,2713 

57 ' 533 

Q 

XCH 

xPiPbUF 


€281 

KEF 

3 

LAST 

137 

3 7 f 2 7 i ^ 

55 ' 5 JO 

1 

To 

XdLDoDF 


*— ■ - > — — 

6282 

REF 

3 

LAST 

438 

37,2715 

3 1316 

i 

La 

LcLVY 


"283 

REF 

■ 

3 

last 

L 37 

37f 27 16 

57 '534 

1 

XCH 

YPl P3UF 


■J284 

REF 

3 

LAST 

137 

37,2717 

55 ' 3j7 

U 

Tj 

V C L U BU r 
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, 2 GS 

KEF 

4 

LAST 

433 

37,272 

3 132- 1 


LA 

0ELV2 




(2B6 

REF 

> 

-> 

LAST 

13 7 

37,2721 

57*535 j 


XCt-i 

ZPIPdUF 




G 287 

REF 

1 



37,2722 

55 * 54 0 


T6 

ZJLDbUF 




2 a 8 

REF 

19 

LAST 

323 

37, 2723 

3 4773 0 

NOSAVPIK 

CA 

FIVE 




(26 9 

REF 

4 

LAST 

236 

37,2724 

55* 725 1 


IS 

LfVGYMPT 




C290 

REF 

1 



37,2725 

3 3153 : 


CA 

J T A cjTI me 

ACTIVATE CM/RCS AFTER 

PIPUP TO 

GO 

A C29 1 










IN JTAGTIME +5 CSa 



"rZ92 


23 

L AST 

“aZ7“ 

3 7 , 27 2 6 

"XT "5^23 T’TT 


TC 

T(A1 I LIST 





KEF 

2u 

LAST 

328 

E6f it)6 1 



E3ANK= 

Ai Liij 




'r2 9 A 

REF 

2 

LAST 

23C 

37,2727 

32 63 6 0 


2CADR 

StT JTAG 









37,273L 

32366 G 







i29i> 

REF 

29 

LAST 

744 

37,2731 

4 6214 1 



THREE 

iaiSPOT FOR SETJTAG 



TZ^6 ^ 

"RFF~ 

7 

X7T5T 

■^327“ 

"3Ti773Z 

T ''4TZB’ 0 


TC 

NEWHHAc> E 




>'297 





37,2733 

w'C’i/v 1 'J 


GCT 

1 




(.2975 

KEF 

2 

LAST 

23 J 

1 1 ^0 1 4 


1P3SPT1 

•S' 

1., 3 SPOT 

SaJlSPOT FOR CHERAVEG 



:298 

REF 

4 

EA31 

54 6 

37,2734 

3 4125 0 


C Ar 

CCT31 



v299 

REF 

ac 

LAST 

823 

37 f 2.*7 3 5 

54 031 1 


TS 

L 




• 





JTTZTJ^ 

4 li 

curt 





:s i 

REF 

4 

LAST 

823 

37,2737 

53*166 - 


OXCH 

“PHASES 

- 



^.3015 

REF 

i 



..1,2311 


SPilSPTi 


5 ,31 SPOT 




Z 

ref 

3? 

last 

627 

37,274- 

4 oG 75 1 

CHEKAVEG 

cs 

F L ;4 L> W K D 1 




1'G‘ 3 

REF 

4 

LAST 

827 

37,2741 

7 ^7 1 1 


MASK 

A Vt-G3i T 




' T3L4 

RbF 

T¥3 

XTIST^ 

■328- 

T7T2T4T 

-ic“37r-r 


CCS 

A 

TF avFG FlAg UUWN SEl 

hiNAL thki AVtb 

C3<:5 

REF 

1 



37,2743 

u 27o2 0“ 


TC 

A VcUvJUI 



- 

< 3 6 

REF 

5 

LAST 

827 

3 7,2744 

3 5017 1 


CAF 

2 SECS 




'■ 3 7 

REF 

17 

LAST 

828 

37,2745 

0 5223 1 


TC 

T wl DOLE 




13 , e 

REF 

3 

LAST 

827 

37,2746 

02652 1 


AORES 

hhADACCS 




“31" 

■ REF' 

3~ 

LAST 

737 

“ 73T T2T4T 

3 4753 T 

PAILtSE*\tf 

u AT 

“FRIT32 . ' 

L6iAbLX5li ^tKVlCtK KUU*lr‘iiC: 


t:3ii 

REF 

35 

LAST 

62 7 

37,2750 

1/ 5ij>5 t. 


TC 

F AHOVAC 




-312 

KEF 

15 

LAST 

827 

ET, 1425 



E3 ANK- 

C VTOT Al 




G3ii 

KEF 

2 

LAST 

235 

37,2751 



2CADR 

St:KV ICER 




"313 





37,2752 

76So7 1 







? 314^ 

KEF 

y 

LASl 

78'J 

37,2753 

4 4766 V/ 


CS 

FCUK 

KE61AKT SfcPVICEK AMD 

Rc AUACCS 


*315 

KEF 

8 

LAST 

829 

37,2754 

0 4126 0 


TC 

NTWPHmSE 




,'316 





37, 2755 

0X00 5 1 


UCT 

J 




€3 165 

REF 

1 



1,2242 


5P4SPT1 


5o 4sPuT 




0317 

REF 

21 

LAST 

711 

37,2756 

3 4 7 0 1 


CAF 

BIT > 




— r3xa“ 





57, "2757 

6 ra0 6 TT 


“EXTEND 





■ 319 

REF 

22 

LAST 

7 5 

37,2760 

j5 ^11 1 


WOK 

C^aLMUU 1 

TURN test CONNECTOR QUIBIT GN 


^32- 

REF 

4 

LAST 

827 

37,27o i 

i 3314 u 


TCF 

T ASKUVER 

END PREVIOUS KEAUACCS 

KiiA 1 TL 1ST 

TASK 
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37f^i7o2 U CGii6 i ^VtGOUF tXTENU 


C322 

L 323 

REF 

HEF 

1 

2 

LAST 

339 

3 7f 2763 

3 7t2764 

3 2767 
33'0o2 

■o 

u 

□CA 

DXLH 

VUUl LAD 
AVGhXiT 

? 3(24 

RET 

i 



3T72r65 

“i 2747 

0 

tCF 

“MAkI^cRV 

t 32S 

REF 


LAST 

B29 

E7,i425 


- - 

EBANK^ 

LVTUTAL 

( 326 

i?£F 

I 



3 7 1 2766 

3 1 0 

0 

AVUUTCAD 2CADR 

A V GtiNu 

*,326 

REF 

i 



37,2767 

76067 

i 
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SEaVICtK2o7 


USLk»S PAGE NO. 


E6 S3 


Pv327 
K' 32 3 
R( 33i 
TOC 331 
K^332 
H \ 3 3 3 


rtCUTlM name: UNMNITCR 
MOD BY BAlPNSFATHtR 3j 

v'3 BY FiSHOk DFCEMaER 19o7 
C 2 B Y "RYl soft IT67 
'1 BY KDSKALA £.3 MAR 1967 
tw BY K 05 MALA 27 Ft 5 1967 


APR 1963 


KFDU ONMNl TOR TU SAVE PIPS EACH .3 SEC FOR TM, ENTRY 


PCD 

MOD 

HOD 


R ! 334 


F UNC 1 1 ON AL DE SCR I P T I ON 


Kv336 
R 337 


THE~PURP0SE OF ONMCNITOR IS TO PRUVICE 1/2 SEC.KtAOiNo OF PIPAS FOR DOWNLIST DURiNO ENTRY. 
X,Y,ZPIPaUF CONIAIN PRESENT VAObES .<,Y,20Lufl0F CCNT AlN VALUES FROM PRFVIOOS READING. 


Rt 33 ': 


CALLING SEQUENCE 




R( 34* 



v,ALL AS WAIILISI iASK, TERMINATES ITSELF IN TASKCVER 

R ' 34 1 

initialisation 






R b42 



PiPOTR 

= 2 

IFOR DT = 

U a 5 ^ E C) 



RC343 



X,Y, zpipbuf 

SET TO PREVIOUS P1PAX,V,7 


RC344 

GLTPUT 







k<L345 



X,Y, ZPIPBUF 

f XfV f jiiCLOjbiiF 



R':346 

DEBRIS 



■ - - - 




k ..34 7 



X,Y, ZPIPBUF 

CDNTAl N 

LAS! PIPAX, 

Y,Z VALUES 






X t Y i 

ZlLDBUF C 

ONIAIN LA^l 

— dJl^OME PI PAX, 

Y fi VALUt6 

KC349 



RUPTkEGl 





R< 33'' 



Pi PCTR 






0351 

REF 

3 

LAST 

B2B 

3 7,277C 

55 • ^ 6b 1 

LNHNI TOR T S 

Pi PCI R 

1 332 

REF 

9 

last 

719 

37,2771 

0 32i>5 L 

T L 

F 1 XD ELAY 

353 







oo5StO JEC 

5.,^ 

u354 

REF 

31 

last 

328 

37,2773 

3 ^ 6 7 U 

QUiKKuAD CAP 

T rtO 

" ^"355 

REF 

2tl 

LAST 

327 

37,2774 

34 17> 1 

+ 1 TS 

RUPTREGl 

, 356 

REF 

124 

LAST 

829 

3 7 f ^ f 7 ^ 

5‘- lOu 1 

INDEX 

A 

^”357 

REF" 

—6“ 

TAST 


" TT7 ^77 6 

3 “^l37 l 

C7S 

PTPa \ 

358 

REF 

21 

LAST 

831 

j 7 f 27 7 7 

5b w7C 9 

LiiiJtK 

K u i K b b 1 

C35y 

REF 

4 

LAST 

623 

3 7,300' 

51*553 G 

XCH 

XPIPBUF 

0360 

REF 

22 

LAST 

331 

3 7,3001 

5 ' :7u 0 

INuEX 

RUPTKLbi 

0361 

.REF 

4 

LAST 

326 

3 7 f 30 u Z 

55*5 3o 1 

TS 

XuLDSUF 

0362 

KEF 

23 

LAST 

031 

37,3303 

iC 1 

CHKLTR CCS 

hUHl Kcbl 


■ “REF 

“XT 

“ITtST ' 


''37',32.7r 

""1 2 17 ^ t 

rcF 

<,JlXRtAO +. 

‘364 

REF 

4 

last 

631 

37,30, 5 

11 •066 1 

LCS 

PI PCI K 

0365 

REF 

1 



3^7 f 3 'j L b 

i 277' i 

TlF 

ONHi'iiTUR 

' 366 

REF 

41 

LAST 

829 

37,3.^ . 1 

sj 5314 i 

TC 

I A S N u V E F. 




wAl 1 


"SAVE AOTim PIPAS FOR' T7^; 


OPOAlE X,Y,ZP1PBUF 
AND X,Y,ZCLljBUF 


a_o * I ■ 




x'ODP "AGornr 


kAfi . - A :a3fc H0Lti K t VIS ION i Ci- A GO PROGRA M A KTE HIS dY 
L SEkVlCtK2u7 


R ' JO'i 


icF j 

n E F 

2 

LAST 

826 

3 T f 20 0 C 




i t) s s 





37,3uiC 

- - - 



C37', 

REF 

17 

LAST 

830 

E7f 1425 

V 



C37( 5 

REF 

2 

LAST 

826 TO 

832 : ; 

129 129^ 


TiTl 

RTF 32 

LASr^TBl 

37,iJi*> 

3 476? 

u 

jmVTCEK 

C372 





3 Ttiol 1 

L 00O4 

J 


<373 

REF 

24 

LAST 

831 

37, V12 

54 ' C '7v 

1 

PiPCHcLK 

374 





37,3013 

b O’ COO 

1 


■ . 375 

REF 

185 

LAST 

3oi 

37,3014 

5 U u J 

1 


CTT^ 

ITEF 

1 i 

OVT' 

82S 

V7,'3ciT5' 

il * 3i4 

1 


377 





37 , 30 1 0 

6 3 0 2 j 



378 

REF 

1 



37, 3017 

0 3€2o 

0 


«w37S 

REF 

1 



3 T f 30 2 L 

6 3152 

1 


L38< 





37,3J2i 

0 00 ^6 

1 


<381 

REF 

2 

LAST 

332 

37,3022 

6 3326 

' 1 


~C382 

REF 

' 30 

LAST 

ttc9 

3 7 f 30 ^ 3 

yj 567 1 

1 


C383 





37 , 3024 

00' 2 05 

0 


C384 ' 

'REF 

1 



3 7 f 3 it25 

C 3056 

1 


• 385 

REF 

25 

LAST 

832 

37,3026 

i * ^ ^ 7 

1 

FTPLOOP 

' 386 

R t F 

1 


- 

37, 3027 

1 3 jIZ 

w 


’’387 

REF 

84 

LAST 

8 

37, 3C3< 

J 5402 

i 


>'.38 8 





37,3wJl 

16035 

0 


0389 





37,3032 

2CCU0 

0 


<33^5 

lTEF~Ctr 

VAST SCI 

If 225i' 



5P3S PT 9 

0 39f 

REF 

Id 

LAST 

832 

£7,1425 




l391 

REF 

1 



37 , 3 j->3 

0 3C37 

U 


0391 

REF 

i 



37 f 3 > 0 4 

7 6 L 67 

1 


0392 

REF 

20-5 

LAST 

a<9 

37 , 3035 

v> 46 J 6 

♦ 

c." 


L393 

REF 

2 

L AST 

4J9 

37 1 3u3 6 

152 7 b 



C394 

REF 

204 

LAST 

8 to 3 

37 f 3u3 7 

O’ 4f* o ^3 

1 

eVTuTUP 

AC3Q4C5 









A 1.3941 









C394r~ 





"Car, 334 c 

~7l2i4 


T icKinrr” 

<39425 

REF 

2 

LAST 

793 

^ f f 3i#^ X 

u33l4 

1 


<3943 





37,3 j42 

77 47 

1 


'3^435 

REF 

3 

LAST 

812 

37,3043 

.3735 

i; 


<3 94 4 





37, 3i/44 

77ol5 

L 
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SETLCC StriVTCcS 
eJaNK 

ctJANK= i>VTGTAL 
COUNTS $$/SERV 

OJF TTJu' 

iNhl iVT 

TS RUPiKtGl 

DOUBLE 
INDEX A 

errs ucL vx 

TC +2 

7u Pi PL GUP 

AO -MAXGELV GO PI PA-S ATUkA I i GN TEST BE FORE 

tXTEND 

BZMF PIPLOUP tOMPtN^AT ION« 

TC ALAKi-1 

UCT '-G2,.5 SATURATED-PIPA ALARP ♦’♦^'J^CHANGE LAlc?, 

TC AVERaGEG 


CCS HUPTREGl 
TCF PlPCHECK 

TC PHaSCHNC RESTART REREADAC + SERVICER 

UbT 16u3i 

GCT 

_ 

tuANK= CVTGTaL 
2uADR GVTCTUP 


T C E A NKC A L L P 1 P A COM P ENS A I i UN CALL 

CAOR 1/PI PA 

TC INfPKEl 

THE FOLLOWING SECTION DECREMENTS *TTu» DURING Pbl 
TukDOoH P63 ONLY* IIE: IN P6 ^ * S IF ORAG< u) 

'BCTn"' ' L LiJ aQ VC iTJTkn S' "S lT ' = r 'TfTTTCFSH" STAk V 

. juSm flag is assigned only to P51-P67^ 

DO NOT COUNT *TTE' IF DRAG > < *!5 GC 

Tr..2 

DAD 


n ■ 


t* 

' 1 


b AP : ASS t MBL E E /ISlU N v7^ OF AbC PKUbRAi^ AKTEHI5 BY NA SA 2 211 
L SER V 1 Cci<2-^7 


(39445 

REF 

7 

LAST 

828 

37, i'j45 

1^^ 5 

1 



03945 

REF 

1 

LAST 

312 

37, 30 4 6 

b 3 72 7 

0 


STORE 

AC3946 










* Ar39465 










t.3Sib 




— - - - - 

37 , 3:47 

51575 

1 

■ - 

VLUAD 

(396 

REF 

11 

LAST 

183 

37 ,3 J3v 

31315 

1 



1:397 





37,3351 

77435 

0 


t)MP 

t398 

REF 

JL 



37,3 ;52 

37 365 

0 



(399 





37,3U53 

0 01 16 

1 


lXTEKO 

- 4 'v 

KtF 

279 

LAST 

814 

37 1 3 J 54 

3 .155 

0 


OCA 

4 1 

KfcF 

19 

LAST 

832 

37 ,3u5 5 

21* 426 

1 


UAS 

• 4':i2 

REF 

3 3 

LAST 

832 

37,3056 

0 54C2 

1 

AVERAGEG 

TC 

.43 3 





37,3U57 

10035 

i 

V-' 


OCT 


045 3 5 

REF 

12 

LAST 

832 

01, 225 ( 


5P3SPT1U 

= 

C454 

REF 

2 j5 

LAST 

B32 

5 7, 306 c 

6Cj6 1 


TC 

043 5 





3 7 t 3 i 6 I 

77624 1 


CALL 

04o'6 

REF 

1 



37,3j62 

77330 1 



1 4 f 7 





37 f 3C 6 3 

77776 1 


EXIT 

• 40 8 

REF 

66 

LAST 

833 

37 , 3.64 

1 


TC 

. 40'J 





37 1 3v 6i> 

i.-C35 0 


UCT 

4095 

REF 

15 

LAST 

83:> 

. i,225i 


5P3SPTli 


■ 41' 

REF 

5 

LAST 

829 

37 f 3U66 

3 41Z^ i<f 


CAF 

' 4iT" 

REF 

3 

TTvSr 

~7W 

3 7 , 3 6 7 

0 56j7 0 


Tt: 

■ 412 

REF 

H 

LAST 

539 

37,3U7J 

01070 1 


AQRt S 

"413 

REF 

13 

LAST 

808 

37, 307 r 

31027 0 


ACRES 

- 4131 





3 7 f 3u 7 2. 

0 CblS 1 

END COPY 

RfcLlM 

414 

REF 

87 

LAST 

' 833 

3 7 , 3073 

s'54:2 1 


TC 

1415 





37,3374 

1' 135 : 


UCT 

^ 415 5 

KEF 

14 

LAST 

833 

01,2250 


5P3SPT12 


’ 416 





37,3075 

V 1 


EXTEND 

.4 1 7 

REF 

3 

LAST 

83 0 

3 7, 3 c 7 S 

3 1 }62 1 


JCA 

'413 

REF 

13 

L AST 

358 

37,3C77 

52 006 L 


DXCH 

419 

REF 

14 

LAST 

812 

37,3i0i^ 

3 1044 U' 

AVGENu 

Cp a 

'■ 42 : 

REF 

1 



37,3101 

55*277 3 


TS 

421 

REF 

65 

LAST 

8 >4 

3 7,31' 2 

J 55h 7 1 


TC 

422 

REF 

5 

LAST 

775 

37,31<:3 

-’036 1 


ACRES 

•: 425 

REF 

31 

last 

3^3 

37,3104 

0 5 3oZ 


TC 

“ :42ir‘ 





37", 31115“ 

?0GT5~1 


UCT 

!i427 





37, 31C6 

C5022 1 


OC \ 

0428 





37,31C7 

2L0Ol V 


OCT 

€42 9 

REF 

2C6 

LAST 

“ 833 

3 7,311. 

u 6U06 1 
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AND IS UN CALL' ANU' UN ■ 

^TTTRT 

“DTTLTST. 


AdVAL 

CELV 

EXIT 

KPIPI 

GET A6S VALUE OF DELV 

scale at 2(+7) 

- - 

■ - 


KPAC 

CVI'jTAL 

PhASCHNG 

1l_35 

ACCUMULATE DViUTAL 

- 

- - - - 


5 ? 3 0 PcT 
IraPRtT 



- , - 


CALCR'/G ■ 

^ . - — - 




PhASCriNG 

135 



- 


5.33PUT 

CCTii 

COPY Ri\'l,VNi,GCTl 2,Ga 

dLl/2 

jPlPTIMEl 


^ Gi 1 

■ TNTU~T<}v ,5Tr , birr / 12 ,GUBL/2 

; FTPriME 


KiN 1 

RN 

- 



- 

PHASCriNG 

1 ;./3 3 





5.,3SPur 





;V\/ G £ X 1 T 

2 

AVEkAGLG EXIT 

- 



PlPTlMt +1 
CLDoU 

FINAL AVERAGE G EXIT 
SET UP FREE FALL GYRO 

COrtPE 

NSATiON 


UPFL Ab 
CRiFTFLb 

2PHSCHNG 

SET CRlFTFLo 

BIT 15 FLAb 2 





5 GROUP 5 LTFF 


GKCUP 2 ON FOR AVETURlD 

2 ■ 


\ 


IN r PRcl 


gap: as 

31 MUtk Rt: y Hi CN 

t:72 

CF AoO PKGi^KAM AkTEMIS BY NASA 2^ 21 

114- 11 1 

L:4 File* 26*1971 MENfcLAUS.o61 

PAGE 834 

1 

SEHVIttR2u7 








USER'S PAGE NO- 12 

t7 S3 

' 4 :i' - 





37,3111 

77624 

1 


CAlL 




‘-431 

REF 

1 



3 ?,3ii2 

73677 

0 



AVEfOMID 

CONVERT OTATE VECTOR TO REFERENCE SCALE* 






37,3113 

77776 

1 


EXIT 




( 3 1 

REF 

2Ge 

LAST 

832 

3 7,3114 

w 4636 

L. 


TC 

eankcall 




REF 

1 



37,3115 

17231 

1 


C A JK 

PlPFREt 



•4323 

REF 

22 

LAST 

829 

37,311o 

4 47o5 

*J 


cs 

CiT9 

- 


‘..432 25 

REF 

5a 

LAST 

7S6 

37,3117 

55' 722 

f 


TS 

RRKBUFi 

INVALIDATE MARK bUFFER 


~niZiK~ 





TTtSmy 


I 


EXTEND 




V 4325 

REF 

23 

LAST 

829 

37,3121 

^3 .11 

i 


n AND 

OSAlMUUT 

- - 


( 43255 

REF 

54 

LAST 

801 

37,^122 

ij 5Soi 

* ^ 


10 

CCrtiNFLAG 



L43256 

REF 

1 



37, 3123 

ot 14 7 

'J 


ADRES 

CM/jaTbY 



'. 432 6 

XEF 

60 

last 

834 

37,3124 

U 55ol 

Q 


TC 




24327 

REF 

5 

LAST 

646 

37,3125 

0(1q2 

1 

— 

At) 7 <l i 

V37FLA0 

- - - - 


1 432 S 

REF 

21 

LAST 

744 

37,3126 

3 i- 1 'j 4 

1 


Vm* 

FLAGWKDO 



243285 

REF 

11 

LAST 

744 

37,3127 

7 4760 

L 


MASK 

UTblT 



043 2 ? 

REF 

186 

LAST 

832 

37,3130 

JL 1 j' •• 

1 


uCS 

M 



C4325i 

REF 

1 



37,3131 

1 3i4u 



T Ch 

U r A V hWi) 



C 433 

R E > 

8 

LAST 

263 ~ 

37,3132 

3 4762 

w 

- 

CAF 

RNCVZbll 

RESTaPh GROUP r + 2 IF P2* IS 

RUNNING 

• 434 

REF 

19 

LAST 

761 

37,3133 

7 74 

c 

S ' 


HASK 

F LaG WHD j- 



,4 3 5 





37 ,3134 

V, C o ’J 

1 


EXTEND 




243o 





37,3135 

1 3141 

1 


bit 




■f 437 

REF 

32 

LAoT 

833 

3 7 f 3 1 -3 6 

u !>J>oZ 

(. 

4 

o 


TC 

aPriSCHNb 



243 8 





37,3137 

L .lil 

U 


JOT 

ill 

1, i IS PUT 


.43 = 





37, Jl4v 

^•132 

1 


GO i 

132 

2*13SPIjT 


i 44v 

REF 

6 

LAST 

572 

G 1 f Z ‘}Z 3 



IPliSPT 7 


1, ilSPuT 



l44 1 

ref 

2 

last 


3 i f 



2PX33PT2 

= 

I* 13SPuT 



. 44 5 

REF 

48 

LAST 

808 

37,3141 

, 463 5 

0 

ENDAVcG 

rc 

PCS 1 JUHP 



t 446 

REF 

2 

last 

210* 

3 7 # «# Z 

1. iu2 

O' 


OAOR 

C Ai i V 3 7 



2 447 

REF 

83 

LAST 

833 

37, j143 

^ 5402 

1 

StRVEXI r 

TC 

PHASCHNG 



448 





37,3144 

UC035 

1 


OC 1 

L- 3 5 

A, 5.3 = REREAOAC (DNLVJ 


' 44 & 5 

REF 

15 

LAST 

633 

» 1 f ZZ5 



5P3SPT13 


3 3 ji ^ P lJ 1 



(449 

REF 

83 

LAST 

808 

37, 3145 

i 32U5 

1 


TCF 

JUB 



■ 4491 

REF 

33 

LAST 

83** 

37,3146 

b 53a2 


OTAVENU 

TC 

2PH3LHNG 



(4492 





37,3147 

u j 1 i 1 

■J 


GCI 

Hi 



"4493 





^7,315 . 

L \J Z 



ocr 

z 



^ 44 335 

RtF 

7 

LAST 

834 

j X 9 Z < Z 3 



IPllSPTb 


1 » 1 IbPUl 



44*^^^ 4 

REF 

1 



J 7 f 1 3 1 

1 3141 

1 


T 

£NUA V hb 




^ Af • ASaIM fiL t K fc VISION Ull C F AuC HKOGKAM ARTEMIS bY NA S A 2021 114-11 


L 

3ERV1CLR207 


- 

- 

- 


' 4>'. 

AiAbl 

A 1452 

REF 5 LAST 39 ■ 

4775 


DVT HRUSH 

EQUALS 

ELEVEN 

<453 

- - - - 

37,3152 

634 j1 

1 -MAXUtLV 

DEC 

3 

4!>4 


37,Jl53 

uu 17 

1 JTAbTlME 

DEC 

1 1 

A < 457 

Ai 456 








24tl97l MENELAUS., ■ 61 PAGt: 835 

UStR'S PAGE NO* 13 E/ S3 

lb PtKCENT OF 2SEC PIPA ACCUMULATION, 

FOR 503-FULL C SM/LEMo . . oOEL V SC*AT 

5*65 CM/SEC o 

PPS FCR 2 SEC CCS TAKES 1 


= 1 SEC + T CDU, T COU = «1 SEC 


SHOULD BE 2-4 S6CS FOR NO START 

6-8 SECS FOR failure 


ii;4^' F£b^ /6.19;i MfcN£LAUS^:6]. PAGE 836 


^ H Ab^ EHBLE k i: VibiCN 072 CF AGO P RQbKAM A RT £M IS BY NA SA 2 21 11^ _1 L 

L SEKVICER207 U3tR*i> PAGE MUo 14 E? S3 

P.4S^ NuRMLIZE PERFORMS I HE IiM I TIAL IZAT ION BEOUIREO PRIOR TO THE FJR^T tHTKY fO AVERAGEGt AND SCALES RN SO THAT IT 

R.4ul HAS 1 LEADING BINARY ZERu* IN MUST MIS SIGNS, RN WILL BE SCALED AT Zt+29I, BUT IN IHE 2 6 MISSION, RN WILL GE 
R 4ci SCALED A1 2t+24)M, 


' 4o4 

REF 

1 



37,3154 

3 4776 C NUKMLIZE 

c Ah 

ThiKTfct hi 

SET UP TO COPY 14 KEGS- RM , VNl , PI PT 1 ME 1 

• 4d5 

REF 

i 'j 

LAST 

633 

37 f 3 1 5 5 

u 5607 D 

TC 

GhrJ r K.AIM 

INTO kN,VN, PIPTIME 

A66 

REF 


LAST 

833 

37,3156 

0TC7C 1 

AD RES 

HNi 

from HERE 

“ 467 

REF 

14 

LAST 

833 

37,3157 

01027 0 

AORES 

KN 

TO HERE 

‘46 8 





37,3i6C 

c C C 0 3 1 

HELINT 



46^ 

REF 

2C7 

LAST 

833 

37,31ol 

t' 6u j 6 1 

Tu 

IM PRE f 


• 47 ‘ 





37,3162 

45173 U 

^^LUAD 

Call 

LOAD RN FCR CALCGRAV 

• 4 71 

REf 

15 

LAST 

836 

37,3163‘ 

0 




v472 

REF 

2 

LAST 

723 

37,3164 

7727v 1 


CALC 6RA V 

INITIALISE UNITR RMAG GOTl 

‘ 4 ?_> 

REF 

3 

LAST 

730 

37,3165 

25C46 1 

STUVL 

GOT/ 2 


C 474 

PEP 

3 

LAS! 

80 

3 7 f J 166 

01115 0 


GC8L1/2 


C475 

REF 

3 

LAST 

730 

37 ,3167 

35C54 0 

STCALL 

G08L/'2 


L476 

REF 

4 

LAST 

538 

37,317‘ 

31263 1 


lNJPLAC 





4SSEHBLb ivCVlSI ON Ml GF A uC PROGRAM ASTEMIS BY NASA 2 211 14-^11 11s 4-j F£b» 26»1971 MbNEL AUS.061 PAGE WJ 

L SLRVlt:t.K207 USER'S PAGE NO* 15 E7 Si 

-'t/d PiPA READER 

k- 47s “ iXOD'lTG* r 3Y u7~LTC'k1y‘ DEC.9~r9ob " 

R'‘4S FUNCTIONAL DESCRIPTICN 

R*481 SUtiRoUTlNE TO READ PiPA COUNTEHSf IKYING TO BE VERY CAkcFUl SO THAT IT WILL BE REST ART ABLE <. 

— FT43 3' PTT ^ R h A U IT ^ S ARE SlUKED IN 'T H E T^CTOiriTEinr»~~THE HIGH TJRI7ETr~FAK t OF EACH'X0WPI1KFNT''CI}N1 AINS THE PIPA RfcAOiNG, 

RL485 RESTAPIS BEGIN AT REREACAC. 

RC486 AT IHE END Of THE PIPA READER THE COUS ARE KcAD AND STGREJ AS A 

KC487 VECTOR IN CDUTEMP* THE HIGH CKDER PART CF EACH COMPONENT CONTAINS 
' TFFXrc RHTIDTTiCriN oUMP IN I H t 0 R D E K n70X“,T7Z^ THE THRUST 
Kt489 VECTOR ESTIMATOR IN FINDouUD REOUlKES THE CDUS BE RcAD AT PIPTlMEa 

Kr49L calling SEQUENCE AND £.<11 

call via TCt ISwG ALLt EIC* 

RC492 EXIT VI A Q* 


Rt493 INPUT 

^rrA94 INPUT IS THROUGH THE COUNT PlPAXt PTPAYr PIPAZ, ANu^FmeT* 

Rii.495 OUTPUT 

R-496 HIGH ORDER COMPONENTS OF THE VECTOR OtLV CONTAIN THE PIPA READINGS.. 

■RT^gT TTTPTTRE “irOTTrArmS‘TTHE"UF P I P ATRE ADIN Ci 


Rt;498 DEBRIS (ERASABLE LOCATIONS DESTROYED oY FROGKAMJ 


K. 

LOW ORDER D ELY'S 

ARE ZEKGEO FOR T« INDICATION. 



THMX TEXY nrFT 

KZ ■ PIPAGT ■ 



,5 :i 
<5,2 
. 5 . 3 

ReF 

REF 

32 

O 

LAST 

LAST 

736 

833 

3 7, 3171 
37, 3172 
37,3173 

u 1 PIPASR 

3 C 025 u 

53*105 t 

EX } END 

UCA 

OXCH 

f 1 Me 2 

P I PT I mE 1 


"ITEF 

~T43 

UAsr* 

■^27 

3T, ^17 4 

‘V 7 7 2 w 

Co 

1l i<Q 

t>L 5 

REF 

2 

last 

79 

37,3175 

55*g63 1 

TS 

TEHX 

C5 ;6 

REF 

2 

LAST 

79 

37,3176 

55 * <- 64 1 

TS 

TuMY 

( 5< 7 

REF 

2 

LAST 

79 

37,3177 

55 ' . 65 1 

r 

I LRZ 


CURRFKT TIME POSlUVE VALUE 
IN TTIAUTTF"THESh A! NEG 'ZERD* 


b P : A SSIH B LE KEV XS ION OF Ab C PRO o kAM ARTEM IS BY NASA 2 .^11 

L SERVlCcKZi? 


< ' ' 

RLF 

144 

LAST 

837 

3 f , 32e \ 

3 4772 1 

CA 

V 

REF 

5 

LAST 

329 

3V,32< 1 

55'32t.; 

TS 


1 •ji. KlrP o L AST 8<;8 37,32 0 2 Sb*3i b 0 To 


511 

REF 

11 

LAST 

832 

37,32L3 

55*315 

1 1 

u 


Ts 

V 512 

REF 

7 

LAST 

838 

37,3204 

55*317 

1 


TS 

C513 

RFF 

6 

LAST 

838 

37,32g5 

55*321 

1 


TS 

A v514 










515 

REF 

4 

LAST 

823 

37, 32 L 6 

55* jo7 

\J 


TS 

L5iC 


-- 



3 7,3207 

*w' W ■-* O 

1 

PtPiPl 

£ XT End 

':5i7 

REF 

7 

LAST 

831 

37,3210 

4 UC4^. 

1 


DCS 

:518 

KEF 

J 

LAST 

837 

37,3211 

53* - .04 

\ 


DXCH 

5 i 

REF 

o 

u 

LAST 

33d 

37,3212 

52 04 C 

1 


UXCH 


■3<EF" 

12 

LAirr 

5Ta 

3 7 1 3^13 

^*■3X4 

1 


TS 

C521 

REF 

8 

LAST 

838 

37,3214 

23 • 316 

1 

- 

LXCri 

522 

REF 


LAST 

438 

3 7,3215 

4 0041 

U 

REPIP3 

0 o 

■ 523 

REF 

3 

LAST 

837 

37,3216 

57* C65 



XCH 

• 524 

REF 

5 

LAST 

838 

37,3217 

rK» 041 

1 


XCH 

525 

HEF 

7 

LAST 

838 

37,3221 

5^*320 

j— ■ 

A .1 

CODtLVZ 

TS 

C526 

REF 

14 7 

LAST 

738 

37,3221 

w L- w 2 

C 


Tu 

C527 

REF 

21 

LAST 

829 

E6 , 166 1 




h fcJ ANK— 

l528 

REF 

3 

LAST 

700 

37,3222 

1 1 * 1 o6 

L 

REREADAC 

CCS 

C529 





37, 322 3 

1 322 5 



TCF 

C53C 

REF 

4^ 

LAST 

831 

37,3224 

1 5314 

k- 


rcF 

53-2 

REF 

3 

L ASl 

539 

37,3225 

3 7652 

L 


CAF 

^33 L 3 

R ET“ 

“I'J ' 

“TA^ 

"TTST 

37 # JZ26 

55 ' 277 

t. 


TS 


A « 53' 4 
A .53 ,5 
(K> 53' 6 
At53'. 7 


^531 

REF 

3 

LAST 

833 

37,3227 

11* C67 

u 

CCS 

^532 

REF 

4 

LAST 

829 

37 f JZa 

1 2652 

0 

TCF 

(.533 

REF 

1 



37,3231 

3 3267 

1 

uAF 

0534 

REF 

14d 

LAST 

833 

37,3232 

54 

1 

TS 

» 535 

REF 

h' 

LAST 

838 

37,3233 

11* 32 i. 

1^ 

CCa 

1 536 

REF 

149 

LAST 

838 

37,j234 

b jCv;2 


TC 

(537 





37, .>23 P 

i 324b 

0 

TCF 

0538 

REF 

15. 

LAST 

338 

37 1 6 

0 -CJ2 

n 

TC 

"539 

REF 

151 

last 

83 d 

37,3237 

0 s:b2 

J 

TC 


11 :4. EL0> 26tl571 MENELAU S . 61 PAGE 83B 



USER'S PAGE NOo 16 E7 S3 


2 1 Kb 

GcLVZ CTHER OELVS OK INCLUDING LOh ORDER 

CELVY 


UELVX +1 
DELVY +1 
CLLVZ +1 


PiPMbE 


PIPAX X AND Y PIPS READ 

T E3X 

PiPAX PIPA6 SET TO NEG ZERO AS READo 

LtLV^ — — 

CELYY 

PiPAZ REPEAT PKCCtSS FOR Z PIP 

1 ErtZ 

PIPAZ 

GcLVZ 


LOW ORCER DEL VS ARE ZEROED FOR TM: THUS 
IF DNLNK'D LOW ORDER DELVS ARE NZ, THEY 
CONTAIN PROPER COMPENSATION® IF=' , THEN 
THE IK VALUES Ak£ BEFORE COMPENSATION, 


SHOW PI PA PEAOING IN PROGRESS 


acg 


PHA:>E5 LAST PASS CHECK 

+ 2 

TASKOVt P. 

PKIOjI restart MAY HAVE WIPED OUT LAST6IAS, AN 

T/FTTaTTI OTTPPXTECTEET "NDVAC ' FROM PREREAD; 

WHICH SETISJ UP 1/PlPADT (THUSLYJ 
for NCN-CUASTING COMP tNSATIL •;a , • , Be 
SURE 1/PIPADT IS AUK. tPRI031 IS 
2,' SEC SC. AT B+8CSI 


P 1 PAGE 

KEAuACCS PIP READING NUT STARTED. GO TO BEGINNING 

LUNEADK Sbl UP RETURN FROM PIPASR 


CELVZ 

+3 


Z DONE, 6L CO LuUS 
Z NOT DONE, CHECK Y. 


T 


It 




gap: ASSEHBtL: KfcViS tON l 7 2 OF AoC PRO GKAH AK TfcMlS BY NAS A 2 2111^-011. li:4 FfcB^ a6»lo7l MEN£LAUS«061 PAGE 83^ 

L SfRVlC£R2G7 UStR'S PAGE ND*. 17 b6 S3 


1 ^4 





37,324 ; 

22 1X7 

u 


ZL 



' b%l 

RtF 

Q 

* 

LAST 

83o 

37,3241 

11'316 

0 


oCs 

CLLVY 


1 b-^2 





37,3242 

1 3245 

0 


TCF 

"f 3 


05A3 

REF 

1 



37,3243" 

■^■:325^4" 

IT" 


TCF“ 

CHKTt^lX 

Y iMQT UDN£f LHhCK Xo 

•544 





37t ^244 

i 3245 

■ ^ 


TOF 

+ 1 


f i>4S 

BEF 

U 

LlVST 

838 

3 7 , 3245 

22 v41 

1 


LXCH 

P IP AZ 

Y uUNE, zero Z "pip;, 

^546 

REF 

4 

LAST 

83 6 

37 , 324<j 

11 ' 365 

1 


CCS 

1 EMZ 

_ _ _ - -- 

r 7 

REF 

5 

LAST 


37 , 3247 

4 1065 

1 


c s 

IcMZ 

TEMZ NOT = - , CONTAINS -PIPAZ YALUGa 

“r54K 





~37",'325.' 

n ? * 

1 


TCF 

DuDt.LV 2 


r549 





37,3251 

1 3247 

1 


rcF 

-2 


‘55' 

REF 

g- 

LAST 

^3B 

37,3252 

23*320 

1 


L XCH 

OcLVZ 

TEHZ = -Gt"L has ZPIP VALUE, 

‘ 551 

REF 

152 

LAST 

838 

3 /,3253 

u gOG2 

L 


To 

C 

L 

• 552 

REF 

4 

LAST 

338 

37, 3254 

11*063 

1 

CHKTEMX 

CCS 

lEHX 

HAS 1HI5 changed 

^55T 

"irEF~ 

5 

"XAST 

ST7~~ 

37,3235 

17163^ 

1 


L S 

1 bM X 

yLS 

1554 





37,3256 

1 3261 

/ 

1 : 


TCF 

+3 

YES 

"555 





37,3257 

1 325 5 

1 


TCF 

-2 

YES 

; 556 

REF 

1 



J7 1 32t>L 

1 32w7 

0 


TCF 

RcPlPl 

NU 

557 

REF 

13 

LAST 

638 

37,3261 

55*314 

1 


TS 

ncLvx 


■; 55 c; 

REF 


L AS T 

837 

37 f 32o 2 

4 18 64 

O' 


GS 

TEMY 


559 

REF 

1. 

LAST 

839 

37,3263 

55*316 

C 


Ti 

CELVY 


55 . 

REF 

145 

L AST 

830 

37,3264 

4 4772 

r 

' m/- 


li^ ^ 

ZERO 

ZERO X AND Y PIPS 

5 ti 1 

REF 

9 

LAST 

838 

37 ,32u5 

"32 v-4i- 

1 


DXCH 

PIPAX 

L SULL ZERO r-HGM ABOVE 

562 

REF 

1 



37,3266 

1 3213 

L 


TCP 

RLP 1P3 


.563 

REF 

■t. 

1 

- 


3 7# 326 7 

02653 

c 

DONEAUR 

GENA DR 

P t PSDiiNE 

- 



I 


A^'>£M6Lt KbVIS lCN > 11 Of AGC PKUii KAM A tiTfcMJ S bY NASA 


Il;4i (EB, 26tl971 MfcNELAUS^ 61 PAGE B4 


I 


SERVlueK^J? 


USER'S PAGE NO, 13 


E6 Sj 


K ' i>64 




R< ;>66 i<aUT INE CALCRtfG INTEGRATES THE EwUATIGNS UE MOTIUN av AVERAGING THE THRUST AND GRAVITATIONAL 

~iru5oS' “ATCTETkAT 1 u¥s~ OVEk. A~Ti^<E ITTOKVAL iJF Z sTCunds . ' 


K '!j6^ 
RviTl 


FOR THE EARTH-C ENTERED GRAVITATIONAL FIELD, THt PLKTUK&ATIGN DUE TO C6LATEKESS IS COMPUTED TO THE FIRST 
HARMONIC COEFFICIENT J. 


R 572 

T’CSTJ 

R< 51t> 
R> 5/0 
R‘^57 7 


ROUTINE CALCRVG REyUIRbS,.. 

n thrust 'A CXTTER'AT i iJJ5~rNT:?iEM¥NT3“i N"U l”l V^ rOTED"S AH’E ZTS" 

z\ VN SCALED 2t+7»H/CS IK REFERENCE CGURCS . 

3} KN SCALED AT 2(*’29J METERS IN KEFEREt^lCc C0DRDS« 

4) UKITW THE EARTH S UNIT ROTATIONAL VECTuR (SCALEO AS A 


PTPXXT Y rr 1 N"'STTiaL'E“HE'H3EA COOFOS^' 


FULL UNIT VECTOR) IN REFERENCE COORDS 


R'575 IT LEAVES RNl UPDATED (SCALED AT 2(+29)K, 


(SCALED AT 2(+7)M/CS), AND GDTl/2 (SCALEU AT 2(+7)M/CS)* ALSO HALF 


C 59 a 
C599 
C6 3D 

L 6 C 1 


rTs^ 

unTt 

VECTOR UNITPTT 

RhAG IN 3 oD 

SC Alec 

1 AT 2( + 29}M, 

t< MAG 

Sw» IN 3- 

R1583 




— 

- 

- — 

- - 



0584 





37,3270 

A1456 

0 CALCGRAV 

DNl T 

PUSH 

585 

REF 

2 

LAST 

91 

37,3271 

cl 756 

1 

STORE 

UNI TR 

586 





37# 3Z72 

6734u 

1 

LXC, 1 

SLOAD 

:537 

REF 

15 

LAST 

7 3L 

37, 3273 

u 3 7 ■+ 6 

i 


HtX2 

:5871 

REF 

31 

LAST 

791 

37,3274 

i 

1 


XI 

6 56 6 





37,3275 

77240 

1 

dMn 

VLOAD 

<5361 

REF 

1 



37,3276 

77 32 ^ 

1 


III SMUUN 

V 56 9 





37,3277 

41441 


OUT 

PJ^H 

l59i 

REF 

8 

LAST 

816 

3 7 1 3 3 V 

cl712 

1 


UNI i ifll 

u591 





3 Tt ->3k' 1 

443 i 6 

Kd 

USD 

B (l) S U 

V 592 

KEF 

1 



37 f 33C 2 

37375 

1 


DPI / 2i. 

6593 





37, 33C3 

56 325 

i 

PDDL 

CDV 

i 594 

REF 

1 



37, 33u4 

3737 7 

K 


Rc6J 

595 





37, 33 C 5 


c 


3A J 

V, t) 





37, 3306 

0C-')41 

1 

oToke 

320 

r5Tr“ 





"37733677 

412 J 5 

Q 

"DHP 

“clP 


REF 


REF 


LAST 84o 


j I , 

37,351 
J7,33i 1 

37.3312 

37.3313 


374 n 
u 5 361 
173 0 
412 ‘j 5 


VXSC 


dmp 


E J 
PDuL 
UNI I K 


-^'602 

REF 

1 



37 # -:j3 14 

37433 

1 

660 3 





^ f f ^31 P 

ccv;4i 

i 

C6U4 





37,3316 

53361 

• - 

65 5 

REF 

9 

LAST 

840 

37,3317 

21712 

1 

i 6v6 





37,332C 

7 7626 

j 

H ■' 

J 6c 7 

REF 

4 

LAST 

336 

37,3321 

76662 

1 

u6C 8 





37,3322 

41 4j> 


6 6ft 9 

■rEf 

4 

lIOT" 

84 c 

T7T35Zr~ 

“^1730 

1 

' 6l! 





37, 3324 

63545 


611 





37,3325 

» ' ' ^ 


.6112 





3 7 f ^326 

/77..1 

1 

612 

REF 

13 

LAST 

726 

37,3327 

0 h 3 'o 

1 


V\SC 

s r adr 

STORE 

VAU 


2J 
320 
VAD 
LNl 1 ri 


ITISMOON DLuAD 


GaaLi /2 

PUSH 

Csw 

36D 

X2 


M 53 


ENTER hlTH P.N IN MPAC 


( RN ) S Q 

TEMP FOR (R£/KN)SU 


NORM 


b AP : AS i> E M BL E ReVJSION OF AbC PKOSRAM A K fEM lS BY NA Sa 2'_ 

I SEKVlCtR^CT 


V 1 





37 f j'33 V 

53o63 

1 


BDDV* 

> ol22 

KEF 

1 



37,3331 

373o7 

1 



c 613 





37 f 3332 

56623 

t . 



614 





37 , 3333” 

455^61^ 


V X iL 

615 

EF 

1 

24 

LAST 

79 

37, 3334 

7667L 

1 


store 

♦ 6 1 6 





37,3335 

77616 

i 

V 


kVd 

C622 

- 




37,3336 

74375 

1 V 

CALCR VG 

VLUAU 

o jci 3 

REE 

12 

LAST 

833 

37,3337 

01315 

1 



:&24 

REF 

02 — 07131 

“833 


J7365“ 

U 



?-625 





37 1 334 1 

765-5 

6 


VXM 

C626 

REF 

45 

LAST 

322 

37,3342 

1734 

i: 



627 

REF 

7 

LAST 

746 

37,J343 

t -'3432 

1 


STORE 

r628 

■ 




37,3344 

4156 2 

0 


VSRl 

C629 





37,3345 

41455 

J 


VAU 

CSJU 

“REF" 

“4 LASl 

“836“" 

3 ? t 3 34 6 

, l !J46^0ir 



C631 





3 ^ t 334 7 

74255 

0 


VAD 

*632 

REF 

12 

LAST 

8 08 

3T 1 335 c 

01036 

G 



0633 

KEF 

1 



37 , 335 1 

373 73 

1 



0 634 

* - 




37,3352 

440 5 5 

1 


VAO 

b635 

REF 

16 

LAST 

836 

37,3353 

v.^ 1 0 3 

J 



“ TtTa ~ 





“377335^4” 

u 037 

u 



..63 7 

REF 

o 

Last 

836 

37 ,3355 

35'. 71 

1 


stcall 

C638 

REF 

3 

LAST 

836 

3T f 335 6 

77270 

1 



0 639 






37 i 3357 

53255 

0 


VAD 

>'64f 





37, 336 V 

77655 

1 


VAD 

— E64T“ 

■ REF" 

"13" 

LAST" 

“841 

3773^61" 

C 1 3 6 

0 



C642 

REF 

3 

last 

539 

37 1 336 2 

35 77 

1 


o ALL 

0643 





37 f 3363 

G 0 :: 3 7 

U 



0 645 





37, 3364 

02312 

0 

KPIPi 

2DtC 

1 645 





37,*»365 

32537 

1 



r64Er 





“3T, 336 6 

61377 

c 

'MUU* ItJ 

646 





3 7f 536 7 

55 7b4 

1 



647 





37,3370' 

77644 

i 

-MUDTIM) 

2DEC- 

- 647 





37,3371 

t>555t» 

1 



«: 64 8 





37,3372 

QOGO',- 

1 

ZScCI 22 J 

20EC 

w648 





37,3373 

3 1 0 U V 

u-' 



0649 





37,3374 

1463 

1 

DPi/2'J 

2ufcC 

CG49 





37, 3375 

'.6315 

/- 

Vj 



'*650 





3 7 1 ^7# 7 6 

wvcrw 1 

r;, 

HESQ 

2 OEC 






37, j377 

050 C.'. 

1 



;-651 





3 7 f 4^ »■- 

02l47 

- 

20J 

2Dt;C* 

" ^ C651 





37,3401 

36332 

w 



’.652 





37, 34l2 

■i' 1^2 

1 

2J 

2DEC^ 

652 





37,34-- 3 

l43l 1 

1 
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14-11 


USER'S PAGE NO. 19 E6 S3 

S Lrt^ 

-MUu K t i fl 
V -2iDi2 

TTADTc 

GDTl/2 SCALED AT 2(+7J M/CS 


VX:iv 
ClLV 

KPTFT— 

V6L1 

f> cF SMi’iA T 
L EL VR£F 
PUSii ‘ ~ 

P U o H 

TIUT72 

V XiC 

2 6 E C ( 2 2 1 
STj 
KN 

Tirr 

HiiU TEMP STUKAGE OF RN SCALED 2(+29)M 

CALi^GKAV 

VAJ 


CELV IN RhF CODRDS AT 2(+7J 
(OV-CLDbDT 1/2 TO PD SCALED AT 2(+7)M/CS 


V.^^l TEMP STUKAGE LIE VN SCALED 2( + 7)M/CS 

3 ID 

,.y74s8v 207 UELV SCALING. 1 PULSE = S.85 CM/SEC« 

-7 i 972 J 645' E+T2 "r-44^ 

— 9o 8*6556 E+IC- 8—44* 

4»'. B— 22 


'j .j 

^ >.68u99 U l 12 a-59* 
3.2469221^ L-2 Bl* 


3v 24692 ‘lu E-i Bl* 


PfcBo 26»1^V71 HbNELAUS,:61 PAGE 


V 


i _ ASSE MBLE KEVJ S ION JJ, uF AuC PRO G RAM ARTEM IS BY NASA ^ - ■ 11 


L 

ENTRY LEXICON 

k • l, u 1 

^ 3 

VAKI 

R s 

— 

K V 6 

UR TO 

K 8 

— 

R T 0 9 

jz 

R 00 1 1 

— 

R 12 

V 

Rk-t‘l4 

— 

RtLlb 


R'-k 17 

— 

r; 0 1 e 

VI 

R;.02L 

— 

R 02 1 

RTF 


DESCK 1 P T 1 UN 


MAXIMUM VALUE * 


UiEK'S PAbc NO 


CGHPUTER NAME 


E. S3 




INITIAL TARGET VECTOR 


UNIT VECTOR NORTH 


VELOCITY VECTOR 


(UuiT VECTOR) 


Z V o A ) 


POSITION VECTOR 


INERTiAL VELOCl lY 


^ EXP METERS 


128 M/ CENT I SEC 


VECTUK EAST AT INITIAL TARGET 


R 2 4 

UTR 

NORMAL TO RT E AND U2 

2 


R<;R26 

— 




RT<*27 

JRT 

TARGET VECTOR 

2 


R< U29 

— 




R C/ i 3' 

UNI 

UNIT NORMAL TO TKAJECTCRY PLANE 

2 


”r7^31 





RCt' 32 

OELV 

lf^iTtG^ATEJ ACCEL# FPUH PI PAS 

5 83 lo384 CH/S 

RCC33 

— 




RC(.34 

a 

GRAVITY VECTOR 

128 M/CENTISEC 

R CC 3 6 

A. 

INITIAL DRAG FOR UPCONTRL 

8.^5 FPSS 


ft V 03 6 

AHOO KDV 

TERM IN GAMMAL CALC. - AHOOK UVL 

e 


RC039 

A1 

DRAG VALUE IN FACTOR CALCULATION 

8 :> FPSS 


RCXh 

.alp 

CONST FOR UPCONTRL 

1 


RCt 41 

ASKEP 

KEPLER RANGE 

2 i b ^ NM 



ASPl 

FINAL PHASE RANGE 

216'-'-.- NM 


RCi 44 

ASPUP 

UP-HANGE 

i 6 . ? N M 



' 71573 

G7SHPra"CaRRECTIuN ' 

2i6‘..tC; 


R(C46 

ASPOWN 

RANGE DOWN lu PULL-UP 

2 i 6 J ^ N M 


RCC47 

ASP 

PREDICTED kANbii 

2i60C NM 


RCC4? 

COSG 

COS iNc I GAMMAL) 

A# 


RFC 31 ♦ 

C/Oi. 

RECiPkOCAL DRAGt -4/Dty 8-8 

6 ^ / h P S 6 


RCL33 

D 

total acceleration 

4:*J> FPSS 


ftf ( 54 

Do 

CENT ROLLED CoR5TANT u 

FPSS 


RCi. 33 

UHCDK 

term in GAMMAL COMPUTATION 

t PPSS 


RCCSG 

DIFF 

THLTNM— ASP ttvANGE CIFFERENCci 

2 i o > V 

NM 

RCC57 

diffolu 

PREVIOUS VALUE OF UIFF 

216'. 

NH 

R C (' 5 8 

OLE wo 

CHANGE IN LEWD 

1 


RtC5° 

DR 

REFtKLNCE URAG FOR D(JWNCCr4TRUL 

8-73 FPSS 


fttl 61 

okTPrI ) 

kEFEKENCE drag (FINAL PHASE TABLt) 

a a rP sS 


RCC63 

DVL 

VSl-VL 

2 VSaT 


RCr64 

c 

ECCLittiftICITy 



R u C 6 6 

Fit ) 

ORANGE/0 DRAG (FINAL PHASE TABLE) 

2 7C../a05 


R .06 a 

F2( ) 

DRAi4gE/U root (FINAL PHASE TABLE) 

27w /2VS 

NM/FPS 


= RTINIT 


== UMTW 


VEL 


= KN 


VN 


= RTEASI 


= RTNQRM 


= liT 


= GDT/2 


FPSS=FT/SEC/SEC 




NAUTICAL MILL 


NUT STDRFU 
= COSG/2 
AGC ONLY 


NOT STORED 

wr'S'mrr' 


NOT STORED 
FX ♦b 
FX +4 /E 


•_ ASSEMBL E R bVlSI ON 07£ OF A GC PROGRAM ARTEHI S 
L ENTRY LEXICCN 

RCL7v F3( } _ ORAHGE/D IL/DJ (FINAL 

Kv<72 

RC<-7A ^ . 

RCC76 FIGURE ^TiV^Z tXiHPUTEJr'VAFriTVBl'ES 


BY NASA 2;21 li 4-0ii 11; 40 FEB» 26,1971 MCNELAUS* 61 PAGE 


PHASE TABLEJ 27UJ; NM 


4 


USER’S PAGE NOa 2 ED S3 

? = P X 

’P MAXIMUM VALUE OENDThS UMSCALED 

VARIABLE VALUE WHEN SCALED 
VAR 1 A BL E HAS" HA XI MDM ~V7LL'UE~0F ' 


843 






o : . A:>5FHBLt: Ku>/IblLiN *> 7/ LiF A^G PKuG RAt^ ARTEMIS by NASA 2 i 


1 1 : 4 FEa> Zb, 19 il M£N5LAUS» 61 PAGi. 


L tMRY lexicon 


USER'S PAGE NOu 3 


\ 


I 


1 


’ j 


'j 


7 


P-,‘ 73 
' B' ' 

YARI ABLE 

uESCRIPTiDM 

MAXIMUM VaLOl 


CGMPUT_eR NAME 







K' 1 B2 

FACTl 

CCNSf FUR UPCONTRL 

2 VSAT 





RC' B3 

FACT 2 

CONST FOR UPCONTRL 

i/di 3 FPSS 





R OC Q 4 

FACTOR 

USED IN UPCONTRL 

1 





kCC85 

GAMHAL 

FLIGHT PATH ANGLE AT VL 

i RADIAN 





RCC86 

GAHHALl 

SIME^LE FORM OF GAMMAL 

1 RAO Tan' 





RCC87 

HEAD SUP 

INDICATOR FOR INITIAL ROLL 

1 





ft 8 d ~~ 


D RAiT To LIFT UP TF tTJWN 

BO 5 FPss 


— = fCAT 



RCC9r 

KLAT 

LATERAL Switch gain 

i 

(NUM = 

= ,ul25) 



ftCt.92 

K2RULL 

iNDlCATOft FOR rtOLL SWITCH 






RLC93 

LAD 

MAX L/0 tMIN ACTUAL VEHICLE L/D) 

i 





■RCC94 

ladpad 

NOMINAL VEHICLE L/D, SP PAD LuaD 

1 

(NUM = 

^ \,.i® 3 ) 



Ru096 

LATA NG 

LATERAL RANGE 

4 RaDIANS 





nm ^ - 

"Xatt:^ L r " 

'ITEDijtTIC TTHTTUCT ^TFn’A'Rbm 

X i<z V0L0TI0T3 





R CC 98 

LNGl SPLj 

LONGITUDE OF TARGET 

1 REVOLUTION 





k*:c99 

L LQ 

EKCESS C*Fo OVER Gft A V= 1 /Sa-l ) GS 

123 id f PSi> 





Rt lot 

LEWC 

UPCONTROL REFERENCE L/D 

1 





R ' It 1 

LOD 

FINAL PHAS£ L/C 

1 

(Tj'UM = 

= 13) 



R* 1 i 

LOOP AD 

FINAL PHASE L/U, SP PAD LOAD 

1 





R\ 1 4 

L/D 

DESIRED LIFT TU DRAG RATIO 

1 





k( 10 8 


(VERTICAL PLANE) 






k:106 

L/Dl 

TEMP STORAGE FOR L/D IN LATERAL 

i 





ktl07 

L/DChINR 

LAD CCS(150EG) 

1 

(NuM = 

= ^ ^2895) 



Rt.lL 9 

PREDAKGL 

PREDICTED RANGc (FINAL PHASE) 

^ f ij Li HH 


= PREDANG 



RClll 

j2 

FINAL PHASE RANGE 

216 ,^ > ' NM 





Rril2 

J7 

minimum DR^S(rTO< U'PCCNTkOL 

d 5 “FP“S"S 





RCilJ 

RDuT 

ALTITUDE KATE 

2 VSAT 





r: 114 

KDCTRtF 

REFERENCE ROOT FOR CPCCNTKOL 

2 VSAT 





K< 115 

kOUTREFt J 

reference ROOT (FINAL PHASE TABLE) 

2 y S AT 


= FX +3 /B 



Kill? 

RDTR 

reference root for COWNCONT 

-c y at 


TiOT SAVED 



Ri.119 

ROLLC 

ROLL COMMAND 

i Ru VOLUTION 





TT'rzr — — 

RTOGlGf J 

RA>RiE~T0"GI3 (Tn?Ar“PH7fSrE T'ABrtT' 

Z1 j'j NH 


= FX +2 



Kvl2/: 

3L 

SINE OF LATITUDE 

1 


NOT SAVLL 



Hi 124 

T 

time 

B 2a CENTISLl 


= PIPTIME-TIME/RTO 



R! 12fa 

fHtTA 

DtSlKEO RANGE (RADIANS) 

2 PI RADIANS 


- THE r AH 



Rciae ~ 

THETNW 

D ESI REG RANGE (NM) 

2 i 6 C : 0 N M 


NON FXISTtNr 



Ri. 13v 

V 

VELOCITY magnitude 

2 VSAT 





Rtl3i 

Yi 

INITIAL VELOCITY FOR UR CONTROL 

2 VSAT 





R*:ii2 

JL 

EXIT VELOCITY FOR UPCONTROL 

2 VSAI 





RC13J 

YMAGI 

INERTIaL VELOCITY HAGNll UDE , I V i t 

128 M/CENTiotC 





Rri34 

YRtF 

REFtKENCE VELOCITY FUR UPCONTROL 

2 VS4l 





Rtl35 

VREF t 1 

REFERENCE V (FINAL PHASE TABLE) 

2 VbaT 


NJl SI UKCO 



R L 1 3 7 

VSl 

VSAT OR VI, WHICHEVER IS SMALLER 

2 VomT 





~RXi3a ~ ^ 


2 2 






R<J139 

VdARS 

VL /VSAT 

4 





K-14C 


2 2 






Fua4i 

V5Q 

.FORMAL ISEu VEL, SOUAKED == V /VSAT 

2| 


= VSUUARE 



Rri43 

WT 

earth KATE TIMES TIRE 

1 Kt VOLUTION 


NOl SAVED 




1 




* 


V r ' - > 








< 


, t * * - 


•‘V 
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L ENIftY LEXICON USER'S PAGE NO* 4 ^*2 


R- 145 

R».i47 

X 

— 

imEKHEOIATE 

VARIABLE IN 

G-LIMITEK 2 VSAT 

= WIE 
NOT 

{DTEAROTJ 

SAVED' 

R0149 

Y 


LATERAL MISS 

LIMIT 

4 RADIANS 

NOT 

SAVED 


a , , ,im--mm ^ I II I — I . - - I I- ■ I ■ l . i* — M- 


R.151 FIGURE 7*C-2A CJJMPUl ER V ARl AtJLES (CONTINUEO) 






i 


Th. 




f 


-w 


n _ 


-f 

r 


Iff. 

9 




4 


c 






3 ^ ^ 


* 



<«k » 


^ • r 




il:^* F£B» 26fl97i MENeLAU^ .fai 


8^6 


4.AP: A^St:MBL£ REVISION > 72 CF A6C PKQuRAM AKTEMIS dY i>iA SA 2 11 

L EMRY Lt XICCjN 

t.Xf|sA COMPUTER cRASABLt LOCATIONS NOT SHOWN ON fLOW CHART- 


USER'S PAGE MO. S 



S > 


R ISA 


VAR I ABLE 

UESCRl PTIGN 

MAXIMUM VALUl 



Rt ISS 


* 

— — 



_ « . . . . . 

K 1 iS6 


^OTUAQOR 

ADDkE:>S selected BY SEgUENCER 



0 

1 . 

RM57 


XPIPBUF 

BUFFER TC store X PIPA COUNTS 



,1* 

RClSd 


YPIPBUF 

BUFFER TO STORE Y PI PA COUNTS 




RC1S9 


Z P ll* BUF 

aUFFER TO StOR^ 1 PIPa COCTnTS^ 




R< 16v 


PI PCTP. 

COUNTS PASSES THRU PIPA READ ROUTINE 



RC161 


JJ 

INDEX IN final phase TABLE LOOK- UP 




K • 1 


ilM 

INDEX IN FINAL PHASE TABLE LOOK-UP 




R--163 


GRAD 

INTERPOLATION FACTOR IN FINAL PHAst 




R' 164 


PX 

iJRAi'Jtit/O L/D ” F3 

270<ji NM 



“R.; 165 


FX + 1 

AKEF 

FI*SS 



R i 166 


FX + 2 

RTOGU 

27 JJ NM 



Rdo? 


FX + 3 

RDOT KEF 

VSAT/A 



kCloe 


FX + A 

DRANGt/O RDOT = F2 

216- .V2VS NM/FPS 



Ri 169 


F X + 5 

DRANGE/D DKAu = FI 

270/6.5 NM/FP6S 



K cl 7 1 


TEHl B 

TEMPORARY LOCATION 




RtlTT" 


T I ME /rT b 

time uF I n m ATT T AirTTEl kTinIT 

Tj 2B CENflTEC 



R( 172 


uT E ARQT 

EST TIME BETWEEN RTIKIT AND RT 

t ZB CtNTlSEC 


----- ... 

RC173 







R-d74 


ONI TV 

UNIT V VECTOR 

2 



R';175 


— 





R V 176 


UNIT ft 

UNIT k VECTOR 

£ 



R':i77 







R'’ 178 


-VREL 

NEGATIVE VELOCITY REL TO AIMOSP 

2 V SA T 



‘ ”RC 175 

- - 

COMPUTER 

SW 1 T CHcS 

INITIAL STATE 

1 

CH/TLAGS = state +6 

R C 1 d 1 







ft Cl 83 


tNTRVOSP 

DO cNTkY DISPLAY, IF SET 

NCN- BRANCH (i) 

520 f 

. 1113 

K C 1 8 5 


O ONE PAST 

INDICATES UVER6H00T OF TARGET 

6RANCH (1) 

95D, 

Jill 

RC.167 


RELVELSW 

RELATIVE VELOCITY SWITCH 

NCN- BRANCH (,) 

96U, 

.. 1 T s 

ftul85 


egsw 

FINAL PHASE Switch 

NON^oRAi^CH ( i 

97D, 

B I T 

RC 191 


NO SWITCH 

INHIBIT LmTERAL SWITCH 

KCN-tJRANCH < ) 

9BD, 

Dll 7 

KC193 


hInD 

— TNdITaTcS TT'ERATIor^lN hUNTEsi 

NON— BI^AnCH ( ) 

“990, 

0 

'1 

R--ig5 


INRLSH 

INDICATES INIT ROLL ATTITUDE SET 

NUN-BKANCH ( J 

1*.' C D f 

BIT 5 

RC197 


LATSW 

iNHIbll DOWNLIFT SWi ICH IF NOT SET 

BRANCH tl) 

1‘ ID, 

iir 4 

RC199 


•l5GSW 

indicates DKAb fcXCbEDS 

tMCN^BKANLrl { , ) 

1', 2L , 

tilT 3 

Rt2i-1 


GONE BY 

INDICATES gone PAST TARGET tSET) 

SELF-INITI ALIZING 

112D, 

Dll 3 IN STAR + 7 

Ri 2 - 3 

F I CURE 

/• -2d 

COMPUTER VAraABLES (bONTlNUEDJ 
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ll;4^ FEB, 26tl971 M&NELAUSv 61 RAGh 847 


t^T«Y LE^l 


USER'S PAGE NO 


S3 


P *- 

R C 2'. b 


300Y ATTITUDE QUANTITIES (CM/PCSEJ 


R *: 6 

RC2‘ 7 


VAHl ABL E 


DESCRIPTION 


MAXIMUM VALUE 


. 20 8 


RL2f9 

-VRCL 

R021^: 


-RCZll 

DLUUYA 

R^ 212 


kC213 

JXA/ 2 

RCZIA 


■ K“ZT^ 

UYAA2 

RC216 


R:217 

02 A/ 2 

R'"218 


R ''219 

UBX/ Z 

RC22* 


RL221 

J5Y/2 

RC222 

— 

RC223 

JBI/2 

K 224 FIGURE 

7 ^ V ■“ 


negative VELOCITY ft EL TO ATMOS* 


U SbU EUR UV A G E iai ?~lGD'0~ FP5 


T VECTOR TRIAD 


BASEiniTT 


THE TRAUECTORY 


OWIT VECTOT 


DGDY TRIAD 


FOR CM. 


COMPUTER VARIABLES (CONTINUED] 


2 ViAT 


Z 


2 


. "T 


6i PAGt B48 


'* r EMBLt K cVl SIbN jI Z Ct- AGO PR OGRAM AK ibMIb BY NA 6 a 2,21114- II 


ii;4 PLb 




EMtlY LL;<ICQI4 


usfc-<‘s ^'AG^ uu 


t 


S3 


P\ 22 6 
KU' 


K 228 

23 

K 232 
R 4.234 
R''23(3 
R- 238 
K». 24 '^ 
R< 242 


OISPLAY JUAlVTITlcS 


(FOR USAGE, SEE StCTION 4- P 6i THKOU.jiH„P b?) 


THIS TAftLE PROVIDES THE READER WITH DISPLAY ^JAi'iniY INEDRMATIQh. THE VARIABLE NAPE kLFLELT 
SECTION 6 USAGE* EXCEPTING IMSEDDcU BLANKS, THE jEuTION 4 NAHci AKE P ARENTH^ EL , 1 F DIFFERENT., 

SIGN CCNVENTIONS ARE FOUND IN SECTION 4o IF THE DISPLAY VARIABLE NAME DipFEHS LKL.; SELTIOii S USAGE, 
;>Ay BECAUSE OF SCALE FACTOR, THE ALTERNATE ^ECI ION !) NAMt IS ENCLOSED IN ANGULAR Br ACKETSi < > 
DISPLAY QUANTITY INFORMATION APPEARING ELSEWriEKu IN St;C T 1 UN '3 OTHER TI.AN IN 5 7 MAY BE FOUND THUS: 

N 6g & N 63 {ALL) FIuUKC 6* lG-4 IN 5*6«1 3 


N 22 tALL) 

N 67 (LAT, LONG) 


FISURL 6. 10-11 IN 
FIGURE 6.P3*1 IN 


3 > 6 1 > i ‘ j L 

6* So 3 


K i 24 4 
246 

'r V 24 o 
ft L2a i 

ft L 2 3 2 
ft* 233 
R ' 255 
RL236 
Rt 25B 
RC239 
Rv26f. 

K' 262 
RV:263 
RL265 
R0266 
Rv267 
R 0264 
K< 271 
Ri‘273 
RC274 

~R'027- 

R 276 
R--2B': 
RC 28 2 
R‘:284 
F 0 285 


VARI ABLE 


DESCRl PTluN 


MAXIMUM VALUE . DISPLAY NOURw 


K026 7 
Rf.289 
RC291 
ft v293 
R'.29 5 
ft 02 9 6 


ft 029 8 


ft' 3‘ 
ft 3 ■ 


2 

4 


oMAX 

VPREO 

SAMMAEl 

RTGO 


ViU 


TtE 


I GA 
MG A 

0 

TMA'CT 

RULLC 

XKNGERK 

DNRNGERR 


HOOT 

U7 

VL 

RTQG 0 


1- 

L 


PREDICTED MAXIMUM ENTRY ACCEL 
PREDICTED VELOCITY AT ALTlTUDt 
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4 j 4611 

r 1 

L-‘ 


TC 

E6SE I T t k 



C211 

REF 

24 

LAST 

894 

£ 6 r 166 1 

- 



EljANK= 

AOG 

' ^ — 

' 

r2l2 





37 ,3656 

•V L# ' } 6 

1 

PbDUPOS t 

EXIENl 


RE-STARTS CUKE HERE 


C213 

REF 

3 

LAST 

895 

37, j657 

3 1771 

1 


DCA 

TEHPROLL 



02 14 

REF 

4 

LAST 

894 

37 , 306'^ 

53 *66 5 

1 


DXCri 

ROLL/ 18 V 



C2T5 

- ’keF 3 

TTTST' 

“895" 

— 3773667“ 

TITTZ' 

1 


CA 

1 ENPBtl A 



C2i6 

REF 

5 

LAST 

395 

37, 6662 

55*666 

1 


Ti 

BET A/1 8. 


- 

‘ 218 

REF 

215 

LAST 

B50 

3 7 f 366 3 

0 6006 

i 


TC 

INIPkLT 

CANT 1C DAN2TG AFTER 

PHASCHNbo 

■ -219 




- 

37, 3664 

51575 

1 

CM/PuoE3 

VLOAO 

ABVAL 

RETURN FROM CM/ATUP, 

t K fc S T AR [ i 

t. 22 

REF 

17 

LAST 

890 

37 , 366 5 

j1 j36 

u 




2t-7l H/CS 


’0221 

RtF 

Tr 

TA'ST" 

“547~ 

" 3T,"J66^ 

■""TTr2T r 


^ T UK E 

“ TKAvn 

FOR display UT CALLs 


222 





37 , 366 7 

7763U 

1 


GOTO 


- 


C223 

REF 

5 

LAST 

853 

3 7 f 3d7 .7 

3324 

1 



pLiStXi r 

ENuEXIl, STAPTENT, QR 

SCALEPUP^ 

22 4 

REF 

83 

LAST 

694 

37,3671 

54 w.l 

1 

CORANOUY 

TS 

L 




•'F25 

— FTF T 

TfiST 


37‘,'S672 ■ 

tnooTz u 

■ ■ TC - 


i 2 2 6 

REF 189 

LAST 

879 

37,3673 

5C O v . 1 

INDEX 

A 

C227 

REF 1 



37,3674 

3 4751 !> 

CA 

LlHl TS 

9228 

KEF 84 

LAST 

895 

37 1 3 o 7 S 

26 fjKi 1 1 

aDS 

L 

C229 

REF 154 

LAST 

895 

37,3676 

0 0002 

TC 

C 


CUSTS 2 MCI f'. U^iC^ SEE ANGOVCUR 


*9 
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2 i 
' 2i‘- 
C231 



37| 3677 

3 7 1 3 7 irfO 

37,37wl 

4573*. 
5341u 
S3 146 

1 

1 

1 

-KVSCALt 

TCUU 

2DtC 

DEL 

-«8i49i944 

t X V 

- 232 

KEF 

25 LAST 895 

e6,l«>61 




E6aNK= 

AOG 

C233 

REF 

1 

37f 37C2 

.’3a JO 

1 

REPOS ADR 

2CaDR 

KcL/UPJj> t 

<233 

REF 

1 

37, 37C3 

7 6 V o 6 







9 


4 
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AP 
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P37,P7o 


USER'S PAGE NO, 


S3 


.. 12 

f ' u 1 A 

cr-2 

■ C= 3 

Kc-: 5^ 


KEF 


36 , 2(jUv. 


REF i LAST 292 E7,i631 

REF 1 

PROGRAM CcSCRIPTlQN - P3 7, RETURN TO EARTH 


SETLQC RTci 
BANK 


hBANK= RTtDVD 
COUNTS 1$/P37 


r\' USI 

Kv; 32 
lTGr54 

RfC'5b 
R ;<:58 
Rija60 


CESCR IPT ION 

A RETURN TO EARTH TRAJECTORY IS CQMPUTEO PROViDtU THE CSM 13 OUTRIDE THE LUNAR SPHERE OF INFLUENCE AT THE 
TTT TE ~D F ~ TOTTriDlT o lN maULr ~7 V CUNl C TR ~ AJi : 0 TCRT~T5 UETETTPITNEU AN CT RESULTING 1&NTT10N~~ANU REENTRY "PARAM'ETEKS' ATE 
CISPLAYED TO THt ASTkONAUT. THEN IF THE ASTRONAUT SU UESiRtS, A PRECISION TRAJECTORY IS DETERMINED KITH THE 
RESULTING IGNITION AT<0 REENTRY PARAMETERS DISPLAYED, UPON FINAL ACCEPTANCE UY THE ASTRONAUT,^ THE PROGRAM 
COMPUTES AND STORES THE TARGET PARAMETERS FOR RETURN TO EARTH FOR USE BYSPS PROGRAM tP4i> OR RCS PROGRAM (P41) 


kil bi, 

K'-T'S'I 


CALLING SEQUENCE 
E TC PIT 


»0 


RslC 

SLBRUU TINES C 

K L iv 1 

PREClv . 

ft' 1.2 

V2TiSo 

RlIv 3 

RT LtnCt^Z 

KrTT4 ‘ ' 

i 

Rult 3 

T IMtRAD 

Rf lv6 

PARAK 

RS 1L7 

V2Tl.>i 

R0126 

6AMCV1G 

RL109 

XTILIM 

— rttic 

'DVCATCr 

H^:iil 

RTENCK 1 

R~112 

I NT STALL 

Ruli3 

INTEGRVS 

R0I14 

RTEVN 

RJ 115 

RTEDISP 

— RTITS 

THiTAClOO 

R 117 

ALGEKUGL 

RC118 

LAT-LGNG 

R^119 

TMRADlCa 

R«^12. 

TIMER AD 

Rtl21 

INVCIUO 

— fO!T2Z 

" CSMPRFC 

RL123 

GET tHAC 

R 1235 

TIMETHET 

K 124 

P37CALRM 

RTT25 

VN1645 

R U 126 

POLY 

Rvi5- 

ERASABLE INI 

RLT51 

CSM STATE 

RC152 

N JE T SF Li> 


NUMBER OF JETS IF THE RCS PROPULSION SYiltM SELLCfED 


STATE FLAG 


=4 J T 


1=2 JETS 


/u' ; A S 

SeMBLt Kt^/ISION 972 CF AbC PkQGRAM ARTtMlS BY NASA 2 21114- 11 11 = 

4 F t D 

u 26,19/1 MEMELaUS. 61 PAGE 69 

L 

P37,P76 





USEkVS fa 

G£_NO^ 0 t? S3 

kt lo 

ASTRONAUT INPUT 







k 161 

SPRTtTIo 

TIME OF IGNITION (OVERLAYS TlGJ 



DP 

b2b 

CS 

Ri/163 

VPREU 

0 ESI RED CHANGE 

IN VELOCITY AT TIGIPHOGkM 

CQMPUTLL Ir ) 

DP 

37 

METtRS/CS 

K' 165 

GAMMAt I 

OtSlREO FLIGHT 

PATH ANGLE AT REENTRY tCOMPUTED IF I 

UP 

bc 

R CVS + ABOVE HORlii “ 

KC167 

OPT I0N2 

PROPULSION SYSTEM OPTION 


- 

SP 

814 

i=3Pj, 2^RCS 

FU 18c 

cJUTPUT 








R<. 181 

CONIC Ck PRECISION TRAJECTORY DISPLAY 






KC182 

VPHE C 

VELOCITY MAGNITUDE AT 4jc ^ F 

T. ENTRY 

ALTlTUuE 

OP 

3 7 

S‘-ETEkS/Ci 

R.:ia'4 

nmm 

TKANSl i TIHc Tu 4*^ Jt ^ u FT* tNTRY ALT ITU 


TTP 

B2 8 

u S 

R i 186 

GAMMAEI 

FLIGHT PATH ANoLE Ai 40^,. FT 

« ENTRY AcTirOOE 

DP 

o 

RL-VS + ABOVE HORIZON 

K i, 1 8 fa 

OtLVLVC 

INITIAL VELOCITY CHANGE \(EGTUK 

IN LOCAL 

VERl iCAL COORU-. 

V ECl U k 

B7 

MtTEkS/CS 

kci^i 

LATI SPLI 

LATITUDE OF THE LANDING SlTc 



DP 

Bi 

REVS 

R' 192 

LNOISPLI 

longitude of THE LANDING SITE 



DP 

B 

■ prEVs 

RC194 

TARGETING COMPUTATION DISPLAY 






Rr'1^5 

fT5 

RECUMPUIEU llG 

dAStU UN THRU:>T 

UPl iON 


ITP 

B7B 

LS 

Rc 197 

TTuSO 

TIME FROM TIG 




DP 

326 

CS 

kC19c 

+ MGA 

POSITIVE MIDDLE GIM8AL ANGLE 



DP 

'J' 

REVS -.2 IF REFSMFLG= 

R •; 2'; 1 

THRLST PROGRAM CCMMUNICAT ION 







Rt.2*.2 

XUtL VFLG 

EXTERNAL DELTA 

V FLAG 



STATE 

FLAG 

SET FUR LAMBERT AIMPT 

R< 2', 4 

NCkKS»* 

LAMBERT AIMPT 

ROTATION SklTCH 



STATE 

FLAG 

SET : FOR NO ROTATIUiM 

k 2*- 6 

ECS r EtH 

CROSS PRODUCT 

STEERING CCNSTANl 



SP 

tii. 

SET 1 

Rc26 8 

RT AR3 

CONICALLY INTE 

GRATED REENTRY POSITiCN VclTOR 

V tCl OR 

629 

METERS 

k c 2 1 

TPASS4 

RccNTUY TIME 




DP 

028 

u S 

<243 

REF 91 LAST 

869 36,2476 

G 5422 1 P37 

TC 

FhASCHi J G 

P37 IS 

NCT KEi I A.; 1 ABLE- 

c244 


3o,2477 

00<IG4 2 

OCT 

4 




< 245 

kEF 21b LAST 

89 5 36,25v.C 

U 6C06 1 

TC 

iNTPKET 




^.246 


36,25i-l 

661 7 j 1 

aX T , i 

S.<A,i 




c 247 


36, 25C2 

c4UGC 

OCT 

V ^ O C* U 




l24B 

REF 5 LAST 

693 36fj^t>v3 

03424 


cCST E£R 




<2481 


36,25C4 

77745 1 

U A Q 





V24"82'" 

Ht:h LASi 

—SE2 3 5, '7575 

15336 c 


A cKG YfcC S 




C2483 

REF 4 LAST 

314 36,25u6 

-3757 1 

store 

VPRcO 




€2434 

REF 11 LAST 

814 j6f25‘-7 

U 3 7 6 i 1 

:>TURe 

G AMM AE i 




C249 


3o, 2:>1 

7777G 1 

6 X 1 T 





.25c 

REF 1 

36,2511 

3 5TJ2.6 

CAF 

V6N3iRTE 

INPUT 

1 IG GIORED IN 5PRTETIG 

^251 

REF 1 

36,2512 

0 32*,6 1 

TCK 

F37 -G OF 



OVERLAY ED WITH TIG 

c252 


3o,25l3 

1 2511 i 

ti:f 


DLSPLAY NEI< DATA 

-253 

REF 1 

36 , 2514 

3 5333 1 

CAF 

ivl L 

INPUT 

REENTRY 

ANGLE IN GAMOAtl 

c254 

REF 1 

3o, 2515 

0' 3222 L 

i C K 


AND 

DESIRED 

delta V IK RTEUVD 

^ 255 


36,2516 

1 2514 1 

1 CF 


DISPLAY MLR DATA 

v5': : 

REF 217 LAST 

898 36,2617 

b bUuO 1 RTE299 

TC 

INTPKEl 




5 .1 


36, 252 

71331 c 

SSP 

OLOAO 




. 5 2 

REF 1 

36,2521 ■ 

■ 


CVf IND 




5 25 


36,2522 

OCCuC 1 






' 5<. 3 

REF 1-- LAST 

893 36,2523 

3757 1 


VPREO 




{ 5i 4 

REF 4 LAST 

897 36,2524 

a7632 1 

S r UDL 

K r EUYu 




« 55 

1 

REF 12 LAST 

693 

.v761 1 


GAMMaeI 





H;4' f-fcfa® ^6,1971 HtNELAU>o,61 P/’Gc 89? 


b AP : ASSEMBL E R tVUI UN_ 72 OF A^>C PR OGRAM AR TE MIS BY N ASA 2L21114-uXl 
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- 
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USER' S PAGE NO, 3 _E7_ S3 

' b ^ 6 

HtF 

3 

LAST 

292 

36,2526 

17634 € 


STOOL 

H 1 b b AM2 D 

Sc 9 

REF 

1 



36, 2527 

33572 1 



IRT 6 313 

S 1 < 

REF 

2 

LAST 

131 

3o,253v 

17551 C 


5 TOOL 

COiMlCXi 

3il 

REF 

- i 



'36,2531 

3315 52 0 


L4R 1 1 

' bi2 

REF 

2 

LAST 

1^1 

36 1 233 2 

37652 i 


3 TC A LL 

MAMAXi 

*bl3 

REF 

1 



36 ,2533 

64435 1 



INVCIL GET KiTl)/,VlTi)/,UHi/,Ufi/ 

B13C4 





36,2534 

71214 L- 


CLEAR 

LLUAD 

' 5i3( 8 

REF 

1 



36,Z535 

"2662 1 



SLOWFLG 

51312 

REF 


LAST 

898 

36,2536 

.,3632 C 



RrEOVD 

C3X3I6 




36,253 t 

“5X44 4~I 


~3PX 

ABS 

C5132 

REF 

1 



36 f ^64 

743^1 1 



RTE317 

C5i324 

RFF 

o 

LA STT 

899 

36,2541 

:3632 5 


STORE 

RT Ebtf J 

V 5 1328 





36,2342 

45345 1 


JLUAO 

OSO 

r51332 

REF 

2 

LAST 

131 

36,2543 

j 3 64 6 0 



RtTi) 

' 51336 

REF 

1 



36,2544 

33664 0 



KlR 1 E 

T;5134^ 





3b f 

43U'4'L 1 



it! 

.51344 

REF 

2 

LAST 

399 

36,2546 

7455. i 



RI £317 

C51348 

REF 

2 

LAST 

899 

36,2547 

112462 S 



5L0WFLG 

«;5i4 





36, 253 . 

77545 t 

Rr£317 

JLOAD 

EXIT 

C5145 

REF 

3 

last 

699 

36,2551 

C3646 L 



R(Ti) 

i 515 

REF 

2 

LAST 

3:3 

36,2552 

3 7171 1 


TC 

FGLY 

T5ro~~ 





— 3o,Z55T 

GGi:02"T 


UEZ 

2 

:517 





36,2554 

92544 . 


20EC 

131 _ ^.,434, 3-31 

:517 





36, 2555 

354^6 L 




-.51B 





36 , 2556 

14v4v- L 


2DEC 

i , p 785145B-2 

:518 





36,2557 

05 €'6 6 1 




'519 





3 6f 25 o€ 

44!: 5 2 L 


20tC* 

-0. l9yy3(,S7£-9827* 

“ '^'5T9 





'Sr£,25^T' 





C52 





36, 2552 

26415 C 


2utC 

9,7o9p8926L-13d56* 

f 52' 

_ . - 

- 



36,2563 

25357 1 




c52i 

KEF 

218 

LAST 

898 

3 6 f 2 3 6 4 

U bC .16 1 


TC 

1 i\T PR£I 

C522 





36,2565 

77752 1 


bLl 


^.525 

REF 

2 

LAST 

131 

36i 2Db6 

17654 0 


STOOL 

MAHAX2 CIJ+Ci-*^R+C2*R**2+C3^R*=5'3=MAMAX2 33' 


REF“ 




3 o f 2^6 ^ 

3T6T4~1 



EBZ 8“ 

.527 

REF 

1 



36, ^p7 

17739 C 


.jTOUL 

NNIA 

rszB 

RFF 

1 



36 f 257 i 

336ou 1 



K2RTE - - 

529 

REF 

1 

L A i>T 

131 

36 , 25 72 

17636 1 

HTfc3^ 

^ T 03 L 

kCON RCGN=K2 

5 

'REF 

4 

LAST 

o 9 9 

36,2573 

v3 6 3 4 C 



RfEGAMZD 

V 531 





3 6 f 25 7 4 

442-^4 i 


azL 

SCjU 

C^'2 

“TTFr 

1- 



■ 'J^,'Z5T5' 

r45S“4'17 



. TE.*4i. Gui UKT £340' IT KttNJKY ANGLt NUl INPITT 

j;533 

REF 

2 

LAST 

674 

36, 257 6 

15326 1 



1 . i 1 3,i 

1533 5 





36,2577 

7 1 4 9 o u 


R U b H 

CCS PLi’ZD 

b534 





36, 261 

73525 1 


Pl»GL 

jliJ 

C535 





3 6 f 2 6C i 

45465 1 


tiDOV 

STAok PL^'^’D 

€536 

REF 

1 



36 r 26C 2 

4! 951 1 


3 T call 

Xtrz) X{ rZJ^LLT (GAM2D) B 

„537' 

ITET' 

1 



”'3'6r26r3 

74^7 1 



H I 1 3 6 

<538 





36 # 4 

45345 1 

PTh 34* 

OLOAU 

csu 

€ 539 

REF 

4 

last 

S99 

36 1 26C 5 

v364u V,/ 



i'(Tii 

V 54« 

REF 

2 

L aST 

399 

36* 26i u 

336o4 



A Ik 1 1: 

< 541 





3b 1 2b', 7 

7124t. 1 


u.'iN 

i;lo,*o 
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i 342 

REF 

1 



J 6 1 ^ 6 1 

74614 

1 



343 

RfcF 

1 



36 1 261 1 

336 72 

1 



' 344 

REF 

2 

LAST 

899 

36 f 2612 

37726 

u 


S rcALL 

f 343 

REF 

2 

last 

899 

36 f 1^613 

74617 

1 



- 346 





36f 2614 

77743 

1 

RT£33 . 

DLUAU 

547 

REF 

1 



36,2613 

3367>. 

u 



54 b 

KEF 

3 

last 

9»''0 

36, 2ol6 

o3726 

1 


I URE 

<■ 34 





36,2617 

77624 

1 

RT E360 

CALL 

.354 

REF 

1 



36, 262 v. 

o5lJ2 

1 



331 





36,2621 

52054 

1 


82 £ 

. 552 

REF 

1 



36 f 

74624 

1 



' 553 

REF 

1 



36, 2623 

64272 

1 



, 554 





36 f 

77775 

i 

RTE367 

VLQAD 

535 

REF 

2 

last 

131 

36 1 Z6Z3 

C364u 

U 



V 356 

REF 

8 

LAST 

68 8 

3u f Z626 

1665 7 

1 


STOOL 

TBST^ 

"lirF 

3 

laS^T 

-^9 

36 1 1 

0363b 1 



t 55 8 

RFF 

2 

last 

1 Lj C 

36 f Z63i- 

2676 

1 


STUVL 

• 53 9 

RtF 

2 

last 

131 

36, 26.^ 1 

Q37>j\j 

L 



. 5 6 

REF 

It 

LAST 

63B 

3o f 263Z 

36746 

1 


STCALL 

V.56 1 

REF 

1 



36,2633 

643 9 4 

1 



C562 





36f 2634 

77615 

l; 


L)AO 

'563 

KEF 

2 

L^T 

LJi 

36,26^5 

:37i6 

1 



l37: 

RFF 

2 

LAST 

131 

3 6 f 263 6 

17552 

L' 


o T 00 L 

571 

REF 

-> 

LAST 

899 

36 f 263 7 

L 363 4 

u 



C572 





36 , 264 1 

32l54 

1 


82 E 

05725 

REF 

i 



36f 264 1 

74643 

0 



^ 57251 

REF 

1 



3o,2642 

74663 

1 



373 





36 j 2643 

51575 

i 

HTc36? 

vlUu" 

-374 

REF 

2 

LAST 

131 

36, 2644 

0371^ 

1 



•.373 





36,2645 

77770 

1 


EXIT 

• 576 

REF 

3 

LAST 

89? 

36,2646 

G 7171 

1 


TC 

577 





3tj f 2647 

0 D *3 2 

6 


DEC 

: 578 





3 6 f 2 63 V 

i.;(j0-9b 

1 


2Dc6 

. 57d 





36,26Tr~ 

1 Cl'u IT 

1 



' 579 





36,2652 

4702 1 

1 


20tC 

579 





36,2653 

65^0 2 

r 

u 



L58 





36f 2654 

3561 

L' 


20£C 

' 3 6 . 





36 ,2655 

07722 

1 



t531 





36, 2636 

63772 



2l)£C 

~C5fel 





36, 4.63 T 

o327 6 

1 



1362 

KEF 

219 

LAST 

699 

3 6 1 Z 6«> ^ 

V 63 uo 

1 


TC 

» 5825 





3bf 2661 

7 7615 

'■ i 


uAu 

5 3251 

REF 

1 



3 6, 26tf2 

01343 

1 



.563 





J6,2t>63 

52ua2 

1 


jL3 

9 36 7 

REF 

1 



3 6, 2664 

74667 

U 



.568 





36,2663 

77795 

1 

KrElTZ 

ULOAD 

<569 

REF 

4 

LAST 

9./0 

3bi 2666 

W.3726 

1 



i 5 6 5 





3 6 r 266 7 

4142 5 

1 

kTc373 

DSU 

958951 

REF 

> 

LAST 

9 1.1 

36 f 267 < 

^ 3 7 2 u 

1 



C599 





36f 267 1 

53 5 73 
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.< f i'.'iSU , ^ , . 

R4KT t 

X 1 T Z) <(T2)-K4 

kTii P 6 , 

K3KT E 

XlT^i X{T2J=K3 

V*,l 1 'j ~ 
kO'T U 
HTiEJ67 
K Tc ALKM 

R(Ti 1/ 

RV6C 



hiJt j IRcb 

V2( rii/ 

VVtC 

IMRADlvi^ 

n 

T2 

R T £ GAM2 D 

Gcru 

RIt J69 
UTE372 
ABVAL 

v( )/ 

PCl 7 


“4 ;> 8 76ij 7 / iE— 2B4 


4 ii 4 i'j 47 oE'” 4 bH 


-i»43iV673E-6ai8 


1 IS r P R t T 
I E iJ X 

uCi .J X(T2> , = ui+D2V24-u3V2=«‘'^2+D4V2*’!'3 

F J i;:> 73 



X(]2 J 

F G j fl 
X( T2i 

OKI r 


X(T2J ERR 


b PL -au 
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jl iL OF AoC H K UGKAM AKTbMIS BY NASA 2 21 1 


L 

F37, 

P7L 







* 5 n 

REF 

2 

LAST 

131 

36 i 2u72 

-36 56 1 



^ 592 

REF 

16 

LAST 

316 

3 6 f Z6 7 3 

36152 1 


STCALL 


REF 

3 

LAST 

316 

36,2674 

2657 1 



59 A 





36,2673 

^7615 T 


D A U 

6 1 6 

REF 

1 



3o,2676 

7 fa J 
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■ J2,3y^' 

-■65622 1 



GAMUV5L 




.4336 TIRE CKlTiCAL HODfc 


4557 





32, 35 5 7 

4534-j 

1 

GAMUV35 

ULOAC 

lSU 

4558 

KEF 

iO 

LAST 

929 

32, 356 

63632 




.•vTEUVu 

455 ■'J 

■RTT 

~7 ■ 

LASl ■ 

933" 

3 2 1 3 X 

U3 7 -'6 

u 



OV 

456. 





32,3562 

41525 

0 


POOL 

P J3 H 

4561 





32,3563 

51545 

1 

GAMDV4v; 

ULUAD 

ASS 

^562 





32, 3:>64 

00325 

6 



2 0 

^563 





32,3565 

’ 5Uw25 

J 


OSu 

•8 MN 

4564 

REF 

1 



3 2t 3 56ci 

33o6l 

1 



CPui Kit 

■ — 4565 


-> 

CAST ■ 

■^32 

32 1 3b67 

o!>D03 

1 



G iKu J K 

4566 





32 f 3^ T V. 

71234 

1 

GAMJV45 

3UVB 

ClGAU 

45661 

REF 

8 

LAST 

SdO 

32,3371 

57544 




TCDrtNZlG 

4567 





32, j>>7 2 

63 22 1 

*■ -j 


6u ^ U 

NORM 

4568 

REF 

B 

LAST 

933 

32,^573 

1 3 7 0 0 




EV 

4569 

REF 

23 

LAST 

920 

32, j>5 74 

V c ---J 3 / 

1 



xz 

457" 





“- 32,5375 

777Z5 

1 


7 UUL 


4571 





32,3576 

705 .1 

1 


NURrt 

SKI 

4572 

REF 

41 

LAST 

925 

32,3577 

V C ^ 4 7 

1 



XI 

4573 





32$ j 6 ■ .j 

652 71 

. » 


UDV 

FJDL 

4576 





32, 36t 1 

41221 

U 


60 bU 

1 3 P 

4577 

REF 

18 

LAST 

933 

32 1 3 2 

^ - 372«i 

0 



n r L j 

“4578 





~32',3^3 ' 

/7ci6C 

1 


XbtTfT 


4579 

REF 

2^ 

LASl 

933 

32, 36,4 

*. <■ 04 7 

1 



X2 

45791 





32,36(. 5 

L . 2 T 

1 


^ T JK b 

160 

45792 





3 2 j 3 6 0 . 6 

40 j :> 7 

1 


C C' 

bL./ 

45e ' 





32, 36C7 

2 V 6 ' < ^ 

■4 



^1 f i 

45 8 : 1 

REF 

1 



32, 361 . 

65616 

■1 



G A >4 0 V4 / 

45&T ' 





32,56Tr 

- "D'O ■■-21 

1 


a i JK t: 

ioG 

4582 





32,3612 

45246 

c 


A8 S 

UiU 

4563 





32,3613 

.. f. w 1 5 




120 

45 ^4 





32 » 3 bi 4 

7764w 



3.MN 


45o5 

REF 

-*■* 

4L 

LAST 

^33 

32,3615 

65o2 2 

1 



ga;-il)V5u 


DVU-DV=UVfcRR B7/85 PL22D 

DVf ■ PL24D 


ASSURE OV FIND IS . 


DV=Tr\n — BTrB5=T'.'2~^Tr22tr 

CVFRR B8/fc6-,4l 


DVtRR/ DV - UV 


PL18D 


pkfserve sign if UVERFLOW 


rXTTl r-XtTDT ITTVl KR/ I UV-U V D f Tr)“ 
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A5b6 





32 f 361 6 

75345 

1 

GAM0V47 

OLGAC 

S IGN 

458 7 





32,3617 

D'.'NjlS 

I- 



12D 

4588 





32,362< 

21 

1 



lo J 

4589 





32,3621 

^yc:i2i 

1 


STORE 

1 6U C K { T DMAXlSlGNoXn ni[=lJX(TlJ 

k459L 

CHECK 

TO 

KEEP 

INDEPENDENT VARtADLE IN 

; 3QUNDS 



4591 

■ - 




32,3622 

41345 

U 

GAMLV5^ 

ULOAD 

CNP 

4502 





32,3623 

C0021 

1 



lOLl 

^593 

reF* 

1 



3T,3624 

33612 

1 



la iK 1 

4594 





32 , -;>625 

43352 

1 


SLl 

CAD 

4595 

RtF 

19 

LAST 

93i 

32f 3626 

G3722 

0 



XI Ti > 

4596 





32,^64:7 

CC031 

' ^ 


6TQRE 

24U XITII+I lLX(Tll=bETA9 GS 

4597 





3.2,363 0 

5.025 

L 

0 


DSU 

dMN 

459 8 





32,^631 

00017 

1 



14J 


' FFF 

T 



32 1 3d32 

65641 

T 



GA,'lOV55 

46 ' . 





32, 3633 

45345 

1 


OLOAO 

Csu 

46 1 





32, 3634 

L'Cvl7 

1 



14D 

4602 

REF 

Z\: 

LAST 

934 

32f -^o35 

v3722 

W 



XlTl) 

460 3 





32, 363 6 

77742 

0 


SKI 


46'. 4 





32f 36 

34'.2i 

1 


STCALL 

ioJ (X(Tl)MAX-XtTil J/2=0XIT1J t tj 

460 5 

RE^ 

1 



3 2 f 3 6 ^ 

^5654 

0 



GAi40V65" 

46\...6 





3 2 1 3 64 1 

45345 

1 

G AMDV55 

OLOAO 

ESU 

46 7 





32,36^2 

L i. . r 31 

L 



240 

46C fi 





32, 3643 

6 U i 3 

*ir 



iwJ 

46 





32f 364 4 

52i 4 

1 


a MN 

ijGT 0 

461 

REF 

1 



32, 3645 

65647 

1 



b A3 D ^ 66 

4611 

KEF 

2 

last 

9 34 

32 ,3646 

55654 

6 



GamdVoS 

4612 





32,3647 

45345 

1 

GAMOVoo 

l) L 0 7^ D 

DSU 

4613 





32 , 365 D 

' OuuiJ 

u 



1-J 

4614 

REF 

21 

LAST 

934 

32, 365 1 

03722 




XITl ) 

461 5 





32,3652 

77742 

D 


S>s 1 


4616 





32, 3o53 

.0 .'21 

1 


6 i UR t 

loD IXI TiJMIN-XITl) >/2=0X(Tl) b5 

~46T7^' 





“327363T^ 

5X54^5 

1 

GArtDV65^ 

OITDAIT" 

A 3^ 

4618 





32, j655 

Sv 21 

1 



160 

4619 





32 , j656 

5 025 



DSU 

drtiil 

462 

REF 

2 

LAST 

932 

32, So57 

335 7 6 




EPC-JkTc 

4621 

REF 

3 

LAST 

933 

32 f 3o6 v' 

6 5o53 

1 



GAHD Va 

4622 





32,366 1 

7755-- 

1 


GUT U 


4623 

REF 

1 



32 T 3662 

6552\, 

-n 



GA3DVI5 

4624 





32,366^ 

7 7 6 J V ' 

1 

G A,4u V X 

GOTO 
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10 ^ 


ft 


RATE 1 

INPUT 





R47C2 

PLSHLIST 




RA7- 3 



fHETAl=BET A5*LAMBUA-l 


R47.J5 

' / 5D 


Th£TA2~=2'>Ki TiJ + C LAHdUA-lt 


K47 7 

r dC 


THETA3=MU*=J^-5/R(Tii 


R47C9 

OTHER 





R471t 

X(Ti J 


COTANCENT OF 

POST IMPULSE INITIAL FLIGHI HATH A 

TOATIZ 

\rrTrr/ 

TNI UAL VELULilY V ELIOTS IPRE IHPUCScJ 


K47i4 

URl/ 


UNIT IM UAL 

VECTOR 


R4716 

Oh/ 


UNIT hCRIZQNTAL VECTOR 


K 4? 1 8 






R47i9 

OCTPCT 





R472L 

72 t T 1 ) / 

POST IMPULSE 

INITIAL VELCCilY VECTOR 


R4722“ 

UV 


IMIIAL VELUCUY CHANCE 


R4724 

PCCN 


SEMl-LATUS RECTUM 


R4726 






R4727 

DEBRl S 





R472a 

28D 


THETA3^PC0ij^* 



K473' 

C ( PLSLOC) 

THETA3tPC0N=<'* 

• 5)<'XCT1J *JRi/ 


K^2 

—320^ ■ 


DVLALC i>UtiKUyriNt KtIUKN AUUKhb»i> 


R4733 

XI 


NORMAL IZATl ON 

FACTUR FOR VALUE IN 280 


<<4 / J4 

PLSHLCC I 

b RESTORED TU ITS ENTRANCE VALUE UPON EXITINC 

DVCALC 

475' 



32# 3665 

7i22J 1 CVCALC STO 

LLCAD 

- - 



J2» 3666 

Wu4 j l 

32u 

4732 

KEF 22 

last 

934 32f36o7 

t 3722 0 

X( T1 J 

4733 



32# 3670 

54316 1 OSQ 

SR 

47b4 



32#3671 

2L61 1 

7 

4755 



32# 3672 

762 76 OCOMP 

TAD 

4756 



32 f ^ 6 73 

L i - >3 1 

20 

' 4757 



32iJo74 

4 1 w 1 c IM G RM 

P U 1 i 

475 fi 

REF 42 

LAST 

933 32#d675 

00047 1 

Xi 

4759 



32f3676 

60351 V TLOAC 

NORM 

4764 



32#3677 

LfLu\,6 1 

5J 

4761 

REF 25 

LAST 

933 32# 370 t 

CCt>50 1 

X2 

4762 



32,3701 

73434 0 KTd 

jtU 

4762 5“ HfrEF" ' 2 

LAST 

“927 32,Tnr2~ 

457 o 5 I 

CPLTODc 

476251 



3 2 f 37 3 

362d 4 1 XiUf2 

00 V 

47 63 

REF 43 

LAST 

935 32,37v4 

( >-46 Lr 

XI 

47635 



32 f 3 ^ V/ 5 

77657 0 SR; 


476351 



32, 37w6 

5717r:- 0 

w f 2 

^764 

REF 3 

LAST 

902 32 #3/0 7 

J372C 1 STORE 


- C4T6~5 ■ 



■ 3:2,J7To" 

4iJo7> L SyRI 

c:4P 

4766 



32#37ii 

. V .. i 1 1 

c. diJ 

4767 



32,3712 

77 7 U 1 NUK.t 


476 6 

REF 44 

LAST 

935 32,3713 

_,.j4 7 1 

Al 

4769 



32# 3714 

14..35 1 STOOL 
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TP 

317 

TP 

B38/336 

DP 

8-4/ e-5 

OP 

65 


VECTUR B ?/B5 METERS7C3 

VECTOR Bi 
VECTOR ■ 31 “ 


VECTUR 87/85 METEKS/CS 

OP B 77B5 WFTE RS/C S 

DP 1328/626 METERS 


CP Bir//B 8 -ra 

VECTOR B7/B5 


the I A2/ (THETA1-X( Tl)**2) =HCUN B28/26 


1HE1 A3=i^PCDN*^.5 
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477» 

KEF 

23 

LAST 

935 

32,3715 

j3722 

4 


< ITl J 

A7 71 





3 2 1 37 1 o 

743wl 

L 

NORM 

vxsc 

4772 

KEF 

26 

LAST 

935 

32,3717 

K.' 5-.^ 

1 


X2 

4773 

REF 

8 

nrarr 

913 

TiT^rr: 

l35o4 

t . 


ukI7 

4774 





32,3721 

74274 

F 1 

-/ 

XAD f 2. 

vxsc 

4773 

KEF 

45 

LAST 

935 

32,3722 

0L('j46 

* 

<«# 


Xi 

4776 





32, ->723 

!<LG35 

1 


Z6D 

4777 





32,3724 

63257 

1 

VSR^ 

FOVL 

477ti 





32,3725 

572^7 

0 


• -70,2 


fTTF" 

J 

L AST 

—^13 

32 , 3726 

v3562 



UH7 

478c 





3 2, 372 7 

53761 

1 

tfXSC 


4781 





32,373^ 

Uv> j 

1 


230 

4782 





32,3731 

26573 

1 


-4fl 

47di 





32,3732 

45455 

1 

^aO 

STAOR 

4764 

REF 

7 

LAST 

922 

32,3733 

7^077 

1 

STORE 

V2lTi)/ 

TTT^' 





32f 3734 

5I43T 0 

vsu 

A8 V AL 

4786 

REF 

6 

A ST 

91J 

32,3735 

J36 72 

1 


v{ T 11 / 

4787 

REF 

Q 

« 

LAST 

933 

32,3?36 

C' 3 766” 

0 

STuRE 

LV 

4788 





32,3737 

7765w 

1 

GOTO 
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32, 3 74 ( 

l0C4u 

0 
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Xmi+DRT/ BB+B1^2 

THETA3lPC0N^’«‘*3)XtTlJ’»=URl/ B7/65 

+ 


THETA3( PCON*#. 5 1 UH/ 

B7/B5 

V2tTi 1/ 

B7/B5 


Ab\/AL IV21T1)/'V1(T »/) = 0V B7/B5 


G AP : 


ASS E MfcLb K E V IS I ON ^72 OF AGC PROGRAM A KT EMl^ BY NAS A 2 21 


L 

P 4b^ 

R4G’M 
“ R46{2 
R48E3 
(<480 5 
K48.i7 
R48C 9 
K48ir 

F37,P70 

SIB ROUTINE TQ COMPUTE BOUNDS CN 

INPUT 

INUEPENDENT VARIABLc <l 

PUSHLIST 
PLSHLJC -4 
PUSHLOC -2 
280 

OTHER 

RCGN 

MAJOR AXIS (MAJ 

MAJOR Axis (MA) AGAIN 
dETA5=LAMdDA=^Bt;TAl 


~~W^T2 

R4814 

R4815 

R4S16 

R48i8 

R4819 

RTTIT' 

QUTPU \ 

HP AC 

X( IllLiH 

D EBP I S 

pusHLi sr 

LIMIT GN INCEPENOENT VARiASLE XtTlJ 

R 4B7r 

’CtPITSHrOCT ' 




R4823 

C(PSHL0Cl+2 

HA 



K4025 

Xi 

NORMALIZATION FACTOR FOR MA-KCQN 


R4626 

2CD 

XTILIM SUBROUTINE RETURN ADDKfcSS 


R4527 

PUSHLOC IS RcSTOREQ TO US ENTRANCE VALUE UPON EXITING 

465 • 


32,3741 

71220 1 XTILIM 

STM 

4851 


32,^742 

0002 4 1 


4652 

i^EF 13 last 

925 32,3743 

03636 1 


4853 


32,3744 

44342 1 

SkI 

4S54 


32,3745 

653Ji . 

NORM 

485 5 

PEP 27 LAST 

936 32,3740 

CR1050 1 


— ■ 4S56 ■■■ 


32 , 374T 

7C'523 i~ 

PDOIT 

4857 

REF V LAST 

926 32,375'. 

03646 . 


4858 


32,3751 

56221 

BuSU 

4659 


32, j752 

41237 1 

SL? 

486 "• 


32,3753 

576^1 1 


486u5 


32,3754 

UCC35 1 


4B6r‘ ' 


3Zf3755 

4-5237 IT 


48615 


32,3756 

2- 173 . 


4862 

REF 1 

32,3757 

33577 1 


4862 5 


32, 376' 

4^132 

SLl 

4863 

REF 1 

32,3761 

657o6 ^ 


48635 


32,3762 

52c4^^ 1 

BMN 

4864 

■ 1 

"T2S37b3' ~ 

65771 TT 


46645 

REF 1 

32 f 3764 

657b7 1 


4865 


32, j765 

77743 1 XT! LI M2 

OLOAU 

46655 

REF 5 LAST 

927 32,3766 

15344 C 


48bG 


32,3767 

52io6 i XTLLIM3 

SORT 

48665 

REF 1 

32, 3 77‘ 

65773 i 


4567 



T7743 1 XTiL7H5 

uLuau 

4668 

REF 5 LAST 

93u 32,3772 

1533- . 


4869 


32,3773 

7T63 0 1 XT! LI MX 

GOTO 

487- 


32, 3774 

L u 0 ^ 4 1 
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DP 

B3C/B28 

DP 

‘ ^3C7 B'28 

DP 

B9 

DP 

829/627 

UF' ■ 

ETZTTTTZT 

DP 

B5 


UP rB3(5/2a)'-NT 

CP 830/S28 


XTlLIiH 


OLUAO 

2-0 

RCUi'i 

lU^U 

FCuL 

Al 

~3RI 

KiTil 
D J V 
CMP 
. -i, 2 
2dO 

'“crsu 

“0,1 

iRTc32> +1 
BLV 

xriLiHa 

GOTO 

“ xTiripiS ■ 

Xi ILIrtO 

2.<T£0i 

GOTO 

X r 1 L i ri x 


ha-kcun 


ear “Nil 


B3 

EHTTir =BO T A5 trrff=KT7y ( H A-RC7-1 BIT 
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BEIAl =POSMAX IF uVERFLOrt 
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4 9o •. 6 

REF 

1 



33 f 2JL'Ci 




SET LUC 

h r £C ONI 


A 9'. ' 7 





35,3571 




BANK 



49 J C 8 

RtF 

1 


- 




- 

CLUNF* 

1$/P37 


4901 

REF 

4 

LAST 

35 

26,3333 



IRTEBi 


UNI TX 


490 2 

REF 

8 

LAST 

638 

26,3325 



iRrEQ2 

— 

LPI/hTH 


490 3 

REF 

1 



34t 37 60 



1RTEB3 

= 

UP2(-3) 

1 b“3 

49 .4 

HtF 

5 

LAST 

887 

34,377- 



1RTEB4 

= 

CP2t-4i 

i B-4 

4913 





33,3571 

» 1 

’k. 

i ? 

IRTEBIJ 

2DEC 

l^B-i3 


4913 





35,3372 

Vf -t '■-j kp 

1 





4917 





35,3573 

r {j tj '[) 

1 

IRTtBl? 

2DEC 

1»B-17 


4917 





35,3574 


l; 





4923 





35,3575 

.> 

1 

IRT t B25 

2DEC 

Iv 3-25 


^4923 





J5VT576' 

•.JO wl . 

J 





A 4926 











* * B25 AND 828 MUST BE CONSECUTIVt * 

492 8 





35,3577 

1 ■ ‘ ^ 

^ ’ * s ^ ^ 

1 

IRTtBZa 

20tC 

1,8-28 


4926 





3 3 f 3 6 Ci V 

L 1 






4<=‘29 

BEF 

4 

LAST 

783 

26,3327 



ZERuR T 6 

= 

UNIT 2 


4930 





i5t 360 1 

mil 

L 

i'' i44K T E 

2DEC 

-144. b-28 


493r 





35,36Cl" 

7755 7 

K. 





493' 1 





35f 36 j3 

11111 

L, 

K15HTE 

20Eu 

-15 


4930 1 





3d, 3604 

111 as. 






49302 





35,3605 

OoOOL 

1 

ioR 1 t 

2ChC 

1 


4930 2 





3 5 f 3 o u 6 

DM12 

1 





4930 3 





3d , 36 7 

54631 

1 

M i o R T £ 

2DEC 



493U3' 





33 f 36 1' - 

63145 

1 





4931 





35, 3oi 1 

21463 

*v) 

1« IRTEBx 

20tC 

!• 1l>-1 


4931 





35,3612 

. o3 1 5 

L 





49^12 

REF 

10 

LAST 

o41 

26, 3343 



2RTEB1 

— 

yPP DS mAX 


4932 





35 f 3613 

77777 

0 

M9RTeb23 

2DEC 

- J 


4932 





35,3614 

lllbS 

0 





' 4933r“ 





35^3613'^ 

HITT 

TT 

~"?^3rTE32T 

2i>nr 

-8 


4933 





35,3616 

7 776 7 

1 





4934 





3 5 , j/617 

t}u3s> -i 

i 

3’'546oRT E 

2DEC 

3 j 4S' ! j 3-27 


4934 





J 5 f 3 a2 w. 

3561 ^ 

J 





4933 





35,d621 

3740'3 

1 

VCSPS 

2DtC 

3 5 1^^ 396 6*-" 5 

tSEE 2VEXHUST> 

4935 





35f 36ZZ 

122 DC 

'J 





4930 





35i 3623 

33^*^! 

1 

VCRCS 

2Ut6 

27<. ' o64B— 5 


4936 





3 5 1 3 ^ 

37714 

1 





4937 





35, 3625 


1 

KDUTRCS 

2UhC 

^j’^i63r5 3” 3 


4937 





35 f 3u26 

13241 

1 





4936 

REF 

5 

last 

y 36 

26 f 333 3 



CSUBf 

• • 

X i X 


494' 





35,3627 

• 0 6'v»d 

1 

GcroC' 5 

OCT 

s . u '.p 5 


4941 





35 f 363 1 

1 -O' 6 12 

1 

GCT612 

JCT 

0 612 


4943 





35 f 363 1 

4C 2x4 

1 

MCLIS7,5 

2DcC 

— ,9*-'i*k‘t48b 


4943 





35, 3632 

452^^6 

1 





4944 





35 f 3633 

7 364d 

1 

MSIN7,D 

2DC:C 

— .ii3 5i.6l 1 


4944 





35, 3634 

56536 

1 








A S EM B L fc J^E V Ly, 7^ 


Pil_Av^C PRUoKAM AKT E MIS bY NAS A e -aJLliA-^ 



l l:4.j FEBc £6, 1971 MENELAUS^i 61 PAGE 939 


L Fi7,P7t USER 







33 f 363 !? 

7^407 U 

KCQS22- 5 

2 UEC 

-*923879536-2 

4SI43 





33f 363 6 

iJ 




4946 





35 f -»637 

16525 1 

THETA165 

2 DEC 

o458333333 

4946 





35*,364r 

TZ525 U 




4047 





35,3641 

22525 J 

THETA21U 

2l)EC 

V i33 J63 

4947 





35, 3642 

12525 0 




495 1 





35,3543 

17775 1 

EPClRTt 

26EC 

,999663-1 

495 1 





35, 3644 

06676 0 




4952 





35,3645 

OUoUm i 

EPC 2 KTE 

2DEC 

1 j K. <• S' 

4952 ^ 





36 , 3 64 6 

'aSQ62 L 




4953 





3 5 f 3 64 7 

ooa 2 v 0 

EPC3RTE 

2UEL 

1 * . < 1 

4953 





35,365v 

"14223 1 




4954 





3 5 f -i 63 1 


EPC4KTE 

2 DeC 

J ^3 V \ X 

49^4 



■ - 


35 , 3652 

0 5174 i. 




4956 





35,3653 

i ' 1 

£PC 6 ftTE 

2 DEC 

^ uU .1'^ 7 B“1 

4956 





3 ^ f -J 6 6 4 

■01654 “I 




495 7 





3 5, j>655 

OOCOl 1 

EPC7RTE 

2UEC 

i ^ - u . S 

4957 




* 

35,3656 

'TT0764 1 




4^59 

REF 

2 

LAST 

937 

35,3575 


EPC9t<TL 

— 

1RTE325 

4960 





35,3657 

U C l) u 0 1 

tPCicRTE 

20 EC 

, 00 : 13-7 

496' 





i3f 360 3 

vC32Z 1 




4961 





”3'5;'3o6Tr 



3ANK 

J3 

4962 

REF 

2 

LAST 

938 

3 3 1 ^ M V - 



S t T E tjL* 

kTEoUNI 

4963 




_ 

35,3661 



d ARK 


40 635 

REF 

2 

LAST 

938 TO 

930 : 

36 5o^ 



t$/P37 

4964 



~ 


3 ^ f ^ 66 L 

75725 ' 

C4RTE 

2DEC 

— 6«98b64,5 6 7 5u 

4964 





35 f 366Z 

75417 1 




■"^49TI 





36f 3663 

VT~3T5~lj " 

K IR T t 

ZITEC 


4971 





35 , 36o4 

2374;, 1 




4972 





35,3665 

1 

K2RTE 

20EC 

6495OOwc0— 29 

4972 





33, 3666 

< 6ol4 1 




4973 




- 

35,3667 

76627 0 “ 

K3RT£ 

2 DEC 

-o 0 610'5 

4973 





35,3670 

7L156 1 




4574 





36 f 3 6 ? 1 

/ ^3 17 1 

IC4RTE 

~2t3EC 


49 74 





35,3to72 

54131 0 




4930 




- 

35, 3673 

3L276 1 

RTMURTE 

2 UEC 

19965. j 5 1 b— 13 

4980 





3 ^ f ^ 0 7 4 





4995 





35,3675 

coo ..3 1 

E3RTc 

2 DEC 

121926.3-29 

4905 





35, 3676 

27 ^ 
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L 

S-BANU ANTENNA 

FOR 

C(V 



• 



USER'S PAGE NO. 1 EC S3 

2 i/( 1 

REF 

1 



4 2 ^ f 4^1 iJ 




SETLCC 

SdANP 


Mi 2 





42,3504 




BANK 



k'Oj 

HbF 

1 







COUNT* 

1*/K 5 


20 '4 

KEF 

i 

last 

812 

E4, 1417 

- - 



LBANK= 

fcMSALI 


, 7 

KEF 

22 b 

LAST 

9o 5 

4 2 1 -i ^ C 4 

600 6 

1 

S 8 ANDANT 

TC 

INTPKLl 


2 {' 0 d 





42,3505 

45' '34 

1 


RT 6 

CALL 


2V J ^ 

REF 

23 

LAST 

783 

42,3316 

51751 

* 



LOAD TIME 

PICKUP CURRENT TIME SCALED B-28 

liTlT' 

RFF~ 

w 

> 

TATT” 

T?Z“ 

42,351. 7 4753- 

1 



TUuT.,TG 

conpoTt 'si NEsniNir cos'rMbS' uf" cuiriTfjbrHr 

2 . 1 2 

REF 

40' 

LAST 

923 

42,33i(. 

34 j41 



LTCALL 

(OtCl 

ADVANCE INTEGRATION TU TIME IN TDECi 

2013 

KEF 

1 : 

LAST 

733 

42,3311 

2717 

1 



CSMCONiC 

USING CONIC iNIEGRATlQN 

2' 14 





42,3512 

4613 j 

1 


3LOAO 

Bril Z 

ORIGIN UF REFERENCE INlRTIAL SYSTEM IS 

2 v., 15 

REF 

28 

LAST 

937 

42,3 j13 

■; c 0 5 c 

1 



X2 

EARTH - 0, MOON - 2 

2C16 

KEF 

1 



42, 3314 

6 Si? 2 7 

1 



ElSOi 


ZTTT' 





' ^5T;T51“5r” 

77775 

1 


VLUAo 



2 t 18 

REF 

33 

LAST 

923 

42,3516 

COOL 1 

4F 



kATT 


2 i. 1 9 

REF 

1 



42,3517 

ODD' 

1 


STUKt 

RCM 

FdVE RATI TO PREVENT KlPi.UUT 

2 ',-- 2 ^ 





42 f 3d2C 

45145 



OLOAD 

CALL 

MOON, PUSH ON 

2 C. 2 i 

REF 

Q 

m 

LAST 

923 

4273521 

L J u 1 5 




JAT 

GET ORIGINAL TIME 

2 < 22 

REF 

2 

LAST 

634 

42 ,352 2 

54141 

1 



LGNPOS 

COMPUTE PC SIT ION VECTOR OF MOON 

2C23 





42,3523 

5 745 5 

T ■ 


YAO 

VCOHP 

R= -{REh+rCmI = NEG, OF S/C POS^ VETT 

2t 24 

REF 

2 

LAST 

948 

42,3524 

306^3 

1 



ROT 


2C25 





42, 3525 

7765^- 

i 


GOTO 



2-26 

REF 

2 

LAST 

94 . 

42,3526 

65 5 j i 

4. ^ 



i 1 6 vj X +2 


2 ' 2 7 





42, 352 7 

5 7 b 7 5 

1 

EISOI 

VlGAO 

V0D.-1P 

EARTH, R= -RCM 

20 2 B 

REF 

34 

last 

94 , 

42 ,353t 

ocool 

1 

w 



RATI 


2t;'29 





42, 3531 

64201 



ShTPD 

MX V 

RCS TO STAEtlT mEhbER- a-TX B-29X'B+1 

20 30 





42,3532 

v.^ w 0 3 

1 



20 

20 

20 3 1 

REF 

48 

LAST 

892 

42,3533 

0 1 7 J4 




Kc:F:irtMAT 

SIABLL HLM0ER. B-lX 3-29X B+l= 8-29 

20 32 





42,3534 

65372 

1 


^7>L1 

POOL 

80 

2C33 

KEF 

25 

LAST 

88 7 

42,3535 

1 5-^ ^ 6 

75 



HluZCKOS 


2C.34 

HEF 

1 



42,3536 

24U2 5 

Q 


STijYL 

Y AW A) J 

ZERO OUT YAWANG, SET UP FOR SMNB 

— zr35 

‘ RTF 

3 

1' 


42 , 353 7 ■' 

000o3 1 



“RCH 

IHANSFuKMAI IUN 9 SM CuOKDo SCALtt) B‘”29^ 

/CC 36 





42 , 354l 

77624 

1 


CALL 



2i 37 

REF 

5 

LAST 

727 

42 , 3 54 1 

47 63 3 

1 





Z( 3 8 

KEF 

1 



42, :> 3-^2 

uOUO 3 

1 


S TORE 

K 

SAVE NAV.. BASl CUUkDI NATES 

2C39 





42,3543 

6325o 



UNIT 

POVL 

140 

2C4C 

KtF 

2 

LAST 

94^ ' 

42, 3544 

V {j 0 5 3 

1 



i< 


2C41 





42, 3>45 

"72431 

1 


VPRGJ 

VSLL 

Compute PRLfJFCfUJN of ^ vector intohcm 

21,42 

REF 

2 

LAST 

298 

f 3 5^ 6 

1533 

J 



iUrii T Z 

XY-PLANE, P-(K«UZ)UZ 

2C43 





42, 3547 

4L ;45 

1 


8 VSU 

8LiV 

CLEAR OVERFLOW INDICATOR IF SET 

2044 

REF 

3 

LAST 

94- 

42,355 , 

L. 0 o 'wi 3 

1 



K 


2C45 

REF 

1 



42,3551 

65552 

0 



CUVCnV 


20 46 





42, 3552 

40356 

0 

COVCNV 

UNIT 

BOY 

TEST OVERFLOW FOR INDICAT ION OF NULL 

2047 

REF 

1 



— 42733^ 

^55on; 



J^oJDST^ 

"^CCTdR 

21 48 





42,3554 

5t2u6 

c 


PUSH 

DOT 

200 

2049 

REF 

4 

LAST 

al ^ 

42, 3553 

15334 

1 



HIUNI TX 

CCMPUTl yak ANGLE = ACOS tUkP.UXI 

2 w. 5 . 





42 ,3556 

65552 

t 


SLl 

A w J -J 

kkVuLUTIUNS SCALEu a 

2o31 





42, 355 7 

5u3l5 

( 

Lj 


PJVL 

Lji- 1 

220 YAWANG 




AF 


ASSEMBLL 


1 72 OF At,U PKOGRAj^ AKTtMlb 6Y NASA 2 '211 


S-BAND ANTENNA FOR CM 


2i;52 

KEF 

i 



42 , 356u 

00wi7 1 


2’-' 5 3 

REF 

2 

LAST 

293 

42, 3->6 i 

15332 1 


2t.,64 





42, 33o2 

31152 0 

SLl 

ZT 5S 

REF 

2 

LAST 


42# J5o3 

lb 5 Cl f 0 


2(36 





42, 3564 

45345 1 

dluad 

2C37 

REP 

11 

LAST 

938 

42, 33o 5 

15344 J 


2C58 





42 , 336 6 

776 JO 1 

PUSH 

2C59 





42,3567 

50375 ^ 

NOADJUST VLOAD 

2060 

HEF 

1 



42,357'. 

DLull 1 


2t’T61 

~RTF“ 

3 

XTTSr" 


42 ,3:> / i 

1533G T 


2i.b2 





42,3372 

65532 G 

SLl 

2r63 

■ 




42,3375 

77625 

usu 

2i'64 

REF 

J 

LAST 

389 

42,3574 

15326 1 


21 65 

REF 

4 

last 

292 

42,3575 

■ 16312 D 

“ STOOL 

t>6 

REF 

2 

LAST 

9 A"-,. 

42,3376 



- 2^ 07 

“REF' 


'LAST 


"4Z”, 33 / ^ 

u 2 3 1 4 0 

STURF 

206 ti 





42 1 36*j V 

77?76 1 

EXIT 

Z?768C5 

REF 

7 

LAST 

555 

42,36l 1 

3 5047 1 

CAF 

206BC6 

REF 

14 

LAST 

869 

42, 360 2 

D 51/6 1 

TC 

2t 681 

KEF 

1 ^ 

LAST 

793 

42,3603 

3 1247 1 

CA 

2rc-8:z 

'TTET^ 

ZF 

‘XAST" 

743 42,36J4 

1 

MASK 

2f 663 





42# 36^5 

0 C V t> i 

EXTEM 

2C684 

REF 

33 

LAST 

641 

42 , 36u 6 

i 5324 L 

BZF 

20 6 V 

REF 

1 



42 , 36t' 7 

3 3623 0 

CAF 

20 7i. 

REF 

211 

LAST 

907 

42, 36 IL 

0 4636 Tj 

TC 

20 7 1 

REF 

3 

LAST 

368 

42,3611 

2d6l7 1 

CADH 


RTT 


“CAinr 

"521 

4Z7B'6I2" 

“TTrSZolT" 

T C 

2i 73 

REF 

8 

LAST 

941 

42,3613 

L 5626 Cl 

TC 

2v74 

REF 

83 

LAST 

9C3 

42 ,3614 

■j 5205 D " 

TC 

7 3 

REF 

34 

LAST 

738 

42,3615 

3 4766 1 

CAF 

20 76 

FEF 

12 

LAST 

9C5 

42*3ol6 

0 5516 J 

■ TC 

2i 763 

REF 

2 

LAST 

261 

42,3617 

3 4753 1 

CAF 

— zcTG'er 

KfcF 

■T5“ 

LAST 

“94T. 

4z, 6C>4l’j 

C 517 0 T. 

TC 

I'll 

REF 


LAST 

776 

42,3o2i 

3 47 7v. J 

L AF 

2073 

REF 

212 

LAST 

941 

42,3622 

u 4636 v> 

rc 

2f 79 

RTF 

1 a 

LAST 

30 9 

4 2, 3623 

01731 w 

CADR 

2( 8- 

REF 

Z 

last 

261 

42, 3624 

1 35o4 1 

TCF 

2^ 





4 362 5 

* / 146^3 1 

vC6Mi>i SfH 

2C87 





z 


HCM EyUAL 

201B8 





DU 10“ 


UR EQUAL; 

20 89 





0016 


DRP EwOAL. 

2090 





uu24 


YAwANG EQUAL! 

2C91 





6 326 


pircHANG equal; 

2r92 

“REF 

■ ^ 

L AXT 

0-4 j- 

V> L ^ 


IR M iJ A L- 

2C93 

REF 

12 

LAST 

743 

3’j,2D' 0 


SBANK^ 
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USER'S PAGE NU« 2 E4 S4 


URP 

hiu.^in r 

bpl 

T\051TJUST 

osu 

CPPuS.nAX 

CCT 

UR 

FlUfTITZ ■ 

AC Q o 


COMPUTE FOLLOWING- URP.UY 
POSITIVE 

YES^ r- "TFrnTFGRFFS 

NO, 181-36C DEGREES 2-.U 
COMPUTE 2 PI MINUS YAW ANGLE 
22D YAWANG 
COMPUTE PITCH ANGLE 
ACOS tUR^UZ) - PI/2 


REVULUIIONS B 


hlUPl/4 

RHOiB 

YAWANG 

GAMMAS 3 — -PATCH FOR CHECKtIUT 


PRTUS 
PRl QCHNG 

ExTVtiACI IS BIT 5 STILL ON 


END EXT 

BANKCALL 
GOMARKFK 
“edOFT^ 
65UFF 
ENDuFJOB 
Li 13 
BLANKET 
FR1Q4 
WraCHTTG 


Mj, WE HAVE BEEN ANSWERED 
DISPLAY ANGLES 


rERTflTlATE 


RECYCLE 

IMMEDIATE RETURN 
BLANK R3 


Bill DELAY MINIMUM TIME TO ALLOW DISPLAY IN 

t AN K CALL 

CcLAYJUD 

SBANUANT 

~65i ““ ~ ~ 

2D 

go 

i-^D 

2.0 

220 

2CM ■ " ~~ 

LOW jUPER 





tf^W. 


{■ r 


• ^ :•■■ :^j 

, i> ■»*■ — . ^ 
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LLiNAk LAMMARK SELtCTIGN FOR CM 


USER'S PAGE NO, 


60 S? 


• ~ 7 W 


I * 


*** END UF MENEL/!US-D61 *=*♦ 
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.*> . 


_• — • k.- , 





j 






n r 




fo 







v> 




- J ' ' 

9m9mr 





m 







t 


0 . 


a 


7 




4 


J 



* V ^ 

• ' ^ *0 

•* ^ ' 


i- 


X . . 



4 


. • t 

I 


r 
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TVtiNITlALiZE 


USER'S PAGE NO 


S? 


K li ' 

iv It -J 1 

k ie<.2 
R 10325 
K It'O 3 
R iCF 4 
R 1(% 6 
R 1008 
R1CC9 
TnxTtr- 

Rl‘ 11 
R 1<.12 
R 1 Y 13 
■RiriA 
R it 141 
T<1C?15“ 
Ri: 16 
R IC 1 7 
R lt‘ 1 a 
R 1C 19 
R li 2: 

*K li 21 

R1C22 
K 1‘ 23 
Kl 24 
R 1 C 25 
Rl’ 26 


NAHf TVCDAPUN tTVC OAP INITIALIZATION ANu STARIuP CaLLI 

LCG SElTIjN,,. IVCINITIALIZE SUdHLJT INt, , » OAPCS m“ 

MODIFIED BY SCHLUNUT 21 OCTOBER 1966 

flCDIFTcEr GY'BEi^L^ TO'TtlMnaTEnc^l^SS^irPCATt LOGTU^fNQw' DIJiTc'T7r34r;"3T 

functional DESCRIPTION 

performs tvcdap Initialization (gains, timing parameters, filter yakiables, 

COMPUTES steering (S40,a) GAIN KPRIMEOT, AND ZEROcS PASTOELVi+l VARIABLE 
MAKEi INITIALIZATION CALL TO .,NEEOL£ft.« FOR TVC uAP NtEOLES-SETUP 
PERFORMS INI TIaLIZATIuN FOR ROLL CAP 

u ALTS-m^rrK ECUTTVE“AT “ TVCEX EC rUT S-WAmSTST 

CALLj» TVCCAP CDu-KATE INITIALIZATION PKG aT DAPINIT VIA T5 
PROVIDES FOR LUAOING OF LON-BANDW IDTH CuEFFS AND GaINS AT 5YIICH0VR 
CALLING StwUENCE - T 3L0C=2C ADR t TVCDAPUN , EBANK-dZEROI , T5=,oSECr3 
IN PARTICULATE, CALLED BY ••DOTVCON.. IN P4'} 

MRLLtAN AND TVCINIT4 ARE POSSIBLE RESTART ENTRY POINTS 
TVC?K7tAL^Xn MODE 
TCP RESUME 
SUBPGUTINES CALLED 

NEECLEk, MASSPRGP 
ALAPH OR ABORT EXIT KOOES 
NONE 

ERASAHLE"TiTITTAriZAT lUN RtuUrRED 

CSMRASS, LEMMASS, OAPDATRi IFOR MASSPROP SUBKOUTINc) 

TVC PAD LOADS (SEE EBANKd IN ERASABLE ASSIGNMENTS! 

PACTOFF, YACToFF, CDUX 

TVCPriASE AND THE T3 BITS OF FLAGrtRDb (SET AT UUTVCUN IN ) 

OUTPUT 


ETCo 1 


“in* 27 — 
Kiuze 

Rl' 29 

1132 

IC33 

ACL TVC AND REin 

DEBRIS 

NONE 

REF 1 

TAP hKASAOUHS,"' 

i7,2uC 

17,2163 

FLUGWRlTb ( 3 

ITS I3,j. 41,^3, WA 

SETLUC DAP 

BANK 

KJ35 

^REF 

1 







COUNTS 

ii./iNll 

It 34 

R tF 

iu 

LAST 

719 

E6 , 1446 




EBANK= 

CNTR 

1C 35 

REF 

7 

LAST 

734 

17,2163 

22 v 1 6 

'J 

rVCDAPON 

LXCH 

BANK HURT 

1E36 





17,2164 

C ICC 6 

1 


EXTET'i J 


U361 

REF 

7 

LAST 

734 

17,2165 

22 CM2 

1 


OXgH 

GRUP 1 

V 38 

■^EF" 

~r" 



TT,TTT6“ 


c 

RkClEATJ 

CAh 

h 4 LK J 

A K 30 











l'"4r 

REF 

i9C 

LAST 

6^3 

17 f ^ lo 7 

1C - 

w 

+ 1 

CCS 

A 

U 41 

REF 

17 

LAST 

943 

17,217 

53*446 

1 


TS 

CNTR 

If 42 

REF 

148 

LAST 

9^4 

17, 2171 

3 4772 

1 


CAP 

ZERO 

It 43 

REF 

85 

LAST 

893 

17,2172 

Lei 

1 


Ts 

■■ T^TTTT^T W 

L 

- rr^TA^ 

“RTF 

1T“ 

"LAST 

T4 T ~ 

T:77ZI7T“ 

li 1 * 44 6 U 


t A 

LTvT h 

lv'45 

REF 




17,2174 

3 i * 3 3 

1 


OXCH 

LMtoAYi, 

K46 

REF 

19 

LAST 

943 

17,2175 

11*446 

1 


CCS 

C N T K 

1C 47 

REF 

1 



17,2176 

1 2167 

1 


TCP 

i^rvCLhAi’i ■►i 


TS KUPT ARRIVAL (CALL BY DOIVCON - P4^ J 
SAVE G REQUIRED IN RESTARTS IMRCLEAN AT'iD 
TVC1NIT4 ARE ENTRIES) 

RuMriER Tu zbRur rEsy"OTaE musT-'CTr uuij)“ 

TVC RESTARTS ENTER HEKb (NEW BANK) 


FIRST I LAST) TWO LOCATIONS 


A^iitMdLE KE^ISIUN 

'72 

CF AGC PRU 

SRAM ART E 
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L 

T VClNillALlZE 






USER'S PAGE NO. 2 E6 S3 

1^. 471 





17,2177 

0 t!v .'6 1 

tXT ENu 


SET UP ANOTHER T5 RUPT TO OONTINUE 

1.472 

H EF 

1 



17,2200 

3 2540 1 

OLA 

INI 10002 

INITIALIZATION AT TVCINlTi 

1 473 

REF 

11 

LAST 

7j5 

17,220 1 

52 113 i. 

DXCH 

T 5LG0 

THE PHS0HK2 ENTRY (REDOTVO AT TVCDAPON 

“ i: 4T4 “ 

T?rF 

l6 

TXST" 

706 

“i77:2Zi;r ‘ 

3 '4750 1 

' oXF 

T y; 

+ 3 TS IN aNuTHER BANKo rust RE SET 

1‘ 47fj 

REF 

6 

LAST 

735 

1 7 , 220 3 

5% C3U 0 

TS 

T INE5 

BBCON TOO tFULL 2CA0RI, FOR THAT 

i' 476 

PEF 

26 

LAST 

734 

17,2204 

1 3323 i 

ENOMKC rCF 

kcSUME 

ENTRYo 

lv'47? 

HEF 

K 

LAST 

943 

17,2205 

22 Ji6 0 

TVCINITI LXCH 

BANKRUPT 

- - - — 

U47e 





17,2206 

•J O' > 6 1 

EXTEND 



lv479 

RET~ 

W 

last 

943 

l7 ,220? 

'22r i,rT“ 

wXTHH 

'JRDR r 


lJ4y 

REF 

2d 

LAST 

711 

17,221l 

. 4714 1 

TO 

IdNKCrtLL 

UPDATE IXX, lAYG/TLX FOR DAP GAINS (RJi 


REF 


LAST 

7‘j4 

1 7 , 22 1 1 

13313 1 

OaUK 

R ASS PROP 

OR NOUNS 46 AND 47 MUST BE CORRECT) 

U 1>9 

REF 

56 

last 

737 

17,2212 

31*465 1 

OAE 

LAPDATKl 

CHECK LEM-GN/QFF 

17^ 

TTEF' 

"37 

TTAST 

7^6“ 

17,22X3“ 

7 4 753“:r 

RX5K 

EiTX4 


it 6l 

REF 

191 

LAST 

943 

17,2214 

I’i ^ 
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DCS 

Y JtiLQFr 

12C3 





1 6 1 3 1 6 6 

2C 5-1 

1 

DOQUflL 


121 4 





16,3167 

2v,- 0 - . 1 

i 

0D0U3L 



KEF 

“ITT 

LAST’ 

952 

i6 f 3i 7G 

5 3 ■ 6 i 2 

1 

DXCTff 

TTMPi 

12 6 





16,3171 

0 u . j o 

1 

EXTEND 


12.7 

REF 

D 

LAST 

947 

16, 3172 

3 16j4 

1 

DC A’ 

CELYOAR 

12 8 





16,3173 

2l OSl 

1 

UDQuaL 


121" 9 



- 

— - •«i- 

16,3174 

2C O.i 

1 

DDQUBL 


121 

REF 

11 

L AST 

953 

16,3175 

21* 6i2 

1 

JAS 

ITr-iPl 

— 121 r 





16 f 3 1 76 

U 

1 

£:XTENU 


1212 

REF 

12 

LAST 

953 

16,3177 

3 1612 


JO A 

TTMPl 

1213 





16, 32u V 

- r— 1^ — » 

w ( L U 

1 

E XTEThD 


1214 

REF 

d 

LAST 

952 

16 f 1 

7 1444 

; ' 

MP 

T EMPoAP 

1215 

REF 

J 

LAST 

953 

1 6 9 3^ C ^ 

2l'66«: 

1 

OAS 

YACTTMP 

1216 

REF 

t 

LAST 

952 

16, 32 V 3 

25* 644 


LORCOPY I NCR 

TVCEXPHS 

1217 





16 f 4 

kj *_■ ■ 6 

1 

t X I fcN L> 


1218 

H EF 

4 

LAST 

953 

lo $ 32C 5 

3 1656 

t 

DCA 

PACT FhP 

1219 

REF 

15 

LAST 

945 

16 , d2L 6 

55 ' 423 

1 

TS 

PACi uFF 

XZ2i 

REF 

6 

LAST 

952 

I6,32L7 

53* 606 

1 

DXCH 

PDELOFF 

1221 





lo,321T? 

ij GO >6 

1 

EXTEND 


1222 

REF 

4 

LAST 

953 

16,3211 

3 166\ 

L 

OCA 

YaCT FrtP 

1223 

REF 

d 

LAST 

945 

1 6 f 32. 1 Z 

55* 424 

w 

TS 

Y ACT OFF 

1224 

REF 

o 

LAST 

953 

16,3213 

53* o 1 . 

'Ni 

OXoH 

YOELOFF 

1225 

REF 

a 

Last 

9 53 

16,3214 

25* 644 

U 

INCR 

TVCcXPHS 

IZZB 

REF 

7 

“TTAST 

' rar 

16, 3215 

3j. • 6 61 

1 

CNTRCQPY'XAF" 

c NT R rw 

1227 

REF 

33 

LAST 

951 

16 f j2 16 

33 • 44 0 

1 

TS 

CNTR 

1228 

REF 

151 

LAST 

946 

16,3217 

3 4772 

1 

IVCEXFIN CAF 

ZERO 

1229 

REF 

9 

LAST 

953 

16,322-J 

55 • 644 

1 

IS 

T VCEXPHS 

123' 

REF 

43 

LAST 

83d 

16,3221 

i 5314 


TCF 

T AbKOV EK 

1231 

REF 

3j 

LAST 

952 

4754 



FCOKFRAC = 

c 1 r 1 3 


9pJ 


ll:4> FEiio 26,1971 ULYi.SES o029 PAGf - 

USER'S PAGE NO, 4 t6 S3 


>(Afi TMC LOGP 


RESfART PROTECT THE COPYCYCLF t3J 

TrilK-ESTIHATtSt AND 


TRIMS 


ENTRY FROM ISHGICHK AT NEXT LOCATION 14) 
-UTOaTE'CNTR fRESTARTS OKi" FOLLOWS CPYCY) 


RESET TVCEXPHS 
rVLLXLcUTIVE El NX SHED 


LNc-SHOT CCRRECTIDN FRACTION 




ASSEMfiLt KlVISI 


7Z GP AGC PROGRAM ART EM 1 5 BY NASA 


ll;40 FEbe 26,1971 ULYSSFS 29 PAGE 9^4 


I vCKASiPRUP 


USER' S PAGE MOi 




^ PROGRAM NAME. •••MASSPRGP 

Klv il LCG SEuT lUN.. ..TVCMASSPRUP PROGRAMMER*.. MELA.iSUiM (ENGEL, ^CHLUNDTJ 


RIE;;.^ FLNCTICNAL OESCRIPTICN: 

RiC' 3 MaSSPROP operates in TVjO modes: (DIF LEM MASS UR GuivF I b JRAl I UN ARE UPDATED {MASSPROP DOES NOT TEST 

'Rir; 5 FCR THIS) THE ENTIRE PROGRAM MUST'SE RUN THROUGH, gREAKPCInT VALUES AND DERIVATIVES OF THE OUTPUTS WITH 

.<1007 RESPEC I TU CSM MASS BEING CALCULATED PRICR TO CALCULATION JF THE OUTPUTS. 1 2 ) OTHERVi I SE , THE OUTPUTS CAN DE 
R1CT5 C JLXTJrATIIi US IKfG PReVTuuSlY C OH P U T £ D'mFSKFOTNT VS'L U t S' ‘ Sis C D HR IVATT VTST; 

KlbiSS CALLING SEQUENCES 

f- 1 IF LEM MASS OK COiNFlGUKATlON HAS BEEN UPDATED, TRANSFER TO MASSPROP, OTHERWISE TRANSFER TO FlXCW* 

Hi. 12 L TC BANK CALL OR IBNKCALL 


p; It rs 

L+i 

"CAim fTA'SSPROP 

Rl^'lA 


OR 

R 1< 1 S 

L + 1 

CADR fiXCW 

R 1 io 

L+2 

RETURNS VIA Q 


rIa It called in particular duITouna? 't vceTecThTW” dasiu 

R 1. 19 JCES CR TASKS INITIATED - NONE 
Rr,'2 5L6R0UMNES CALLED - jNONE 


R H 2i ERASAbLE IN ItTaL I z’mT ION REQUIRED 

k1''22 LEMMaSS RLST CONTAIN LEM MASS ^CALEC AT 3+16 I.N KILl^RAMS 

Rl(i23 CSMMASS MUST CONTAIN CSM MASS SCALED AT 6+16 IN KILOGRAMS 

Ris24 DAPCATRl MUST BE SET TO INDICATE VEFICLE CUNF IGURAT ION* 

- 101724^1 — BITs ^!3 ,I 47 l 3 T ^ 

R 10 24 11 
“ R R.2412 


RiU25 ALARMS - NONE 


R1T26 EXIT - TC Q 

Rl(27 CLTPUTS: 

Ri028 (IHXX, SINGLE PRECISION SCALED AT d+2c IN KG-M Sw^ 

Rlo?^ rZTTTA Vc~ STTfGL E 1>RFlTS1 ON S C Al cD AT ¥+^l i i Xg“-^T s-v 

Rir3' (3UAVG/TLX, SINGLE PRECISION, SCALED Al 8+2 SEC-S^L 

R1L31 THEY ARE STORED IN CuNSECUTlVt REGI STcRb iXXb, iXAi, iXX2 

RU31i CONVcRSlCN rACTOR : 


= T 


i ‘ 
1 


( ' 

( 1 


fit 

f 1 f 


r* , 


I 

) 


LEM 
L tM 


Crr 

CN t A5 
CTi ( Aa 


f US 1 J 
1 UhLY) 


{SLUb-FTSW) = L« 7 J 756 Z tKG-MSJ) 


il 


GAP I ASS^MBLt KLy iSIDN 072 CF Au>L P ROGRAM a RTEMIS BY NA SA Z 2 111^ U. 
L TVCMAS'jPrtUP 


R 1^ 

CUT TUT 6 ARE 

CALCULATED AS 

FOLLOWS : 



;; 1' 33 

(1! 

IE LEM 

DOCKED, LEHMASS IS FIRST ELIMINATED AS A PAKAMtT 

ER 

K 1 34 


V AR Sic,* 


IN T VALUED 


LEMHASSI SLOPEVALUl 

iXX 

BREAKPOINT 

f\ Il 36 


VARSTl 


IN T VALUE 1 

+ 

LEMMASSI SLOPEVALii 

lAVG 

Break HOI NT 

R 1. 36 


VARS 12 

= 

1NTVALUE2 

4- 

LEMNASS ( jLOPEVALZ! 

lAVG/TLX 

BREAKPOINT 

Rl'. 4' 


VARST3 


INT VALUES 

+ 

LEMMASSI SL0PEVAL3i 

iAVb/ ILX 

SLOPE FOR 

— R:ir42 ^ 


VARST4 


IN I VALUED" 


LfcHhASS { 5L CPEV 

I A y G 

^iLUPE PUK 

K h 44 


VARSfp 

— 

INTVALUeS 

4 

LEMHASSI SLUPEVALS! 

IXX 

SLOPE FOR 

K H 46 


V AR S TC 


INT VALUE6 

4 

LfcMMASS(SLUPEVAL6! 

lAVo 

slope FDR 

R 1' 48 


VAKST7 


INT VALUE7 

4 

LEMMASS( SLOP £V ALT) 

I A VG/ TLX 

bLCiPL FOR 

R1C5‘ 


VARST 8 


INTVALUE8 

4 

L£MMmSSISL0PEVAL3) 

i A Vij 

DECREMENT 

R 1C 5 2 


VAR ST 9 


INTVALUc9 

4 

L£t'4MASsiSL0PEVAL9! 

lAVb/ TLX 

Ufc CrvcMEN f 

k 1'. 54 

(2) 

IF LEM 

NOT DOCKED 





RK 55 


V AH STD 


NOLEMVALw 


WHERE THE MEAN ING 

AND :>CALING JF 

vakstl 

R K So 


4 




Tu VAKST9 ARE THE 

SAME AS GIVEN A 

buy E 

R 1U57 


9 


• 





R1X58 


O 




NOTE... FOR THIS ^ 

uASEf i ilAVt NO 

H 1059 


VARiT9 


N0LEMVAL9 


MEANING (THEY ARE 

COMPUTED BUI NUT USED! 


K1060 <3 1 THE FINAL OUTPUT CALCULATIONS ARE THEN OCiJE 

Ric61 IXXj - VARST > + tCSHNASS + NfcCBPW ) V ARST 5 IXX 

— }rir62 Ixxi = VAR STl +~TCi;fWA'S^S^''N^^ i 14 ' OK 6l 1 AVC ■ 

Rli'63 IXX2 = VARST2 * tCSMMASS + ^4tGBP W ) VARST 13 OR /I IaVG/TLX 


Rl*o4 THE DATA USED CAME FRUN CSM/L'^ SPACtCRAFr OPERATIONAL LA F A dOOK* 

Rii 641 Vur7 " T,~ 'TTSSA" GGrOTr!Tr~s 7 ra- a-iF<: zr tp arx h igxBi 


Rlvb:? PERTINENT MASS DATA : 
R 1 ‘. 66 
R lu67 
R 1068 


CSM KEIGhf IFULL) o41. LBS 

(EMPTY! 33966 LJS 

LEH WEIGHT (FULL! 3.^! . LBS 

(EMPTY! 14116 LBj 




» 


R1U681 (WEIGHTS hRE FKOM AMENDHcfJT #1 (APRIL z4.196b) TC ABGVc L^TA BOOK! 


4i FEBo 26,19/i ULYSSES 


‘29 PAGE 955 


USER'S PAGE NO. 2 E^ S3 


Value 

VALUE 

VALUE 


CSMMASS > 33956 LBS ( 5PS > lf'< o LDS! 
CSMMA55 > 33956 LBS (” ^3 “TTirTTr-nTST 


ALL VALUES OF CSMMASS 


CSMMASS < 33950 LBS ( SPS < it .m LBS ) 
CSMMASS < 33956 LBS ( SPS < I'j'o LBS! 


TC 6RKPT VALUE WHEN LEM OSCNT STAGE UFF 
TO BRKPT VALUE WHEN LEM OSCNT STAGE OFF 


OA':' r . SL t VIS ION . > 7.4 Pf. AGC i? i^GiiRAM AK TEW I G 3 Y . NA;> A 2Xli^- 11 11:4^ Ft:6o 26,1971 ULYSSeS o'-i29 PAGE ^36 

L TVCNAo:>PROP USER'S PAGE NUa 3 S3 


i: 7 kef 

1 71 

Ic PEF 

i 

34 LAST 953 

C5 1 20'JU 

05 1 33l 3 

E6 1 1446 


^ E r LOG 
BANK 
t B ANK= 

CAPMA6S 

LNTR 

■ — - - - — -- 

1 7T^ RrEF 

i 



CUU.Ml * 

T^yH Asp 



1< 7 A 

KEF 

2 

LAST 

h4 7 

u5 f 33 i 3 

3 4322 

7T 

PASSPRUP 

CAF 

NI Nc 

KASSPRDP USES TVC/RCS INT ERUPT TEMPS 

i< 75 

*KEF 

2 

LAST 

1 o 6 

f 3314 

55*5^0 

1 

+ 1 

TS 

PHI 333 

SET UP TEN PASSES 

XL 76 

PEF 

59 

LAST 

9 52 

G5f3315 

31*465 

1 

LcMTEST 

LAt 

CAPDATRi 

DETERMINE LEM STATUS 

“ iv 77 

REF 

3l 

LAST 

953 

Si 3 1 33 1 b 

7 4754 

1 


;4ASK 

"^Ti J 


XL 7 8 





vO,3317 


1 


tXT END 



X 7'- 

REF 

1 



S5, 332 L 

i 3324 



riZF 

LEMYES 


IC8C 

REF 

J 

LAST 

95o 

05,3321 

51* 566 

C 

LEHNU 

INDEX 

Pril 333 

LEM NUT attached 

1C81 

K tF 

1 



w 5 1 3 ^ 

3 3410 

1 


CAF 

NDLcNVAL 


ICFT" 

^TTEF 

i 



S373323"" 

1 3334 

1 


TCF ■ 

STGt NSI 


16 83 

kcF 

5 

LAST 

292 

j , S3^: 4 

31*472 

1 

LEi^YES 

CAE 

LEMMA65 

LEM I S ATTACHED 

XC84 





j5,3J25 

f> QOkjLa 

1 


DOUBLc 


^ . 

XL 85 





/5,3326 

0 L' y U 6 

1 


c XTE Hi) 


It 

1C 86 

REF 

4 

LAST 

956 

65,3327 

5 1556 

t 


INDEX 

PH1333 


ita? 

REF 

1 



3 f 3 ^ 3 u 

7 3432 

>’ 

U 


HP 

SLUPEVAL 


Xv88 





o5| j33i 

2 C- J u i 

1 


uDOUdL 



1C89 

REF 


LAST 

956 

: 5,3332 

51*5 6 

w 


INDEX 

PH133j 


ll 90 

REF 

1 



05,3333 

6 342 . 

1 


AD 

I NTVaLDE 

----- - - 

it. 9 1 

REF 

6 

LAST 

956 

65,3334 

51*506 

r 

STQINST 

INDEX 

PHI 333 

STORAGE INST BEGIN HERE 

1692 

RcF 

3 

LAST 

X:t3 

65,3335 

55*511 

1 


TS 

VAiVST 


1C 9 3 

REF 

7 

L AST 

956 

0 5, J336 

11* 506 

i 


CC:> 

FHl 353 

ARE ALL TEN PASSES COMPLETED 

1l94 

H6F 

5 

LAST 

944 

-'3 f ->33 7 

1 3314 

- 


TCF 

PASSPkDP -*-1 

NO - GO DECREMENT PHI 333 

Iv^ S d 

REF 

60 

LAST ' 

956 

w 5 T “^3 4 - 

11 ' 4ud 

' J 

C XT E o T 

CCS 

CAPOAfKl 

IF NEG, BITiS IS 1, LEM DSCNT STAGE OFF 

X..99 

R£F 

2 

LAST 

95i 

5, 3341 

i 334 7 



TCF 

F I )(C ti 


TT* t- 

— f<cF~ 

3“ 

~ L AST~ ■ 

9d5” 

-^,3342 

1“TT47' 



“TCF 

nxcT “ 


XI: 1 

REF 

4 

LAST 

95o 

.5,3343 

^3* ><;2 

1 


JXCH 

VAkSJO +80 


ii'u2 

8 E F 

5 

L AS T 

95o 

6 5, 334 4 

21*513 

J 


3 AS 

VAiiST . +l 


1 l‘J 3 

REF 

i 



65 , 3345 

3 3443 

1 


UA 

DXITFIX 


lie 4 

REF 

6 

LAST 

95o 

S5, 3346 

27* 52 V 

L 


ADS 

VARSTj +7 


iiVs 

kef 

3L 

LAST 

946 

0 5,3347 

3 4 767 

G 

FiXCK 

lAF 

£112 

COIWUTATIQK PHASE BEGINS HEREo SET UP 

XI 6 

REF 

3 

last 

956 

03,3356 

55 ■ 5 J 6 

1 


Ti 

Phi 333 

IHREL PASSES 

XX- 7 

REF 

2 

LAST 

1C 8 

V 5, 335 1 

55* 5 .7 

*■ 

u 


To 

PSi J3o 

m 

IX .8 

REF 

12 

last 

726 

i 5, 3352 

31*473 



CAE 

t AS^ 

GET DELIA CSM RE iGhT - 6 IGn DblLKMINtS 

11 ° 

REF 

1 



w 5 f 3 3 3 3 

6 3444 

t 1 

■w 


AD 

Ntu SPiri 

SLOPE LOCATIONS* 

Xil 





0- 5,3 35 4 

6 w w w 

TT 


DliUdLE 



1111 

REF 


LAST 

1 :b 

05,3355 

55*51. 



T3 

TErtP333 


1X12 





S 5, 3356 

0 ^ o 

1 


lXT END 



1113 

REF 

i 



1 . 3 1 33^7 

6 33u^ 



BZMF 

Pl:DS i 

UcTLHMINE CORRECT SLcPl 


KPVISILN /I Z OF AbC PKQGKArt AKTBMIS b V i MSA 2 2 1114-. 11 il ;4 P£B, ULYS$£S ^u29 PAG& 91^7 

I TVCPASbPRUP USER'S PAGE NO, 4 E6 S3 


iii4 

KEF 

7 

LAST 

579 

3f 33 6 C 

3 7701 

» 


LAF 

N c ^ 2 



Ills 

REF 

9 

LAST 

95o 

3 1 33o 1 

55 ’ 5.6 

1 


TS 

PHi j33 



1116 

REF 

1 . 

LAST 

557 

05 1 3362 

3 1 * 5., 6 

w 

PEGGY 

i NUEX 

PH1333 

ALL IS P,EADY~^ CALCULATE OUTPUTS 

nTL 

111? 

REF 

1 



- 5t 3Jb 3 

31*510 

1 


CAfc 

V AK j T5 

GET SLOPE 


1118 





: 5 1 3^64 

L oO .6 

1 


EXTEND 




1119 

REF 

3 

LAST 

956 

u 3 f 3365 

7 i5iv 



MP 

I iit^iP33 J 

MULT BY DELTA CSH RLIGHT 


1120 





05,3366 

6 

i 


DOUBLE 




1121 

KEF 


LAST 

956 

j 3 ^ 3 36 T 

51*537 

1 


INDEX 

PS1333 



' irz2 ■ 


“7* 

rA"5T 

"9'5Tr' 

v>5» 33 7C 

6 1 5i 1 

u 



VARSTv 

AUU BREAKPOINT VALUE 


1123 

REF 

4 

last 

957 

u 5 f 33 1 1 

51* 3l7 

1 


INDEX 

PSi j>33 



1124 

REF 

4 

LAST 

948 

u5 f 33 7 2 

55 ' 467 

1 


TS 

iXX 

OUTPUTS C IXX , IXXl, IXX2) 

3(t sjt 

1125 

REF 

3 

LAST 

957 

C5 f 337 3 

11* 507 



CCS 

PSI333 

BOOKKEEPING - MASS PROP FINISHED 

OR NOT 

TITB 

"RTF" 

■ "L 



— U 5, 3374 

“t '34 j4 

T‘ 


7 CF 

eOKKEPZ 

RLT^ GU^AXt CARE UP htGlSJ^^ 

1127 

REF 

61 

LAST 

956 

<j5 , 3375 

3i*46p 

1 


CAE 

C/iPUATKl 

UPDATE w’EIGHt/ j 

- - — 

1128 

REF 

36 

LAST 

944 

3 f 33 7 6 

7 4753 



MASK 

^1114 



1129 

REF 

196 

LAST" 

952 

5 f j>3 7 7 

iC 0 

f , 


CCS 

A 



113'' 

REF 

6 

LAST 

956 

0 5 , 340 • 

3 1472 

1 


CA 

LcMi4AS3 



“113-1 “ 

nPTFF" 

I3" 

LAST 

~95Tr 

u3f 34;^ 1 

"7X1475 

1 


l^D 

XSTTRASS 



1132 

REF 

6 

LAST 

S.j4 

" '35,34u2 

55'475 

i 


TS 

irt( 6 1 (iHF / G 

SCALED AT 8+16 IN KILOGRAMS 


1133 

REF 

157 

LAST 

948 

C5,34CB 

1./ ^ 2 

L 

End hassp 

TC 

Q 



1134 

REF 

6 

LAST 

957 

-5 , 340 4 

55 * 3'..^ 7 

i_ 

E0KKEP2 

TS 

PS1333 

KEDUCE PSl bY uNr, 


1135 





,5,3405 

j V *,? ^ 6 

1 


EXTEND 




“LlB'b ■ 

■REF" 

“IX 

“rA:sT 

"957 

v5, 34 l6 

2 7*506" 

1 


XTFl 

Pri i 333 



1137 

REF 

2 

LAST 

956 

.5,34l7 

i 33 o2 

1 


TCF 

P tbGY 
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p 
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L rVCMASSPRjP 






USER'S PAGE NU* 

I> f O O i 

1136 

c j341 . 

L 1 6 1 6 

V ' 

KOL EHVAL 

DEC 

25445o B— 2 . 


1139 

«5,34il 

02526 

1 


OEC 

8 745.-0 e-2 ; 


n't 

0 5 1 3412 

02352 

1 


DEC 

«3,7i5 b-2 


1141 

5 ,34i3 

V 1471 

1 


UtO 

■Tr22aT7~ t-3 0^-12 


1142 

5 *3414 

V C 6 3 4 

1 


JEO 

i o6 . 9o b— 6 


1143 

.5,3415 

. ul2 

1 


DEO 

1 j 54 6—6 


1144 

5,3416 

1 3 7v6 



OEC 

73 77177 3-6 


1145 

.j5,3417 

14425 

0 


DEC 

3^4ti436 E^5 d+12 


1146 

V 5 f 3 4 2 C 

l :. 644 

1 

INTVALUE 

OtO 

^635 ^ 6— 2 - ' 


1147 

.5,3421 

V 371k/ 

1 


□ EC 

127318 b— 2w 


1148 

35,3422 

V 42**6 

0 


DEC 

r»54 59 B— 2 


1149 

:5,3423 

V 2011 

1 


OEC 

; 1339o4 E-4 B+i2 


li5c 

05 #3424 

77501 

Li 


DEC" 

-074292 3 3-6 


1151 

0 5 , 342 5 

./lb 12 

1 


DEC 

1,5398 B— 6 



; o r 5426 

34656 

0 


OtC 

S » 6 i 6— 5 


1153 

<5,3427 

10372 

U 


JEC 

» 64 7 6^1 3 &'*4 B+i2 


1154 

j 5 , j4o«. 

77126 

1 


□ tC 

“2?226a L 


11:>5 

.5,3431 

76261 

ii 


□ EC 

-.2 6476 B-2 


1156 

J 5 , j432 

*wL 767 

1 

iLQPtVAL 

□EC 

1^96307 d*6 


115 7 

t}5 , 3433 

15624 

It 


DEC 

2?o 5 774 B— 6 


1158 

G5 ,3434 

03G54 

L 


DEC 

2 ,3:^48 E-5 B+12 


115^= 

l)5 , 343 5 

04532 

1 


□ EC 

^.1/77 E-9 B+26 


116' 

L 3 #3436 

U: 43.> 

1 


□ EC 

1» .44 c:’'3 6+8 


1161 

05,3437 

0 C' C ^ 

1 


□ EC 



1162 

. 5 , 344 C 

2207:. 

0 


DEC 

2*21 -68 £—3 B+3 


1163 

j 5 , 344 1 

L 32’.< A 

"I 


DEC 

l ,516o E— 6+26 


1164 

-i 5 T 3442 

77266 

f ' 

t . 


□ EC 

— 1o 284 b— 6 


1165 

os, 34 4 3 

C247o 

iJ 


DEC 

2« c-5 3+12 


1166 

3 b # 3444 

7 U364 

1 

NEGBPW 

DEC 

-l6*to2<.17 8-16 


1167 

u 5, 3445 

75420 


C.XI illX 

□ £0=*^ 

-1.88275 E-5 B+i2<'- 
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I 


TVCHESTARTS 


USER'S PAGE NO^ 


t. S3 


H I''"! '' 
Rif 2 
R It V 3 
P IC^ Sb 

k It t 


NAME...,TVCRESrAKT PACKAGE, CUNSISTLNG CF REOUTVC, ENAGLi, 2, CMuSCUT, 
LGG SECT lUN*. .TVCRcSTARTS SUBROUTINE. * ^-JaPCSM 

PCDlFltn 3Y SCHLUNOT 21 OCTOBER ISai 

MODIFIED" BY ^■EALS^"TErFtIHIT>IATE X3WKA5S“WDATE LaGTC tNDW~ UGffE "ITTS^ 
FGNCTIGNAL UESCRiPT ICN« o .. 


PHSCHK2, ETC 


3T 


R lb*. 5 
R 10 '*6 
K h C 7 

“"R^rra — 

r-, L ■ ' ^ 

K It i 
R It 11 
kl»-12 
R It 13 
— Rrr'15 
K 1» 16 
T^ICIT 
^ R1018 

UK 19 
R 1€2'; 

Rir2T‘ ■' 

R lv22 
Rl'.23 
R 1".*2A 
■ RK25 
R 1' 2fa 

im:'7 — 

RlC2b 
R 1 29 

S, Klt.j-' 

111131 
Ri‘'32 
— RTr33 
R1G3A 
R1C35 
Rlv36 
” ■ R1037 
RK3e 
’'~KTr3^~“ 
R lOAt 
klCAl 
" R 1042 
“ RU;43 

R 1044 

' “inr44 1 

RU442 
H i; 443 
HI. 45 
Rit.46 


♦ RESURT-PHCOFS THE TVC DAPS, INCLUDING PITOFUAP, YAwDAP, 
TVCEXECUTIVt, kOLLDAP, rVCrNIT4, TVCDaPUN, AND CSH/LP V46 SWTCHOVR^ 
*TVC RESTARTS DESERVE SPECIAL CONS IDERAT lUN IN SEVERAL AkEaS^ 

— RE ST AR T DOW N^TIPF'TS IMPORT ANT“BEC71USE“t7FTHE^TKATIS^I ENTS INTRUDUCED 
BY THE THRUST VECTOk RETURN TU THE ACTUATOR MECHANIlAL NuLLS 
FCLLUV«ING TVC- AND UPTICS-ERROR-COUKTER-OI SENAaLcS tCHANNEl 12)™ 

IVC USES A MIXTURE UF WAITLIST, T5, T6, AND JOB CALLSa THERE 

FILTER PfEMDRY'tUP TU 6TH GRDER) TU BE PROTECTED IF KILO TRANSIENTS 
ARE TO BE AVOIDED. COUNTERS ARE INVCLVED FUR ON£-SHoT 
--C DRH E CTTT I N ' S AiV D~ G'A ~ IN UPDA T ES. ' T HE G11TOAT~TiTm-TSTlMAT0R3 "TIIVC-rKF ' ' 
BODY AXIS ATTITUDE ERROR INTEGRATORS INVOLVE OTGITAL SUMMAIION™ 
DIGITAL DIFFEkETvTIATUkS ARE INVOLVED IT^ THE dUOY AXIS RATE ESTIMA- 
nCN^ AND IN THE OUTPUTTING OF ACTUATOR COMMAND S» THERE I AN 
CFFSET-TRACKER-FILTEK TO PROTECT. ETC-, ETC. 

♦THOSc WUANTITIES WHICH MUST BE PROTECTED ARE STUPED IN TEMPORARY 
— REG I SI ER S AS'^THEY ARE DUMP U I bU , F UR” OP D AT I RG^THTHETTL "R’EGrSTFh^ 
DURING CCPYCYCLES. 

«^TH£ several CUPYCYCLES ARE EACH PKJTECTEO BY PHASE POINTS AT THEIR 
BEGINNING AND AT THuIR TERMINATION. THE PHASc POINTS ARE SIMPLY 
..INCR.. INSTRUCTIDNS, ■EITHER ..INCR TVCEXPriSi>« rLR COPYLYCLES 
IN The TVCEXECUTIVt, OK .,1NCK TVCPHA^l.. FOR IHE PITCH AND YAW 
'”X0P>CYCrE5;~lNDTXlKG Ok TACT'lj FnTTE51'n>KrNT H EITTEkITITS" ‘A 
RETURN TO THE AFPRUPRIATE RESTART PCINTS. 

*1F A RESTART OCCURS DURING EITHER CCPYCYCLE, THAT CCPYCYCLC IS 
CCMFLEieO. THEN THE NORMAL TVCIN1T4. .. -DAP INI T.. ..P 1 ICHDAP STAkTUP 
SEQUENCE IS CALLED “UPtiN TO GET THINGS GOING AGAlNo 
*TV^-ENABLE AND CPTIC5-ERH0R-C0UNTER ENABLE MUST EE Sci ASAP 

— t ALrOWTTTIT FUR ' PROCEDURAL DEOrrSTSnTrerT THE EitiGTriHS'' ARE COHMAICTU 

rc THE FjYAClCFF TkIM VALUES. THE CiPc* ARE THEN RfcACY fj ou UN THE 
AIK, WITH THE REGULAR STAKTUP SEQUENCE, EITHER AT MRCLEAN FUR A 
CCMPLETE INITIALIZATION UK AT TVCINIT-* FOR A PAKTIAL INI I I ALIZATION 
+ FOR KESTI\RTS PRIOR TO THE SETTING OF THE T5 BITS AT COTVCUN THE 
PRE4J.6 SECTION OF S4t«6 TAKE:, CARE OF Kc-ESTAdL I SH IKG TRIMS™ 

*1F “a”RfcS I ART TCCURS DU RTHST THFTTCEX tC ZrZ.T'V C EX F IT SEQD CICT’ THE 
COMPUTATIONS WILL oE cCMPLETcU, STARTING AT THE APPRUPKlAit kESTART 
POiNT, AFTER THE CAPS ARE READY TO GO ON THE AIR. 

*IF A RESTART CCCUkS PRIOR TU TVC1NIT> IIVCPHASE = -1) fc.b. DURING 
THE EARLY CAP IMTImLIZATION PHaSE, THE DAP STARTUP SEuUtNCt IS 
ENTERED AT MkCLEAN FuK A FULL INITIALIZATION. 

~^PTnr'RT ST7tFTS~Bin- ITG C^SM/tTi V46 IT Ch^OVERT TVCP HASTES SET TO 

AND THE RESTART LOGIC GOES BACK lU REDO SWITCH-UVER (AFTER THE 
NORKAL DAP RESTART SEmUENCE IS FQLLCWEUJ. 

’HRESTARTS are nut CRiriCAL TU TH? ROLL LAP PcRFUkMANCE* HtiiCE 1 rib 
THE ROLL CAP IS KcKELY RESTARTEC«» 




i ■ 


r{ 

t 


I 


r - 


> tMBLE KEtfl^l UN i 72 OF PKOuRAM AiilEMl S BY NAS A 2 >2 1114 - ai _____ 1 134 (-£8.. ULYSSb^ PaGB 96 

L TVC^ESTARIS USER'S PAGE NO. 2 E S3 


K li b4 

K 1(;S3 
i I S6 
Kl 37 


♦KEUCTVC IS REACHED JULLQWING ANY RESTART WHICH FINDS THE T5 bITS 
(BITS 15,14 UF FLAGWR06) SET FDR TVC. DQTVCUN SETS rVCPHASE = -1 
AND TVC EXPHS = C JUST BEFORE SETTING THESE BATS, JUST BEFORE 

>5KT^rHr T 5 tall to T VCd aPiI?a7~0 n’^NOkMIT S T rail) uWlJuTVCRCS ■ 


i<l' 5S CALLi kCSDAPON, WHICH RESETS THE T5 BITS FOR KCS^ 

Kirbr CALLiNG SEuUENCEj ..,T5, IN PARTICULAR BY ELKSKIP GF FHt-SH START/RESTART 


RiL6i NCRMAL EXIT MODES aRESUME , NaL^KSM, POSTJUMP (TO TVClNi 14 OR MRCLEAN) 


R1i e2 alarm or abort exit RUDES..a.NONE 
Kivo3 SUBROUTINES CALLED«,.a 


RK64 ^PCUPY+1, YCOPY+1 (PITCH AND YArt CUPYCYCLES) 

R1U65 =XENAeLEl,2, CHDSCUT ( KE- ESTAbL ISH ACTUATOR TRlHb) 

K iCu 7 ^ R KC L E~AN OR TVC1NIT4 ( T VCUAP 1711 TI A L 1 ZAT 1 UN S I 

Rl^uVl ^SWICHOVR +5 (CSM/LM V46 SWITCH-OVER) 

Rl‘68 ^i^EXRSTRT AND T VCtXECUTl VE PHASE POI NTS 1 THRU b 

K1C&9 ^WAITLIST, IBNKCALL, POSTJUMP, ISWCALL 

Rl»7 OTHER INTERFACES... •DOTVCON AND RCSCAP ON t T5 BITS), ELRSKIP ( CALLS IT) 
RlvTl ERASABLE INITIALIZATION KEwUIREU.... 


R li 7 2 
R1D73 
Rif 74 


«T5 BITS (1, i, TVCPHASE T-2,-l , , 1,2,3 ) , TVCEXPHS (1 THRU 6) 

^-TVC DAP VARIABLES 

=?OPERhTIONS PERFCRMED by REDOTVC are based on the ASSUMPTIUN THAT 


R 10 7 5 


T HE TVC CAPS ARE RUNNING NORMALLY 


R1076 OLTPUT.... 


RH 77 ^PiTCH and YAW TVC DAP COPYCYCLES COMPLETED IF INTERUPTtU 

kl(- 78 ^ rVCExECUTIVE COMPLETED IF INTEkUPTED 

Rl<.7*91 *CSM/LH V46 SWITCH— OVER REPEATED IF INTERRUPTED 

RniB ; ^TAirr CATim^RTJrS' RE^^rA'BITSHETJ^TACTUATaRS BACK GIT THE" 'ATkI 

RIlBI =*'TVC dap INITIALIZATION AS REQUIRED 

klC82 X^ALL TVC CAP OPERATIONS UN THE AIR 


Ri083 DEBRIS*. TVC TEMPORARIES IN EBANKo 


4 


assemble KL^ISICW OF ASC PROOkAM ARTEMIS tiY NASA 2v2il 


AP; 


L JVCRESTAPIS 


t'J 

S6 

HEF 

2 LAST 

951 

16, 20 l -■ 
l<j,3222 


SETLOC 

BANK 

h. 8 7 

REF 

i LAST 

^ T 

£6,1635 


£BANK= 

ireR 

REF 

1 




uDIiNT5~ 


ID B 9 

KEF 

9 

LAST 

944 

16,3222 

22 '16 

u 

REOQTVC 

LXCH 

It 9<: 





1 6 , 322 3 

ii U . / C 6 

1 


extend 

1C 91 

KEF 

9 

LAST 

944 

16,3224 

22 .12 

1 


UXCH 

l'vG2 

.A t F 

1-. 

LAST 

933 

16,3225 

11*644 

1 

EXECPHS 

CCo 

U93 





16,3226 

1 3230 

1 


TCF 

It) 9 4 

REF 

1 



16,3227 

1 32 j3 

1 


TCF 

1095 

REF 

3 

LAST 

956 

X 6 f 

3 4322 

L- 


CAF 

IC^ 

■REF' 

Z 

trssT" 

■■951" 

1 6 f i 

0 52Z3 



IL 

1C- 9 7 

REF 

1 



16,3232 

03325 

L' 


A ORES 

10^9 

REF 

2 

LAST 

145 

16,3233 

4 7663 

1 

TVeOAPHS' 

cs ■ 

1100 

REF 

9 

L AST 

961 

16,3234 

7 1635 

1 


MASK 

■ irci 

REF 

197 

LAST 

957 

16,3235 

I U sj 0 

0 


CCS 

1102 

REF 

1 



16,3236 

1 3315 

1 


TCF 

110 3 

KEF" 

I— 



l6, 323 / 

1 

1 


iCp 

11 4 

REF 


LAST 

961 

id, 32 4 : 

4 1635 

1 


CS 

11 41 

PEF 

31 

L AST 

956 

lot Jz4 1 

7 4767 

1 


MASK 

11.42 





io,3242 

T’ 1 c 1 ■ 7* 

ii V- V W 0 

1 


EX 1 END 

11D43 

REF 

L 



16, 3243 

1 3321 

L 


BZF 

1 li 5 

REF 

27 

LAST 

444 

16,3244 

S 4761 

i 

.j 

bNAbL i 

C Af 

110 52 

PEF 

2 

LAST 

719 

16,3245 

6 47 50 

1 


AO 

119 6 





16, 3246 

■J *^ \j JU 

1 


EXTEND 

ii:7 

REF 

39 

LAST 

719 

10,3247 

S5 Ci2 

i 


WOR 

lies 

REF 

1 



16,325u 

3 3331 



CAF 

. IP — 

Hirer— 

■ ITcF 

~rT~ 

LAST 

94^0 

“16S3Z5T 

54 1 12 

1 


r ^ 

ill' 

REF 

■ • 

LAST 

961 

16 , 325 2 

3 3335 

I 


CAF 

1111 

REF 

10 

LAST 

94d 

16,3253 

54 C3C 



TS 

1112 

REF 

2 <3 

LAST 

946 

16, 3254 

1 5323 

1 


ToF 

1113 

REF 

1C 

LAST 

£: t 

1 6 f J255 

22 016 

sJ 

ENABLE 

LXCH 

1114 

REF 

3 Z 

LAST 

961 

16,3256 

3 476 7 

J 


CAF 

1115 





16,3257 

j OJju 

1 


eXTEND 

1116 

REF 

^ j 

LAST 

961 

16 , 32 6 C' 

v5 312 

1 


WUR 

ixrr~ 

UFF' 

3 - 

TTcrr 

^61 

1 6f 1 

~~5 3333 

1 


lAF^ 

Ilia 

Kef 

14 

CAST 

961 

i 6 1 2 

54 112 

1 


TS 

1119 

REF 

3 

LAST 

961 

i 6, 3263 

3 7663 

0 


CAF 

112 

It EF 

11 

LAST 

961 

16, 32d4 

:>4 C 3 c 

J' 


TS 
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USER*S PAGE NU, 3 C SJ 


LAPRULL 

1 VCPHAS t 
SiTK’oRT* 


BANKRUPT 

(*KUPT 


TVCEXPrlS 

+2 

IVCOAPHS 


NINE 

TWIOULE 

EXRSTKT 
LCT37776 
1 VGPHA:>E 
A 

FINCOPT 
mABTT ■ 

I YCPHAS E 
d 1 f 2 


I Kl M/CPiD 


8IT8 

HiTil 

CHAN 12 
TVCAOUK 

TSLDi: 

[VCAUijR +4 
TIMES 

RESUME 


TVC RESTART PACKAGE 

{ nflTCR»« IN o^EINL.uPVa'i ii 


CHECK TVCEXECUTIYE PHASE 

MUiT RESTART TVCEXECUTIVE 
NC NEED TO RESTART TVCEXECUTIVc 

9CS DELAY TO FORCE EXHSTRT TO OCCUR 
BEFCHt 'P'1TCHT3AM,"AF1EK CMDSuUl 

CHECK DITST 15 AND 1 OF TYCPHASE“TO SEE 
DAP RESTART LOCATION (-l,i,2|3J 

FINISH THE CUPYCYCLE FIRST 
“ * JUST“PHEPARt THE ' OUTC UUKT IK'S "AND" Gu 

TEST FOR TVCPHASE = -2 

(THIS INDICATES RESTART UCCUHaED 

DURING “CSM/LM V46 SWiTCH-OYER) 

NU, TVCPHASE = -li RSTRT k^AS IN TVCINIT 


TVC ENABLE, FOLLOWED BY 4. MS (MINI WAIT 
SET BIT F01?“0PTICS-DAC-E:‘iABLE ALSO 

tENABLl ENTERED FROM TVCDAPHS / FiNCDPY) 
WAIT, CALLING ENABLZ (6BCDN IHEKC) 


61 MS nVCEXADR) 


BAuKKUPT CONTINUE PREPARATION OF UUTCOUNTERS 

uII2 OPTICS ERROR CNTR ENABLE, 4MS MIN WAIT 

C H Ar4 X ^ 

T¥C A DDK +Z* WKl T , CALrTTvG" CMDSTfUT "IB BOON "THERE ) 

1 SLUG 

CCT37776 £• MS 

TIMES 
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UScK'S PAGE NUo 4 Fb S3 

ii^ I 

KtF 

2 

L AST 

20 4 

1 Of 326 

i 6325 

1 


TLE 

N £ 4RS M 


1122 

REF 

ii 

t-Asr 

961 

I6r3^66 

22 016 


GMDSUUT 

LXLH 

BANKRUPT 

CONTINUE PREPARATION OF UUTCQUNTtkS 

112J 





1 6 f 326 7 

0 0 0 u o 

1 


cXl END 



1124 

PEF 

1 

LAST 

961 

i6,327C 

22 612 

1 


XO H. 

T 


1125 

REF 

152 

LAST 

953 

16,3271 

4 4772 

0 


CS 

Z tRU 

MOST RECENT ACTUATOR COMMANDS 

1126 

REF 

o 

LAST 

9 45 

16,3272 

6 1623 

1 


AD 

PCrtD 

(AVOID +' 1 

iiTt 

■Rtr 

3 

lATT 

TI^ 


54 05^ 

1 


1 5 

TVCpiTCh 


112 a 

REF 

153 

LAST 

962 

16, 3274 

4 4772 

v) 


CS 

ZERO 


1129 

REF 

5 

LAST 

945 

16,3275 

6 1624 

U 


AD 

yCMd 


113 

REF 

2 

LAST 

719 

16,3276 

54 053 

u 


TS 

T VC YAW 

.... - ■ ^ 

1131 

REF 

3 

LAST 

719 

16,3277 

3 5056 

1 


CAP 

PRIU6 

RELEASE THE CUUN1 LkS ItilT^ 11,121 

rr32 





"ToTTJCT^" 

■U"'(JO"06 

~r~ 


t^T^ElNiD 



1133 

REF 

7 

LAST 

72C 

16 f 33w* 1 

35 014 

1 

. 

WOR 

CHAN14 

■ - 

1138 

REF 

11 

LAST 

S6i 

16,33u2 

11 • 635 

1 

PHS Chi42 

CCS 

TVCPHAS t 

CHECK TVCPHASE AGAIN 

1139 

REF 

1 



1 6 f 33>v' 3 

1 3313 

1 


TCP 

JUMPTVC4 


li4r; 

REF 

> 

LAST 

962 

1 Q 1 3 Jv 4 

1 3313 

1 


TCF 

JUMP r VC 4 


1141 


19ct 

LA St 

961 

iSfSJv 5 

iO 006 

J 


CCS 

A 

A C0NTAlf4'S’ 1 H eTJTm IMISHEU aBSQLuVE jv 

1142 





lo t 33\2 6 

0 3311 

1 

- - 

TC 

J 

TVCPHASE (~2 BECOMES +1, -1 BECOMES + ) 

1142^1 

REF 

51 

LAST 

907 

16 1 33w 7 

U 4655 

•V 


TC 

POSTJUMP 

REPEAT TVC INITI ALIZAT1G4 

1142C2 

REF 

-> 

LAST 

943 

lof 331c 

36156 

L 


CAOR 

FKCL EaN 

(LO NCT KETUE;N) 

il42v,3 

REF 

33 

LAST 

951 

16,3311 

t 47i-» 

1 

+ 3 

rc 

18NKCALL 

REPEAT CSM/LM V46 SWITCE-OVER 

1142C4 

REF 

3 

LAST 

946 

16,3312 

36351 

6 


CADR 

SWICHOVR *-5 

(RETURN TO CHECK FOP STROKE Tl;iT) 

114 3 

REF 

52 

L AST 

962 

16,3313 

6 4655 

f} 

JLf(PTVL4 

TC 

POST J JHP 

IF POSIT ivE OR Zero, kestaeit at 

1144 

REF 

1 



io,33l4 

36326 

r • 


CADR 

TVCINITA 

TVC INI T 4 (ZEROS TVCPHASE, AND 

A1145 











CALLS TVC DAPS VIA OAPINII) 

rPt6~ 

"RTF 

t:2“ 

L AS T 

9o2~' 

— 1^733X5“ 

51^ 635 


FlNCUPy 

IHuEX 

TVCPHAS E 

PT CIC UP 1 HE APPKuPRlAiE CUPyCVCCE 

1147 

REF 

1 



1 6 f 3 1 6 

3 333 1 

L‘ 


CAP 

i VCCADr; 


1148 

REF 

1 


_ _»w - - — - . 

' 16,3317 

0 4720 

'J 


TCR 

1 ^ MC AL L 

RE-ENT EK THE COPYCYCLE, RETURN A1 E.JO 

1149 

REF 

2 

LAST 

961 

16 f 3^2 b 

1 3244 

1 


TCF 

L % 3 L 1 

NOW PREPARE THE OUTCOUNTERS 


115 

1151 

1152 

1153 

REF 

REF 

REF 

lo 

7 

3 

LAST 

LAST 

LAST 

953 

962 

962 

16.3321 

16 . 3322 

16.3323 
16f 3324 

U 1 -i 6 

3 1424 
53*624 
1 3244 

1 

1 

1 

1 

TRI M/ CrtO 

EXT ENu 
DCA 
OXCH 
TCF 

PACTUFF 

PCrtO 

cNABLl 

TVCuAPUN INITIALIZATION NOT 
EG, P,YCMD HAY NOT BE 

NUw PREPARE THE UUTCOUNTERS 

COMPLETED, 

SET S \ ,, 

1161 

REF 

Ii 

Ta^ 

Si 61 

16 , 3325 

5 1 * 644 

u 

EXRSTRT 

INUEX 

T VOl XPrtS 

TVi^liXtCUTlVE REiiTAKTS#Q*ijGO 

TU 

1162 

REF 

1 



16,3326 

3 3335 

1 


CAP 

1 VCcXADR 

APPRLPRIATL RESTART PUINl 

1163 

REF 

199 

LAST 

962 

16,3327 

3 V L J 7 

1 


1 c X 

A 



1164 





16,333t 

i C ^ U 

V 


rcF 





- AS SfcMB LE KfcV IS ION 72 OF AaC PRUGKAH AKT£.M Ij> BY NA S A 
L rVCRESTARTS 


k 1165 TVC KEST/ii<T TAaLES.« *» ORDER IS RcUUlkED. H I-UKDt R WUKuS ONLY i Di- 


116 7 

REF 

2 

LAST 

962 

16,3331 


TVCADOR 


T VCCADK 

1168 

REF 

1 



~T6,333I 

U3Z35 D TVCCADR 

(s^NADR 

EITCBL'Z' 

116^ 

REF 

1 



Ibf 3332 

41 Of 5 1 

+ 1 

CADH 

PCuPY +1 

11 7i 

REF 

1 



16,3333 

..32 06 0 

+2 

GEN A DR 

CMOS OUT 

1171 

REF 

1 



16,3334 

41171 C 

+ 3 

CADR 

YCUPY +1 

1172 





lo, 3335 

37172 1 

TVCEXADK 

DCT 

37772 

11 13 

REF 

1 



16,3336 

03123 1 

+ 1 

GENADR 

T tHPStl 

ITT4 

REF~ 

2 

LAST 

952 

16, J 1 

OTiBoTT" 


U t N A U K 


1175 

REF 

1 



i6,334C 

v.>32'^4 1 

4" 3 

GENADK 

CORC JPY +l 

1176 

REF 

2 

LAST 

952 

lb f 3341 

33215 i 

+4 

GBNAOR 

CNTRCQPY 
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USER'S PAGE NO, 6 > ^ S3 

^CADRS, SINCE BBCQN IS, ALREADY THERE. 

TABLE UF CADRS, UNUSED LUCS FOR GENADRS 

1 FUK I 6 t A LI r IFWSE D" T A'DE £ " T O CT 

PITCH CUPYCYCLE 

(FOR T5 CALL,' UNUSED TABLE LOG) 

YAW CUPYCYCLE 

tUNUSED TABLE. LQCtFIXL WITH BIBS, T5) 
TVCEXECUnVE RESTART PCINT^ (ORDERED) 




li:4. FEb 


26,1971 ULYSSES . >MGE 964 


b Af* : 


AS 6 E MBLfc_ REV I SION 


JA uF A ub PRUbR AH ARTEMIS 6 Y_ . N ^ A 2 2 1 1 1,4- 



L IVLLAP:, USER *5 PAGE NO. 1 E S3 

Rl ; . PROGRAM NAKEa ... T VlOAP, LONSISriNG OF PITCHuAP, YA«OAP, h.lCo. 

1' I LOG bECT I ON . * . T VC u A P S SUBROUTINE.. ^UAPCSM 

1 1002 MCOIFIED dY SCHLUNDT 21 UCTOSEK i46S 

kiiJM FUNCTIONAL DE SCRIPtiGN.'.- , ' 


R1U04 SELF-PtRPETUATlNG T5 TASKS RHICh GENERATE THE COMMANO SIGNALS 

35 FGR THE PITCH AND YAW SPS &IM8AL ACTUATORS UORlNb TVC tSPSI dURNS, 

K1G06 IN FESPGNSE TU BQOY-AXIS RATE CUIMANOS FRUM CRQSS-PkODUCT STEERING 

Riboy lS4:.a). if no steering (impulsive auRNS) maintains attitude-holq 

laoo^ xsLL r thtifet^ekence' n iirri^i’^TRrcTTDNS'i zero rat e caraAtyjDs ) . 


K iCb 9 
R 1C 1 (- 

R li’ 1 1 
Kll 12 

“ ■rTHTB 

k 1- 14 


Tht PITCH AND YAW LOOPS ARE SEPARATE, BUT STRUCTURED lUEwTICALLY^ 
EACH ATTITUDE-RATE LUUP INCLUDES GIRBAL ANGLE kAIc DLKI VAT ION , 
GIMBAL/dODY AXIS TRANSFORMATION, SGCY-AXIS ATTITUDE EKROR 
INTEGRATION WITH ERROR LIMIT lUG, THE GENEKALIltD CTH-ORDER FILTER 
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Rir29 “ TSTaTLL of DAPIMt tTi/COAPSrBY TVCiNiT4 { TVCI N1 tl ALi'lE I 
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kK35 (AUTOMATIC SEQUENCING FROM TVCuAPUN) 
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RIC37 ALARM OH AjlIRT EXIT MODES ... J4jNE 
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'Rlu72 AXIS ATTITUCE ERROR INTEGRATOR, TOTAL ACTUATOR COMMANDS, 
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1162"' 

REF 

2 
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1175 

REF 

7 

LAST 

968 

2-3,2/7 2 

3i'6wl 

1 


CAE 

lELPQAR 
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979 

2 w f 3(^ V 1 

4 1622 i 

C5 


14- ' li 

ii;4 Ffl ^6,17-1 ULYSSES .<29 P/'DE 979 

UocK*^ 1 A'^n ilj\r 16 06 S3 

DAPUAl i-i. 
ai Ti3 

A 

ri_:3T 1 1 J, 3 ^ )K !-FF 


rXTT ITTE-C^OFr ' 

zer<o 

i TMPl 

tt;-ip2 

IhlLD CAjCADE FILrtR***S=^ 

LiAP2 +I 

KUL ; 1 PL/ Input by 1 1 / 2 ) 

M / +liL 
rTMPi +1 
CAP2 

51/Z 

mr.~TiTTr~ 

TTiiPl 

n3trr“ _ — 


UAPi +1 


M + i J L 

TmpT +1 
CAP^ 

! 3i7i* 

N1 +i3b 

1 lrtP2 

Li 3 1 / ' 

T friP2 
TTMPl 

TTriPl 



rMP6 


TMPo 

T«P5 


ZERO 

TTMPl 

TrtP6 


OAP^: +i. 

huliiplv input by 

iM +120 
TTriPi +1 
CAP2 

1 

N1 . +i2v 

TTPiPi 

, .1 3 


t 

♦ 


UAPJ +i 


u ah: 
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L iVCLAPb oSLK'S PAGh NU* i? £6 $3 


Lb 11 
ibln 

1 b { b 

REF 

REF 

30 

LAST 

LAST 

9 79’ 
979 

20» 36c 2 
20 1 3 
2u*361 4 

vi L' ^ 3 6 

7 1723 
55* 703 

1 

1 

1 

i 

EXT t NO 
HP 

TS 

M,. +140 

Ti-IPS +1 

D’32 


REF 

12 

LAST” 

qTo 

2 I 3605 

4 1621 

1 

CS 

CAP3 


1301 





^ <u t 6 

u i/V JO 

1 

EXTEND 


« 

1582 

REF 

39 

LAST 

98U 

Zu f J6 l« 7 

7 1723 

1 

MP 

M - +140 

D32 

1583 

REF 

1 ' 

LAST 

93D 

23,3610 

21* 7o3 

ij 

oAS 

( MP6 

_ — . - . ^ ^ .... . - 

1504 

REF 

42 

last 

979 

2<: f Jill I 

53* 612 

1 

DXCH 

TTMPl 


1505 

REF 

11 

LAST 

98 J 

2a, 3612 

21 *"703 

6 

DAS 

Tmp^ 


1580 

REF 

165 

L AS T 

979 

iu,3613 

0 0032 

*0 

' T C 
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P 188 7 

CONSTAN T 5 FUR 

AUTOPILOTS 





A 1688 

N C T t « 

• ••1 aScrev iactuaTok cmD 

‘S C A L I NG r 

- 85»41 ARuSfcC/bir UR i.O 

7975iin<EVS rSsT'A 1 X 163 84/ 3600/360 

k 1590 


1 iPASCRbV 

(SPtCiAL ACTUATOR CHO 

Su AL 1 i4u ) 

= 1... 4620 '>42 REVS 

_ - — 

1592 

1593 




2G ,3614 
20,3615 

Ut375 0 
OCl Jl 1 

ACT SAT 

1 /ACT SAT 

ilpr 3*53 

U£C o3U39525692 

AClUATuR LIMIT (6 OEG) , SC.»AT lASCREV 
kELIPRUCAL (1/253) 

1594 

1595 

Rtf 

REF 

33 LAST 
30 LAST 

979 

946 

4754 

4706 

- - 

ERRL i H 
I/EKKLIM 

EQUALS E1T13 

EWUALS fclTi 

FILTER INPUT LIMIT.,. ,3-3 REVS (45l)EG), 

SC«AT 6-1 REV7 AND ITS RECIPPOCAL 

1596 

1597 

REF 

REF 

1 

2 LAST 

949 

2U, 3616 
20,3617 

4)2644 C 
83227 . 

PITCHT5 

DAPT5 

GENADR PltCHjAP 
GENADk CAPiniT 

UPPER hi OR US OF T5 2CADRS, LOWER WORDS 
(6BCC'N) ALREADY THERE. ORDER IS 

— 1S913" 

ktF 

1 


2'J, 362‘- 

030^2 T 

TSWT5 

obNAUK YAitjUAF 

■ PbUUlKEUi 

1599 
168’ 
10 :i 




2U,36^i 

20.3622 

20.3623 

00115 1 

V 24 3 1 
37535 0 

1/KTLIA 
l-ti-AT ) 
£(-AT) 

iJ b b 0' A 7 i. 5 

GCr ..243 

dCT 37535 

47I5(C0UDIF) - ' IF CUUDIF < 2,33 DEG 

AT = .. ISEC, a. .EITHER t 1/A=4SEC, T=4 MS), 

0R(i/A=8SEC, T=80MS) 
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■a PROGRAM ^AME•,•TVC KLLL AUTDPILLiT 

si' i LCG SECr ION.. oTVCROLLUAP SUBROUTINE. . «QAPCSM 

' ^ MCDIF IEU by SCHLUNUT __ _ 21 UCTUG ER 196B 


Hl'CS FUNCTIONAL Q£ SCR IPT ICN.. . . 


R 1 ' ! 'ij 6 

RIs.a.7 

R icira 

R ICO 9 
H It' 12 

R1C13 
R 10 1 4 
K 10 1 S 
R icl6 
R li 17 
R lo 1 3 
R It 19 


<^AN AUAPTATIGN UF THE LEM P-AXIS CCNTRULLER 

^MAINIAIN OGA WITHIN 3 OEG DEADEND OF OGAO# WHERE QUAD = ObA A:^ SEEN 
BY IGNITICN (P4L) 

^MAINTAIN OGA KATE LESS THAN u . 1 DEG/SEC LIMIT CYCLE RAI c 

★Switching LOGIC in phase plane.... SEt: gsop chapter j 
★ uses T6 clock tc time jet firings 

♦MAXIMUM Jet firing time = 2«3o SECCNDSi LIMITED TU 2.D IF GREATER 
♦MINIMUM JET FIRING TIME = 13 MS 

Tjll-pATirsnFT^E AlTEROTTEIV " ~ 

♦AT LEAST 1/2 SECOND DELAY 3EFURE A NEW JET PAIR li EIRLD 
♦JET FIRINGS MAY NOT BE EXTENDEDf ONLY SHORTENED, wHEN RE-EVALUATlCN 
OF A JET FIRING TIME IS MADE UN A LATER PASS 


RH 2 _ CALLING SEwUENCE.... 

Ri'. 21 ♦aCLLDAP CALL VIA WAITLIST, _IN PARTICULAR BY TVCcXtC IE VERY 1/2 S£CJ 

Rit22 WITH A 3CS DELAY TO ALLOW FREE TIME FOR OTHER KUPIS (UwNKPT, ETC.) 

Rl' 23 NORMAL EXIT MODES.... ENuOFJQB 

RLJ24 alarm CR ABORT EXIT MODEb.... NONE 

RU.23 SLBRUUTINcS C ALLtD.. .. .NONE 

RU26 OTHER 1 N fcRFACES . . .. 


I *3 


• t 


!<K'27 " ★TVCEXeC SETS UP ROLLOAP TASK EVEkY 1/2 SECOND AND UPDAItS 1/CONACC 

RK28 EVERY 10 SECONDS (VIA MASSPROP AND S4j.i3J 

r 1<29 ♦RESTARTS SUSPEND ROLL CAP COMPUTATIONS UNTIL THE NeXT 1/2 SEC 

Klf)30 SAMPLE PERIOD. ITHE PART OF TYCcXECLTIVE THAT CALLS ROLL DAP IS 

hiCSl NOT REST/RTEC.) THE OGAO FROM IGNITluN IS MAINTAINED^ 


R1C32 ERASABLE TNI T I AL IZAT ION REQUIRED.... 


kK 33 ♦1/CuNACC (S4C.i5) 

Rit34 ♦QGAC (CDLX AT IGNITION) 

RU33 ♦QGANJW tCDUX AT TVCINIT4 AND T VCEXECUT I VE ) 

Ri036 ♦OGAPAST tOGANUW AT TVCEXECUTI VC) 

R lO^Gr yRtTLlFIRE = TEl^ireTr^KaLLWUKD = C (Mr CL bAN“ L Uu P' 1 iT~TVCt5^PuH i 

11' 37 ULTPUT.... 


Ri^3& ♦ROLL JET PAIR FIRINGS 


tK 


£ 


< J 


5 
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Rl04tr;^ DEBRIS#* ••^MISCEU.ANEauS, SHAREABLE ^Jh_^S/ENTRYf IN bSANKS ONLY 


» 



. 1 




I 


4 



I 

- % >- 


* • 


» t- I ' I ■■ p- 




■■■I ■ I ■ -- *r--— 













* 






10—^ 

$ 




7 




L 




5 




3 









«r j ■ 


\ 





s 

I • 


« 


n 


0 ' •>%, • • 


I 
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L 


TVCRCLLDAP 


USER'S PAGE NO 


SJ 


Pi‘ 4 X 
R At! 


SOME NOrES DN TH£ ROLL AUTuPlLUTf AND IH PARTIOULAR, Gim IIS SWITCHING 
LCGIC, SEE SECTION THREE UF THE GSOP ( SONUISK/COlQSSUS ) FOR DETAILS. 


RUAi SWITCHING LOGIC IN THE PHASE PLANE 




R 1 l 44 
R 1C 45 
K If 46 

r 1 c 47 

Kl--4b 
R1G49 
K Iv 5 ' 
R l< 5 1 
R li 52 


DGARATE 

♦ 

♦ 


R 1< 53 
Ri‘ 54 
R1C55 
K 1C 56 
RID 5 7 
KU 58 


10 


R U 59 
R 1C 6 s 
R iC 6 1 
R10 62 
R 1C63 
R IC 6 4 

xnrc^" 

R 11:66 
Rl».o7 
R1L68 
Rlf 6 D 
R 1. 7 s 

mm 

RU 72 
R1C73 
Kis, 74 

Rls 75 
R U 76 
R1077 
RU 76 
R ir79 
R 1080 

rjlosY 

R 1C82 
R 1 C 83 


"4 jf iT IT'jJ: ^ 




4 : * 


4 * * * * * * 


t CCAST J 


* 

♦ 

❖ 

3 (£ 


(REblQN 1, iE£ TEXT dtLGif) 


«.>PARAB 0 LA ISWIfLhlhlG ^ COMRGL) 


tFlRE NEG hull JETSJ 


t^D3 f+ LMC P AT E J « » o 


4 


OGAERROR 


1 F IRE POS ROLL 


r 

❖ 

❖ 




(-AKt OGAERR) 
iKEGiuN b-PRlHBi 
ISEE ffcXT 8 ELQW) 


a •» 


.STRAIGHT LINE 


(COAST! 


4 4 4 4 4 ^ * 4 * * 

-MINLIM 


* 

IF 


4 c * * * * 4 : 4 4 ' 4 "W~W ~4 

-MA XLi M 


4 

* 


SWITCHING PARABOLAS ARE eONTROL PARAdULAS, THUS REQUIRING KN OWLEDGE pF_ 
“ CLN fRGL ~ACC£LERATiaN CONAGC, OR ITS R:EC 1 PROCAL, 17 CCNaCC, THE I VC 
ROLL OAP GAIN (SEE TVCEXECUTiVE VARIABLE uAIN PACKAGE). JET 
FIRING TIME IS SIMPLY THAT REjUlRED TO ACHiEVt: IHt DESIRED UGARAT 6 , 
SUBJECT TO THE LIMlTAflONS DISCUSSEC UNDER FUNCTIONAL DESCKiPTIONf 
AEG V c a 


THE THREE CONTROL REGIONS ( + t AjMD ZERO TORQUE! ARE CCMPRIZED OF 

TWELVE SLBSET REGIONS ( i..a 6 , AND THE CORRESPONDING i-PRlME. 

6-PBrME ) SEE Section 3 OF iHt gsop (sundisk or cllussus) 


# h 


i 


r 
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PKti4 
R Iv. liS 

P Is- 8 6 

■R. If. R 7 
H ir 8b 

K rOB9 

Rl’ 91 
K1U92 
"‘■RIC79T 
RU94 
K \ ^ 5 
Kl' 96 
R1CS7 
K Ic o 8 
— Rir9V 

R lloC. 
RllCl 


GIVEN THE UPERAllNG POIfiT NUT IN THt COAST KhGlUN, THE UE-sIRED OGARATE 
is AI THE POINT OF penetration OF THE COAST KtulUN OY THt CunTKUL 
PARA6ULA WHICH PASSES THROUGH THE OPERATING POINT. FOR HtGlON 0 
ITES m EI5~ treARTATE IS S IMPrY"+-^ XiT FDR“ RcGlONT'r ul? g IHE^SaLirmH 

TO A QUADRATIC IS REQUIREu (THE PENETRATION IS ALONG THE STRAIGHT 
LINE OR MINE I M BQJNDRV SWITCH LINES). AN APPROX IMAT IGN IS MAOt 
INSTEAD. TAKE AN OPERATING POINT IN ftEGlON 6* . PASS A TANGENT TO 
THE CONTROL PARASuLA THRCUGH THE OPERATING POINT, ANC FIND ITS 
INTERSECTION WITH THE STRAIGHT LINE SECTION OF THE SWITCH CURVE..-. 

TFr “INIEK^ECI ION DEFINES ObST RED OGARATE. IF THE JFtRATTNG POINT IS 

CLOSE TO THE SWITCH LINE, THE APPROXIMAT ION IS QUl lE GOOD t INOEEO 
THE APPRCXIHATE AND gUADRATlC SOLUTIONS CuNVEKGE IN THE LIMIT AS 
THE SWITCH LINE IS wPPROACHED) . IF THE OPERATING POINT IS NOT CLOSE 
TO THE SWITCH LINE, THE APPROXIMATE SOLUTION GIVES VALID TREND 
INFCRMATIGN (DIRECTION OF DESIRED OGAraTE) AT LEAST, IH- 

R ' F F V A r U A TT'D N D F D E S IRF D JtTAK ' A Tr IN SO 851ij‘UENT~'RuEir ~DAF' PASSES T17Z 

SECCND INTERVALS) WILL BENEFIT FRCM THE CONVERGENT NATURE OF THE 
APPROXIMATION. 


4 

'J 


' I 


Rli-21 FOR LARGE uGAERROR THt” TANGENT 1 NTEKSECTS +-MINHR SWITCH BOUNDRY BEFORE 
kll 22 INTERSECTlN-j THE STRAIGHT LINE SWITCH. HOWEVER THt MNLIM IS 

"P ^ IGWiriTEirTN'GOHPUI ING THE FIRING rifTrr^irT.TAT THE EXIENSI jN"TT7TTCr” 

H 11-24 THE COAST REGION) Or THE aTRAIGHT LIRE SWITCH IS WH/>T IS FIRED TO. 

kliCZS IF THE'ROLL DAP FINDS ITSELF TN THE COAST REGION bEFORt REACHING 

Kli.2£ THE DESIRED INTERSECTION HE, IN THE KtGIUN BETWEEN THE MINLIM 

kli:27 AND THE STRAIGHT LINE SWITCH) IT WILL EXIBIT NORMAl. CJAjT-RcG ION 

Rli.2e EthAVIGR AND TURN OFF THE JETS. THE PURPOSE OF THlG FIRING POLICY 

— tnX'ZS IS to MAINTAIN SlAliC HULL S T AblL i l Y IN THt tVENlUF A JEI ' 

k11"3 FAILED-ON. 


T 

w 


Rlli3 WHEN THE OPERATING POINT IS IN REGION 1 THE SAiMt APPROXIMATION lu 
KlllA MADt, BUT AT AN ART 1 F1 CIALLY-CREATEC OR DUMMY OPERATING' PUl*Tr , 

RlliS DEFI.HED BY*. OGAERROR = iNTERStC T ION OF CCNTROL PARABOLA AND 

TTTITo LGAERRDR 'AXTS, UGARAIL = +-LMCKArE~Wri£RE SIGN“ IS''uPPuSI Tt THA T OF 

Rill? REAL OPERATING POINT KATE. WHEN THE OPERATING PCINT HAS PASSED 

kllie FRCM REGION i TO REGION 6*, THE DUMMY POINT I S" NO LONGER kEQUIkEO, 

Rliiv IHE SOLUTION REVtRTS TO ThaT OF A REGULAR REGION 6' POINT. 


Rli20 EQUATION FDR SWITCHING PARABOLA (SEE FIGURE ABOVE).... 
klI21 2 

R1122 SCGAERROR = (C8 - (SDGARATE) ( 1/ CONACC) /2 i SGN ( SOGAR Al E i 


K1123^ ECUATIGN FOR SWITCHING STRAIGHT LINE SEGMENT.... 

p iX24 SOGAkATE = — ( — c»LOP£ ) (SOGAEKROR) - SGN ( SUGAkATE ) l;«jl CkCtP 

K1125 WHERE iNTERCcF = OBt-SLUPE) - LMCRAIt . ^ 
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EwUATlON FJR INTbKSfcC T IOt>< , CONTROL PARABCLA AND SfRAiGHT SriilCH LINE***, 

Kil^7 lOGADOT = NUM/DcN, WHuRE 

KU2B” ■ 2 

R1129 NUK = t-jLOP&H JGARATE) (1/C0NACC» 

kll3 J +SGN< DELOGAJ (-SL JPE Jt QGAcRROR - SGNtbcLGaA) (08) ) ' 

Rli31 +LMCkATE 


R 1132 DEN = (-SLOPE) (LMCRATEJ { i/CONACC) - SbN(UELQGA) 


R1133 

R1134 

2 

OELOGA - DGAERRUK - (DB - OGAR/TE ll/CQNACC 1/2 ) oGNtOGARATE) 

_ _ . _ . _ - - . . .. 

K ii33 

FOR RtGICiJi 6 AND 6-PRiME USE ACTUAL UPERATING POINT IGGA, DGARATE) 


'inns ■ 

R 1137 
R1138 
rtll39 
R114'. 

FOk OGAERROR and 05mATEn[N“Tftl~IRT£RTEZTTIi^ £;^UAri'GFfr'AtiuViia 

FUK REGIONS 1 AND i-PRlME USE DUMMY OPERATING POINT FUR UGAERROR 

AND OGARATE, WHERE THE DUMMY PUl NT IS GIVEN BY;. ,• c 

CGAEKRCR= DELUGE + QB SGNIOGAkATE) 

UGARaTE= -LMCRATE SGNICGARATE) 


Kil^i 

R1142 

'r1143 

NOTE, OGAtRROR = GGA - QGAD USES DUMMY REGISTER OGA IN ROLL DAP CODING 

ALSO* AT POINT WHERE COGARATE IS CGMPUTEU, REGISIER UELuGA IS UStO 

AS A DUMMY REGIiTER FCR THE OGAERRCR IN THE NUM EJOAIION ABOVE 


- 

... ... — - . - 



- - - - 


_ - - _ . - — - - 

- ~ * 


_ - - - - - - -- 
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Kii43E ftGLLuAP CJDING.,,, 


2' ’■ 

REF 

3 

LAST 

961 

1 6 f 2 v J 



SET LUC 

DAP ROLL 

2CC 1 





“IB, 3342’ 



GAt'IK 


201 2 

REF 

9 

LAS! 

951 

t6f 1645 



£ ii A N K “ 

CbAi>iQi4 

2C<'.3 

REF 

1 






L OUhlT^ 

$%/ RlJLu 

2'- L 6 

REF 

lb 

L AST 

937 

i 6 f 3 34 2 

31*645 

1 

ROLL DAP CAE 

GGMiiOW 

2UC7 





16,3343 

G t' V J 6 

1 

EXTEND 


20 via 

REF 

3 

LAST 

95l 

16 ,3344 

21*646 

' ( 

** 

rtso 

QUAFAST 

■■Z'JC9 





16f 3345 

3 c f* . ^ o 

1 

EX 1 END 


1 ^ 

KEF 

26 

LAST 

941 

1 t>f 3346 

7 1}^ 

I 

MP 

B I Tj 

2v 11 

RtF 

2C2 

LAST 

979 

16,3347 

22 L b 

1 

lXCH 

A 

2>. 12 

REF 

3 

LAST 

182 

16, i35c 

55*533 

1 

TS 

LijARAT t 

R2ti7 

CCMPUTATIGNS WHICH FCLLUw USE 

UGA FOR 0 

GAEKR (SAME REGI 

STER) 

■ R'2Tr^ 


TUkAi ION UF 

LAS) jn^ 

hiking if 

JETS NUri 


2*: 19 

REF 

2 

LAST 

lv,9 

16,335 1 

3 1571 

ij 

CURAT ION CA 

RLLLrlKt 

Zk^ZC 





16 f 3352 

3 C 'J ’w b 

1 

EXTEND 


2» 21 

■ 




16,3353 

1 3 355 

U 

32 F 

+2 

2<'22 

REF 

i 



lb t 3354 

1 3363 

c 

TCF 

KOLLUGiC 

2 23 

REF 

2 

LAST 

109 

36, 3355 

31*573 

1 

CaE 

TEMREG 

2< 2 4 





16,3^56 

8 (jC«6 

1 

extend 


2c 25 

RtF 

2 

LAST 

987 

lo, 335 7 

1 3 363 


B2F 

ROLL Do iC 

2u26 

REF 

164 

LAST 

979 

1 6 f 336 V. 

3 4772 

1 

CAP 

^ il RO 

Zt27 

WFT 

i 

"XAST"W7 

~TB7356T 

"55^573 

f T 

V 


1 hi’^KcG 

2( 2 b 

REF 

44 

LAST 

953 

16,3362 

1 5314 

L 

WAITl/2 TCF 

TmjKOVcK 

R2C29 

CCMPLTE 

Od-t 1/2 CONACC) iOoAKATcJSv) 

{ 1/2 IN TriE SCALING i 

2c 3 , 

PEF 

4 

LAST 

937 

36f ^363 

4 1533 

1 

ROLLQGIC CS 

LGAR A f L 

— zr3i 





1 6 f 3364 

U 1. Li v6 

'I 

cX T fcK J 


2< 32 

REF 

3 

LAST 

948 

16,3365 

7 1 63 i 

J 

MP 

l/Cu.iALC 

2033 

- 




l6,33o6 

^ L Ij 'v^- 6 

1 

EXTEND 


2',' 3 4 

REF 

:> 

LAST 

9 87 

16,3367 

7 1533 

1 

MP 

LGAkAT e 

2t. 35 

REF 

1 



16f 337 C 

6 3756 

(' 

AD 

CS 

2C36 

REF 

4 

LAST 

987 

1 o t 33 7 1 

55*573 

t 

TS 

1 EHREG 

fc 2* J 7 

GET 

SIGN jF D GAR ATE 






2' 38 

REF 

f 

o 

uAST 

987 

16,3372 

3 1533 

G 

CA 

CGARA It 

2g39 





16,3373 

L* V 'J -i 6 

1 

LX r E.’JG 


2040 





16,3374 

6 3377 

1 

BZMF 

4 J 

— 21:41 


~51 

LAST 

94'5 

1^733T5 3 477 V 

l> 

CA 

ITl 

2< 42 





1 6 f ^ 3 / 6 

i 3 4 j oj 

1 

TCF 

+2 

20 4 3 

FEF 

52 

L AST 

9d7 

lb t 33 7 7 

4 47 70 

1 

CS 

ITl 

2. 44 

REF 

2 

LAST 

il 

iu f 34w V 

55 * 6:^1 

•j 

IS 

S viW X T 
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UGA RATE tSTIHATOH..* SIMPLE FIRST-ORDER 
DIFFERENCE tSAMPLE T IME = 1/2 SEC) 


SCvAf B-4 REV/SEC 


SAME SGN AS PRESENT TUh^» MAbN=POSMA/ 

RDLL JETS ARE NUrt OFF, 

ENTER LOGIC, JETS NOW QNo 


EXAMINE LAST FIRING INTERVAL 
IF POSITIVE, uUNT FIRE 
ENTER LOGIC, JETS NOW OFF, 

JETS HAVE NOT BEEN OFF FUR 1/2 SECo WAIT 
TIESET TOTtFEG 

Exn ROLL DAP 


SCALED AT 21-4) REV/SEC 
SCALED AT 21+9) SEC SO /REV 


SCALED AT 2 (-PC ) REV 
QUANTITY SCALlU AT 21-pU REV, 


LET SGN(-) BE NEGATIVE 


+ - 


2 t-14) 




# 

* % 
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• ' L VXSJ OH .viiz L.F A l.C P ROoKA H AkTfc Mli dY Ak 


1 

TVCRGLLOAr* 







USER'S PAGE NU. 7 

L6 S3 

A i!' 4!> 

CALCULAi t UlSTANCc 

FROM SWITCH 

PAKAbULA 

<DELUGA) 



_ - - - - — — 


4L^ 





16 §340 1 

J 0 n > 6 1 
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k' A 1 
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5 
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98 7 
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MP 

1 £i^Ke:G 
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88 
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974 

16# 34vi 3 

4 ' 1 


GS 
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2v 4^:^ 
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Au 

loA 

SCALED AT 2I+; ) REV 


2*. 
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2 

last 

i 1 

l6f 34C 5 
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TS 
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K 2C 5 1 

t XA I 

Rb 
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16# 3406 
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6 3412 i; 


dZMF 

+ 3 
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72 
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422 
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R£r 
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2t 56 
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3 

LAST 

938 

16# 3414 
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i 
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ZC 55 

REF 

3 

LAST 

937 

16 # 3415 

u i63l 1 



SG'-jKT 

CA OR CS 


2i. 6f 





16# ^■^16 

4 L U 0 u 0 


COM 




20 61 





1 6 f 7 

6 ClU6 1 


bXl END 
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1 



16 1 j>42 ' v 

6 347 1 i' 

KEGll 6T 

eZMF 

ROLL 077 

IF REGION 1 (DELOGA CGARAIE 
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K2*-63 

NC JET FIRE Y 

ET, TE 

6T FCk max 

OGARAT £ 
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REF 

4 

LAST 

938 

16# 342 1 

5 1 * 6 5 3 0 
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1 



2C 65 

REF 

7 

LAST 

987 

16 # 342 2 

^ 1533 . 


0 

QGARAl E 

CA OR GS..,BUTH MUST BE NEG. 

HERE 

2c66 

REF 

2 

LAST 

11 J 

16, 3423 
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TS 

1 |J6 A k A i E 

l.E. I uGARATt 


2t 67 

REF 

1 

X 



lo t 3424 

6 37o3 0 


aD 

RAXLlrt 

SCALED AT 2t-4J REV/SEC 


2<-68 





16 , 3425 

0 0006 1 ' 


EXT END 
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REF 
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. — - - 


16, 3426 
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K t b 3 1 s r 

3ZMF 

ik M J L L I 
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- OGARATE ) 
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GA 
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2' 74 
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MP 
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LAST 
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TS 
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16, 3435 
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2li80 





16, 343 7 

2o . 1 1 
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l6 » 3440 
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2C62 

R£F 

7 

“"laIT 
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2C83 

REF 

3 
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1 EXTEND 
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BOUNDARY 
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REF 

i 

LAST 983 

16 , 345 1 
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R EP 

1 


16 , 3452 

6 3762 1 






16f !i453 

6 0 DD 6 1 


2C94 

REF 

2 

last 939 

16,3454 

6 3661 Y. 

8EG4T ST 


CA IGGARAiE ALWAYS NEGATIVE 

AD MNUM SCALED AT 2{~4) REV/SEC 

EX I END 

8ZMF NOKuLl IE REGION 4 CCUAST SIDE OF MINLIM) 


R2L'95 

ALL 

AREAS CHECKED 

EXCEPT LAST 

Ai^ E A« ^ 

NO 

FIRE IN 

2C 5 6 

REF 

6 last 

938 

16, 3455 

51 * 0^33 

G 


“2097 

ref 

*5 LAST” 

9 S 6 

16 ,3456 
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c 


2C9b 




l6, 345 7 
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0 


2099 

REF 

2 LAST 
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1 6 f 3 4o L 

6 37!>6 

0 
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16,3461 

4 COoD 



21 c 1 




16,3462 
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1 


21:2 

REF 

3 LAST 
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16,340 3 
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0 
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INDEX I 



CUM 

AD CB 

COM 

EXTE'ND 

BZmF NURULL IF REGION 5 ICUAST SIDE OF OB) 


K2li 3 JETS MUgT fire NUW.OGARATE IS NEG. lOR VISA VERSA), UsE UiRECI STK, LINE, 
k 21 .4 CELLGA AND OELUGART ARE USED AS DUMMY VAKlA6LtS IN iHE SOLUTION OF A 
R2U5 STRAIGHT LINE APPRUXIHATICN TO A QUADKATIC SOLUTiON OF THE INfERSECTlON 

R21t6 CF THE CCNTRQL PARABOLA AND THE STKAlGHT-LINt SwITCH LlNL, THE STRAIGHT 

WIW7 nn^HF'TTTKbEI^T^ ronTTE T WrNrr^TFUR 
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2 1 V 

REF 

6 

LAST 

989 

16, 34o4 

31*647 

0 

LAl 

UGA 

211' 

REF 

3 

LAST 

938 

16 # J465 

55*652 

D 

TS 
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983 

16,3466 
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0 

CA 
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1 

TS 
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D 
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C FIRE 

FkUM 
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TO 
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+ CB 
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2116 

REP 

7 

LAST 

989 

16, 347 1 

51*653 

0 

POLL UN INDEX 

I 
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REF 
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LAST 
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3756 

0 

r 

LG 

2126 

REF 

4 

LAST 
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27*652 

0 
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dELUuA 

2121 

REF 
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16 #3474 
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1 

CS 
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2122 

REF 

3 
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939 
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m 
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i 
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REF 
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LAST 

983 

lo ,o476 
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1 
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w 

A 
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REF 
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i 

is 
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1 
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EXT ENO 
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\ 
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987 
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1 
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1 
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0 


HP 
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8 
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T6 

TEMKEG 
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1 


cXTEND 
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4 
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1 
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2134 
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5 
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1 


TS 
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2135 

REF 

22 
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16, 3511 
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0 


cs 
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2136 

REF 

9 
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16,3512 

51*653 
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2137 

KEF 

2‘v 5 

LAST 
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16,3513 

4 / W V.' U X 

1 



A 



2133 

REF 

9 

LAST 

99.1 

16,3514 

27*573 

V* 

RATED 6* ‘4 

Au S 

IthRcG 

DENOMINATCR COMPLETED 


213 i 

REF 
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LAST 

99 ; 

16,3515 

51 • 653 
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214' 

R£F 

5 

LAST 
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l6, 3516 

0 1652 

1 


0 
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2141 





16,3317 

4 C0w6 



CUrt 



4 

2142 

REF 

4 
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16,3520 
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AD 
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2143 





16,3521 
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2144 





13,3522 

C C/‘jU6 

1 


extend 




2145 

REF 
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99? 

16, 3523 
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MP 
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2146 

K £ F 

6 

LASt ' 
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16 f 3524 

27*650 
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AQ 6 
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2147 

REF 

2 

LAST 

989 

16 , 352 5 
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0 


A 
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16 , 3526 

U Cu06 

1 


lXTENO 




2149 

REF 

23 

LAST 
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16,3527 

7 4756 

0 


MP 
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215, 
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? 

LAST“ 
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ii 

RAT ENUM 

Ad 

■DTElugakT 

NUMERATOR CQRPLETEO 


2151 

KEF 

69 

LAST 

938 

16,3531 
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0 


XCH 

L 

PLACE NUMERATOR IN L FOR OVERFL. CHhCK 

2152 

REF 
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LAST 
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1 6 f 353 2 
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1 


CA 
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_ . - - . _ M 
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16,3633 
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1 


extend 




2154 

REF 

Iv 
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16, 3534 

11*573 

L 


ov 

lb MR EG 
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2155 





T6T3535 

0 tO 6 1 


t XT FtSfD 




2156 

REF 

1 



i f 3536 

1 35 44 



BZF 

DVUK 

NO OVLRFLaW*«*,(r,L»/TbMKeG = 

,L 

2157 

REF 

2U6 

LAST 

990 

16, .>53 7 

Iw 060 


PINLl MAP 

CCS 

A 



2158 

REF 

16 

LAST 

944 

lo, 3540 

3 473 

1 


CAR 

PU>MAX 

POSITIVE OVERFLOW 


2159 

KEF 

1 



1 6 1 3 3 4 1 

1 3553 

t 


TCF 

ROLLScT 



216'. 

REF 

1 9 

laSF" 

990 

16 , 3542' 

4 475 u 

0 


uS 

POoMAX 

ncgativii uVEkrcufs 


2161 

REF 

2 

LAST 

99v 

16,3543 

1 3553 

0 


rcF 

ROLL St i 

' - — 

- 

2162 

KEF 

2U7 

LAST 

990 

16,3544 

22 u .,- 0 

1 

LVUK 

LXCH 

A 

PUT NUMbKATOr; BACK INTO A, ( 

IN L 

2163 





16,3545 

W' 2r X 6 

i 


EXT ENu 



□GAR ATE 

2164 

REF 

11 

LAST 

990 

16 , 354 6 

11*573 

0 


DV 

T emk lg 

RESULI OF DIVISION IS DESIRED 

2165 

“reF 

J 
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99 - 

■ 16,3547 

1 3553 



TCT ■ 

ROlXsE T 
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) 


2173 
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2 

last 
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REF 
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K EF 
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9 J u 
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1 

— 


A 

K 21 76 
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JET FIRE TIME 

, BASED ON DESIRED 

RATE MINUS PKEiENT kAI E 

2177 

REF 

12 
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99o 

16,3553 

55*573 


RGLLSET 

TS 

TEMREG 

217 71 





16,3554 


1 


EXTEND 


2173 

REF 

lu 

LAST 

989 

16,3555 

61* 533 

K 


oU 

CG ArtAT E 

21781 

REF 

13 

LAST 
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1. Q f 33 3 

55 * 573 

t • 

i ik’ 


TS 

TEHREG 

21762 





16,3557 

1 3562 

1 
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+3 

21 7B21 REF^ 
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L Ai 1 

99 1 

l6, 3560 

5 0 J '‘J 0 

I 
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71 

217822 

REF 

2 
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1. 6 f ^3 X 
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1 


OS 
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2179 
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1 


EXTEND 
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, 

w 


HP 
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16,3564 
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1 


EXTEND 


2182 

REF 
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1 6f 

7 1631 

0 


HP 

1 / GUN ACC 
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15 f J^5 6 

Z t' 0 0 1 

1 


DD0U8L 


21831 





1 3 1 3 5 6 7 

20 ■•■U, 

1 


DDOUdL 


2184 

REF 

14 

LAST 
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16,357C 

j5' 573 



TS 

TEKkEG 

21841 





16, 357 1 
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U 


TCF 

+ 3 

21842 

REF 
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LAST 

991 

16,3572 

50 OGO 

1 


INDEX 

A 
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REF 


LAST 
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16,3573 
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1 


cs 
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“TTET 
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“TA^T" 
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16,3574 
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‘j 


TS 

1 EiHkcG 

2186 





16,3575 

0 C0o6 

1 


EXTEND 


2187 

R £F 

4 
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16,3576 
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1 


DllF 
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‘ T I ME 
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TEST FOR 
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21831 

REF 

16 

LAST 
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16,3577 
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1 
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1 


EXTEND 


2199 

REF 

3 

last 
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16,36). 1 
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1 


HP 
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219 i 

REF 
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X6 i 36o2 

Iw COu 

0 
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J 

2192 

REF 

i 



16, 360 3 
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1 


TCF 

MURFRULL 

2193 

REF 

1 



1 6f 36\2 4 

1 3612 



TCF 

NcWROLL 
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REF 

5 

nrATH 991 

16', 38G5 

1 4051 1 


TCH 

Kurull 

2195 

REF 

2 

LAST 
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1 6 r 35 w 6 

l 3612 

\ 


TCF 

fVirW HULL 


IF I = CA, DESIRED RATE IS -MAXLi-’. 
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OVERFLOW PROTECT 

fi ft 
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OVERFLOW PROTECT 

(t It 


“OTT^FTRt ■ TTRIF AT e213~MlT:ROSFC'/: 1 T 
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CESIREL ChANGE IN QGARATL 

ISGN OF TOROuEooZERG IF JETS NOW aFF ) 
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17 
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22^ JZ 

— TTEF 

93 

L/CST 
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AU 
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16, 3614 
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42 
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PEF 

94 

LAST 
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16,3615 

6 A 7 / cj ij 

Au 
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b CJJ6 1 
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a 
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16,3622 
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NGRuLL 

K22i 
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NUT LUNGER 

THAN TMAXPIKE. 
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REF 

16 
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16, 3623 
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CA 

TEMRlG 

2212 





16,3624 
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EXTEND 


2213 
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16,3625 
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HP 
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2214 





16,3626 
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- 
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BZF 
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2216 
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A 

2217 

REF 
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16,3631 
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C A i 
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16,3632 
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+z 

2219 
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2 
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CS 
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REF 

19 
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TS 
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— 
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REF 

4^ 
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2223 
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4j 
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16 f 3636 

3 47 5u 1 



PU6MAX 

2224 





1 6 f 363 7 

1 3641 0 


TCP 

+z 

2225 

REF 


LAST 

974 

16, 364l 

3 4752 0 


CA 

NEGMa X 

2226 

REF 

4 

LAST 

991 

16,3641 

55*57i 1 


TS 

RCLLFIRE 

7 





16,3642 

4 1/ f 


COM 


222 6 





16,3643 

L L w 6 1 


EXTEND 


2229 





16,3644 

6 3647 1 


aZMF 

+ i 

223' 

REP 

21 

LAST 

992 

16, 3645 

4 1573 b 


CS 

TtMRcb. 

2231 

REF 

22 

LAST 

992 

l«a , 3646 

55*573 


TS 


2232 

REF 

13 

LAST 

991 

L S f 364 7 

3 1653 0 

FIrtELUUK 

CA 

I 

■ 2233 





'~l6,3657r 

u J C> 1 


E X i h NET 


2234 

REF 

1 



16 , 365 1 

1 3653 - 


dZF 

{- Ik tFLUG 

" 2235 

REF 

i 



16 , 3652 

1 36o4 1 


TCF 

JufRJLL 

2236 

RE F 

1 

— — 


16,3653 

G 3 i V 

FIREPLUG 

ChE 

T 1 M._ 6 

2237 





1 6 f 3634 

0 OU 6 1 


EXTEND 


2238 

REF 

23 

L AST 

692 

16, 3655“ 

61*576 i 



TEMRlG 

2241 





16 1 3 636 

0 V J 6 1 


L X i biND 


2242 

REF 

45 

LAST 

967 

16 f 3657 

6 5314 1 

t XT ENTS T 

BZMP 

1 AoXUVER 

2243 

REF 

2 

LAST 

992 

1 6# 366^^ 

1 3664 1 


TCF 

j._ 1 kCLL 

2244 

REF 

16? 

LAST 

991 

1 6 f jid6 1 

4 4772 j 

NURULL 

CS 

ZERO 

2245 

REF 


LAST 

992 

16 I 366Z 

55*571 1 


IS 

hOElpIKl 

2246 

REF 

24 

L AST 

992 

16 f 366 3 

55'5?3 


IS 

1 lMRcG 

22^7 





16, 3664 

U U L J 6 1 

GtTKOLL 

EX 1 END 


2246 

REF 

1 



i 6 f 3665 

3 3755 u 


DCA 

•sUKliLi I 6 


li:4u Ffc6» ^6.1971 ULYSSES .,‘ 49 PAGE <j94 


USfcK'S PAGE NU« 11 t6 S3 


IF NOT greater THAN THINFIRE (NEW FIRE) 



1/TMAXFIRE 


IP LESS THAN TMAXPIRE 


USE MAXIMUM 

USE 


FCR TOKUUE SIGN 

POSITIVE TO ROUE REQU'IkED 

NEGATIVE TOKUUE REwUIKED 

SET ROLLFIRE PUR + UR - TURyUE 

COMPL EMENT , ,, POSe FOR NEG, TORQUE 
POSITIVE TORQUE REQUIRED 

IS IT H OREROLL 

YES 

MAGtTbFIfth) NUW IN TLMRFG 
CHECK FOR EXTENDED FIRING 


IF EXTENSION WANIED* DONT , EXIT ROLL OAP 

COAST-,., INEG ZERO FUR TIMES) 

?5Trf p , jbrs"X7iTr'm<n?L“ia pass 


o 
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T VCROLLOAP 


USeR*S PAGE NO. 12 


E6 S3 


224” 

22Si 

22b 1 

KEF 

REF 

K £F 

25 

2 

LAST 

LAST 

LAST 

139 

992 

992 

1 b 1 3o66 

1 6t 366 7 
16|3670 

32 ill 
3 1373 

5 4 G 3 1 

1 

1 

1 

DXCH 

CA 

TS 

T6L0C 

r emk eg 

I IMtb 

fcN 1 1 R J L T F 1 R 1 T I HE 

- -- - 

2252 

REF 

14 

LAST 

992 

i 6 f 3 6 7 1 

3 16 33 

Vt 

CA 

I 

1 = 

IF MCRERGLLtKEEP 

SAME JETS ON 

2253 





Ibf 3672 

j UOiJb 

1 

txi ENU 




ii254 

REF 

46 

LAST 

992 

i 6t 367 3 

1 3314 

V 

SAMEJtTS bZF 

lAiKOVEF; 

IF 

JETS CN KEtP SAME 

JETS. EXIT ROLL DAP 

2235 

REF 

6 

LAST 

992 

1 6f 3d7 4 

11*571 

1 

CCS 

ROLLFIKE 





^ 72255 

REF 

IT 


t • _i II ■ II 

— TETSSTF" 

r^TOlTU 


TCF 

TTOirguF 


2257 

REF 

1 



16,3676 

1 3742 1 


IGF 

1 6EN AbL 


2258 

REF 

1 



16,3677 

1 3722 1 


TCF 

—lOKiUt 


2259 

REF 

2 

LAST 

993 

lb, 370 C: 

1 3742 1 


TlF 

T 6EN ABL 


R^Zb‘ 

PRQCtED 

hITH PLUS TQRUJE. 






22ol 

REF 

2 

last 

109 

16,37^ 1 

3 1572 ij 

+ T 

CA 

BULL WORD 

WHAT NAS THc LAST +TORUUE COMBINATION 

2262 

REF 

53 

LAST 

987 

16,3762 

7 4770 1 


MAbK 

d 1 T 1 

WAS IT NO. 9-11 

2/d 63 





16 # :i7L 3 

v' ’.!0G6 1 


cXTENU 



2264 

REF 

1 



i6f 37u4 

1 3714 1 


bZF 

NO. 9 -11 

NOT 9-11, SO USE IT THIS TIME 

2265 

REF 

34 

LAST 

QQ3 

16,37^5 

4 477.> 1 

NO. 13-15 

CS 

iilTi 


2266 

REF 

3 

LAST 

993 

1 f 3 7 1 .. 6 

7 1572 1 


MASK 

ROLL wUKD 


2267 

REF 

4 

LAST 

993 

16,37C7 

55 *572 1 


TS 

HCLL wDR D 

CHANGE BIT 1 TO ZERO 

226 8 

REF 

1 



16,371. 

3 5( J 14 1 


CAF 

+ R|JL Ll 


2269 





16 1 371 1 

U L w- 6 1 


tX f fcND 



221'. 

REF 

2 

LAST 

194 

16,3712 

vl LL,6 


WK 1 T E 

LHANo 


2271 

REF 

"3 

' lXSTF 


r673TT3~ 

T“3^742r T 


“TCP 

f oh NABL 


ZZll 

REF 

55 

LAST 

393 

16,3714 

3 4770 u 

NG.9-11 

CAF 

till 1 

iST + JETS TO FIRE (MRCLEAN CS ROLL WORD J 

2213 

REF 

5 

LAST 

993 

16, 3715 

27*572 1 


AU 3 

RULLWUKD 

CHANGE BIT 1 TO ONE 

ZZl^ 

REF 

1 



16,3716 

3 4773 L 


CAF 

+RDLL1 


22 7 D 





1 61 f 1 7 

u u306 1 


EXT ENU 



”~Z2T6 

ITEF 

J 

'TTAST 

ag3r" 

TET3TZZ~~ 

01 CTJ« F" 


MKl 1 E 

CH AT^q 


2277 

REF 

4 

LAST 

993 

16,3721 

1 3742 1 


TCF 

T oc N AbL 

- 

2278 

REF 

6 

LAST 

993 

16,3722 

3 1572 L 

-TOKJUE 

C A 

RCLLWUKD 

WHmT was last -TUKUUE COMblNATlUN ' 

2279 

REF 

33 

L AST 

961 

16, 3723 

7 47o7 1 


MAaK 

a r 12 

WAS IT NO. 12-1 

22 8 C 





16 , 3 724 

V (' :6 1 


bXT END 



■ 22F1 

“REF 

“ T 



~r573723^" 

“T 373 j T 


HLf 

730.T2— T. 

NCI 12—1., SO USt ll THTs 11 ME 

2232 

REF 

34 

LAST 

993 

16, 3726 

4 4767 1 

NU. io-i4 

1- CS 

oiT2 


2283 

REF 

7 

L AST 

99 3 

1 Q f 37^7 

7 1572 i 



hCi- L iVOKD 


2284 

REF 

□i 

LAST 

993 

16f 373 

55*572 1 


Ta 

RCLl aOru 

change bIT 2 TO ZERO 

2285 

REF 

1 



16 f 3731 

a 3765 U 


CAF 

-RULc2 


22B6 

- — ^ 




1^,3732 

0 0 U D I 


EXT ENU 



2287 

REF 

4 

LAST 

993 

16,3733 

U1 0v6 U 


RRlTc 

CHANo 


2233 

REF 

5 

LAST 

993 

iOf 3734 

1 3742 1 


TCP 

ICcNABl 


2239 

REF 

35 

LAST 

993 

1 a , J 7 3 5 

J ^167 t 

NO. 12-1'- 

CAF 

Li 1 2 

1ST -JETS Tl fire (MRCLEAN US PXilLWORDI 



I 
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TVCROLLLAP 








=>-= n ^ ^ M ^ * * 

USER'S PAGE 

NO, 13 


KEF 

s 

LAST 

993 

1 6 f 37 3 6 

27*572 

1 


AUS 

RCLLWUKD 

CHANGE BIT 2 TO 

ONE 

^291 

KEF 

X 



i 6 1 3 7 3 7 

3 4355 

0 


CaF 

“KULLl 



2292 





i6,374U 

U UUu^6 

1 


EXTENU 




229 3 

■rtf 

B 

XArn 


16 t 3?4 1 

6 1 00 6 

u' ' 


WRITE 

Chan 6 



229 4 

REF 


LAST 

98 a 

16f 3 f 42 

3 4752 

j 

TOENABL 

LAE 

BI T15 

- 


229S 





16,3743 

0 0096 

1 


cXIEND 




2296 

REF 

9 

LAST 

592 

16,3744 

J5 013 

0 


WOR 

CHAN13 



229 7 

'■ ■ ■ iVr|^ - - ’ — 

REF 

47 

LAST 

9<>3 

16,3745 

1 53i4 

0 

ROAPEND 

TCF 

TASKOtfER 

EXIT ROLL OAP 



E6 


t/J 
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L TVCRCLLDAP 


22 9 B 

THIS 

Tb 

lASK 

SHUTS 

UFF ALL ROLL JETS 





2299 

KEF 

15 

LAST 

9 74 

16,3746 

22 C-ib 

0 

KOROL Ll 

LX CH 

BANKRUPT 

230':' 

KEF 

168 

LAST 

OQ^ 

•tf ^ mm- 

16,3747 

3 4772 

1 


CAF 

2LKG 

23 c 1 

REF 

7 

LAST 

993 

16,3750 

55*571 

1 


TS 

ROLLFIKE 






16,3751 

0 UUU6 

1 

KILL JETS 

EX T ENU 

ChANb 

2303 

REF 

6 

LAST 

QC3 4 

16,3752 

Cl COS 

U 

rtRIT t 

239 A 

REF 

4 

LAST 

974 

16,3753 

X S 3 ^ ^ 

I 


TCF 

NOgRSM 


USER'S PAGE NOo 14 


SHUT OFF ALL (ROLL) JETS, (A 
CALLED BY a,JETRCLL,o) 
2EKU INDICATES JETS NC;^ OFF 


E6 S3 


T6 TASK 


JlcV ISi ON 72 OF AoC PROUKAM AH TEMli BY NAiA 2 2111^- 11 


li;4 FEBo 26fl97I ULYSSES PAGE 


® 96 


L TVCRULLUAP USfcK'S PAGE NO. ii> t6 S3 


P2J -“3 CCNSTAMS FOR ROLL AbTCPl LOT • ,* a 


25i 6 

REP 

36 

LAST 

965 

£6, 1446 




i. BANK- 

CNf K 



c3't 

■RlF 

1 



1673754 

« 3 74o 

1 

nqkuLitS” 

2CADR 

nOkulli 



23 7 

KEF 

1 



16,3755 

34066 

u 

- 

^ - - 



■ 

23' 9 





1 6 1 3 7 o 

v344 

1 

OB 

JEC 

1388869 


CEAO BAND (5 DEG), SCoAT B+ REV 

231'. 





16, 3757 

U6315 

0 

— 6LUPE 

Ot c 

5 2 


-Sri ITCHLINE SLOPtt.o2 PER SEC) SC>AT 0+ j 

A 2311 












P^“STt 

2312 





i 6f 376i. 

Ouiil 

'■ . 

LMCRATE 

DEC 

3 0iJu277 7 6 

2-«‘4 

LI.4ir CYCLE RATE ( .1 OEG/StC) SC. AT 

A2313 












B“4 RfcV/SEC 

231 A 





16,3761 

.'J5 1 - 

J 

INTERCEP 

l) tC 

.3w25 b+3 


DB(-SLUPt) - LHCRATE, SC^AT B-3 R6V/SC 

2313 





16f 3/62 

V 1 35 . 

J 

RINLIM 

DEL 

>r- >2 77 778 

D+ ^ 

RATtLlMfMlN tlOEG/SECI, SC. AT 8-4 REV/SC 

. - 2317 





16,3763 

7 071 

0 

RAXLi.4 

□ EG 

. 13 Sod 69 

6+4 

RAl ELIKi,MAX (5DEG/StC), SC.AT B-4 REV/SC 

A2316 








TMINFIKE 

DEG 

1 1 5 3+^ 


15 MS (14 MIN), SC. AT 16 BlTS/CS 

z3id5 

REF 

7 

LAST 

354 

5jC 1 



TKINFIRE 


6 iTo4&5 



231 ^ 





1 6, 37o4 

u764 c 

1 

TiHAXFIkt 

OtL 

2 59 3+4 


25 SEC, SC.AT 16 BITS/CS 

232 

REF 

j7 

LAST 

981 

4766 



1/TMXrIR 


81 Tj 

- 

RECIPRCiCAL THEREOF, SHIFTED 14 RIGHT, 

A 25^ 1 












ROUNDS TO UCT(rO(j4, SO ALLOWS 2^56 

A 232^: 2 












SEC FIRINGS BEFORE APPLYING’ L I. <11 T 

232 3 

REF 

4 

LAST 

838 

Yo52 



T6SCALL 

— 

PKi ^Jl 


(3+3) (160ITS/CS) liC' CS/SfcC) 

2321 

REF 

22 

LAST 

894 

4773 



+R0LLi 


FIVE 


CNBITS FOR JETS 9 AND 11 

2322 

REF 

1 



5u 14 



+RQLL2 


(jGTi2. 


CNblTS FOR JETS 13 AND 15 

23^3 

KEF 

3 

LAST 

714 

4311 3 



-KOtLl 


1 uN 


CNBITS FDR JETS 12 NAO 1 

2324 





16,3765 

0C)24c 

1 

-RULL2 

uCT 

^4 


ON^ITS FUR JETS 16 AND 14 



Ab S E M fci e ^ t_V IS 1 Ofl 7>; 
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L HYSULS 


USER'S PAGE NO» 1 S3 


^ REF 1 21i^Uu: SblLCL PYSU3S 

ii, 21.20 60 3ANK 


•: <+ 

( ( : i i> 

KEF ' 
REF 

2 

i 

LAST 

112 

E6ilSi.- 

SPCOSl 

EBANK- 
E GUALS 

KMPAC 

gPCu^ 

6 

REF 

1 



5 joi 

SPgINI 

EQUALS 

SPjiTi 

^ 4^ L 7 

REF 

2 

LAST 

997 

>' } 6 • . 

SPC0S2 

*5 A i- 

specs 

coca 

REF 

2 

LAST 

007 
« " 

5061 

5PS1N2 

EUUALS 

SPSIN 


Fti09 «REF 1 OOUNI^^ li/DAPMS 

RCriC ONE AND ONt HALF PRECISION MULTIPLICATION ROUTINE 


i 1 C '• i j 

VK , 1 jL 

12 

KEF 

2 

LAST 

112' 

21.2 > 6 u 
21 .2^61 

55'512 1 SHALLMP 

D 00^6 1 

TS 

EXT ENG 

KMPTEMP 

AIX+Y) 


R EF"^ 

3 

"LTfSIT' 

"xroT — 

21. 2U62 

7 1511 r 

MP "■ 

K7^F?nr"-ri 


001 A 

REF 

4 

LAST 

997 

21.2063 

55'5il 1 

TS 

KMPAC +1 

AY 

CC13 

REF 

169 

L AST 

995 

21,2064 

3 4772 1 

CAF 

1 ERO 


Oi 16 

REF 

5 

LAST 

99 7 

21,2J65 

57'51G I 

XuH 

KMPAC 


CC17 

- - - 




2^1.2 ;6o 

C 1-00 6 1 

EXTEkNiO 



• 1. 18 

REF 

3 

LAST 

997 

2i,2u67 

7 1512 1 

MP 

KMPIEMP 

AX 

Txrur 

REF" 

6 

UKST 

~V^T~ 

21,207{J' 

"Trf'STT T ' ■ 

OAS 

“KKF&C 

AX+ AV 

CC2. 

REF 

1 o ^ 

LAST 

980 

21,2 71 

G OOV 2 . 

TC 

C 



RC021 SLBKUOUNt FOR D0U6LE PRECISION AOOiTIONS OF ANGLES 

KC022 A AND L CONTAIN A OPUS) ANGLE SCALED 3Y Id; DEGS Tu Gc AOOEO TO KMPAC^ 


■RT023 " 

RES LL M'S 

PLAC'fD"TTr 

KMPACo 

riHlNG = 

■6" 

■HET 1 22"TTCT”aT^ij\rElTFr3«7 


Gi:24 

REF 

7 

LAST 

997 

2 1 1 2 -^7 2 

21*511 

1 

CPADD 

UAS 

KMPAC 

- 

•, '. 25 





21,2j73 

J L u w O 

1 


EXTEND 



CC26 

REF 

1 


- - — -- 

21,2074 

1 2111 

0 


B7F 

1 j.\ +1 

NO OVERFLOW ' 

(.'..27 

REF 

8 

LAST 

997 

2i.2u75 

11 *510 

0 


CCS 

KMPAC 


0C28 

KEF'’ 

1 



-"ZIVTCTF- 

— nT12^ 

k.i 


TXTF 

LPADD+ 

+ uVtRFLOw 

C( 29 





21,2077 

1 2i'jl 

1 


TCF 

+2 


0030 

REF 

1 


— 

21,21v: 

1 2114 



TCF 

DPADO- 

- OVERFLOW 

CC31 

REF 

9 

LAST 

997 

2i,21i 1 

11’ 511 

1 


CCS 

KMPAC +1 


tn32 

REF 

1 

— , 


^I.ZICZ 

1 2117 

T ’ 


TCF 

OP A 002+ 

UPPER = , LOWER + 

CL33 





21,21C3 

1 21.v5 

1, 


TCF 

♦ 2 


“m" 





■~2T , 2114 

4 CO si VI 



COH 


UPPER = ■■ , LUWtK - 

^1 35 

REF 

21 

LAST 

992 

21, gIlS 

6 47 50 

1 


AD 

PCj' aX 

LOWER = , A=i 

^ V 3 6 

REF 

1 V 

LAST 

997 

2 1 f 2 1 ’ . o 

55* 5li 

1 


TS 

KHP aC + 1 

CAN NOT OVERFLOW 

i.c 37 

REF 

22 

LAST 

997 

21 f 1 

3 47 5 u 

1 


A 

PU^HAX 

UPPER WAS = s 

36 

REF 

11 

LAST 

997 

21,211l 

5 5 * 5 1 *J 

0 

T 

Ti 

KMPaC 


'-^■39 

^REF 

167 

LAST 

997 

21,2111 

J t. (-«2 

! 

+1 

TC 



or. 43 

~T?EF 

-5~ 

LIST 

"932 

"TTTZTTZ 

'o175Z 

c 

"TP ADD + 

'TfD 

fv EOrtAX 

KMPAC GRTrATO*^ THTAPT ( 

'41 

REF 

2 

LAST 

997 

21,2113 

1 2ii- 

1 


TCF 

UK 


^ \ 42 





21,2114 

4 oO J 0 

0 

lpadg- 

CUrt 



-> 4 3 

REF 

23 

last 

997 

21,2115 

6 47S\j 

1 


AO 

PCj.-'.AX 

KMPAC LESS THAN 


G. AF . Ai SE MBL£ KCVISiq.M . CF AGC PROcRAri A RT EM iS.^ BX. ilAS.A__4’ 
L MYStBS 


V KtF 3 LAST 997 21,Zli6 i 2iiU 1 TcF 

C',,45 REF o LAST 997 21,2117 o 4752 u DPAULi2<- AJ 

71 4 6 RTF L Z “LTCrr IJIJT ZI72'1 ~~ T S ’ 

i.L47 REF 7 LAST 998 21,2121 3 4752 U CA 

w48 REF 4 LAST <=9B 21,2122 1 2UL 1 fuF 
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TSK 

NtGMAX CAN NOT OVERFLOW 

KrtPAC +r 

NEGMAX UPPER WAS = < 

1;>K 


■ A 




I \ 




m I 







. .• 




n.' 
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L Mvsuas 








■? 






U^EJi'S ^GE NU. 3_^ E6 S3 






•* 







i 






K 





t 



f 


il 


T f 


, » 


> f ■ 





10 





V I M ■ | i 




r- 


I 









4^ 


it 


I 




% 





a 




5 

f 

7 

* 

5 


3 




**. •' 

»■ ‘ r 

■ j *\ ' 


I 


- - - — cfT. 



^ / 




a 




*« 

r- d 





\ 


ti 


r * 


\ 


I 


J 


r 

' ■ t 

- ' '-f 

I ► 





$■ 


* 







) •> 


1 


I 


^ AP : Ai $ ErttiL t a 1 1/ 1 S iUN _ U QP AGC PRQ ^KAi^l A RTtH IS BY N ASA ^ 111 1 ViL i A 

L RCS-C3M CtbITAL AUICHLOI 

Pv i l T5 lNlcK(^UPT PRGbKAM FUR THE RC3-CoM AUTCPROT 

STARi' OF T5 IMTERRUPT PROGRAM 


t V «- 4 

R tF 

2 

LAST 

734 

1 f ^ 6 o 0 




SETLoC 

DAP S3 

lc'J5 





2i#2123 




BANK 


■ U L‘ 6 

*R£F 

1 



----- 

■ ■ 



CuUNT* 

$$/DAPKC 

v M. 7 

REF 

13 

L AST 

998 

£6f 15 IL 




t_ b ANK^ 

KHPAC 

0 ci 

REF 

16 

LA'S! 

95 5 

21t2l23 

22 016 

U 

reuukCS 

LxXTT^ 

bankkUp r 

j' ' ^ i c 

REF 


LAST 

735 

21»2124 

3 1464 

L.* 


irf' 

f :>PdASL 

vu ir 





21,2125 

J 

1 


cXl ENu 


L 0 1 1 





21,2126 

6 2 1 J <w 

1 


dZ MF 

+ 2 

i;oicz 





21,2127 

1 2132 

1 


TCP" 


ceic 3 

REF 

95 

LAST 

991 

21,213 ; 

4 47 7 L 

1 


CS 

CKE 

.jCTr4~ 

REF 

~'T 

LAST 10 j 3 

2“rr?I3T" 


1 


nrs 

tsPhaSe 

..V 1 1 





21,2132 

L‘ V;CJ6 

1 


EXTEND 


.il2 

REF 

1 



21,2133 

3 2137 

( 1 

1 ‘ 


DCA 
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kT T^tC 


i 


1 1^40 FLBo ^6»197X ULYSSLS <.029 BAGL 14 

USER'S PAGE MUa 5 to S3 

+ .AMGB8 (CDUZ-f-'HOZ ) 


N o 8 A 

N« 8o 

PICK UP DESIBEO FILTER GAINS 

ADQT + tol6) toDORHu 

S/C TCKOUE to inertia KATIQ 

SCALED (45. It 16:: J / (5 7, 3 M 163641 = 1/ i . 3 


KMJtDET J 

END CALCULATION OF VEHICLE KATES 


CALL FOR 1 see UPDATE OF TRA..SE uRH ATION 
MATRIX PROP bIMBAL AXES TO BODY AXES 


I 


o 


2° PAGE ir i, 


GAP: 

L 

P - luS 
R ^ i.^1 


AS S EMBL E ISluN 372 GF AGC PROGRAM AR T EH IS BY NASA 2^2 11 14 - j 11 

HCS-CSM CiGITAL AUTUPILQT 


WHEN AUTOiIATIC MANEUVERS ARE BEING PERFORMED* (HE FOLLOW iNo Al^ioLE 
SEQUENCE OF ANGULAK COMMANDS Tu THE AUTOPILOT— 


I U ^ FEB, 26*1971 ULYSStS 

USER' S PAGE NO, 6 l 6 Si 

AODITION MUSI BE MADE TO PROVIDE A SMOGTri 


lRtlv2 
Rei93 
' 11DI94 


CDUXD ="Tduxd + QEL’CDjX (UOUSLE precisTun'i 
CDUYD = COUYD -I- DELCDUY (DOUBLE PRECISION) 
CDUZD = CUUZD + DELCDUZ tOOUELE PRECISION) 


R4.1S5 THE STEERING PROGRAMS- 

Rn96 1) ATTITUDE MANEUVER ROUTINE 

TTCI^ ZT" XTF~TirACKI NG 


RiJig9 SHOULD generate the CESI REu angles (CDUXC, CDUYD* CDUZD) WELL AS THE INCREMENTAL ANGLES (DELCUUX, UELCDUY* 
RlZUl CELCDUZ) SO THAT THE blMBAL ANGLE COMMANDS CAN BE INTERPLLaTED BETWEEN UPDATES. 

Ro2g3 HCLDFLAG CODING- 


RC2uA 


" RX20 5 

R i- 2 - 6 


+ = oRAB PRESENT COU ANGLES ANO STORE IN ThETADX* fhETADY, THETADZ 

AND TERFORH ATTITUDE HOLD ABOUT THESE ANGLES 
ALSO IGNORE AUTOMATIC STEERING 


RCZj? 

K- 208 

UC2U9 

i% .21'^ 

RCZli 
P 212 
K :212C3 
R vZl-cCS 
R 2121 


SET = + BY 

1) IMTl ALlZATlUN PHASE OF AUTUPILUT 
2T UCCURATJCb OF KHt COMMANDS ~ 

3) FREE MUUE 

4) Switch over td attituce hold frok autc - 

WHILE DOING AUTOMATIC oTEERING (IN THIS CASE 
FOLDFLAG 13 TQOT ACTUALLY SET TO +* BUT THE LOGIC 
FUNCTIONS AS IF IT WERE.) 

'“5 r S/C XTiNl HUL SWIJ CH TN~SCS 


Rt 2122 
RC2L3 
R02i4 
kC215 


6) IMU POWER OFF 

+C = IT) ATTITUDE HOLD ABOUT A PREVIOUSLY ESTABLISHED REFERENCE 
- = PERFORMING AUTOMATIC MANEUVER 

-G = NOT USED AT PRESENT 





Ri- 216 NOTE THAT THIS FLAG MUST BE SET = - BY THE STEERING PROGRAM IF IT IS TO COMMAND THE AUrOPiLOTo 

REZie SINCE ASTRONAUT ACTION HAY CHANGE THE HOLDFLAG SETTING* 11 SHOULD BE MONITORED BY THE STEERING PROGRAM TO 

R'::22 DETERHlKt IF THE AUICMATIC SEQUENCE HAS BEEN INTERRUPTtD AND IF SO* TAKE APPROPRIATE ACTIUN. 


IZZZ 

REF 

11 

LAST 

i-v .’2 

21*236? 

4 1340 

C 


cs 

HOLDFLAG 


1.223 





21. 23 7l 

0 COO 6 

1 


EXTEND 



*224 

REF 

1 



21 ,2371 

6 2416 

D " 


BZrt F 

CAu ^ 

IF HOLDFLAG +:*-, + , BYPASS AUTDMaU 

A (223 











COM HANDS 

C226 

REF 

36 

LAST 

lot 4 

21,2372 

3 4Vo7 

0 

DCDUINCR 

CAF 

T rtu 


rill 

REF 

9 

LAST 

IC j4 

21,2373 

55»5 Jo 

1 

CEL OOP 

TS 

SPwDX 


122B 





~Zr,Z3T^ 

' 5 OuuD 

r 


DOUB Lii 



0229 

REF 

IS 

LAST 

Id 94 

1 f 7 5 

33'5G7 



TS 

UPNUX 


V 23 ' 





21,2376 

\J 

1 


EXTEND 



231 

REF 

213 

LAST 

Id - 4 

21,2377 

5 00 

1 


I NDfc X 

A 


; 232 

REF 

8 

LAST 

599 

21*^4CC 

3 1647 



DC A 

C DU X 0 



AP: 

AS S iM E 


EYISIUN L 72 

OF PROGRAM ARTEMIS BY 

NASA 2*211 

14-/ 11 


KCS- 

CSM 

CiGITAL AUrUPlLOl 





kZH 

liEf 

16 

LAST 

IL .4 

21 » 24'«' 1 

53*311 

1 

UXCH 

KMPAC 

^ 234 





21,24c2 

•j 0iiJ6 

1 

EXT END 


L2i5 

REF 

16 

LAST 

IL I 5 

2 1 j 24v3 

5 15o7 

1 

INDEX 

CPND< 

0236 

REF 

6 

LAST 

6 ' L' 

21 f 2404 

3 1576 

1 

OCA 

DELL DUX 

^237 

REF 

1 



21,24u 5 

G 2072 


TC 

CP ADD 

L238 





21* 24v 6 

L 0006 

1 

fcXTE NL* 


•.23S 

R EF 

19 

LAST 

li-< i. 6 

21,24C7 

3 1511 

0 

DCA 

KMPAC 

i24( 

REF 

10 

* LAST 

10fj5 

21,241t 

5 1 * 50 6 

U 

INDEX 

SPNUX 

r241 

REF 

12 

LAST 

708 

21*2411 

55* 572 

1 

TS 

TH t f AOX 

T2a7~ 

REF 

17 

last 

10* j 6 

21*OTr2“ 

51 ‘TOT 

1 

INDEX 

DP'ND X' ■ ■■ 

:243 

REF 

9 

LAST 

10 0 5 

21*2413 

53*647 

1 

DXi^H 

CCUXJ 

C244 

REF 

11 

LAST 

1» t6 

21,2414 

1 1 * 5w 6 

1 

COS 

SPNDX 

C245 

REF 

1 



21*2413 

1 2373 

'J 

rcF 

UELOQP 


11: 4o PfcB, Z6.1971 


ULYSSES oi.29 



UStts'S PAGE NO- 


7 


E6 S3 


ll:4v FEB, 26,1971 ULYSSES .29 PAGE 1: 7 


b ^ : A S S E M B t-£ RE \/ IS I ON G 72 CF A GC PROGRA H ART S fl Y NAS A 2v211 14- 

I HCS-C3.'4 ClGiTAL AUTOPILOT USER'S PAGE NO® « iO Sb 

P -d4o HCS-CSfi AUTOPILOT ATllTUJE ERkuh DISPLAY 

^‘*7 TEfiEE TYPES O F ATTITUDE cKK QRS MAY dE DISP LAYLU ON T HE ECAi- 

Rr24^ MODE 1) AUTCPILUT EULLOWING ERRORS SELECTED BY V61E 

RC2S GenEKATEJ INTERNALLY EY THt AUIOPILUT 

Ri251 rtODc 2) TOTAL ATTITUDE ERkQkS SELECTED BY V62E 

Rc2i>3 WITH RESPECT TO THE CONTENTS uf N22 


R72531 NUDE 3) luTAL ASTRONAUT ATTITUDE ERKUkS SuLLCTEO BY V63E 

RC2533 WITH REbPCCT TO THE CONTENTS OF Ni7 

RC2p4 mode i IS PROVIDED AS A MONITOR OF THE RCS DAP AND ITS ABILITY TO TRACK AUTOMATIC STEERING COMMANDS. IN THIS 
R(2SS KCOt THE ATTITUDE ERRORS WILL BE ZEROED WHEN THE uMC MODE bWlTCH IS IN FREE 


R 2p9 
RT261 
Ri 263 


RCDE 2 IS PROVIDED TO ASSIST THE CREW IN MANUALLY MANEUVERING THE S/C TO THE ATTITUDE 
IN N22, THE ATTITUDE ERRORS WkT THESE ANGLES AND THE CURkEnT COU ANGlES ARE RESOLVED 

AS A FLY-TO INDICATUft. 


(GIHBAL ANGLES) SPECIFIED 
INTO S/C CONTROL AXES 


R 2631 MODE 3 IS PROVIDED TC ASSIST THE CREW IN MANUALLY MANEUVERING THE S/C TO THE ATTITUDE (GIM8AL ANGLES) bPFClFlEU 
Rr2 h33 — nomr — iHE Aril l UDE ERR J RS coy ANGLE~S~~AkL RESULVeIj aNTd S/c lunikul AXbb 

Rv2t3a AS A FLY-TG INDICATOR. 

Rf264 V6C IS PROVIDED TC LOAU N17 WITH A SNAPSHOT OF THE CURRENT CUU ANGLES, THUS SYNCHRON IZI NG THE MODE 3 DISPLAY 

RI266 WITH THE wURRENT S/C ATTITUDE. THIS VERB MAY bE USED AT A.>iY TIME. 

THESE oTSPXAyV WILL BE AVArLlASLE IN ANYi^D^ tAUTO, HQLO» Fi EEt G+N» UR SCS) CNCE THE RCS DAP HAS BEEN 
RE271 INITIATED VIA V46E. MODE 1, HOWEVER, WILL dt MEANINGFUL ONLY IN G+N AUToOR HOLD. THE CHEW MAY PRESET (VIA 

Rr27S V25K17I AN ATTITUDE REFERENCE IDESIRED GIHbAL ANGLES) INTO N17 AT ANY TlPc. 


C278 REF 22 LAST 

9Z79 RtF 2? XA3T 

l28C 

0281 REF 1 


1^. b 2 2 1 » 24 1 6 4 i 5 b i 0 

“727 2TV741T / 4/o5 CT 

21, 242 L’ 1/ b 1=' o 1 

21,2421 I 3202 G 


CACNULS CS RCS flags 

HTTSK ■EIT4 

EXTEND 

bZF F0AIDSP2 


ALTERNATE BETWEEN FDAIDSPI AMD FDAl DbP2 


■282 

REF 

23 

LAST 

10 u 7 

21,2422 27' 3 31 : 

i 283 

REF 

8 

LAST 

951 

21,2423 - 2^25 , 

284' ■ 

ITElr 

3 1 

“T:48T“ 

~Trz 

2^1 1 2424 1 5223 1 


FDAIUSPl AUS 

TC 

"KRFSURErTCT 


RCSFLAs^S 

NEEOLLK 

TTFSD'ME ENTj' “ P 


ij 


n 


* 

m 


i eMB LE Ktn/ISIQN ijl Z DF AbC PKQuRAH AKie ^ Ib BY NA SA . 2^ Lt U 


1 1 : 41 F£6- 26^1971 ULYSSES ..<>£9 P^GE Lvi'ii 


L RCS-CSK CIGITAL AUTCPILOT USEK'S PAGE nQ* 9 t6 S3 

P 2Ub PCAl AlTIiUDE EKRUK EibPLAY SUBRCJUTlNt 

b_2^A _ _ PHOGRA.M CESCRIPTION: 0> KEENE ij/ 24/ 67 


K'2i37 THIS iUBROUTlNE IS USEU TO DISPLAY ATTITUDE EkRURS UR THE FDAl VIA THE DIGITAL TO ANALOG COMVLKTcRS (OAC^) 

Rr2b9 IN TEE CDUS* CARE IS TAKtN TO METcR OUT THE APPRjPRlATt NURtSER OF PULSES TO IHE IMU ERROR COUNlhRS AND PREVENT 

RC291 OVERFLOW, TO CONTROL THE RELAY SEQUENCING, AND TU AViJiD O^TtRFERENCt WITH THE COARSE ALIGN LOOP WHICH ALSO USES 

RC293 THE CACS» 


KC294 CALLING SEuUlNCE: 

Ki.295 DURING THE INI! I AL 12AT 1 ON StCTIuN OF THE USER'S P.^U^,RAH, tiIT3 OF RCSFLAGS SHOULD flE SET TO INITIATE THE 

RC297 TURN-ON SEQUENCE WITHIN THE NEEDLES PROGRAM: 


K‘.29B CS RCSFLAGS IN EUANKC 

R';299 MASK 3iT3 

K<.3' I mDS RCSFLAbS 


RtS'.'i 


THEREAFTER, THE ATTiruOE EkHQRS GENERATEC GY THE USER 


SHOULD BE TKANSFERED TO IHE FOLLOWING LQCAIIONS IN E3ANK6: 


R03^‘3 
R L 30 4 


AK SCALED 180 DEGREES NOTE: THESE LOCATIONS ARE SUBJECT 

AKl SCALED DEGREES TO CHANGE 


R’:3':5 


AK2 SCALED IBJ DEGREES 


RL3. 6 FULL SCALED DEFLECTION CORRESPONDS TO 16 7/8 DEGREES CP AITITUl>E ERROR 
[< -3 ^7 1= 3 84 BITS I N IMU ERROR COUNTER! 


<C3^3 _ A CALL TCiJEEDLEK WILL THEN UPDATE THE DISPLAY: 

At3L.9 INHINT 

RC31^ TC IBNKCALL ' NOTE: EBANK SHOULD UE SET TO to 

RG311 C ADR NEEDLER 

R >■ 3 £2 R E L I N T 

KC313 THIS PROCESS SHOULD BE REPEATED EACH TIME THE tRROKS ARE uPDATEu. AT LEAST 3 PASSES THRU THE PROGRAM ARE 

RL315 REQUIRED UhFORE ANYTHINb IS ACIUALLY DISPLAYEU UN THE ERROR METERS. 

RC316 NOTE: EACH CALL TO NEEDLtR MUSI 8E SEPARATED BY AT lEAST 30MS fb ASSURE PROPER RELAY SECUENCING. 


Ks 31b 
RC319 
RC32C 
RC321 
RC322 

RC 323 

ERASABLE USED: 

AK 

AKl 

AK2 

E DR I VEX 
EDKIVEY 

CDUXCMO 

CDUYCMO 

CUUZCMU 

A,L,C 

TaTEMP 

R^ 324 



SPNDX 

Rb325 

S h IT CHbS : 

RCSFLAGS 

BITS 3,2 

Kt.326 

1/0 CHANNELS: 

CHAN12 

BIT 4 ICUARSt ALIGN - RtAD ONLY} 


UAP: ASStMBLfe itVlSI GN >7 d CF AbC PKUGkAM Af^l EMIS BY NASA 2 '21114- . li 


11:4^ FEB. 26tl97i ULYSStb . 2 I'aGE 1 > 


RCS-CSM LIGITAL AUTuPlLOT 


KL 327 





CHAN 12 

61 f 6 (IKU ERROR 

LUUNT t 

ENABLE ) 

Rt 326 





CHAN 14 

BIT 13 , 

1^,15 IQAC 

; ACTIVITY! 

KC 329 

SIGN 

C 0 NVENT 10 N< 

AK = THE TAG ^ TdtTA 




Rt 330 



where 

THETAl = COMMAND ANGLE 



R»- 331 




- 

THETA = PRESENT ANGLE 


- 

l 332 

H t F 

3 ^' 

LAST 

lUTT 

21*242 5 

3 4765 1 

NEEDLEK 

GAF 

3114 

' 333 





21 t 242 £> 

L c :).6 1 


.:XT end 


C 334 

REF 

41 

LAST 

961 

21 * 2427 

32 C 12 <9 


RAND 

ChANlL 

< 33 1 > 





21 , 2 h 3 l 

L U L - ) 6 1 


bXT ENU 


0336 

REF 

1 



21*2431 

1 2436 0 


iZF 

NEED LERI 

■ 337 

REF 

24 

LAST 

IOC 7 

21,^432 

4 15-1 6 

RCSINT 

cs 

RCsFLAGS 

"r 33 ^ 

REF 

O'S'"’ 

XA'ST~ 

■995 

21 * 2433 ' 

/ % 7 o tj 0 


717^3 k BITX 

1339 

REF 

25 

LAST 

IOC 9 

21,2434 

27 * 5 \ji U 


ADS 

RCSFLAGS 

■ C 34 

REF 

IbS 

LAST 

997 

21,2435 

X C 002 O' 


TC 

u 

L 34 1 

REF 

26 

LAST 

10 9 

21,2436 

3 1501 1 

NEcDLEKl 

CA 

KCoFLaG s 

<342 

REF 

22 

LAST 

781 

21,2437 

7 6211 1 


MASK 

SIX 






Zl, 244 ' 

C w 0 6 1 


cXl ENET 


344 

REF 

1 



21,2441 

1 2476 1 


bZF 

i >i w t U L 1 5 3 

• 34 S 

REF 

39 

LA ST 

10 0 9 

21,2442 

7 47 o 6 C 


MASK 

B I i j 

346 





21,2443 

G COOo 1 


EXTEND 


‘347 

REF 

2 

last 

26 . 

21 ,2444 

1 2467 1 


bZF 

NEEDLuR 2 

C 348 

REF 

29 

LAST 

781 

21, 2445 

4 4763 0 


CS 

oITo 

< 349 





2 i , 2446 

0 lC G 6 1 


EXTEND 



BEF 

42 

L AST 

1009 

21,2447 

03 ' ul 2 1 


rfAND 

LhA: ilZ 

C 35 i 

REF 

171 

LAST 

loco 

21 , 245 -. 

4 4772 li 

NEcDLEl 1 

CS 

ZERO 

r 352 

REF 

17 

LAST 

951 

21,2451 

55*476 1 


TS 

AK 

C 353 

REF 

8 

LAST 

969 

21,2452 

5 5 * 477 0 


TS 

AKl 

< 354 

■R“EF 

8 “ 

L/iST" 

■■ 9 T 3 " 

21 , 2453 " 

5'5 * 500 1 


1 5 

A it Z 

<335 

REF 

1 



21,2454 

55 * 5 'j 3 1 


TS 

t I y t: X 

1.356 

REF 

1 



21,2455 

55*504 L 


TS 

EC.<IVEY 

L 357 

REF 

1 



21,2456 

:> 5 » 5 G 5 1 


TS 

LDRl VEZ 

e 358 

REF 

2 

LAST 

16 . 

21,2457 

54 ^ 


TS 

CDUXCMD 

<359 

REF 

2 

LAST 

lOJ 

21*2460 

54 051 1 


T;> 

CCUY CMD 

06 - 

RIF' 

”Z~ 

LAST 

“'T 6 T: 

' “ 2 T, 2 ' 461 ' 

54 j 5 Z 1 


F 5 

CDOZCTd 

(361 

REF 

23 

last 

1009 

2 i, 24 o 2 

6211 1 


cs 

SIX 

(:362 

REF 

27 

LAST 

roc 9 

21,2463 

7 1501 G 


MA^K 

HCsFLaGS 

C 363 

REF 

36 

4 -AST 

993 

21 , 24 w 4 

o 4 7 u 7 U 


AD 

L- IT 2 

L 3 c 4 

REF 

28 

LAST 

1 0 ' j 9 

f A ’63 

55 * 5 .'1 C 


TS 

C ^ L A b S 

C 365 

REF 

169 

LAST 

ICO 9 

21 , 24 o 6 

•J L .* J Z 5 


TC 

L 

1 3 6 6 

REF 

3 - 

last 

1039 

21,2467 

3 47 l .3 i 

NEEGLEK 2 

CAF 

rii r u 

r 367 





Z 1 j 7 ^ 

c V > w' 6 i 


t X I END 


V 368 

REF 

43 

LAST 

10 w 9 

21,2471 

l 5 ■12 1 


inIGK 

CHAitiz:: 

C 369 

REF 

24 

LAST 

10 3 9 

21,2472 

4 6211 1 


cs 

SIX 


USER'S PAGE NO,^ 


r6 S 


CHECK FCR CCaRSE ALIGN ENABLE 


IF IN COARSE ALIGN DO NOT USE iNU 
EfikOR COUNTERS* DQRT USE TIEEDLES 


‘A 
/ . 


SET BIT 3 FUR INI T I AL IZAf iUN PASS 


BITS 


i} f 


BIT 2 = 1 


FIRST PASS bIT3 = 1 

DISABLE IkU ERROR COUNTER lu ZERO 

RUST WAIT AT LEAST 6- MS bEFLRE 
enabling C GUNTERS* 

ZERO THE INPUTS CN FIRST PASS 


OACS 


ZERO THE DISPLAY r<EGlSlERS 


ZERO THE CUT CTUNTEFS 


KESEf RCSFLAGS FOR PASS2 


END PASSl 


ENABLF IMG tRr:OK COUNltKb 


RESET RCSFLAGS TO DISPLAY AnnOi^E 


4 * 




/iSSEMbLb KEVISICN CF AGL PROGRAM ARTEMIS BY NASA ^ 
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L 

RCS- 

CSM 

CIGITAL AU 

I DPI LOT 

— 


- 

USER'S PAGE NO, 11 

t6 S3 



». J / 

RfcF 


LAST 

lv'j9 

2i,ZA7J 

1 li>ol 0 

MASK 

K C ^ F t-AG S 

ERRORS WAIT ATLLAST A MS 

FUR 



C371 

HtF 

3 

LAST 



5S*S^i 0 

TS 

RCS FL AijS 

RELAY CLOSURE 




v37<i 

REF 

17v' 

LAST 

l'.J0 9 

ZlfZ^l^ 

S 0002 u 

TC 

w 






37J 

REF 

31 

LAST 

li.rJ9 

21f 2476 

3 47 o3 

1 

NEE0LES3 

CAf 

b I To 

CHECK 10 SEE IF I HU ERROR COUNTER 

•,3 74 





21,2477 

Lr J ^ 6 

1 


^XTENU 


IS LNA8LED 

1375 

REF 

44 

LAST 

l.-j-„-9 

21,i5u -y 

02 312 

0 


RAND 

0HAN12 


■:37o 





21,25 1 

J GOO 6 

1 


tX r END 


IF NOT RECYCLE NEEDLES 

C377 

REF 

1 



Z Xf Z50 Z 

i 2432 

1 


SZF 

KC S I t'i t 


. 07G 

HEF 

37 

LAST 

IL r 

21,2503 

3 47oT 

1 / 

NEEDLES 

OAF 

{ wu 


4.3 75 

REF 

12 

LAST 

llJ o 

21,25v.4 

55' 5 ;6 

1 

CACLUU? 

T j 

spndx 


l33 

REF 

3 

LAST 

1 : . 3 

21, 25v 6 

4 47^4 

1 


CG 

vOAf TEk 


C3bi 





21 , 25l 6 

0 OOu 6 

1 


EXT END 



C382 

REF 

13 

LAST 

X V- X 

21,2507 

5 1506 

0 


INDEX 

j Pi\uX 


-rjsi 

'REF 

“TiT" 

TJsrr 

'ICCT- 

— 21,25-I7r 

"TT47F 

1 


“ffiP 

AK 


‘384 

REF 

9ilj 

LAST 

9'9‘-! 

21,2511 

54 ■■'01 

1 


TS 

L 


1335 

REF 

216 

LAST 

10:'5 

21,2512 

1 V/ t)00 

0 


cCS 

A 


t 386 

REF 

1 



21,2513 

3 2547 

■ ^ 


LA 

DACLlrti 1 


138 7 





21,2314 

1 2516 

,i 


rCF 

+ 2 


C 38 B 

REF 

2 

LAST 

i:'l9 

21,2515 

4 2547 

1 


cs 

lag LI HIT 


— raw 

R£F 

91 

LAST' 


21, 251d 

6 OOo 1 



A 

L 


^ 39': 

REF 

6 

LAST 

1U03 

21,^51 7 

55* 5o2 

w 


TS 

T51 EMP 

OVFLO ChK 

C391 

REF 

1 



21, 252 w 

1 2524 

1 


rcF 

C^SPjV 


0392 

REF 

217 

i,AST 

i - 1- 

21,2521 


1 


I NDE X 

1. 

LN DV ERF LOW LIMIT OUTPUT TO +-3S4 

i 39 3 

REF 

3 

LAST 

lull 

21,2522 

3 2547 

11 

J 


CAf- ' 

C AC LIMIT 


C394 

REF 

92 

LAST 

It; 111 

21,2523 

54 - <1 

1 


TS 

L 


tW5 

REF 

14 

last 

loif' 

ZnJoZTT 

5f*5.6 

^ il 

CVSFuT - 

INCE^a 

"TPndX 


;396 

REF 

2 

LAST 

1009 

21,2525 

4 15 

1 


cs 

EDRIVcX 

CURRENT VALUE OF DAC 

C39 7 

REF 

93 

LAST 

M 10 

21,2526 

G ' *■ ^ .jr X 

i; 


AJ 

t 


(.-39 b 

REF 

15 

LAST 

1010 

21,2527 

51' 5.^6 

1 : 


INDEX 

S PtiU X 

1 

C399 

REF 

3 

LAST 

Iw v? 

21, 2 53c 


• > 


ADS 

CDUXCMD 

‘ y 


REF 

16 

LAST 

Iv- iJ 

21,2531 

51 • 5u6 

u 


index 

SPNDa 


^4vT~ 

R t F 

3 ' 

TTTST 

13TF 

' 21,2532 


f 


LXCH 

nTRT/EX 


i4 2 

REF 

17 

LAST 

111 j 

21, 2533 

11 '50 6 

1 


00.3 

bPilDX 


.4-3 

REF 

1 



21,2534 

1 25^4 

■_< 


TCF 

CaCLDGP 


4 3 A 

REF 

4 

LAST 

6C3 

21,2535 

3 7673 

1 


C A(" 



i4.)y ^ 





21,2536 

U 'OL C 6 

1 


extend 



c4C6 

REF 

l.v 

LAST 

971 

21,2537 

w5 .14 

1 

LRIVEDAG 

rtUK 

CHAN 14 

SET DAO ACTIVITY BITS 

i4lT“ 

REF* 17r" OfS'F 1 

Zil ^ 

— ^-"11 ■ • .» — 

C 


T 0^ ' 

0 


14-8 

REF 

1 



21, 2541 

3 2545 

1 

REINI f 

OAF 

p£L A 

XOoIC 

4l 9 

REF 

18 

LAST 

1 G L X 

21,2542 

54 O' 3 

c 


IS 

r I Me 5 

REINITIALIZE DAP IN 2 3 MS 

> 41' 

ref 

7 

last 

iC 01 

21,2543 

55 ' 4 64 

1 


TS 

1 OPHAot 


l4ll 

REF 

32 

LAST 

ICO 7 

21,2544 

1 5323 

1 


TCF 

KboUME 


C412 





21,2 545 

— 3X754- 

TT 

C^LAY2^J 

"DET 

io364 

2iiTMS 


v;4i3 

2 i , 2546 

77177 - uEt 

-384 

0414 

21, .-547 

372 i CALL IH IT DEC 

1 Q > „ J 




k 


. ♦ ■ • '• 






. , I » - 4 *- *«'*. ,V • , 


."--o' . ^ ^ sn--‘ ' ' '■ ‘'^ •!*'.' .*,-'■ " - '•■ ^’ ''' * ' ■ ' '*■* *^-' f t ^ ■'* ’ ^ ^ .’ •. . , , .j^ ^ -v »'■■ • 

■' • ^ f • ‘ . 

- - . . _ ' -t’, =.«--• ^ >_^ »r-^ ^ 
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RCS-CSH CIGITAL AUTOPILOT 


USER*S PAGE NDo 12 


Co S3 


L415 


21w^55U OObaO 1 


384 


> 




> 


r 

C '- 


\ 


'■■‘?’^ V' 
Vi ^V^ - ^ 

^ '"i 1 - " 




. I 


vf'"v 






S-i. 


^ L|» ll l _| 4 yi 





^ 5 



►JfWv’T'. , •*■ 






-4kJ 


r- 

.. 




t'i 


. 't v^'’ ■' 


**o r~: « "T 




■THr- 





f 






;i >r-^i 

' <“■ 1.. fcj 

I 




4 - 






V 


•> >« ^ 





■ V / 1 - 

k*. ' i'* • 




^ -S'!?*? ‘t* 


• ^ . 

ft 


?cf' - 


■V‘ I I— “.* 


". • . ' L ' (, .- ’ .r : 

-»M ._ ' ' * . - 


n • • ' , .'f ' 


(S’ 

. < c 






V r— * « 


r'-/' '■, V-a 
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RCS'CSM [IGITAL AUTOPILUF 


USh2*S PAGE NQr. 13 


bb 


pi 4io 

IMTi ALA2ATION 

PROGRAM FOR RCS 

-CSM AUTQPILUr 



R 1 4 i 7 

THE 

FULLCWING 

QUANTITIES v^ILL 

BE ZEROED 

AND SHOULD APPEAR IN CUNSeCUIIVE 

Hi:419 

hBOCY 

iHl ) 

DPT 


TAU 2 




R142'' 

WBODYl 

( + 1) 

DFTi 


BIAS 




.<GA2I 

WBOCY2 

( + 1 I 

0FT2 


BIASl 




Kt.422 

ADOT 


(+1 ) 

ORHU 

I +1 ) 

BIAS2 




Ri,423 

ACOTl 

t+1) 

DRHOl (+1) 

t RK(j KX 




~F:-:4-27r' 

■ ACCT2 

TiTT 

imTro2 — r+n^ 

ERRqRY 




L. -42 5 

MERRORX 

I+i ) 

ATTSEC 

ERRORZ 




A26 

M hP RO R Y 

(+1) 

TAU 






RG 42 7 

MERRQRZ 

I+IJ 

TAUi 






C42C 

REF 

9o 

LAST 

1000 

21,2551 

3 47 7u <j 

FKlSHCAP 

C A F 

ON L 

C429 

REF 

12 

LAST 

10*^5 

21 , 255 2 

!>5*34v u 


TS 

HlL UFLA b 

A t 










-431 

REF 

34 

LAST 

962 

21,2553 

0 4714 1 

RElJAP 

To 

1 Li Hi\s.AL L 

C432 

REF 

2 

LAST 

265 

21,2554 

4C46i 1 


CADK 

S4in,2 

^.433 

REF 

35 

LAST 

1U12 

21,2555 

w 4 7 i 4 1 


TC 

I3NKGALL 

>-A34 

REF 

2 

last 

266 

21* 255o 

4^- 614 J 


GAOR 

S 4 ‘,14 

4J6 

REF 

1 



21, 255 7 

3 2633 j 


Lap 

NOo r 5VAK 

A * 4 36 5 










^ 437 

REF 

218 

LAST 

1010 

21, 2561 

10 OOG ■- 

ZER0T5 

GCS 

A 

' 43 3 

REF 

16 

LAST 

JiKJ iU 

21,2561 

55'5jo 1 


TS 

SPNDX 

c439 

REF 

172 

LAST 

IOC 9 

21,3^52 

3 4772 1 


GAP 

ZERO 

i 44' ‘ 

REF 

94 

LAST 

Iwlo 

21,2563 

54 0-^1 1 


13 

L 

' 441 

REF 

19 

LAST 

1.12 

21,2364 

5 1 ' 5-i 6 0 


INDEX 

SPNDX 

-442 

REF 

12 

LAST 

599 

21,2565 

53'527 1 


DXCH 

wBJDY +1 

<4422 

REF 

2-,: 

LAST 

iei2 

21,2566 

li»5.6 1 


ibrU 

SPhlDX ' 

• 4424 

REF 

1 



21,2567 

1 250.J 1 


TCP 

ZERO 15 

' “ "442^ 

"RTF" 

13 LXST" 

TCTT' 

21',257C 

55' 525 G 


TS 

W3UDY 

- 443 

RHF 

4 

LAST 

10 OG 

21,2571 

0 2642 G 


TC 

Z bRii Ji- T 

R 444 

REF 

173 

LAST 

It 12 

21,2572 

4 4772 w 


cs 

Z cK J 

445 

REF 

2 

last 

113 

21,2573 

55*633 1 


TS 

CHANT ErtP 

t 4451 

REF 

2 

LAST 

iij 

21,4:574 

55*632 U 


TS 

CH31 T EMP 

AC4452 










446 

REF 

1 



21,2575 

3 2634 1 


CAE 


C447 

REF 

2 

LAST 

114 

21*2576 

53*654 : 


TS 

iLOP _ 

; 44 8 

REF 

12 

LAST 

951 

21,2577 

3 47o6 1 


uAF 

FCUR 

1449 

kEF 

3 

LAST 

It. i 

21, 261^6 

55*634 


12. 

) 5Ti TE 


ACAS: 

A r I 
Ai A5;*-2 
A{45 ' 3 


RESET HLLUFLAG TO iTuP AUTUHAiic 
STttkING ANC PREPARE TO PICK UP AU 

^rTTUnf HCT:B"ftFFET^t'^C't“ 

DECUUe DApbAfkl, DAPDATR2 FUR OEADiIaNDS 
RaTEG, qUADFAlLSf GUA3 HANAGFHt: .' I 


D ECODE 1AX> lAVG AND CQNyE RT 
VU AUTUPiLCl GAINS 


NC, LOCATICNG TO at ZEKUeD MINUS 2 

NOjT'jVAP must be odd *^***V'^*^'3tJfe** *- 


ZERO L AS I ~l r IKSl 1 uMt 


initialize HIrilMUM I H PULSE CONTROL 


INITIALIZE KHC POSITION ME.TORY FUR 
MANUAL RAT E MODES 

INITIALIZE SWnCHlNG LOGIC SLuPt. 


P'fl A SIT" kFSeTs tor' PH a ST Z T f .HTr RUFT Tn 

o. MSv PHASf 2 KlSL-TS F JR PHASE i KJPT 
IN iH US - TSTi I 4‘ MS) ) IHt ,<[ FORE 
PHASE 1 IRAI .-.Fin Ek) begins CYlLING 1Qi 
MS FROM NOW A iu LyERV Iw HS THhl>EAFr£K 


gap: as S £M d La i<j V I S! UN m CF PKfJmRAH ARTEMIS ttY N A>A_^<^iJ, 


L 

RCS- 

cSiS 

Ci&lTAL AUTOPILOT 

-■ - 




4^1 

KEF 

6 

LAST 

835 

;* 1 

3 4775 

u 


CAF 

C4S2 

REF 

4 

LAST 

l^J H 

21,26.j2 

55^* 6 i 7 

i 


TS 

A L 4S 3 










473 

REF 

21 

LAST 

!«.. 3 

Zi§ 2^tlw3 

3 . j32 

0 


CA 

C474 

REF 

4 

LAST 

1') ;:3 

2Tf26w4 

55 ’ 635 

1 


TS 

^ 475 

REF 

13 

LAST 

13 

21|2oij5 

3 C033 

1 


0 A 

476 

REF 

4 

LAST 

1 :3 

21,26C6 

55*636 

1 


T5 

477 

HEF 

17 

LAST 

It* w 3 

2i,26t 7 

3 v^l-34 

L: 


CA 

■'~47B 

“RTF 

■ AT 

' LAFT 

lOuJ 

— 21 f 26 1 C 

^5 ' 66 / 

■ 


f 5 

^4 / V 

REF 

174 

LAST 

1% 12 

21, 261 1 

3 47 7 2 

1 


CAF 

G48C 

REF 

i 1 

U 

LAST 

IG 10 

21,2ol2 

55* 464 

1 


TS 

048 1 

KEF 

31 

LAST 

1^'^^.'2 

21,2613 

4 1334 

y 

- 

G 6 

»:4a2 

REF 

6 

LAST 

1. .2 

21,2614 

7 4763 

/’I 

W 


MASK 


TTEF' 

2T9“ 

LAST 

1”TZ 

21, 2615 

li- JOO 




1464 

REF 

i 



Z If Z6X6 

1 2622 

1 


TCP 

v':485 

REF 

5 

uAST 

1 13 

21,2617 

55*617 

1 


TS 

0486 

REF 

1 



21,2620 

3 2635 

t . 

w 


CAF 

0487 

B EF 

1 



21, 2o2 1 

1 2627 

1 


rcp 

A 0488 










J439 

REF 

2 

LAST 

1- i4 

21, 2622 

3 765o 

•f" 

IMUAOK 

i# AP 

C49 J 

REF 

2u 

LAST 

1UU4 

21,2623 

• 5121 

f 


TO 

L4S1 

REF 

2.J 

LAST 

IOU'6 

c 6 , 131C 




EbANK= 

C402 

REF 

2 

LAST 

1004 

21,2o24 

0356'.: 

1 


2CADR 

t492 





21,2625 

44366 

1 



“7.:7r93^ 

RTF 

1 



^~2T»~ZiyIE~ 

3 4?S6 

1 


CAF 

'494 

REF 

31 

LAST 

1 0 1 0 

21, 2627 

55*5^ 1 

IdT 

KCSSWIT 

TS 

AC495 










A l4S(6 










C497 

REF 

1 



21,263C 

3 

‘ ^ 


LAP 

A 049 6 










A C4a'9 










05.;^.' 

REF 

19 

LAST 

10 Iw 

21,2631 

54 33 ^ 

1 

W 


T j 

.5.1 

REF 

33 

LAST 

ICin 

21,2632 

- 5323 

0 


TC 

AO 5 .2 










A 0503 

- 










R 5' 4 CCNSTAMS USED IN INl T I ALIZ ATI UN PROGRAM 


5 ■ / 5 

21,2633 yii >43 C 

NOo TSVaK 

□ £ L 

A 0 50 51 
R< 5052 

R * ■ 5 V 53 

FOR AN EVEN NUMBcR OF VARIABLE'S TO BE ZEROEu-.** 

♦ SET NC.TSVAK EUUAL TO NUMdEK OF VARIABLES MINUS 1 

K 

K A- 5 j 5 5 

t 5u6 

^ DD’ oXCH WdODY INS lEAD OF WdUUY ■»- 1 
^ DELETE TS HBOCY 

21,2634 '‘75^4 1 

= •24 

UEC 

L 5 .a 

REF 4. LAST 1.7 4766 

RCSINII 

= 

E 5-: 1 

21,^:655 20004 1 

RC S I i. 1 i J 

JCT 


il:4 FCB. 26fl371 ULYSScS 




PAGE lJi3 


USEK*S PAGE NU« 14 L6 SJ 


ELE^/ciJ 

ATTKAlmN ■ T^t'SCT TO PICX UP KALMAN FILTEK GaI 

TU INITIALIZE THE S/C ANGULAR F ATEU 


COUX 

KHU 


CDUY 

RHUl 

CDUZ 


HHU2 

ZERO 

TSPtfASE ■ 

RESET AUTlPILuT TO BEGIN EXECUTii%G 
PHA5E2 UF PROGRAM 

- 

I MQl)ES^3 

NO! MUUAP 

CHECK IMU STATUS 

IF blT6 =C IMU IN FINE ALIGN 


A 

IMUAOK 

ATT K ALHN 

H C^I NI T D 
HCSSWIT' 

^ ITHLrNDT R'EADT 

CANNOT USE IMU 

PROVIDE FREE CONTROL ONLY 

DONT START UP RATE FILTER " 

SIGNAL NO RATE FILTER 

- 

PR10-i4 

NJVAC 

KMPAC 

akgguput 

START MATRIX INITIALIZATION 

UYPASS IF IMU NOT IN FINE TtLlGN 

, — _ — ... 

^.csiwir" 

kC iF LAu S 

TSWAIToi. 

CLEAR (3 1114 ^ASSUME WL HAVt A GOl'O 
CLEAR blTl -INITIALIZE To PROGRAM 
SET 61T3 -INITIALIZE NEEDLES 
CLEAR B1T4 -RESET FOR FOAiUSPl 

NEXT T5KUFT 60 MS FROM NOW TuALLOW 
ERROR COUNTER TO ZERG« 

pro 

TMO " 

I I IL6 

L jU ME 

n^INXmjM^JtLTn^s: it> M3X 

SINCE ATTKALMN IS +11, PRUGkArt nlLL THEN 

PICK UP IbE KALMAN FILTER GAFo<. RATE 


FILTER WILL bEGiN LPtRATING ZOOMS FROM 
NuW 




33 


NO, QF LOCATIONS FC dE ZEROED 
MINUS 2.. « MUST OE DOD 


^4 

cl 1 3 


SLOPE OF 


•6/SEC 


P/'Gt 1.14 
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ULYSStS 


L RCS-CdM CiblTAL AUTbPlLOT 


USER'S PAGE NO, 15 fc6 S3 


r ^ O 

P 1 1 y 






2it2636 

37772 

1 

13RA1 r6i- 

UcL 

ICl J 7 d 


CS 




REF 

21 

LAST 

1. 13 

1 6 f 1 3 1 w 




c3ANK= 

KMPAC 




' 511 


REF 

1 



Z1 f Zo J 7 

036 - 6 

1 

T6ADDK 

2CADR 

T biiT AkI 




bli 


R er ■ 

L 



21* 264 C 

^6v ^6 

1 







' 3 1 i: 






21,2041 

62524 

0 

“75ut bS 

DEC 

— o 4l66o 

-73 

DECS IN LEVS - 2 


5 Jl 

Ll 

H EF 

1 

LAST 

1' 13 

21,2642 

3 4773 

fY 

ZERUJ E r 

CAF 

ELEVEN 

ZERO 

BLAST2, 3LAST1, 

BLAST , VW0RD2, 

510 

02+HEF 


LAST 

!«.- 12 

21, 2643 

3 3 * 5U6 

i 

+1 

TS 

SFnU X 

YWURUl ,PWLRD2, PWORDl, 

RW0RD2, 


<.3“ 

HFF' 

TTS’ 

~rKST 

Ton 

21, 2u44 

“r"47TZ 



CAF 

zEku 

AND 

ITWDKOl^ 


'.530 

C4 

REF 

2Z 

LAST 

1014 

21 ,2643 

31* 3J6 

0 


INDEX 

SPNCX 




' 33 G 

C5 

REF 

1 

last 

It 7 

21,2646 

33 * 45b 

U 


TS 

RriJKDi 




0 53'.. 

C 6 

REF 

23 

LAST 

1 14 

2i,2o47 

11*536 

1 


CCS 

SPNUX 





3 -V C 7 

REF 

ti 

LAST 

1'.- i 2 

21,2650 

i 2643 

iJ 

TCP 

ZitkOJET +1 


' 53 .l8 

REF 

13 

LAST 

ic 1 2 

21, 2651 

3 4766 

1 

CAF 

FOUR 


tbJ . C<5 

REF 

iL 

LAST 

1 ^ 7 

21,2652 

55*461 

1 

T3 

LLAiTi +1 


v53‘- 1 

'B E F 

6 

L AST 

1 a4 

21,2653 

3 4775 

C 

CAF 

ELtVEN 


:33i 

PEF 

2 

last 

1 7 

21,2654 

55 * 463 

1 

TS 

eLAST2 +1 

— 

,532 

REF 

56 

LAST 

993 

21,2655 

4 477b 

1 

CS 

BlTl 


0533 

REF 

32 

LAST 

hi 1 J 

21^^656 

7 15ol 


MA 

RCSPLAoS 


0534 

REF 

33 

last 

1» 14 

21,2657 

55* 5u'l 

1. 

TS 

PX5 FL AbS 

RESET BIT! OF RCSFLAv^S TLJ 

' 535 





21, 2o6w 

0 00 U 6 

1 

EXTENu 



t 536 

REF 

i 



21, 266 1 

i Zo4 

i 

DCA 

r 6 aUiJK 


C 537 

REF 

3 

LAST 

J V 3 

21,2662 

52 Hi 

1 

DXCH 

ToLUC 


o5‘3‘B" 

“REF 

1 



IXVI^ST- 

5 3*67 5 


L 

-+ i4NS 

ENASlE TbRliF^ TD ShUK OFF JtTS Ifs 14 

05383. 

REF 

3 

LAST 

993 

21,2664 

54 '<31 

1 

TS 

1 A H E o 


0 53e5 





21 , 2665 

J 0 j 0 6 

i 

cXl ENi) 



0 5386 

KEF 

26 

LAST 

332 

21, 4:666 

22 b7w 

1 

15 

wxcri 

PUP i RE 61 


'' 53 8 7 

ttEF 

2 

L AS r 

392 

2i f Zo67 

0 4542 

V> 

Tc 

Cl J stall 


0 540. 

REF 

37 

LAST 

luC'O 

21,267C 

3 4752 

0 

CAF 

cl 115 


“1541“ 





~~2T,'ZS7T~ 

“iTTxJDF 

i 

EXTEND 



’ 542 

REF 

li. 

LAST 

994 

21,267 2 

-5 oii 

1 

1 i 

MuR 

CHA<*dl3 


-543 

REF 

27 

LAST 

1 14 

21,2673 

U CiJ7-5 

1 

tJ 

TC 

RUPTKE61 


C544 

REF 

6 

last 

1 13 

21,2674 

11*017 

1 

T5PHASE2 CCS 

Ai IKALMN 

IF (+» INITIALIZE RATE ESTIMATE 

{' 543 

REF 

- 



21,26 75 

1 3 1 7 1 

C 

ICF 

kalOput 


C546 





Z1 f Z67 6 

1 2 7ub 

b 

TCP 

+ z 

CNLY IP ATI KALMN POSITIVE 

C547 





21,2677 

1 Z 7 J J 

J 

TCP 

+ 1 


548 

REF 

2 

LAST 

1- .1 

Z 1 # Z 7 C w 

3 7663 

\j 

CA 

LtiLrATr2 

REoLl FOR PhASe3 IR 2* NS 

f 549 

KEF 

2^ 

LAST 

io 13 

2 i , 2T7r 

$6 i/Jv 

i 

xlh 

t i liL 5 

- sEirm CNTxxnx i ' 

:55U 

KEF 

4 

LAST 

1 12 

21,27.2 

27* 634 

w 

AUS 

Full 

TU COMPENSATE FUR DELAYS IN T5RUPT 

i 5 56 Cl 

REF 

18 

LAST 

1013 

21,2703 

1C 3 34 

1 

CCS 

CDJZ 



r 




t VISI ON * IZ L F AjC PROuRAiM AKTEH IS by NA::> A Zu Zill^-.il i 
L RCS-CSi>\ LIGITAL AOTuPILUl 


i 53‘ 

REF 

1 



21,2764 

1 271 <- 

1 


TOP 

G1M3V 

155' 03 

REF 

1 



21,2705 

1 2717 

W 


TCP 

CKGIMd 

».55‘.'f A 

REF 


LAST 

1U15 

21,27U6 

1 2710 

1 


TCP 

GIpDV 

rssrcs 

T^EF 

2 

ra^T 

T>Tr5 

TITITC'T” 

I~r717 



TCF 

CKu I iHb 

,55^ C 6 

REF 

1 



2l,271t 

6 2641 

\J 

GIM8Y 

Au 

^ 73u u03 

Kb5 <7 





21,2711 

J uL'Ju 

1 


tXTEND 


V 55 r ( d 

REF 

3 

LAST 

IL 1 5 

21,2712 

6 2717 

1 


(32 MiF 

0i\3 1 M3 

l55 ^09 

REF 

66 

LAST 

833 

21,2713 

J 5 !3 4 7 

1 


TC 

UPFLAb 

" r35^T“ 

TTFF- 


“ L AST 

”537 

2 i 1 27 i ^ 


'c- 


aOkEs 

3 1 1 K F L A b 

t55» 11 

REF 

1 ?o 

LAST 

i'J 14 

21,2715 

3 4772 

1 


CAP 

ZuKO 

V 55C 12 

REF 

13 

LAST 

1012 

21,2716 

55*34:. 



TS 

HQLDFL AG 

' 55V 13 

REF 

34 

LAST 

1014 

21,2717 

3 1501 

1 

LKGlMcJ 

LA 

hcsflags 

:55 2 

KEF 

38 

LAST 

1014 

21, 27^:.. 

7 4732 

1 


MASK 

dlTlS 

■ 05503- 





2TT2T2T 

tf 00 U 6 

1 


t XTEND 


C55:4 

REF 

1 



21,2722 

1 2724 

u 


8ZF 

IMUHIAUTU 

''550 5 

REF 

97 

LAST 

1012 

21,2723 

4 47 7 u 

1 


c s 

CNc 

i 55 6 

REF 

7 

i_AST 

1 14 

21,2724 

55* 617 

1 

KOHIAUTO 

TS 

At 1 KALMiV 


0 


1 


i 
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t 

)» 

-N 
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ATTITUDE HOLD WHEN MIDDLE GIM8AL ANGLE 
‘GRtAlER IHAN /S' UEGRbbS 


IF A HIGH R Alt AUTO MANEUVbR IS IN 
PROGRESS (BIT 15 OF RtSFLAGS SETJi SET 

AVIRALHTTTC"^ 

OTHERWISE SET ATTKALMN TO = 


gap; 

ASSEMBLE K 

.-VISION .)72 

OF AbC PRO 

GRAM ARTEMIS dY 

NASA Zl'ZaA 

L 

RCS- 

CSM 

LloITAL AUTDFiLui 




P SSI 



MANUAL ROTATION COMMANDS 



552 

REF 

1 



21,2725 

4 3l37 

1 

Cd 


REF 

3d 

LAST 

115 

21,2726 

7 i5Jl 


MASK 

l5"54" 

~R?f 

36 

lXST 

ic 16 

21,2727 

55* 5ci 

6 

Td 

C555 





21,273.i 


1 

£ XTENu 

^ 55 o 

K tF 


LAST 

737 

21,2731 

uu u3 i 

1 

■wi 

READ 

C 55 7 

HEP 

95 

LAST 

1012 

Z 1 f Z7 3Z 

34 Lr U 1 

1 

TS 

* 55b 

REF 

3 

CAST 

iv 12 

21,2733 

3 1632 

1 

CA 

l55 5 





Z i f 73 ^ 

0 LG ('6 

1 

extend 

CSo" 

REF 

11 

LAST 

273 

21,2735 
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"LAsr 


TLT73v3-«r 

1 3Z6j 

1 

TCF ~ 

"RDLL'Tl FTC 


JET SELECTION LOGIC 

TABLE LOOK UP BOR bO Z- TH ANSL AT lUU WITH ANu WIThUUT REAL bO JU 
IBLt Ai long AS ROLL CUMHANLS CAN BE SATISFIED WITH THE AC ROLL JETSe 
CC^^MANOS = r (WITH 2-1 K ANSL AT I ON ) AND IE TAU = Of THEN INCLUDE THE BD 2 
'ROLL CCMPANE) = ^/"RRD'TF TSTTTJZT^THEN'TGNDRtn'Hc bCT I-rOTKITlTTCTi^ — ^ 


REF 

6 

LAST 

lu4 ; 

17,2776 

11*627 

1 

CCS 

KbUFAlL 

REF 

37 

LAST 

1039 

17,2777 

3 6214 

1 

Iw 

CAF 

1 HKEt 





17,3CCC 

1 30. .'2 

1 

TCF 

+2 

REF 

25 

LAST 

1009 

17,3001 

3 6211 

1 

4 t 

CAF 

SIX 




4^ FEBo 26, 1971 ULYSSES .029 PAGE 1043 

USER'S PAGE NCa 6 ii6 S3 

D FAILURESo Z-TRANSL ATI ON WILL BE P05S- 
CRITERIONoa IF THE resultant NEI ROLL 

TRANSLATICN CDMMANDS^ IF THE RESULTANT 


= 3417 ocr 

ADD TO ROLL CUMMANOS 

TF FDSS TBL'E: WU5 r~C H E CK ' T AU FTRS T 


DElfeRHINd THE Nt! ROLL COMMAND WITH 
2-T R A NS L AT I ON SOTJ ED 0 N ' 

NET NO. OF +,- ROLL JETS ON 


Z-TRANSLATION ACCEPTEO EVEN THO HE MAY 
HAVE INTkOCUCED AN UNDESIREABLE ROLL 

BRANCH TG JET ON-TIME CALCULATIONS 


2-TRANSLATION NOT ACCEPTED 


BRANCTT JO JET’UN-TTRE' CarCOLTTrTTJN 
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P 221 6C QUAD SELECTION FOR ROLL CUMMANUS 


1 222 

REF 

7 

LAST 

1U43 

i 7 I 3 3 

11*627 

1 

fcOKULL 

CCS 

K JUFAi L 


■ 22 3 

■ref 

1 



i 7 f 3 u 3 6 

1 3u42 

\ 

U 


TCP 

RBFAIL 


224 

REF 

1 



i 7 f 3^;^ ^ 1 

1 3 j4o 

1 


TCP 

RZXLNS 


u225 

R tf 

1 



LI 9 3u4U 

i 3 44 

0/ 


TCP 

PDFAIL 


i226 

REF 

2 

LAST 

i c' 4 4 

i7,3o41 

i 3J46 

1 


ICF 

RZXLNS 


C22 7 

REF 

3 

LAST 

1 'fi 

17,3042 

3 4322 

6 

RBFaIL 

C A F 

KiNL 


L22E 

REF 

i 



17,3-43 

1 305 

i\ 

} 


TCF 

fAB^ZCHU 


C22C 

R ET" 

o 

u 

< 

1 

1 

10 42 

17,3044 

3^5773 1 

RDFaI L 

C AF 

TWtL VL 


V.231 

REF 

2 

LAST 

10 44 

17, 3o45 

1 305. 



rcF 

TAaKZCMD 

- - — _ _ . 

i. 23 i 

REF 

6 

LAST 

1C 43 

17 , 30146 

5 1 * !> i 6 

1 

RZXLNS 

1 i\i>EX 

ZNDX 

NO BD FAILURES 

0232 

REF 

4 

LAST 

1042 

17,30^7 

3 2647 

ij 


CA 

XLNNOX 

Z-TRANSLATION PRESENT 

n233 

hEF 

4 

LAST 

1042 

17,3050 

6 1517 


TABKZCMU 

AD 

RINDtX 


234 

REF 

23 : 

LAST 

1C 43 

1 7 , 3 L'5 1 

5U OO’.. 

L 


INDEX 

A 



REF 

2 

LAST 

1 42 

17,3052 

3 3117 

U 


CA 

R FAbLh 


023 6 

REF 

1 



17,3u53 

7 3137 

J 


MASK 

BDRJ Lib 

^ 3417 OCT 

123 i 

REF 

7 

LAST 

10 43 

17 ,3354 

5 5 ' 45 V 

J 


TS 

RWGRui 

■ 

'.’23 8 

REF 

6 

LAST 

If 4 2 

17,3j55 

3 1515 

1 

ACY CHECK 

L A 

V.T3X 

ANY Y-TRANSLAT ION 

' 23S 





17,3u56 

U CU 06 

1 


EXTEND 



024!'- 

REF 

1 



I7,3v57 

1 3111 

1 


jZF 

N0AC7 

NO Y* TRANS LAT Ion 

v241 

REF 

7 

LAST 

10 42 

1 7 f - 

11*626 

w 


CCS 

RACF AIL 


C 242 

REF 

33 

LAST 

1043 

1 7 i i - 6 1 

3 6214 

L 


CAF 

three 


0243 





17, 3 j62 

1 30 64 

1 


TCP 

tz 


C244 

REF 

4 LO 

LAST 

lw43 

17 f Jvy63 

3 6211 

< ; 


CAF 

SIX 


C24 5 

REF 

1 

LAST 

I'' 44 

17,3364 

51*515 

i" 


l7iUE.K 

VmDX 


1^2^ o 

REF 

2 

LAST 

10 43 

17,3v65 

0 Z7 6- 

i 


AD 

XLl'UNDX 


<-247 

REF 

231 

LAST 

1g44 

1 7 f ^ jo 6 

U 0 - 

1 


INDEX 

A 


•:^4 6 

REF 

2 

LAST 

1043 

17,3 :67 

3 314*- 

1 


CA 

YZTABLl 


:;24sr 

REF 

1 



17, 3*. 7'v, 

7 3152 



MAbK 

ACYJElo 

= it 43 6 C OCT 

t 2G'- 

REF 

a 

LAST 

10 44 

17,:>o7i 

6 1430 

i 


AO 

RHUKDI 



"RIF 

~3S~ 

"OTT 


""rTr3oT2"' 

- 5 - 5 - 15 - 2 ' 

f 1 


TO 

15 TEMP' 


.252 





1 7 f 3 vj« 7 ^ 

-7 

1 


oXTEND 


FOR EXPLANATION SEE COOING ON RTABLE 

^25 3 

REF 

32 

LAST 

121 

1 ?,3o74 

7 4765 

k. 


MP 

■8114 ■ 


C254 

REF 

2 

LAST 

I 43 

17,3075 

6 6 6 1 

V# 


AO 



v255 

REF 

4 

LAST 

it-' 4 3 

1 ? f 3 7 

55*522 



Ts 

NRJ LT cd 

NQ„ OF NET ROLL JETS 

C256 





17,307 7 

u id J J 6 

1 


t.XT£lMu 



^ <2 5 7 

REF 

i 



— 17, 'me ■ 

X31-f4 

J 


~^Zf~ 

IAjChCK 

IF NRJfclS = 

C25b 

REF 

36 

LAST 

1044 

17,31 1 

3 15-2 

1 

eORACZ 

CA 

f r 1: 

Y-TRANSLATION ACCEPTED 

r259 

REF 

Q 

LAST 

1044 

17, :)1- 2 

55* 45 . 



T^ 

R.iUisOl 


026' 

REF 

3 

LAST 

1 0 4 3 

17,31. 3 

i 32C3 

1 


TCF 

Roll 11 ME 

OKANCH TO JET ON-TIME CALCULATIONS 

261 

KEF 

6 

LAST 

1<)43 

17,3104 

11*561 

* 

TAUCHCK 

CCS 

TAJ 


02o2 

REF 

2 

LAST 

1 44 

17, 31l 5 

1 3111 

1 



;\0AC7 


C263 

KEF 

1 



i7 f ^i.L6 

i 310 1 

> 


TCF 

BDRACZ 


0264 

REF 

3 

LAST 

10 44 

17,3107 

i 3111 

1 


TCF 

NC AC / 


- 265 

REF 

2 

LAST 

1< 44 

17, 3 lie 

1 31.1 



TCF 

BCK A cZ 
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C^66 REF 1' LAST 1044 17,3111 3 i4&y 1 NQACY CA RWGROl y-TRANSLAT ION NUT ACCEPTED 

L2o 7 i7,3ii:2 J (fC.6 1 EXTEND 

C26b REF 33 LAST 1G44 17,3113 7 4765 0 ^ MP 8114 

^260 ref 2 — CAST rc 43 “ 17 , 3 1 14“ 6~77irnj ^^'SD ^'Z — — — 

u27L‘ REF 5 LAST 1044 17,3115 55*524 1 TS NRJuTS 

r271 REF 4 LAST 1C44 17,3116 1 3263 1 TCF ROLLflKE 
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JET SELECTION LOGIC 


USER'S PAGE NO 


:■ G 


S3 


K . 27 2 


TABLE FOR HULL, Y AND Z-TKA^4S LAT ION COMMANDS 


H ' 2. f 3 

R< 277 
K' 27 B 
R< 2B^’ 

K'.zaz 

RC283 

RvZM 


EITHER AC OR 60 HELL 3AV BE SELtCTEU. IF AC ROLL IS SELECTEOi Y-TRANSLAT IONS MAY BE SATlSFlEi, SIMULT .NEOUSLY 
PROWUEO THAT 'THERE ARE NO AC QUAD FAILURES* lf~ THERE ARE AC FAILURES, Y-TP. AN SLAT I ON COMMANDS vJIlL GE iGKOftEu, 

IN rtHlCh CASE THE ASTRONAUT SHOULD SWITCH TO 30 ROLL. 

IF aORJLL IS SELECTEUf Z-T RANSL AT IONS HAY BE SATISFItC SIMULTANEOUSLY PROVIDED THAT THERE A.^F NO BD ^uAD 
FAILURES* IF THERE ARE 6U FAILURES, Z-TK ANSLATi ON COMMANDS WILL dE IGNORED, IN WHICH CASE THE ASTRONAUT StsuULD 
SWITCH TG AC ROLL, 

NUTE THAT IF ONE CUAO FAILS (E.G* 3 FAIL ED i, Z-TKANSLAnON IS STILL PCSSlBLE AND THaT THE UNuESIREABLE ROLL 
INTPtJOUCED BY THIT TRANSLAT I ON WI LL BE CCKPEN^ATEU BY THi TwO AC ROLL JETs ACYUATED BY THE ADTOPlLdl LtjGTT; 


RC237 


WORD MAKE UP • , . ,RT A tiLt 


Rg28 8 
RC29C 

TTU^TT 

Kr293 


TWO 
ING TO 


WCRDS, CQRRESFDNDING TO AC OR BD RC(_L SELECTION, HAVE bELi4 COMBINED INTO ONE TABLE 
AC ROLL HAS THE FOLLOWING INTERPRETATI UN, « 

, 11 Ak£'TDDED 'T13' Gl i<Oll~^moLlE''Fm< THr woW SbL ECTEl^T' 

BIT NOo 11 lu 9 NUo CF ROLL JETS 


THh WORD C^RKl-SPONU- 


rrs: 


11 






>T - 


■ V 


KC294 

Rt29S 

RC296 

’ -9^ 

V 

L. L 

G 1 

1 V 


-2 

-1 

b "■ 

K-'* 


- 

- - - - 

— • — - _ _ . _ _ — 

» 

R';2‘57 

T 

1 1 


+ 1 






R 2 5 

1 

U C 








RC299 

THIS WORD MAY THEN BE AUDED TG THE 

: WORD SELECTED FROM 

THc YZ-Tk ANSLATICN 

TABLE, WHICH 

HAS THE Same TYPE OF 


R OBO 1 

CODING AS AbOVE, AND THE NET 

ROLL DETERMINED BY SHIFTING 

THE RESULTANT 

WORD 

RIGHT 8 PL AC 

trS AND SUB tract ING FOUR, 


R C 303 

THE WORD CORRESPONDING TO 

BD aQLL 

HAS 

A SI Ml LIAR iNTc 

RPRETATICN, EXCEPT THhT BITS 12, 

13, 14 ARE CODED 


Rc3t5 

tAS ABCVcl TO GIVE THE NET ROLL TURjUEo 






> 

A t 6 






ROLL 

TRANS OUADFAIl BIAS 


3-7 

17, ->117 

llGOO 

1 

RTABLE OCT 

1 icuc 





V.3G 3 

17 f 31 

22125 

1 

3CT 

22125 





r3'. 9 

17,3121 

v'; 252 

1 

uCT 

: 252 

-- 


' 


v31( 

17, 3122 

ii2ji 

1 

OCT 

11231 

r 

< 

+Y (+Z> 

Si 

J 


C3il 

17,3123 

15421 

1 

OCT 

1 54Z i 


+Y(+Z1 

3 


<312 

17,3124 

Oj46i 

1 

Oot 

^ Li) 

— 

+YT+Z1 

3 


<:313 

LT f 3 1 21 5 

11 14 o 

1 

OCT 

11146 

1 

-Y (-2) 

6 


l314 

17 f J 1 Z 6 

155 -9 

1 

UCl 

15:? 4 


-Y(-2j 

6 


9315 

17,31^^7 

'u4442 

1 

UCT 

4442 

— 

-Y t-ZI 

b 

( . 

(316 

1 7 1 ^ 1 ^ 'tx' 

1 l^J w 

1 

DC r 

ill, 

0 


A { li ) 7 


'317 

17,3131 

15504 

1 

OCT 

155^4 

+ 


A ( B ) 9 


313 


C4S^J, p 

1 

ucr 

^ 46 1 J 



ATB ) 


.319 

17,31^3 

IICOJ 

1 

jCT 


r 


C(D) 12 


V ^32 r. 

i7,-il34 

15421 

1 

OCT 

15421 

'1* 


C(D) 12 


0321 

17,3135 

v4442 

1 

OC I 

■ 4442 

— 


ClD) 12 



0 
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L JET SELECTION LOGIL 


USER'S PAGE NO* 1 


Rr'J22 ktable masks - 

(?323 17,3136 03760 0 ACRJETS OCT .376u 

-“X324 “ IT,3137 i4Dl7"U EBRJETS^TJCT 34Tr7 


* 








* 





¥ 


BSS^. • - 






3 £ 


10 


f 


r 




7 





» 




5 - - . 






4 




3 




> 



i . ‘ 



> ■ y*' ‘ 






J -»-• •+- — - 


.» ♦ * 


' k 

'4 







T 


I 


* • 


9 


_:,vc 


I 


J m 


EMBLt. OF AviL PftOu.KAM A KTb HIS BY i^ ASA Z 2illA- 11 


li;4 FlB. z£6»I97I jLYSShS . ^9 t>A6£ li48 


L JET SELECTION LUbIC USER/S l AGE NO li _^6_S-r 

Y, Z TRANSLATiON TAbLE 


R'E3j26 
RLSZ'fc 
KC33i 
R 332 
Kt 33A 
K':336 
fi -338 

RL34I 
k '’343 


CNCE AC Ol^BO I^LL U SELECTED THE QUAD PAIR »^HICH IS NOT BEING USED TO SATI SFY TH- ; (jLl CONMA NQS MAY 

THAI koLL GOMMA. O'* 


USED to SATIS 
WHEN THEY OCC 
CCMBINEO -^OkO 
CCUNTER SIMUL 
TU FACILIT 
ABOVE, 

S^ S t ib f 


FY THE REMAINING TRANSLATION COMMANDjo HUWeVER, kb MUST MAKE SURE 
UR. THEREFQREt THE Y-Z TRANsLATICNS FROM This TAbLE WILL 3E IGNORED IF THE 
IS ZERO AND THE ROLL COMMANDS ARE NUN-ZEKO, THIS SITUATiCN WDJLU CCCUR, l-i 
TANEOUS +R +Y -I COMMANDS AND A UUAD D FAILURE WHILE USING AC FOR KOLL 
ATE THE LOGIC, THE Y-Z TRANSLATION TABLE HAS bEEN CODED IN A MANNER SlMILiA 


AK E ST 


ij b 

fTTF I L j 


.Stl RiJLL TORuUE bf THE 
R EXAMPt Lf Ih wE L_ ! I"" 




I H 


L. 


KULL" TABLE 


TT 


Nti I^LT' TORdITE XlTCJR'R'tD BY I^nTOTSTmTOTTS- — TRI ' WDTTCT’S Ft t l T E L CAM i H E N B E 
THE RESULTANT ROLL TORgUE DcTERMINED FROM THE COMBINED WuRL . jiMlLlAKLY EITj 


ACDEO TO 
12,13,14 ARE 


AC-KGLL WORD AND 
CODED TO GIVE THE NET ROLL TOHUDE 


INCURRED BY Y-TrANSLATIONS WHE~N BD-RiJLI IS SELECT E 


\ * 


A' 345 TRANSLATION bU AGFA II BIaS 


.346 

L347 

034 3 

C349 

C35b 

L351 

17 , 3i4«. 

17.3141 

17.3142 

17.3143 

17.3144 

17.3145 

1 1 w V 

11231 
1114ti 
liUL . 

C46l0 

155D4 

1 YZTABLE 
1 

1 

1 

1 

1 

DC T 
OCT 

DC 1 
b C T 
UCi 
DC! 

ll^w. 

11231 

11146 

li;w. 

V 4610 

15504 

1 

+Z(+Y) 

-Z(-Y} 

4 

+zi+Yr 

-Z(-Y> 

B< A) 

B{ AJ 
' ' I A ) 


0352 

17 1 3146 

llu 

1 

OCT 

1 1 J - <•' 


DTCT 

t 

; 353 

17,3147 

15421 

1 

uCT 

15421 

+ ZI +Y J 

D ( C I 

£. 

.354 

17,3150 

' i 4 4 42 

1 

JOT 

. 4442 

-Z(-Yi 

DtCJ 

6 


R 355 YZ-TABLE MASKS- 


356 

'357 




17.3151 bS41 Y < 

17.3152 3436. 

EJZJETS 

ACYJETS 

QCT 

UCT 

b34i7 
3436 j 

Rt35C 



ADDITIONAL 

CONSTANTS 



- 

( 35 - 

REF 

a 

LAST 957 

77 V 1 

=-2 


NEG2 

i 3di 

— kEF 

I” 


6 61 



NEG4 
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JET SELECTION LOGIC 


USER'S PAGu 12 


O J J 


Pt361 


UrtLCULATiUN OF Jtl ON-TIMfcS 


R . 362 
“R C 364 
R ■ 36 6 
Rt36o 
K 369 
371 
K^372 
'-11X374 
RC373 
RC377 
KC379 
R0381 
R0383 
— FTCSF? 


THE XGTAIION CCMMA.NJS trAU;S)f WHICH WEKt UETEKMINcU FriOH THE J i. I SWIlu-HlNG LOGIC Ovvi THE BASIS uh JLT 

C F EPAT 1 CN7 WST UPmTYIT'BTTHE' ACT jAr~NUHBFR:"IjF~jrTS TO 6t OTTTT Tr~S7X"IS7YlTvT;n'Rt3X“LDM'f^A rV.U iTUTI 

ALSC BE OECREMENTEU ACCOmTING TO THE EXPECTEU TQRsiUE GENERATED BY THil Ol*. COMMANDS ACTING GVfcR THE NLaT IS INT- 
ERVAL. ■' - - _ 

IN UKDcK TO MAINTAIN ACCURATE KNOWLEDGE OF VEHICLE ANGULAR RATEot Wl. FU^T ALSO PROVIDE tXPECTEO FiK.i iG i IMES 
(DFT:St ALSO IN TERMS OF i-JET OPERATION) FOR THE RATE FILTER* 

NOTE THAT TRANSLATIONS CAN PRODUCE ROTATIONS EVEN THOUGH NO KoTmI IONS WERE CALLED FORc NEV ; , ( H5L r S S, Wc. MUST 
OF tTATETIFT; ^ ' ' 


WHEN THE KQTATIGNS HAVE FINISHED# WE MUST PROVIDE CHANNEL iNFUK.iMilON To FHL T6 PROGRAM lU oONTINUE ON WITH 
THE TRAN5LATI CNS* THIS WILL HE DONE IN THE NEXT SECTION^ HOWEVE.^, TO INSUPr THAT JETS" AKE NOr FiriEC FOT< lEST”' 
THAN A MINIMUM IMPULSE t i4MS ) # ALL JET CHANNEL CUMMANO^ WILL 6u HLLu FIaED FROM THE START CF TiR TS PRuGRAM FOR 
ATLEA5T 14MS UNTIL THEE INI T I All Z ATI ON^ OF NEw COMMANDS, MORtOVcKt A I'tNS ON-riFrE WILL-BE' ADDED' T'J AMY T<OTA f 1 ONAL 
CCMMANDS ijENERATED BY THE MANUAL CONTROLS OR THE JET SWIICHING LUolC# AND ALL TRANSLATION COMMA' D'. WILL RE 
ACTIVE FCR' ATLTA'Sr UNE CVCLE OF TH£T5~PFnGR7rRT iXSEC ) 


R':326 



PITCH 

JET 

uN-TlME CALLULAUQN 



L387 

REF 

4 

LAST 

1639 

17,3153 

11*562 


PITCHTIM CCS 

TAOl 

TB8 

REF 

1 



17,3154 

1 3 Id3 

1 

TCF 

FI AUPOS 

' T3S1J 





~17,31b"b‘ 

“ir^T57 

6 

"TCF 

+ 2 

L39G 

REF 

1 



17 , 31 

1 31 o 1 

i ^ 

TCF 

p Tm U 1 4u u 

0391 

KEF 

2 

LAST 

112 

17,^157 

55* 5d’j 

1 

fS 

CFIT 

0302 

REF 

1 



17,316'. 

1 336 1 

1 

TCF 

P 3YP ajA 

( 39 3 

REF 

3 

LAST 

104u 

17,3161 

4 1523 

u 

PTAUNEG CS 

NPJtTS 

c394 

REF 

4 

last 

1049 

1 7 f 3 X 6> 

55* 523 

0 


KP JhT^ 

1.39 b 

REF 

b 

LAST 

1049 

17,3163 

3 l5o2 

1 

PTaUPQS ca 

TAUi 

C396 





17,3164 

\j 'J wi Li O 

I 

EX TEhO 


0397 

REF 

5 

LAST 

1049 

1 7 f J ib 5 

5 1523 

1 

INDEX 

NPJETS 

€398 

REF 

r 



17,3166 

7 33^2 

0 - 

MP 

NJt r 

C.399 

REF 

3 

LAST 

1014 

17,3167 

55*46^ 

U 

Ti 

bLASTl 

TTTT 

TTEF" 

~r 



1 7 r 3 1 7 

Q 3Z73 


AO 

X SEC# 

e4v-l 





17,3171 

u OOiJ b 

1 

cXTeNO 


^;4 '2 

REF 

1 



17,3172 

6 32 J 3 

0 

B2MF 

AJ14MSP 

y*' 3 

REF 

u 

LAST 

1049 

17, 3173 

5 1 ' 523 

1 

I NOE X 

NPJfc Tb 

4' 4 

REF 

1 



17,3174 

3 327v. 

1 

CA 

CrT rt Ax 

<.4w5 

REF 

3 

LAST 

1049 

17,3175 

55 * 55v 

1 

r b 

DrT i 

"4*6 





1 / f 3 1 T b 

“4 XOOiJ 

1 f 

COiM 


4j7 

REF 

b 

LAST 

1049 

17,3177 

27 * 5u2 


AD ^ 

TAJl 

■ 4 3 

REF 

1 



1 7 , 32 ; 

3 32 77 


CAF 

= + » 1 5 EC 

,4' 9 

REF 

A 

CAST 

1 ‘49 

17, 62 1 

55 ' 46\„ 


rs 

6 LA T 1 

'41 

R cF 

r 



17,32l2 

1 3346 

1 

TCl 

AS MdLW P 

A. 411 











~R£F' 


LAST 

1C4'9 

“nt7,32CT 

4 T4oa 

► 

ADi4M3P Lo 

3 Lx A !:> T 1 

1,4 i 3 

REF 

2 

LAST 

lv>33 

1 7 ,3264 

o 33w2 


AO 

= i4M J 

C414 





17,32^.5 

J '00U6 

1 

E X T E NO 


C4lb 

EF 

1 



17,32.6 

o 3211 


3ZMF 

P dL A > 1 U K 

C416 

REF 

3 

last 

1049 

17,32 7 

3 3 3 2 

- 

wAF 

= i4M> 


NO FI iLh ROTAi I iJ.\ 
COMMANDS 


ih: pitch cn-time IS OKeAT.-*:.. than .i sec 


U<^DAlt TAUl 

LIMIT the LENT H OF PITCH KuiATL:. 
COMMANDS TO i StC SO THAT ONLY 
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“BETA DOT TCDTi/ 1 B C = [ -TATRET* +“XA TRTL J TUDO/ 1 J T 
ALFAC jT TCDU = IwKEL * SB PHI DOT ) TLDU/ido 


\ 315 

REF 

2w 

LAST 

iL6L 

15,2314 

ZZ C»i6 

L 

ATTRATES LXLH 

BANK KU PI 

CONTINUE HERE VIA T5 




3lo 





15,2315 

E ( L‘ • j b 

1 

tXTENu 


TASK May BE 

SKIPPED AT RESTART 




317 

REF 

16 

LAST 

1060 

15,2316 

22 - l^ 

1 

gxcH 

QRUPT 






'318 


o 

C7v5T“ 

373 

13, z31 7 

3 L\jZ1 

IT 

Ca 

SIT 






C319 





1 ^ t ^ 

b J-.‘OUL 

1 

U JU6L c 







C32C 

REF 

2 

LAST 

117 

15, ^321 

55*623 

r. 

rs 

C>l7SAVt 






Ar321 









DUES NUT 

PROTECT lEMK, 

SO IN SPSIN/CQS 


- 

. - 

■ 322 

REF 

7 

L AST 

lv72 

15, <i342 

3 i7u2 


CA 

LKEL 






T323 ■ ' 


— - 

TTiST 

1066' 

15,2323 

"6“r6o5' 

•lj' 

AIT 

ALFA/ 16 1 






^32A 

KEF 

i 



15 ,2324 

J 2151 

u 

TL 

ANoUYCUR 






^325 

RFF 

7 

LAST 

10 73 

15 1 5 

55 * 665 

1 

TS 

ALFA/i jo 






=.326 

REF 

6 

LAST 

10 71 

1 :3 1 232 6 

C 5‘_i31 

1 

TC 

.3 PLUS 






■:327 

kEF 

2 

LAST 

116 

15,2327 

55 * 5bo 

i 

Tb 

C alF A 

CAL FA 





32 L 

REF 

21 

LAST 

115 

15,233.- 

55*735 


f S 

pHi our 







^ 32 3 




15 I -^53 1 

0 CO ) 6 

1 

4_xt end 



C 3 5 ‘j 

R£F 

7 

LAST i:7l 

15,2332 

7 17^1 

1 

I'lp 

PREL 


1 35 1 

KEF 

3 

LAST 1 73 

15,2333 

57* 7 j5 

1 

ALH 

Fhl DbT 

CA PkLL 

' '332 




i5,z334 

^ , u) 'v' O 

1 

cX T ENu 



c333 

REF 

6 

LAST lo72 

15, ^33 5 

7 1703 

{ 

HP 

F Kt: L 

CA RkEL 

— 

“kEF 


T:SST~“ ITT 

15,233^ 

55 ' ?*j4 

1 

TS 

“BnAODT" 


. 335 

R £r 

b 

L A 5 T 1 w 7 5 

15,2337 

-> 1 6o5 

.J 

Ca 

ALFA/ ioo 


033 b 

REF 

6 

L AbT 1'^ ? 1 

15, 234 L 

L 5 -f 6 1 

v_- 

IL 

SPjI N 


C337 

REF 

2 

LAST lib 

15,234 1 

55*5^7 


1 s 

b AL F A 

SINtALFA) 

T338 




15,2342 

ij 0 ^ u 6 

1 

EXT ENU 



0339 

REF 

7 

LAST io73 

15,2343 

7 1703 

0 

rtP 

RREL 

SA RREL 

1 34 

REF 

4 

LAST li 73 

1 5, 2344 

27'7Q5 

' t ^ 

AU3 

Pril^uT 

CB PHTDOT, SAVED. 

■ 341 

REF 

3 

LAST 1' 73 

15, 2345 

4 15w.7 


cs 

SALFA 


34Z 




15, ^346 

u L C 3 6 

1 

EXTEND 



■ 343 

REF 

8 

LTSTT0T3 

r5,2T47“ 

*T~1T0T 

“1 

W 

“FRmr' 


j4 4 

REF 

3 

LAST 1 73 

15,235. 

27*704 

1 


Uct AOoi 

SAVE BETAUOT 1 LOU/ 18: 

; 345 

REF 

7 

LAST l^:6b 

15, 4.^5 1 

Z 7 * 6 ^ 6 

1 

Al» S 

btTA/lo 

BETA DQNEo 

i. 346 

REF 

7 

LAST 1073 

15, 2352 

L 5061 

Vi 

TC 

1 ii 


*-^347 




lb, 2353 

L 00 06 

1 

c. aTENu 




■~k£F 

5 

TASr 1' 73 

T5V2'3I74 


i 


FRI u jT 

NEGLLCT CB iN Co FHir>LrT 

,349 

REF 

9 

last 1v7 3 

13,2355 

o 1 bo5 

0 


ALFA/i3 . 


C.35' 

REF 

2 

LAST 1* 73 

15, 2356 

U Zlb 1 


Tu 

ANGOVCuR 


3b 1 

K t F 


last 1^73 

15,2357 

55 ' 665 

i 

TS 

ALF.^/idL 

ALFA DUNE. 




C V liaUN.- -7ji 

UF AGC .PRu<.»RAli_.A, 

OCEMIS .8Y 

JlASA_i^2i 1 14- 11 

ll:4 FL-fi. 26,1971 ULYSSlS . 25 PAi.L 1.74 

i. 

CM FNIRY 

DIGITAL AUTCFILOT 





USER'S PAGE NO* 12 l o S3 

' J5Z 





15,236' 

% bjOw 

1 . 

CUM 



V 3 3 

REi- 

4 

LAST 

1.67 

10,2361 

6 l6.j3 

r 

AO 

ALFACUM 


V 3^4 

Rt¥ 

3 

LAST 

1 73 

i 5 i ^ J62 

u 2151 


TL 

AIH6 g vcur 

JUSr IN CASt aan 


KEF 

11 

IaTT 

22 

'T3,'zizr3 

o5 *47? 


TS 

AKl 



RFF 

1 

LAST 

117 

15,2364 

55 * 572 

1 

Ti 

CAXEKK 

F;JK PllCH FDAl AND tiHf, 

t 3 5 7 

REF 

6 

LAST 

1 73 

15, 2363 

3 1 7 5 

1 

Cm 

PH i D U T 

PHI DOT TCCU/la'., NEGLECTING C8 

C:35a 

RfcF 

B 

last 

li 71 

15 f z366 

6 1664 

I 

Au 

KJLL/lot 


v3i>9 

REF 

4 

LAST 

1 i.‘ 7 4 

15,2367 

C 2151 

f 

1 

%. ^ 

(C 

A N o u V C iJ R 


f 36 ' 

■rFT 

5 

"last 

“T5T 

i5,2Tr“ 

55*714 

u 

To 

TTJL L I -t 

RClL/I^o for TM> 

^361 

REF 

9 

LAST 

1C 74 

1^ t Z57 1 

33 * 664 

t 

To 

RtiL L / 1 d ^ 

ROLL DONE* 

j% 36 Z 


START YAW 

AUTOPILOT HERE 

m KAT E 

DAMPING 

WITH cNFUKCEU CODKDINATEO ROLL MANEUVER. 

■ 3631 

REF 

6 

LAST 

i 73 

15,2372 

4 1666 

i 

bO 

BfcT A/ldi 

IF IN ATM, SAVE *RAXEPR* FOR TH DNLoT. 

*3632 

"RTF 

am 

d. 

last 

116 

T 5, 7373 

6 i 6^ 4 

1 

AO 

E£T aCUh 


w 3 6 3 3 

K t F 

1 



15,2374 

55*573 

1 ‘ 

TS 

X Z k \K 

IF CUTSiCE ATM, USE 1M REGISTER 'RAXERH* 

A 36 34 









AS A 

lEMPOKARYo (DAP OPERATION IS IM liilEf.kUPT, SO 

A 3635 









io CK 

•i FINAL CtHAXEkK) Al END OF OAP CYCLE WILL 

A . 3o36 









8E R— 

AXIS fcRRQR, 

36<i 

REF 

1 



15,2;»75 

3 47 <>6 

1 

CA 

: 5GdlT 

• C5GSW ■= lci20 8IT3 SW= , LESS o‘ 5G 

1.365 

REF 

21 

LAST 

1 : 72 

15,2376 

/ ; 102 


MASK 

CM/ FLAGS 

SWITCH =1, GREATER THAN s 5 G 

C 366 





15,2377 

j r 'j j 6 

1 

E X T £ 1^0 



’ 367 

REF 

1 



1 5 f 

1 2466 

c 

3ZF 

LXQAP 

IF G LESS THAN * 5 

'368 

REF 

110 

LAST 

1068 

15,24. 1 

4 47 7 j 

1 

cs 

LNE 

IF G GEO THAN * 5 

\3ti 3 

kEF 

6 

LAST 

797 

i 3 f z4 ^ 2 

55 ' 760 


TS 

C MO A P MUD 

SAVE -1 FOR USE IN CH/RCS 

1.37 . 

REF 

12 

L AbT 

i:74 

i5,24C3 

50*477 

L 

TS 

A Ki 

TO ZERO PITCH AND YAW FDA I NEEDLES 

371 

REF 

12 

LAST 

1 22 

1 5 f ^ 

5 5* 5g^^. 

1 

To 

TN2 

IN ATM. (FCDE =-1} 

'.3713 

REF 

9 

LAST 

i-73 

1 5 f 2 b 5 

4 17‘Ji 

1 

CS 

PREL 

YAW ERROR = RREL - PREL TAN(ALFA) 

u372 





15,l4C6 

0 G0u6 

1 

h X T t riD 



— r3T3 — ■ 

HFF 


“omr?! 


7 2626 

vJ 

HP 

SIh‘T K1 II 

LET SlN(— 2i') 5E APPROX FOT^ TaM(— *; i. J 

<374 

REF 

e 

LAST 

1 73 

15,241'- 

6 1 7 u 3 

1 

ML> 

KR2L 


* 373 

REF 

1 



15,2411 

V 2456 

1 

rc 

xl u/ S i Jd 

GO TEST DZ., GET TAG: +. IF IN u2 

\-37 6 

REF 

242 

LAST 

1* 71 

15,2412 

3 O ~J K.* 

1 

INDEX 

4l 

M 

+/- 1 IF NOT 

C377 

REF 

1 



1 5 f d ^ 13 

3 2631 

1 

CAF 

Y J 1. 1 UUU L 


-37 8 

REF 

Ik 

LAST 

1 72 

l5 , 24 14 

55*720 

1 

TS 

jt rcM 


R * 3 7 *7 


START 

PITCH AUIQPILQT HERE 

. RATE 

DAHFlNb 

UNLYo 



CJb:^ 

KEF 

8 

LAST 

1C 7 3 

15, 2415 

3 1 7'J2 


CA 

CREL 

- - — 

1361 

REF 

2 

LAST 

1 74 

15,2416 

U 2456 

1 

TC 

dO/ SOL 


382 

RTF* 

24'J 

LATT 

1 174 

■I5",IwT7‘ 

" 5 C O L 

1 EXOApI*^ li’iDtX 

A 

CCJMt: hek£ l"RdlH HX h UaP 

363 

REF 

1 



1 5 , 242 : 

3 26,j4 

1 

CA£ 

i' / i<J CbJ c 


384 

REF 

21 

LAST 

1. 74 

15 1 Z4Z i 

27*7L- 

1 

AOo 

J c I u H 

CGM6lNe"ALL NEW RlTS. 

U 3 bS 





15,2422 

U C-5u6 

i 

EX i END 


OCES NOT HECUIRE SAVING OLD CODES* 


OAH; ASSEMBLE i<£Vl SICN 072 CF AbC fRQbRAM ARTEMIS BY NAS A 
L CM ENTRY uli^ITAL AUTOPILOT JH RH 

-366 WEF 3 last 1i; 63 15,2423 wl 0U5 U ^^Iwb HKlTt PYJETS 


387 REF 4 L AST lU 66 15,24 24 ll> 711 0 CCS JET AO 


V-3BB 

REF 

1 

" " '15,2425“ 

“T7"264b r " 

•” TC 

"CK/llCT'' 

(369 

REF 

1 

15,2426 

i 3325 w 

TC 

CM/ FDA I 

C39C 

REF 

1 

_ 15,2427 

0 3332 J 

' TC 

CM/FuAIR 


il:4u FEB. 26,1971 ULYSSES .029 PAGE 1 75 


USER*S PAGE NO. 13 


SET PYCHAN TO DESIRED BIT CONFIG 


E6 Sj-T. . 


'T 

' 5 


- V 


V- ' • 






-1 


(JETAG=-1 tUUIVALENT TO CHDAPH0D=+1) 







ASSEMBLE 

i/1 Si CM r2 L 

.F AoC PRUGKAH ARTEMIS BY NASA 2 21114-. ii 

il:4l FEB* 26,1971 ULYSSES « ^ 76 

L 

CH 

tl4 1 K t 

JlblTAL AUTCPILUJ 






USER'S PAGE RQi 14 16 SJ 

P . 3 7 1 

CEA 

C ZONE 

LOGIC UiED 

BY ENTRY 

L' I GIT aL 

AUTuPiLOTS 

a 



< -i9Z 

REF 

244 

LAST 

li 74 

15,2431 

10 OOU 

J 

3002 

CCS 

A 

YAWLlM=l.C-3/180=163&4-273^16iil 


RE*^ 

i 



13,2431 

6 ^o24 

ii 


AO 

YAwLIH 


‘1394 

BEF 

1 



15,2432 

1 2462 

1 


TCF 

OZCUM 


.395 

KEF 

2 

LAST 

1.70 

15 ,2453 

6 262^4 

0 


Au 

YArtLlM 


l3Q6 

REF 

1 

- 


15,2434 

1 2463 

r 


TCF 

CZ.luGUM 

... . _ 

AC39 7 










BIASED 

OZ FGH EXT ATM DAP^ 

>' 398 

KEF 

1 



15,2435 

• 624 

1 

ElAScDZ 

TS 

J E 1 L 

SAv'E KArE/Ta~'~Bn?L K7TBr"i^ i ' 

. 3 99 

B tF 

245 

LAST 

iC7t> 

15 , 243 6 

IL Ol,.. 

4 


CCS 


START ERROR 02.. 


K£F 

1 



15,2437 

4 2623 

V 


cs 

C3/ D I AS 

= V6/18t 

•;,4: i 





is, 244-, 

1 244^. 

C 


TCF 

+2 


'.4 )2 

REF 

2 

LAST 

11.70 

15,24^1 

j 2623 

i 


CA 

cM/ai A:> 

- , 

1 4> 3 

REF 

13 

LAST 

1 >. 6 5 

15,2442 

0 1 



AO 

L 

61 AS The erkor® 

','4i 4 

REF 

183 

LAST 

lv65 

i 5, 2^43 

22 V w* 2 

u 


“LTch 


~“^aTE' CAlCTRS R'ETURii ADDRESS* 

4'’' 5 

REF 

1 



15,2444 

6 24j 

1 


TC 

300Z 

GC GENERATE THE ERROR BIT* 

4 6 

REF 

134 

LAST 

It. 76 

15,2445 

5 2 <_ j2 

1 


OXCH 

i 

L. 

jIT TO L, RESTURE CALLERS QZ 

4 T 

PEF 

2 

LAST 

lo76 

15 , 2446 

11*624 

1 

^0/ soz 

CCS 

J E T L 

CAME HERE IN EXT ATM* C(L ) = ERROR oIT 

1 4;: 8 

REF 

1 



1 5,2447 

6 2621 

u 


AO 

4 0/ S L 1 M 

IF bate gel 40/ S, set L= AND I AKE 

1 4 9 





15,245 

1 2452 

1 


I CF 

+2 

JcT BITS ACCOR OING TO SGiN OF HATE. 

4iu 

REF 

2. 

L^l 

V 76 

15,2451 

6 2621 

0 


AD 

40/SLIW 


411 

REF 

246 

LAST 

76 

i5,._452 

34 (j _i'J 

Vj. 


rs 

A 


412 





15,2453 

1 243 5 



TCr 

42 

RATE OK* CGNl INUE 

C413 





15,2454 

22 -j-yj 1 

'J 


/L L 


riATE GEQ 4 D/ S , OVER HIDE cRRuK E IT 

414 

REF 

3 

LAST 

12 76 

15,2455 

57*024 

c' 


XcH 

JbTcMZ 

AND CONTINUE TtJ GET SIGN* 

V 415 

REF 

247 

LAST 

1'- 7 6 

15, 245 6 


J. 

u 

20/S0Z 

CC6 

A 

COME HERE TO TEST IT A WlTHlf. 20EG/S DZ 

*.416 

REF 

i 



15,2457 

6 2622 

L; 


H j 

YuOTLlM 

1* - YDQT 02 I OK PDCT) 

i4i7 





15, 246 7 

1 24 63 

3 


TCF 

+ 3 


c4io 

REF 

2 

LAST 

lL7o 

15, 1446 i 

6 2622 

L 


aO 

YJJTLXM 

YCOT D2 = 2 DEG/S E. 

c4i7 





1 5 , 24o2 

4 COo 0 

V" 

CZCUM 

C 6 M 



V.42 

REF 

26 

LAST 

1-74 

15,2463 

55*721 

w 

cZNOCOM 

I 

JcTuM +1 

GENERATE TAG, SET C(Aj^ -+i OUTSIDE UZ 

r47i 

keF 


UTf^T" 

1- Tl' 

l5 , 2464 

"3" 4 7 72 

1 


C A 

~ZFKu 

Sl 1 CiAJ = + iNSlDt 

1422 

REF 

1 c4 

LAST 

1.76 

15,2 46 5 

li L - ' j 2 

* 


rc 

r 

•A 



G fl P : A> S £ M d L ^ J< EVISIQN 0 72 L£ AoC PROGKAM ArtT EM IS dY i ^ASA 2 2x1 1 ^ 


L CM ENTRY DIGITAL AUTCPILDT 

p;423 extra ATMuSPHcKIC cigital autopilot 

i» If AbSlCALF) ^C(4i)J PGSi USt 

Rr^2o BFTA: — 775'w“ TRfOJir^'^GTnCliC F) THt'l ACTO ff TA ) 

KATE = BETADOT 

RiJ43‘ R-AXrS = CONfROL 

roll: RCLL error = SGNICALFJ (KULLC - ROLL) 

RGA33 RATE = PREL 

■RrA 34 P-AXiS”= CUN'IHCL 

k»4J5 Z* if C ( 1 ocO CAlFA GtO ~Cl43)f USt 

Kv437 beta: RCLL FRRCR = SGnI-SALF) (dETACOM -bEfAl 

RC43e “ RATE =~B'ETAD0r 

Ri439 P-aXIS = CONTHQL 


U li: 4. F£B» 26il971 ULYSSES , PAGE Ig7 7 

USER'S PAGE MOo 15 £6 S3 


IF CaLFA PCS, CMDAPMOD= +•'' 

IF C A L F A Nb'G V L MD'APMDD ■ = -’ 

IF CHDAPMCD =- » RATE = RREL 


IF CMbAPMOC = - , RATE DAMP ONLY. - - - . 

j 


CMOAPMOD “ +1 


Ri 44 ROLL; YAW ERKuR = SGNISALF) (ROLLC -KaOL } RATE DAMP ONLY. 

Rl442 rate = RREL 

Rr443 R-AXIS = CONTROL 

R(444 3» FOR ALL CASES t USE 

RT^'ZTS — P 1 1 CH ERKUR ^ “I ACFA COJT - aTFAI 

Rv446 RATE = DREE 

RC447 a-AXIS = CONTROL 

R * 44 d 


1 44 

REF 

7 

LAST 

1J74 

i5»2466 

55 ' 7Q'j 

V 

EXOAP Ts 

CXDAPHQD 

+ FOR NOW 

i 453 

REF 

3 

LAST 

1:73 

1 5t 2467 

1 i ■ 5 J 6 

1 

LL b 

CALFA 


C454 

ReF 

1 



i5f 247u 

Z 262 5 

1 

AO 

C45l1.'1 

=1, -CDS (451 

l455 





15,2471 

i 2473 

1 

TCt- 

•*2 


C456 

REF 

2 

LAST 

10 77 

15, 247 2 

6 2625 

i 

AD 

r 45LI M 


(457 

REF 

24 2 

LAST 

1 ,7d 

15,2473 

34 C'j'.' 

■J 

TS 

i 

A 


,45o 

~RtF 

T 



■ 1 - 5724747 - 

i 2555“ 

~r 

(CP 

L K iJAi^2 

HERE IF AddiLALLAi L Cus(45) 

' 45 62 

REF 

't 

LAST 

in 

15,2475 

11' 3-6 

i 

CCS 

C .4 L r A 

ICALFAJ > C»7'»7 

v4383 





15,2476 

i 2477 

u 

TCF 

+ i 

CUNUNUE IF PUS; GO TO EXUAP4 IF NEG 

. 459 

REF 

4 

LAST 

1.66 

1 5 , 2 A 7 7 

11' 727 


c ^ 

03 FL A'cj 

VALID VALUES ARE: -a, +1, +1* 

^ 46* 

~RFr 

1 



15, LJ- 

mzTT 

T“ 

- - 

rXDAP4 


-'461 





i5,25vl 

^ 25u3 

1 

w 

TC 

♦ 2 


G. 462 

REF 

2 

LAST 

i:77 

15, 25 j2 

J 2513 

1 

fC 

EXDAP4 


* 463 

REF 

9 3 

LAST 

X ‘ o4 

13 , 23u3 

u !> 4 j 

1 

f c 

PHa G 

SINGLE PASS THROUGH HEkE* 

6464 





15, 23^4 

4'-334 

i 

LJC i 

4 '3J4 


( 4645 

♦ REF 

I 



3 X t 2 1 ? 



4P333PT1 = 

4. 33 SPOT 


. A-»5 

'HTEF 

Hi 

"XATT 

1 -74 

T5,'Z5T:5 

- 4-^770 

1 

. ..... . 

Liic 


♦^466 

REF 

5 

LAST 

1 '7 7 

13, 25u6 

55' 727 

'j 

Tc» 

FEiFLAd 

SET FLAb TO AiSUi^E SINGLE PASSc 

C467 

REF 

1 



15,25l7 

3 262:. 

1 

CA 

l\ :>CL 


G. 466 

KEF 

26 

LAST 

1068 

15,251 - 

J bZ i J 


rc 

K A 1 f L 1 J 1 


0469 

REF 

35 

cAST 

10 72 

E6, 1661 



ii 0 ANK= 

-'4 OLj 




r. 


J 

/ 


^^f’v _ ASSeWBLL KtV ISlUN ^ 72 CF A bL PR UGKA M ARTkHIS bY i>l ASA ^ 21 


L CH tNTiiY OiGXTAL AUTCPILGT 


A / 

KEF 

1 

LAST 

2j3 

15,2511 

..23^75 

i 


^L ADR 

( 4/' 





15,2512 

54066 

0 



A. 471 










4 72 










H.-4 7 ^ 

KEF 


LAST 

1.-75 

15,2513 

11* 7ll 

1 

c Xl> a F h 

CCcj 

474 

REF 

i 



15,25x4 

1 2322 

1 


rcF 

4 75 

RfcF 

2 

last 

1C 7 8 

15f 4cd515 

1 2322 

1 


TCF 

^76 

RfcF 

195 

L T 

iL 7 1> 

15 f 16 

3 4772 

1 


6 A 

r^7v 





15,2517^ 

j L ' j V. ' 6 

1' 


EXTEfJTJ 

>473 

REF 

i 

LAST 

10 65 

15, <:52^ 

u 1 6 6 

L' 


WkI t t 

5479 

KEF 

6 

last 

10 7 8 

15,2521 

55' 711 

Li 


I s 

A ^ 4 B C 

- - 








- — — 

<.481 

REF 


LAST 

Iv 77 

15,2522 

ii' 5.. 6 

1 

exoapj 

CCS 


"RIT” 

2 

~TJSl 

"IFTA 

15 t L5L 3 

3 1573 

1 


Ca 

u483 

KEF 

i 



15,2524 

1 253 0 

1 


TCF 

C484 

KEF 

196 

LAST 

K78 

15,2525 

4 4772 

1 ; 

W 


lS 

5485 

KEF 

8 

last 

ii 7? 

1 5,2526 

33* .> 

L, 


T8 

C486 

RfcF 

3 

LAST 

15 78 

15,2527 

4 1573 



cs 

C487 

KEF 

4 

LAST 

1 : 7 8 

15, l539 
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.L BELCrt PROCESSES THIS L 

USER'S lAbL NC. 25 8 b S3 

COKREaPUNUlNG JEl CODE INDEXES IN EkASE'A'&LE LOGS TGNi, 'T:jFf, TCN2, JNDX 

S FOR WTLaT CALL^ AND AoSUKES THAT WTLST CALLa ARE MADE ONLY 

ID FGRPO^'IN 
{2> FOK Trie IN 
TIMfcTST tGTAfi 
TCFFi TBITSt 
SECTION CtTCAL 

EClFlED MINIMUM t HERL CHOSEN AS 2 CS J 7>NL 

UTED hlTHlN THE U 3E REMaT^ING IN THE S/.NPLl I iTERVAL T (2 SFCIo 

JET CDCEb AND CuKR taPUNDiNG i IMF iNTEKVALSa iHU^FTUNl, TlbilS, 

IhE FlKaT 2 LOCS AKc TErtPOKARY, FCk IMhEOlATL ACTION, IN GENERAL. 

ISTa 

'831 

REF 

2 G 

LAST 

10 81 

15, 3154 

3 <- 025 , 

TIMlTST CA 

TlMci 

CuKKECr r-CR PUSS IDLE TiMEl OVFL« 

V 832 

KEF 

o 

LAST 

i-:32 

15,3155 

u 4753 1 

AD 

PuSl /2 


C833 

REF 

I 

LAST 

1387 

15 1 j15^6 

6 4753 1 

AD 

PCSl/2 

CVFL GUARANTEED. 

U634 

REF 

3 

LAST 

1 ’31 

15 f J15 7 

27 » 7 12 L 

aDS 

1 Ub t L> 

BtTUaLU) — — TUSci^ = — ULTIiiicl 


REF 

1 



15,316; 

3 3374 i 

CA 

-T-3 

-—T + 2 _ “5 i SEE StTJlAG) 

'ATB3 6 









1 Hl +Z kcUlJii^bO r GfR PHLif^cK BkArlXHj^ 

V 83 7 

REF 

4 

last 

1 87 

15 1 1 

27* 712 0 

ADS 

1 L j L J 

TUSL,/ = TIMEtK)-TlME(R-D-T +2 

C838 

KEF 

44 

LAST 

1l42 

15,3162 

4 4 7 b 7 1 

^ b 

1 

USE 2 SINCE 1IME3 UNCERTAIN TO 1 

C830 

REF 

8 

LAST 

1086 

15,3163 

6 1621 

AO 

TONI 







15, 3164 

b ^ '‘-i v*' 0 X 

c X T t Nu 



V b4 1 

' RTF' 

r" 



“T-TTiToF" 

T SITT'F’ 

bZtTF 

'TTnUTSTT 


C842 

REF 

9 

LAST 

1685 

15, 3166 

51*617 C 

INDEX 

ij iVtJ X 


ce43 

REF 

3 

LAST 

1 79 

1 5 f 3 1 0 T 

3 2634 1 

CAF 

P/KJCuuE 


C844 

REF 

2 

LAST 

117 

15, 3i7t 

55*622 i 

TS 

UuITo 

■■ ■ - 

845 

KEF 

9 

LAST 

1087 

15,317 1 

3 1621 ^ 

CA 

TON! 


C 846 

~TI'EF 

-- 5 - 

"LAFF 

~T5T3TT2 

“27*712 1 


TUSed 


. S47 





15,3173 

0 \j J >0 1 

TEND 



C848 

REF 

1 




15,3174 

0 32wi 1 

BZMF 

TOFF TEST 


c649 

KEF 

199 

LAST 

It 66 

15,3175 

3 4772 1 

CA 

ZcKb 


C85< 

REF 

1 

- 


15, Jl76 

1 3232 G 

TCP 

T 1 {“1ETST 3 


ce5i 

REF 

119 

LAST 

l'J36 

15,3177 

4 47/', 1 

JlMETSTl CS 

CNC 


(. 85 2 

— KEr~ 

16 

LAST 

iuaT 

15,3200" 

"55* 621 r 

T S 

1 Uui 


V J o i> 3 

REF 


last 

1U87 

15, 3201 

4 47 0 7 1 

T OFF T 1 3T C S 

1 Iftci 


• 854 

KEF 

3 

last 

1;66 

15,32l2 

0 X b w/ 3 L< 

AD 

TOFF 


V 1 5 5 





15, 32aj3 

ij r ^ .jo x 

L\l t U 



1856 

REF 

1 


— 

15,3204 

13‘ 32i3 I 

aZriF 

TIMhTST2 


V, 83 7 

KEF 

4 

LAST 

1087 

1 5, 321 5 

3 io».5 T 

CA 

TOFF 


b J o 

WFF 

6 

■'rAST* 

Trrr^ 

■■ i'5,‘TZTT“ 

"2Tr7Tru' 

- AuS ' 

T t/S t J 


-■ 859 





15*3217 

^ b i 

EXTEND 



V 86 

REF 

1 



15,321‘ 

6 3215 1 

JZHF 

TONCTeST 


Cb6 1 

KEF 

Zi . 

last 

lob 7 

X ^ f 3^ X X 

3 4772 1 

CA 

ZcKu 


6862 

KEF 

1 



15, 3212 

1 3234 , 

T CF 

TlriEToTA 


t863 

REF 

12 

LAST 

1 >87 

1 3 , 32 1 3 

4 477, 1 

TiHhToiii L:j 

CNfc 


“~rF64 

— RTF' 

3 

TAST TuF7 

' X3 , jzrzr 

1 

TS 

TGFf 


t65 

REF 

46 

LAST 

IL a? 

i>, 3215 

4 47 u / 1 

luN2r;iSl LS 

7 rtO 


8 866 

REF 

7 

last 

iC 86 

X ^ i 3 2 X b 

6 16^7 i 

AO 

TCn2 


t 867 





13, 3217 

2 ^ b 1 

cX TEND 



^868 

REF 

i 



15,322' 

0 

BZiaF 

Ti ll: r^l 5 
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■- <J ( 

G / 1 

UtF 

REF 

REF 

6 

4 

2 

LAST 

LAST 

LAST 

1U85 

1*87 

118 

I5t322i 

15,3222 

T f 3 4^ 4^ 3 

5i'62 

3 263 4 
55* 610 

1 

1 

0 


I Not X 
CAP 

TS 

JNO X 1 
P/RJCQOE 
1281 IS 

- 

... ... 


('^'U 

REF 

d 

LAST 

1 8 7 

15,3^24 

3 1 6 7 

1 


CA 

TQN2 




t ?J 1 

KEF 

7 

LAST 

1887 

15,3225 

27* 712 

U 


AJS 

T ED 




6 74 





15,3226 

0 6 w 6 

1 


h XT END 





i:875 

REF 

1 



15, :>227 

b 3237 

I 


84 MF 

JCTo.xLL 1 




C876 

HEF 

2)1 

LAST 

1' 87 

15, 323 u 

3 4772 

1 


CA 

2EK3 




V.877 

REF 

2 

LAST 

I3d7 

15,3231 

i 323 6 

1 


TCF 

T1MEIST5 

+1 



vb7fa 

reF^ 

11 

LAST 

T1TB7 

15, J7T2 

“55*621 

1 

TIMETSTJ 

TS 

iQ mI 




C 6 7 9 

REF 

121 

LAST 

1' 87 

15, 3233 

4 47 7 - 

1 


cs 





cay 

REF 

D 

LAST 

IE 8 7 

15,3234 

55* 6u5 

1 

IIMETSr4 

TS 

1 oEF 




t 68 l 

REF 

122 

LAST 

lu 88 

a5 , 323 5 

4 47 

1 

I IMhTST5 

CS 

ONE 




■C882 

’«=KEF 


LAST 

“1088 

15,3236 

55 * 61 ; 7 

c 

■i"! 

TS 

i dn4 




RC8B3 

SECTION 

JETCALL EXAMINES CONTENT^ UF 

JET TIMES 

IN LIST 

, ESTA 8 LISHE 

S NTLST ENTRIES, ANC EXECUTES CORRES PONDI Nb 


“inTgF?' 

JFT 

coots, A Pu^lVb nZ InIUMBER In A 

TIME kEGISTER INOiO 

aTE 3 that a 

wtlst call is 1u Be Mai5Ej anD iiS JliT Bits 


RCo87 

EXECUTEO 

4 A + V 

INDICATES that 

THE TIRE 

INTERVAL 

OUtS N'Ul 

APPLY, 

BUT 

THE COKRESPCNC ING JET BITS ARE TO BE 


Ki. bB9 

EXECUTtO 

, A NI 

;G NUM 8 ER luUiCAfES THAT 

THE T INE INTERVAL 

HAS 3EEN 

PROCESSED. IN EVENT OF ii GR -1, THE 


K C b 9 1 

SGaSEgUENT TIME REGISTER IS EXAMINtO 

FOR PUSSI 8 LE ACTIGim 

n IH U J 

LT BITS TO BE EXECUTED MAY COME FROM MORE 


k *: 835 3 

THAN ONE 

REGISTER. 










f 894 

REF 

2l2 

LAST 

1088 

15,3237 

3 47/2 

1 

JETCALLl 

CA 

ZER-J 




'"895 

REF 

2 

LAST 

116 

15, 324 J 

55*611 

1 


TS 

LUl 1 




C<i 96 

REF 

2 

LAST 

I li> 

15, 3241 

55*612 

1 


rs 

i\ J J t T 




C897 

REF 

2 

LAST 

116 

15,3242 

35*6 ‘ 0 

1 


IS 

T d i l S 




9398 

REF 

12 

LAST 

1068 

15, 3243 

tti'bZZ 

1 


1 /XCH 

lONi 




C899 

REF 

253 

LAST 

1^82 

15,3244 

i ■- V 1 

1 ; 


CCS 

A 




C9l.'' 

REF 

1 



15,3245 

1 32 o 2 



ICF 

JtrCA“LL2 


lALL ntlsT 


\.9'» j 1 

KEF 

3 

LAST 

1038 

15,3246 

23 * 6 AL 

V 

JETCALLi 

XCH 

NUJr 1 


HTLST entries COME HERE FROM JETCALL 


C9C2 

REF 

123 

LAST 

10 8 8 

15,3247 

4 477* 

1 


6 ^ 

ONE 




ESC 3 

REF 

7 

LAST 

i 08 d 

i5,j25i 

5 3 * 6 v6 

1 


tJXCH 

I UEr 



i. 

C9 4 

REF 

25V 

LAST 

ices 

15,3251 

Jl L' -V 

0 


CCi. 





C9 5 

REF 

2 

LAST 

1 V . 8 8 

15,3252 

1 3262 

f 


TCF 

vi tT CALL 2 


CALL hTLST 


9C 6 

RTF' 

TT 

CAST W 

l5iJZ5T' 

“ZT'oTT' 

L- 


LXCH MJJcT 




9C7 

REF 

124 

LAST 

IAj B 6 

1 5, 3254 

4 47 7.- 

i 


CS 

CNE 




■90 8 

REF 

Iv 

last 

losa 

1 5 , 3255 

53*61 

0 


JXCH 

i 0N2 




J Cii Q 

REF 

253 

LAST 

1088 

i5f 32 3 6 

i L 5 G 

'J 


CCS 

A 




t, 9 1 C 

REF 

3 

LAST 

1088 

15,3257 

1 3262 

‘-A 


TOF 

JiiloALL2 


CALL WTLST 


C9il 

REF 

5 

LAST 

1088 

1 5 f 32 u w 

23*61^: 

w 


LXCH 

NUJhT 




':912 

REF 

1 



X 5 f 3 2 o 1 

^ 32? 

T 


TC 

r hCTi>i 


CTa > = +■ 


C913 

REF 

12-0 

LAST 

1C £6 

ISf 3262 

56 ^ I 

t 

JETCAL4.2 

XCH 

L 


SAVE JET BITS FOR AFTER WTLST LALL 


CS14 

REF 

o 

LAST 

10 8 8 

15 f 3263 

ZT* 612 

1 


AOS 

isujt- r 




C9i5 

REF 

121 

LAST 

A--: 80 

15,3264 

56 .^1 



XoH 

L 



< 

-j i 

L916 

REF 

125 

LAST 

1C 8 8 

15, 3265 

6 47 7 w 

\J 


AO 



RESTORE FOR CCS 


0917 

REF 

22 

LAST 

1C 64 

15, jiL66 

0 5223 

1 


TC 

INiOULt 




CS18 

H tF 

1 



15,3267 

327o 

1 


AD RE 3 

Ju rCALL 




92' 

KEF 

7 

LAST 

li-. 6 a 

15 , 327o 

3 iu 1 2 

' N 

vi* 

JdT ALTN 

CA 

ivj J b r 


COME HERE WHEN DFSiREO JE I LGoE IS KNOWN 


t921 





15,3271 

tf ij 6 

1 

+ i 

exit: No 



NU NEED TC SAVE OLt COOES 


<922 

REF 

5 

LAST 

1‘ 7;< 

15,3272 

01 6 

1 y 


RRIT E 

R DL L 3 ic I 5 


SEl RCHAN TC NEW BIT CONFIG. 
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L CP ENTRY DIGITAL AUTCPILaT 


E 3 

REF 

3 

LAST 

iOSB 

15 1 32 7 J 

11*611 

1 


CoS 

u924 

REF 

53 

LAST 

1081 

15,3274 

O 53 14 

1 


T C 

C'vZ'j 

REF 

2 

LAST 

1 i 7 5 

15,3275 

u 3333 

1 

ROLLDUMP 

TO 

A0926 










HC927 

lpi A 1 T L I o 

T ENTRIES 

CORE here* 





0928 

REF 

H 

LAST 

1063 

15,3276 

3 47t>7 

w* 

3 L TL» AL L 

v-AF 

“ — — 

■RTF 

% 

“TA'Sr 

~HTW7 

15,32 IT 

!> !> * u 1 1 

1 


T S 

0 9 3' 

REF 

24 

L AST 

1981 

1 D f 3 3 V-’ s. 

7 .A .Z 

J 


MASR 

V 931 





15,3301 

■; J 6 

1 


LATE 

.932 

KEF 

2 

LAST 

10 83 

i5,33D2 

X 3271 

1 


BZF 

C933 





15,3303 

22 G07 

\J 


ZL 


REF 

i 



15 » J3‘^ 4 

1 324a 

u 


TCP 


KLSiJi) DEAD ZCNE ENTRIES COME HERE* 


;9351 

REF 

12 

LAST 

1382 

15, j3v5 

4 17^. 

'J 

dzcall 

cs 

09352 

REF 

59 

LAST 

ivoL 

1 S f ->3 (; 6 

7 4771 

1 


mask 

09353 

KEF 

122 

LAST 

1D88 

15 f j3s> 7 

1 

c 

1 


TS 

09354 

“RTF" 

2Ttr~ 

TATT 

■irT3““ 

15, 33"! , 

3 ^ ' 

1 


"I N JuX" 

u9355 

REF 

6 

LAST 

Ia'j 74 

15,3311 

3 1714 

1 


CA 

C9356 

REF 

123 

last 

1C89 

15, 3312 

30 s u i 

' 


iNJt < 

09357 

REF 

257 

LAST 

1089 

15,3313 

54 S 0 1. 



TS 

09356 

REF 

124 

last 

10 a 9 ' 

15,3314 

6 0 . 1 



AD 

'.9359 

REF 

D 

LAST 

1^74 

15,3315 

L 21^1 



TC 


“TTF' 

4 

Last k.79 

15 1 33 1& 

55* 717 

w' 


T ^ 

A o936 1 




- - 

.. , - 





.9362 

REF 

2-3 

LAST 

10 88 

15,3317 

3 ^7/2 

1 


CA 

C937 





15,332 

u L.’ "J 'J'6 

1 


£*A T tN U 

C938 

REF 

6 

LAST 

1083 

15,3321 

u 1 C C 6 

! 


WRIT 6 

' 0 939“' 

R EF 

— w 

LATT 

lu 86 

15, 3322 

5 5 ' D u / 

V 


1 s 

094 

KEF 

u 

LAST 

1jS6 

Id t 

:j:>» 711 

v’ 

LZCALLl 

TS 

‘ 941 

REF 

1 



15, 3324 

U 3275 

1 


To 
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USER'S PAGE NO* 11 E6 S3 


l-UI TAl, 
i ASKUVtk 

CK/FL»AiJ 


eUir DUMP AT ABOVE LOCATIllN* 

_ „ __ ^ . 


CK/JSiilT 

rDTTAG~“ 

C i^/ PLrtijS 


I E 1 aC IN +L 
JE rt ALL3 


CM/DSTbY = BIT2 10 3D 

“ S'TG m r Y'TTTL S T ENT kY 

IS SYSTEM DISABLED $ 

YES, QUENCH ROLL JLTS,IF ON AND EXIT* 
NC, CCNTINUE'. 

HA) PCS, C(L) =+ 


CPJAPMuL 

elTi 

L 

POSSIBLE VALUES OF CMDAPMUD: -1, 

CIL)=C FUR - CIL) = 1 FOR -1 OK * „ 


A 

HJLL 1 {‘i 

t 

EkASBll cKDtK: KOLlTl ff,“KDLLC,kULLL + 1.3 

Gbr RQLL/ibi UK KOLLC (/3 ol)o 


L 

■w'j 

L 

A NwUVC UK 

IF C(LJ=1, STOKE 'ROLLC* IN 'L'u 
< BOTH MUST BE SCALED DEG/l&t ) 

C( A)=H0LL/18i OR 2 HDLLC * 


TX'LUiLsnr 

iF^CMDaPmod =— , S A\7Ic^IvDL1_ anglf , 

OTHERWISE, SAVE ROLL COtMMAND* 


ZEKU 

kGLL JET S 

COME HERE IF IN DZ, AND CANCEL JETS^ 

INHlNT NOT NEEDTD HERE, 

TURN OFF ALL ROLL JETSu 


WTTlTr 

JtfAG 

kolljump 

SET ~L to SHUW IN DEAD ziiNE* 

COME HERE KITH C(A)=' 




ASS E KBL E R t / XS liJlH 


' 7 2 tiF AUC PRO G RAM AKTbMIS S Y NASA ^ £l li A-v Li 
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L 

CM ENIKY 

JIGITAL AUTCPILjT 



USER’S PAGE I'Co 22 E6 S3 

1^’ ^ 

CM 

lN TK \ 

FDAI UiSPLAY, 

-- 

- - . 

— ... ... . . . . . _ . _ _ 

K*-S4S 

CALCULATE 

BY 

INTEGRATION THE 

ROLL ERROR 

, BEJWEtN THE 2 ocL C T/KCS UPDATES • DISPLAY ATTITUDE ERRORS AS FOLLOWS: 

K L 



ATM 

cap: 

DISPLAY 

ONLY ROLL 

ATTITUDE tRKUR, 

f<i S4a 



EXT 

ATM DAP 

: PKESENl 3 ATTlTUOc ERRORS RELATIVE Tu iH£ AKPR0PRIA1E 80CY AXLS EACH ,1 SEC^ 

K C94B 








ROLL RDLLC-RULL 

Kc94y 








PITCH AlFAC-ALFA ^ 

K -1 . 9 5 ,. 








YAW BETAC-8ETA 

K SDi 

OCRING cNTKY, 

THE FDAI NttOLE 

S HAVb 1 

FULL SCALE OF 6/^5 utG IN KCLL AND 16„ 875 DEG IN PITCH AND YAW, 

k,953 

T HE 

SCdKCUTINE NEtOLER EXPc 

CTS 1 angle/ 13 ;) AND SCALES 13 i.6»b75 DEG FULL SCALE, 

AU958 








CUMt HERE EACH ,1 SEC (CHOAPhDD=+l COMES BFLuWj 

CSS 9 

REF 

-y 

i 

CAST 

17^ 

i :> » 3 J Z 5 

4 17jS 

f , 

V' 

CM/FDAI 63 PHIUIT INTEGRATE POLL EKRCP ’TWEEN 2SEC UPDATES 

CS6. 





i5i3326 

0 CO 06 

1 

EX r Ei\U 

C961 

RTF" 

8 

L"AST 

1082 

rSTJJH 

7 15.0 

1 

HP"" ' CaCPT^ fORn^FSliMEC COORD I WATT Lii^‘, 

w 9 q2 





IS, 333* 

J !w'J 06 

1 

£XTEi>iU 


KEF 

a 

last 

1079 

IS, jjol 

7 473 3 

n 

HP HALF™ 

^/S64 

’J'REF 

8 

LAST 

10 82 

IS, 3332 

27' 713 

1 

-1 ADs PAXiiRRi ROLL ERROR/36'. . GVFL UK 

AC965 








EDIT DUMP AT ABOVE LOCATIUNo 

C96o 

REF 

Q 

LAST 

1090 

IS, j333 

3 475d 

1 

CM/FDAIR CA HALF 

C967 





13 f 3334 

0 u ? t6 

1 

EXTEND 

C968 

REF 

9 

LA ST 

1090 

IS, 333 5 

7 1713 

1 

riP FAXtKl■^l FULL SCALE FOR FOAl (ROLL) IS 67^5 D 

969 

REF 

l 


■ 

13 f 333 6 

5 5 * 47u 

1 

TS PAxERk ,25 (ROLL ERkaK/ifa ) FUR FDAI NEEDLE, 

Ai97i- 








PROGRAM TU FILE bODY RATES FUR Irt ON ONE PASS AND 

A' 971 








lu UPDATE THE NEEDLE DISPLAY 01^ THE NEXT, 

Ac972 








SYNCHRONIZATION WITH CM/RCS IS UScO SO THAT THE TM 

AC973 








IS DUNE WllH THE ROLL SYS 1 EM AND NEEOLeS START ON 

Ar974 








THE subsequent PASSc ] 

ACS75 









l976 

REF 

i 

LAST 

1:36 

Id , 3337 

4 C 3 

r 

CM/DUMPR CS SW/NDX COMBINED ALTERNATION SWITCH AND FILE 

C976i 

REF 

4 

LAST 

109U 

Is, 334 c 

54 3w 5 

W 

TS SW/ '•JX 

l977 





Id, 3341 

- J ^ V J 6 

I 

EXTcNJ INDEX, 

09 7 6 

REF 

1 



15,3342 

6 3345 

u 

dlMF CHIHFILE FILE STARTS WITH SW/NDX +1 AND GOES T'l 

AC979 



“ 





t NUDUF, 

A SlSS:, 








INDEX IS PCS FUR NEEDLES 

C9ei 

REF 

36 

LAST 

IL 12 

15,3343 

V. 4714 

1 

Tu IBNKCAlL 

C982 

REF 

9 

LAST 

1C ' j 7 

15,3344 

42425 

1 

CADR NlcDLcK 

C963 

R E F 

1 



IS, 3345 

0^364 

L 

TC Lf/tzW 

AC984 








INiJcX IS NEG HUK TM FILE 

C9d5 

REF 

41 

LAST 

Ik 36 

iS, 3346 

6 021“+ 

! 

CMTMFILL- mD TH.<E£ 

f9fe6 





15,3347 

W> C i.' 6 

I 

cXTEND 

C987 

REF 

1 



iS, 3->D . 

6 3334 


SAVt«^i}X 


li:4v FfcBo 26,1971 ULYSStS 


GAP: 

ASSEMBLE KtrVISIOiN o’ 72 

OF AgC program ARTEMIS BY NASA 2. 21114“ ii 

L 

CM 

ENTRY 

OIGITAL AUTCPILQT 




C986 

KEE 

21 

LAST 

lo37 

15, 335 1 

3 < ^25 0 

CA 

1 IMEl 

0989 

HtF 

3 

LAST 

73 

15, 3352 

54 3o4 1 

TS 

CMtMTI HE 

t99v- 

REF 

3 

LAST 

879 

15, 3353 

4 4776 1 

C;) 

T H i K T t E N 

r cf Q 1 

•v- ^ A 

REF 

5 - 

last 

ITXTTj — 

■ 1'5,333V 

"5‘4'"jrC‘5~ IT' “SA'VERD 

f b 

5 fi/ NDX 

0992 





1 i>f 

u C u V b 1 

EXT END 


0993 

REF 

11 

LAST 

1081 

15, 3356 

3 1 ?u2 ' 

jCa 

PKcL 

^994 

REF 

o 

LAST 

It 91 

15, j357 

50 395 i 

[ NUEX 

SW/NUX 

0 995 

REF 

2 

LAST 

73 

15,3361 

52 324 ^ 

UXCH 

ENOBUF “1 

0996 

REF 

10 

LAST 

1G78 

15,3361 

3 17G3 1 

CA 

RREL 
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E6 S3 


INITIALIZE THE TM LIST IN UPBUFF 

INITIALIZE CUUNTEK 
iS’i7EG7rrivE' TJOTjei” 


01997^ 

— REF 

X 

TTIST 

1g91 ' 

~r57336Z~ 

bC 3i]5 

'I 


INDEX ■ 

SV/TJ'UX 

f 9 9 o 

REF 

3 

LAST 

1-91 

15,3363 

54 325 

1 

_ 

TS 

ENOBUF +1 

<999 

REF 

3 

last 

1073 

15,3364 

3 1623 

1 

CM/END 

CA 

Cm/ SAVE u 

ice- 

REF 

16 

LAST 

10 84 

15,3365 

54 021 

0 


TS 

SR ' ■ ‘ ----- - - 

Alt n 










DOES NUT PROTECT TEMK, SD IN SPSIN/CUS 

lGv:2 





15,3306 

u Oc/u6 

1 


EXTEND 


irc3 

REF 

1 



15, j367 

'3 3373 



OCa 

T5I0LEK2 ■ 

li 14 

REF 

24 

LAST 

!• 72 

15,337'^ 

52 113 

0 


UXCH 

1 SLUC 

10 05 

REF 

44 

LAST 

10 61 

15“, 3371 

0 5323 

0 


Tl 

RESUME ----- 

it 0 

RhF 

25 

LAST 

10 91 

V 112 




EBANX= 

T5LUC 

17 

KEF 

5 

LAST 

1069 

15 ,3372 

G3226 

*» 

1 

T5I ULEH2 

2CA0R 

1 :>lDLac 

1> . 7 





15,3373 

i206o 

1 




A 1'. 8 










DEFINE THE FULLDWING I7u REGISIERS IN UPBUFF TU BE 

Aloe 9 










U:)LD TU TELEHETtR CM VEHlCLtf^ODY RATE INFiThMA T I ON* - 

A 1' 1 










THE INFORMATiUN IS FILED EACH ‘ *2 SEC, GIVING 15D 

“OTi r 










uATA PUIl^TS £acH 1 bfto TR LI SI IS RtAD IW^ICE 

Alt 12 










lACH 2 5cCDNUS.> 

AlLi3 










THE SEQUENCE IS: SP TIME INITIAL TIME 

A 1014 










SWITCH ALSO TNOEX. 

Ai- 15 










P ROLL RATE 

— att:t6^ 










Q PITCH RAT'E 

A 10 17 










R YAW RATE 

Air 18 










ETC* 

h 

A It 19 








CMTMTIME 


UPBUFF 

Ait 2t 

311 T 









SW/NUX 
“TRTTmriF ^ 


CP3UFF ti 


4 


. , 7^ CF A oC PROGRAM AKTE HU bY U 

L CH ENTkY OlbllAL AUTpPItuT 

Plw'H SFACtH 


.iir/i . . Fbb<, 26,19 71 ULYSSES o029 PAGE li-92 


USilK'o PAGE Nu, 


b6 S3 


R Ilk. za 

inV23 

R i‘ ^’3 
til Z7 


CCNSTANTS USED IN 
C ON S T an ri> Ak e Th £ 

XMN = 4 J£G» VM 
X 8 UF = DEG 


THE ROLL CONTROL SYS I EK 

F uL LO wII^: a 

= 2 UEG/SbC, 




L t G/ S fc C 


9,1 DEG/ScCSU, VPl ^ 

K — aZiif Ai — 4a 33 DLii/ScCSQr 


r = z^TUTf 11^511“= TrSOTf 

Vi = 1 DEG/SEC, INTERCEPT WITH DZ SIDE 


i.'ze 

A 15.29 





li? f j>374 

77464 i 

-T-3 

VS4M1N 

DEC 

OtC 

— /L J3 

; 61 3 , .61 E**3 

cs 

VSU MIN/4 A PI = 4/(4 

(9.1) 18 , ) 

liL 2 9 5 

KEF 

1 



4355 


i iNi 

— 

ten 2 * 



1 ' 3' 

REF 

ti 

LAST 

564 

5G0 4 


2T/IC0U 

— 

iCio 

T/TCOU tXP-i4 TCDU 

= . lSf:C 

1 31 





15,3375 

23617 0 

l 8 J/b Al T 

DEC 

j 6l 31318/ 

18 /(8 (9olJ 4)^(ie3/ATn tXP -3 

i* 32 

REF 

2 

LAST 

1 i 3 4 

15, J4jv 


-V(MT/iai.< 

= 

-VM/36uK 

= 2 . 12 ) / 13" 


1« 33 

REF 

3 

LAST 

58 9 

^ij 4L 


2 JETT 


4 SEC b 

CS 2 (2 ) 1. C 

INTF.GER 

iC34 





15,3376 

wl44'? D 

4JeTT 

jEC 


CS 4 ( 2 ) IbO 

INTEGER 

ix3F 





15,3377 

1,266 0 XMlN/36. 

JcG 

Id 2 

- X Rl'N/ m “47 ”3'6 — FXF 

"T4 — =- - 1 - 5-2 TNTi:Gf)< ' '■ " 

lL36 





is t ^4 jC 

7.7>o 1 

-VM/3 6 uK 

DEC 

-..22222222 

=-2 /( 36 v; (..25)) 


i 37 

REF 

4 

LAST 

1.35 

15,3375 


l/i 6 Al 


133/ 3aTT 



A H 37 1 









i/i 6 Al 

= 16 /(16 Al TT) 


Ai-*.3 8 










=186/(16 4»55 4) 


1 3S 





15,34-1 

00 133 U 

XS/ 

DEC 


=IXM1N +VI ( T-l/KJ )/36 

C = 2/361 EXP 14 

15 4' 

REF 

2 

LATT 

1754 

i 5f 34‘j 1 


buFlim 


X!:>/ JO , 

47T2 — 5SvT 


1^ 4 1 

ktF 

lo 

LAST 

1 L 9 V 

4753 ”^ 


KTRCS 

= 

HALF 

KT = 1.25) 2 = .5 

■■■■■ 

ENC 

CF 

ULYSS 


29 









3 ■’ 


5 __ 


»< 
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P ■ 

R 

KL 

R ' 

K 




4 

6 

J 


K *■ ( 
K v' . 

R : 


1 

11 


11 s 


K L 


12 


K 

RC^ 

KV. V 

RC 


i I 


14 

15 

16 
17 


RcolS 

KCJuiy 


‘1 • "? 


2U 


Rrrzi 


Rf.i 22 


Rr:r23 

Ki'\ 24 


R^'t 26 

R 27 
K ■ 2 B 

R ,;i.2v 

RE‘-30 


firarrr 

R^t 32 
K c C 3 3 
R CC 34 
R or 3 6 
R(..C38 
RCW 


DCWA- luLE-itTKY PROGRAM 


USER'S PAGE MG 


i S3 


PROGRAM NAME 

RCD NC«- J 


COWN TELEMErkY PROGRAM 

TO CCMPEcfELY REWRITE Th£ OQW N TElEMETKY PROGRAM ANO DOWNLINK 


ERASABLE IjUMP PROGRAM EUR 1 HI 


PURPCSE UP SAVING APPROXIMATELY 150 WORDS OF CUFE STORAGE 


■ THrS~trHAivGL l^inriTt 5" a N ENT1T1B.Y WtrW~RtrrHOD' OF^oFinJlTYlT^ir’Dm^^ XIS rS-FtTFR“TD”ULiT7TirTT7K 

LISTS LOG SECTION FUR MORE UETAILS* HUWE Vcx THIS CHANGE WILL NOT AFFECT THE GROUND PRUCESSI'iG 
UF OCWN TELEMETRY DATA, ' 

BY- KILKOY, SMITH, JEWlTT 

BV - DENSMORE - JUNE 1969 - ELIMINATE ERASABLE DUMP CCUNT 
12uC T67 

TC I OTDY7~3TrnTr, “IJHWTTT",' U t W b L F T "FATTm — 

LOG SECTION- OCWN-TcLEMtTKY PROGRAM 


HCD 

MCU 


CATb- 

AUTHClRs 


FUNCTIuNAL DESCRIPTICN- THIS RuUTlNE IS INITIATED BY TEtEMFi RY END 

PULSE FROM THE DOWNLINK TELEMETKY CONVERTER, THIS PULSE OCCURS 
AT 50 TIMES PcK sEClEVERY 2v US 1 THEREFORE DQDOWNTH IS 
EXECUTED AT THESE RATES, THIS RLUTINE ctELEoTS THE aPPkuPkI ATE 

TKATJSHITTFD" DDTTFfL'TNKr A 7 VU'XU'AD'S~rT~TrTTU tJUTPin 


ABC UATA 'TU 
CHANNELS 34 


> 1 r* 

tsc 


DTTnr 

AND 35, THE INFOkMATlUN IS THEN GATED GUI FROM IHE 
LGC Il\i SERIAL FASHIOPI, 

THIS PROGRAM IS CODED FOR A 2 SECOND UQWNUST, SINCE DOWNHUPFS 
OCCUR EVERY 2DMi ATTD ‘2 ‘ AGO COMPUTER WORDS CAN BE PLACED IN 


CHANNELS 34 AND 35 DUkING EACH DQWNKUPT THE PROGRAM 15 CAPABLE 
OF S END 1 NG '2U C‘ AGC " tfaRirsr~EVER Y 2 "SECOND 57 


CALLING iEgUENCE- 

PROGRAM IS ENTcRED VIA TCP UODCWNTi-i WHICH IS EXECUTED AS A 
RESULI OF A DOWNRUPT, CUNTRCL IS RtIURNED VIA ICF RESUME WHICH 
IN EFFECT IS A RES 
SUBROUTINES CALLED- NONE 
T^OTKA rrxr riTOTj'E^'^ TC F TTESDSIf 


% 
- 1 


RCC42 
RC .^ 43 


R' 
R : 


_ 


47 

4 fi 

49 


TrCCS^T 

5 I 
kt c52 
HOC 522 
RC< 525 


K 00526 


ALARM OR ABORT EXIT MODE- NONE 
RESTART FROTECTION: 

uiV A FRESH START AND RtSTAkT THE 'sTArsTSUB* SUBRliUTIWc wiLL INiTlALIZt THE gG.uNLIST PUl NT tR ( AC T UAL L Y 
DNTMGOTOl TO THE BEGINNING OF THE CuRRENT DOwi'>*L 1ST I I , Ec CURRENT CONTENTS DF DNLSTADRT, THIS HAS TH 
tFFECT Or IGNORING THb REMAlPitJER OF THE DUWNi.I^T WHICH THE DOWN— TELEMbTft Y PROGRAM WAS WORKING ON w 

THITT^FST' AK T TOR ' F RE SH ~ 3 TAKTT~XrCXLTTR^ir7n^J 'DCRTI ■"TELEntrT'RY“FRDfT THE BFGTNN'ING” OF ’THE CUFRCNT 

JOWNLl ST , 

ALSO OF IfTTEREST IS THE FAgT THAT CN A RESTART THE BGC WILL ZERO DOWNLINK CHANNELS 13, 34 AND 35o 
LCWNLINK LIST SELECTION: 

THE AFPRQPRIATE DOWNLINK LISTS ^RE ScLECTED 3T THE FOLLOWING: 
i« FRESH START 

2'; V 3 7r.«l — HRTfTE ~50f'^nTTt'~PA J C TT^MOD c“a El SG SELTCrFJr ^ _ 

3, UPDATE PROGRAM I P27 I 

-t. NQi^-V37 SELECTABLE TYPE PROGRAMS ( E, G;. mGS HUT i Al i ZAT IGN t SUNDANCE , LUMINARY ) AND P61-P62 

TRANS! TlONtCOLOSSUSI ETC^), 

DCWNLiNK LIST RULES AND LlMlTATiuNS: 

READ SCCTIONtSJ WHICH FOLLOW 'DEBRIS' WRITEUP, 

DOUHOT ■ PJCECTSI OT^ WORD S 1 1 


TJtTPUT- “’EVER Y Z ” SECGTTDS XC 


ET“ 2 


EGG 


1 i. C 5 4 
R^LSS 
k tt 56 
RET 5 8 


CUMPUTrR WORDS) ARE TRANSMITTED VIm DOWNLINK, 

ERASABLE I NIT lAL IZAT ION KEQUIRBD- NONE 

'DNTMGUTQ' AND *JNL;>TaDR' ARE INITIALIZED BY I i t: START PRCGRAM, 

DFBRI 3 ( ERASABLE LQCATIOiviS LE5TR0YED 3Y THIS PROGRAM)- 


n 


iJj X 




AS S£HtiLt: K EVJ SIQN .m CF AbC PKOGHAM AKTEMIS 8Y <>iA^A 4 d^21 ii4 
L DCWM^I ELtHtTKY PROGRArt 

Ret:59 LUATALSTf UNTMbUFF TO ONTMdUFF +2iO» TMINDtX, DNw . 

RC( 6. 


i 


A: FEii« 
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USER'S PAGE NO. 


EO S3 


L 

y * i> i) b 
K J 6tj 

R ( ' O 7 

R i. 6d 

K ■ C 6 9 
R < ■ C 7 < ' 

R O 75 
R It 76 
KCC77 

k t v 7 8 
k Cl. 7*^1 
k L ^ 8 -^ 
Rtf 81 

R CC 8^ 
kC03" 

R C(. 8 4 
Rf-G8 5 
R 66 
RCCe7 
Rtt 8a 
Krrb‘5 
RCtSit 
RCt91 
RCC92 
Ret 9 3 

Rtf 94 

“"irrrsT 

RCt96 

Rrc^7 

R C C 9 8 
‘RXIC^ 
R<"1- 1 

— FT^l :3 

I 4 

K I- 1 ' 6 

R \ 1 * 7 
Kt l'. 9 


kCll 
K X 1 i 1 
K i i 3 

Kvli4 

^116 

A liB 
K .12- 
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ijcwN- I lLlmlTry program 

tCDCWNlM IS ENTL-KED EVERY 2c MS bY AN INTERRUPT TkIGGEkEU BY pHE 
REttlPl CF AN' ENGPULSE FROM THE '^SPACECRAFT TELEMETRY PKJGRAMMhRo 


USER'S PAGE NU 


I $ 


S3 


NCt 

1« 


2, 


6 


6 # 


ES KEGARLTNg DOWNLINK LISTS A^I^IATEC WITH THIS PKUGHa.M: 

DGkNLISTS., - UUWNLISTS MUST BE CUMPlLtC IN THE SAME BANK AS THE 

DGW.’i - telemetry program, this is done Fur ease uF CcOIhG, FabIEr 

EXECUTION, 

EACH CJkNLINK list CCNSIsTS OF m CUNTROL LIST AND A NCHBER UF 
SU3LI STS. 

A SUBLiSl — HhFhKS lU A SNAPSHOT “uK UA I A CCHMUN I u I ML SAMt uk U lhER 
COWNLINK LISTS. ANY SUBLIST CUNTAINIKG COMMON D.'TT A i^iEEUS Tj BE 
CUBED ONLY GNCE FOR THE APPLICABLE DOWNLINK LISTS* 

SNAPSHOT SUBLISTS REFER SPcCIFICALLY 10 HOKQGENuUS DATA WHICH MUSI BE 
SAVED IN A BUFFER DURING ONE DOWNRUPT. 

THE lONAOR FOR THE ISl WCRO OF SNAPSHOT DATA IS HCUNJ AT THn END 
OF tACH SNAPSHUI SUdLiSl, S I TXL' TFE nPRUUKAM CODTNG ;>ENUS THTS UF WORD 
IMMEDIATELY AFTER STORING THE OTHERS IN THE SNAPSHOT BUFFER. 

ALL LISTS ARE CDMDINATIuNS UF CODED ERASABLE ADDRESo CCNSTANTS 
CREATED FOR THE DOWNLIST PROGRAM. 

A. IDNADR- r-WORD DQWNLIST ADDRESS* 

S/JME AS ECAUK, BUT USED WHEN THE WORD ADDRESSED IS THE LEFT 

FnSUF“CF"7l“IiDUBrE-PKECTS10N WtTiTU^^ FOR DUWN IbLtMLTRV , 

20NADR - 6DNADR N-WJRD DJWNLIST ADDRESS, N = 2 - o 

jAME AS IDNADft, BUT rtITri T rit 4 UNUSED BITS OF THE ECAOR FORMAT 
FILLED IN rtITH jt-i-ClOi. UbED TL PUlNt TO A LIST OF N oOUBL 
PRECISION WORDS, STORED CUNSECUTIVLLY, FUR DOWN VELEM^TkY* 

DNCrlAN DUWNLIST CHANNEL ADOKcSSi 

"USTEo 


B 


BTrs~nn7 


D 


SAME'ITS'IDNADR",' BU! WITVT TTTFFTX 
A PAIR OF CHANNELS FOR OUrtN TELEMETkY. 

ONFTR CCMN TELEMETRY SObL iST POINTER 


ro 'For NT~rTT 


8 


SAME AS CAP BUT TAGGcii AS A CONSTANT. USED IN CONTR._L Ll^l TO PUlNl TO A SUrtLlST. 

CAUTION A DNPTR CAT^NCT BE USED IN A SUGLISTo 

THE WCRD ORDER COCE IS SET TU ZtKO AT THE BEGINNING UF EACH QOwNLIS) 1 1 o £• CUNIKUL LISTJ AND WHIN 

A" »^1UNAUR — rriTcZ’ — I S U b ft L T E 0 TN T HE C CNTROTnTT 5TI O R L 7 H 

IN THE SNAPSHOT SUBLIST ONLY, THc DNACR'S CANNOT POINT TO THE FIRST WORD OF ANY EBANK. 


DCWNLINK LIST RESTRICTIONS: 

(THE FGLLOWING POINTS MAY BE LISTED ELSEWHERE BUT ARE LI.>TcD HERE SO 
DONE) 


IT IS CLEAR that THESE THlDGS CANNOT BE 


1, snapshot OOWNLI ST ; 

(AJ CANNOT CONTAIN THE FOLLOWING ECAOkSIUE. lD.>iADK'j): 
IB) CAN CONTAIN ONLY IDNAOR'S 


4 I I 1 C t U , 1 ‘ J , 2 c V. r 24* 



34 




2. ALL DCrtNLINKED DATA! EXCEPT CHANNELS! IS PICKED UP BY_a 

■ EoUTrArERT OF THE FaLLDWTTJo XFaTJFSC irr. TDNADfTSI: 377, 

{NOTE: THE TERM EQUIVALENT * MEANT THAT THE IDNaDR Tt 

3. CGNTkCL LISTS Ai^u SUbLlSTS ^ANNOT HAVE ENTRIES = uCTaL 


<DCASSO DOWNLINK LISTS CANNOT CONTAIN THL 
7TT, ■ 137Tr 7TTTr^3 / / , 21 tH , 33 ! / 3 7 77- 

oDNADR' WILL BE PKUCESSEC LIKE I TO 6 ECADkS) 

uwDOt UR OCTAL I ( fll 
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AS StMeie rUVIG JON < '* IZ Oir A G G PKUGKAM AH lhMl^a BY NA SA £ 21114- ,il_ 


L 

H' i2Z 
K L I 4 

kTIYs 

K lii 6 

F 12 7 


IJCWN-TELEi-iETkY PkOoKAM 


UStH'S PAGE NO, 4 b; 63 



THt 'iJNAOF T1ME2* 
CLMkCL SECTION OF 


shHICH will C-»GSt THE DOWNLINK PROorPAM TO SET THE WORDER CODE TO 3 MUST APPEAR IN THE 
THE OGWNLIST, - . 


5, *l^NCHAN CANNOT BE USED. 

6. »L‘NPr < . * CANNOT BE U^tU. 

I. DNPTR CANNOT APPEAR IN A SUBLIST a 


h < 12b 







RC12^ 

K i, 1 3 ‘ 

K 132 

; . T^TT 

EBANK SETTINGS 

IN THE PROCESS 
* GARBAGE’ INTO 

^ y w ^ Y ■ i ' ?='-Trr 

OF SETI ING THE EBANKIWHEN PICKING UP 
BlTS15-i2 OF EBANK. HUGH SLAIR-SRITH 

— .p . , »»»-■■;»■ ■ — 1 Jt I'l '1 /■ 1 t — — r-nr— -CT 

DOWNLINK 
WARNS US 

DATA) THL DOWN 
THAT BITS15-12 

TELEMETRY PROGRAM PUtS 

OF EBANK MAY aECQME 

- — . _ _ _ _ — — 


P. 136 THAT B1TS15-12 OF EBANK ARE ZERO* 

Ktl37 INITIALIZATION REwUlREO- TU INTERRUPT COKRENT LIST AND oTArT A NEW ONE, « ^ 

K(l3e 1. ADKES OF OOWNLli^K LIST INTO uNLSTAuR i 

RL139 2. NtGUN'E InTO SUBLIST ‘ 

R9l4r 3, NEGQNE INTO DNECAUK 


C 143 

REF 

7 

last 

103 7 

4Ui 




SET LUC 

FFrAGi2 


c 144 





4621 




BANK 



145 

KEF 

25 

LAST 

189 

, 33 T 




EdANK= 

DNTM cJOF F 


. 146 

REF 

1 







C u U i *4 T ^ 

1$/DPR0G 


147 

REF 

21 

LAST 

1l73 

462 1 

54 lo 

1 

DUDOWNl M 

IS 

EANiiRUPT 


1. 148 





4622 

U LUDo 

1 


E X I E NO 



114 1 

REF 

17 

LAST 

1C73 

4623 

22 312 

i 


^XCH 

LRU.' r 

SAVE Q 

1 15 

REF 

33 

i-AST 

10 56 

4624 

3 4762 



CA 

SI T 7 

^cl WCRD CRDER CODE TO 1, EXCEPT! ON- AT 

; 15 3 





462 5 

0 00 6 

1 


EXTEND 



Z15‘ 4 " 

TTEF~ 

13 


Tf 61 

4626 

02 0 

T 


kANO 

TRATIT 


.'15ri 5 

REF 

25 3 

LAST 

1039 

462 7 

1 U U 13 ^ 



CCS 

A 


15 >6 

H£F 

3 

LAST 

271 

463C 

'Q 1 334 

'J 


fC 

i^ibU 1 L 


CIS, 65 

REF 


LAST 

1^61 

4v3J1 

0 4542 

0 


TC 

ClJj r ALL 


C 15 C 7 

REF 

34 

last 

1^96 

‘♦632 

3 4762 

0 


CA 

cIT7 


1151 





4633 

C or ^6 

1 


EXTEND 


THE BLGINNING OF EACH LIST THE WORD 

<:152 

REF 

14 

uAS T 

1C96 

““4634 

u5 «13 

' 1 


WGK 

CHANi3 

“tODE WILL BE TtT BACfT'TS ' 

il53 

REF 

4 

LAST 

1lS6 

4635 

s) 1,334 

'J 

- - — ' 

TC 

DM HijUl L 

GC TO APPPCPRI/UE PHASE OF PROGRAM 

01535 

REF 

2 

LAST 

179 

o5t2L.O', 




SETLOC 

OGWNTELM 


C 1 536 





U 5» 344 6 




BANK 



153fc 

REF 

i 







COUNTS 

41/DPROG 


-154 

REF 

16 

LAST 

974 

„ 5 f 344 6 

5 77UZ 

J 

DNPHa 66 i 


NcGONE 

INlTIALlZe ALL CONTROL WQRJS 

1 155 

REF 

1 



.5, 3447 

34 336 

u 


Ta 

:>6ci L I ST 

WQKOS TO MINUS ONE 

t 156 

REF 

1 



j 5 ♦ 345 - 

^4 i J 5 



r s 

t L AiiK 


1 5 7 

kef 

1 



j 5 , 345 1 

3 357 4 

1 


OA 

LCNPHAS^ 

SET uNTHGOTC =0 ALL SUBSEaULNl DOWNRUPTj. 


At' : ASSlMBtt KbVISl ON Tl LF AoC PK JGKaH AR1 £HIS BY NASA ^ 21il4-'ii 

DLrtN-l KLci'ii.TRY PROGRAM 



REF 

o 

LAST 

96 

jj5*3452 

j4 3 J4 

1 

TS 

CNH-lGUTa 

ioS 

REF 

1 



C 5i 3453 

1 3467 

vJ 

TCF 

fVcinIL 1ST 

IG 

REF 

2 

LAST 

10 9u 

3» 3454 

1 12 335 

V 

CNPHASE2 CCS 

DNECADR 

161 

STF 

T' 



C5 f 3455 

L 3 6 v f 

L 

TDOITOTJR TC 

TtTTHZHir" 

* loz 

REF 

33 

LAST 

B3? 

05*3450 

77753 


MINT 1 Mt2-iDNA0K 

T 1 HCZ 

C163 





3 f ^3' 7 

1 34o‘. 

1 

1 CF 

+ 1 

■. 164 

REF 

2 

LAST 

1096 

0 5 1 346 •. 

I J 33 0 

T 

W 

CCS 

SUiLUT 

f IGS 

REF 

1 



j $ J46 1 

i 3622 

1 

1 ' 

TCF 

N L < f I i4S L 

" 16“& 





~ :> * J 4 6 2 

■ 74 m 

1 

onauhucp« Dot 

74 k,' ' i 

i lo7 

REF 

1 



jbf 3463 

3 l333 

1 

CHKLISl CA 

CTLIS ( 

•• 16B 





-5*3464 


1 

t: X T E jNO 


; 16S 

REE 

2 

LAST 

1097 

j 5 1 3465 

6 346 7 

1 

a IMF 

NEWLIST 

171 

KEF 

1 



15*3466 

1 3474 

1 

TCF 

NE.KTINCL 

~ITT~ 

REE 

- 3 - 

X AST TT5^ 

0 5* 340 7 

50 352 


NbWLi.61 INOEX 

D N C S T COD 

,172 

REF 

1 



u5f j47 j 

3 2362 

1 

0 A 

CNi -A OLE 

vl73 

REF 

2 

LAST 

10 97 

15,3471 

54 333 

D 

“ TS 

CTLIST 

Cl 74 

REF 

9 

LAST 

119 7 

w'5 f 347 2 

4 w332 

1 

0 s 

DNLoTCuD 

~ C175 

REF 

1 


■ 

. 5,3473 

I 3711 

1 

TCF 

SEND ID +3 

C177 

REF 

J 

LAST 

0 

-J 

1 

C 5, 3474 

51 333 

i 

NilXTlNCL ItNUEX 

CTLi 

— nrr^* 





w 5, 3475 

3 CildO 

JL. 

C A 

( 

.-17S 

REF 

259 

LAST 

6 

, 6,3476 

1 L J 'J 

0 

CCb 

A 

Cl8i 

REF 

4 

LAST 

1,9 7 

t5* 3477 

24 33 3 

1 

INCR 

L T L I 5 T 

«.161 





0 5 * 3 5 i.; 1 

1 35.4 

i 

1 CE 

^4 

: 162 

RFF 

5 

LAST 

1 V 7 

0 5*35, 1 

5b 333 

1 

XCH 

c rusT 

'..Id 3 





u5*35o2 

4 C ^ 

J 

CUM 


%i64 

“StF 

T 

0 


J5 , 35*'’3 

56 3 T 3 

1 

xcri 

OIlI ST 

1 165 

REF 

26\- 

LAST 

1097 

05 f 35t 4 

24 CC. 

1 

+4 INCR 

A 

V 1 oi6 

REF 

3 

L AST 

1C9T 

35 * 35 w 5 

54 ->35 

1 

u 

TS 

DNEC AOR 

(187 

REF 

i 



U5* 3566 

6 3456 

0 

AO 

MNI 1Ml2 

wlBB 

REF 

261 

LAST 

1Q9T 

US, 3517 

1. :0‘2 

c 

CCS 

A 

C 189 

REF 

1 



' 5*331 . 

l 3514 

sj 

TCF 

S c 1 ' J +1 

• — nrr 





C 5 1 35 X I 

' 47777“ 

U 

Fn^uT3i4 CCT 

4T7T7 

191 

REF 

2 

LAST 

1097 

05, 3512 

1 3514 

J 

TCP 

Sc I U +1 

1^2 

REF 

1 



05,3313 

3 '3536 

1 

SETWU TC 

fi GZ E Ru 

: 1 . 3 

REF 

4 

LAST 

1C 9 7 

C5,35i4 

^ i 335 

i 

+ i L r V 

Li\L.CADR 

' «:i94 

REF 

i 



35,3515 

6 3511 

1 

+2 .40 

HlNB13i4 

19 5 





/ 5*3516 

U irO u 6 

1 

cXTEND 


C' 196 

“RTF' 

2 

~rs:si 

Tr97 

“ G57 35T7" 

6 36uT 

(j 

b Z MF 

F ti r 0 w L' 

C197 

REF 

1 



«5, 352- 

6 7o /4 

L' 

AO 

PIN L^ 

C198 





,5*3521 

C *5 ‘-V b 

1 

cXT ENii 


Cloo 

KEF 

1 



5*3522 

0 354::t 

-J 

iiLi^F 

L (jtJ 1 '4 1 K 

C2Gt 





'3 5,332 3 

u 00 O' 6 

1 

DuDNCHAN fu 

6 

i2M 

“RTF' 


LAST 

“11T7' 

-5*3524 

TT T3T 

1 

INDEX 

C\CC Auiv 

20 Z 





5, 3525 

44*1.;. 

i 

INDEX 

V — J U W 

d- ^ 

REF 

125 

LAST 

1089 

J 5, 3526 

54 L 

1 

r s 

1. 

2 4 





5, 3527 

C- 0^ b 

1 

r L 

D 

.20 5 

REF 

D 

LAST 

1097 

/3* 353 c 

5 355 

i 

INDEX 

DNECAOR 


o 46 PAGE l’:97 


_ ili4 FEB, 26tlQ71 ZEUS 

U6EK*S PAGE NO* 5 Ei S3 

Gu lU UNPHASi:2 

SENDING OF DATA IN PROGRESS 
~ — YES~- J hen F b TCH 1 Hrt NEXT '2 S P WORD S 
NEGATIVE OF T1ME2 IDNADK 
<ECAUR OF 377o~+ 74L ;>i = 77777 ) 

IS THE SUBLIST IN CONTROL 
YES 

DNOTiT COUNl AND bCALK UhCKEHENTEK 


IT RILL BE NEGATIVE AT END OF LIST 


INilllALlZh CTLIST WITH 

STARTING ADDR1ESS OF NEWT LIST 


Set pointer to pick up next CrLI:,T WORD 

ON NEXI ENTRY TO PROG.-. tA SHOULO NUI = ) 
SET CTLisT TO NEGATIVE AND PLaCE t CODING) 
UN COMPLEMENTED DNALP INTO A., (FUK LAJ_ 

(CTLIST) 

SAVE UNADR 

TEST FOR T1ME2 (NEG. Of bCAOR) 

OLNT SET WORD ORDER CCl/E 

MINUS "BTT “13 AND 14 tCAN^T GET "HE RET 

DON'T SET WORD ORDER CODE 
GO SET WORD GRUER XWE TO ZERO 
RELOAD A WITH THE DNADRa 
IS Tills A REGULAR ONADR? 

“ NEVER BE ZERUl 

NO- IS IT A POINTER tONPTR) O.R A 
CHANNEL I UNCHAN) 

IT'S A POINTER, (A MUST NEVFR BE ZErtO) 
16XECUTEO AS EXTEND) IT S A CriAN NLL 


(EXECUTED AS READ) 


(EXtCUlcL: AS EXT END) 


1 


r-i 


AbSEMbLE KcV ISlOtM v PRObK AM Ai <Tc:Ml:> tiV l^iAM 


ll;4 FEBt. 26.1971 ZEUS 


46 PAGE 1.^7 b 


L CCW6-rcLtHLTKY PRGbRAM . _ USEK*S PAGb NOo _ _6 £- S3 


*- u 





y 5| JS3 1 

43*777 

1 


1 NDEX 

^ -t u 1 


(tXECUTEO AS he AD) 

2 1 

R t F 

7 

LAST 

1(057 

wb » 3332 

5 4 335 

u 


TS 

DHfcC ADR 


SET DNECADR 

2 o 

REf 

17 

LAST 

1(056 

U5f 3633 

3 712' 2 

u 


CA 

N tbOiih 


Tu MINUS 

2' ^ 

KEF 

8 

LAST 

i 93 

03i 3534 

5o 335 

1 


XCH 

cnEC.adr 


WHILE PRESERVING A«. 

21 

RtF 

1 



P5,353b 

1 3635 

y 



LNfHEXl 1 


GO SEND CHANNELS 

All 





5,3536 

U U w ^ 

1 

H □ Z fc y U 

t XT ENu 



r 

2113 

REF 

2d 

LAST 

It. 1 4 

■0 5,3537 

22 70 

i' 


^ XLrti 

R UP r rl (.j 1 



2115 

KEF 

6 

LAST 

14. 96 

'j 5 , 3 54 

L- 4542 

i / 


rc 

cisstall 



>2117 

“RTT 

35~ 

LAST 

1096 

C 5, 354 1 

4 4762 

1 


y 

bll / 



' 212 





>5, 3542 


1 


EXTEND 




A213 

KEF 

lb 

LAST 

i U ^ 6 

05 1 354 3 

^3 013 



WAND 

CHmN 13 


SEI wdkd order code to zero 

214 

REF 

2-'^ 

u AST 

1 98 

3 5, 3544 

u Gd 1 y 

. J 


rc 

HU P f Rcu i 

- 

RETURN TO CALLER 

^215 

REF 

y 

LAST 

1098 

25,3545 

5 E 333 

1 

CUJNPTK 

I njex 

CNcC AUR 


DNECADR CONTAINS ADRES OF SUBLiST 

0216 





j 5, 354 6 

0 y owO 

1 





CLtAR Af’jb ADD Ll5T InTu 

:2i7 

REF 

262 

LAST 

io97 

05,3547 

10 000 

-2 


CCS 

A 


IS THIS A SNAPSHOT SUbLlST 

C2io 

RSF 

1> 

LAST 

1193 

05,3553 

3 ^335 

1 


CA 

CiTtC ADR 


NO, IT ISA REGULAK SUBLIST,. 

* 21S 

REF 

1 

- 

• 

J 5, o55 1 

1 3621 

'J 


TCF 

LySUjLST 


A MUST NCT EE ZERO. 

(22 

REF 

11 

LAST 

1098 

■j 5, 3552 

S 6 3 J 3 

1 


XCH 

DNECaDH 


YtS, IT IS A SNAPSHOT SUBLIST^ 

k.221 

REF 

3 

LAST 

139 7 

L 5,3553 

54 336 



TS 

suDL IS r 


CIDNECAOK) IN to SUBLIST 

'ZZl 

REF 

214 

LAST 

1C89 

^5,3554 

3 4772 

1 


CAP 

Z yRU 


A INTO A 

" L223 

REF 

3 

LAST 

74 

i5,3555 

3 J5 

i 


XCH 

TMlNUtX 


INGTE,. TM INDEX = DNECADR) 

R( 224 

THE 

POLL I N*j 

CODING 

IFRUM SNA PL OOP 

TO SNAPENDJIS FOR THE PURPOSE OF 

TAKING A SNAPSHOT OF 12 DP RbGI STEPPS, 

R* 226 

THIS IS 

LONE 

3Y SAVING 11 OP 

REGISTERS IN ofllMBUFF AND 

sendinif the first op word immediately. 

k 228 

THE 

SNAP SHU T 

PROCESSING IS TH 

MOST 

TIME 

LuNSJMlNG AND 

THcRt*"L3i<£ THE 

CUDiNG AND LIST STRUCTURE WERE DESIGNED 

23< 

TC 

PIMA IZE TIMia" THE TIMt OPTIMIZATION 

RcSUL r s 

IN RULt 

S UNIUUE TC THE 

SNAPSHOT PORTION OF THE DQWNLlSl. 

Rl2J2 

THESE RULES ARE«a..o 

1 ^ 







.1 

»;» 

kj:<233 



io 

ONLY 

idnadfOs 

'CAN APPEAR 

IN THE 

SNAP SHU 

f SU3LIST 



RL234 



2. 

THE 

1JNADK*S 

CANNOT 

Ht Ft 

R TO THE 

F 1 kS T 

LUCA i ION IN ANY 

BANK. 


(. 236 

RtF 

26 

last 

9... 5 

05i 3i3 0 

54 0U3 

r » 

l._ 

SNA PL OOP TS 

EBANK 

'22.1 

REF 

3 

LAST 

334 

05,^557 

7 435*.- 

1 

MASK 

LCWd 

.23 8 





C5 , 356 , 

t y u ' d 

1 

tXTENU 


l23^ 

REF 

263 

y A T 

1098 

05, 356 1 

D V,. .J u ' 

1 

INDEX 

,A 

. 24 ^ 





E3,i4-.l 



EBANX- 

i 

i-241 





05,3562 

3 14-2 

•J 

JCm 

14 . 1 

.242 

REF 

26 

LAST 

lu96 

.337 



^LiAhlK= 

L N i H Liu F r 

t 243 

REF 

4 

LAST 

li98 

05, 35 o 3 

!>s S3t> 

1 

litUtX 

1 MlNJtX 

i 244 

HEF 

27 

last 

1 .98 

05, 3564 

52 34 

1 

DXCH 

y H f ri r>UF F 

V 245 

REF 

5 

LAST 

1093 

./5 ,3565 

24 335 

1 

1 y 14 

I Mi i'riDh X 

246 

H £ F 

6 

LAST' 

■i<!9r ' 

.55, .>566 

^:4 3>5 1 

rNCK 

^minoex 

(247 

REF 

4 

LAST 

10 98 

>5,356/ 

24 33 0 

1 

snapmgn inch 

SU3L 1 ST 

<•‘24 e 

REF 

5 

last 

1098 

:5,>37C 

5’': 336 

1 

I NDE.< 

S U D L I y 1 

:24 3 





-5,3571 

u 0 u u 

1 

y 


25( 

REF 

264 

LAST 

1093 

V 5 , > J 72 

i‘ .■) '> 

f J 

y C U 

,7 


SET cfaANK 

ISOLATE RELATIVE ADDhESS 


PICK UP £ SNAPShUT WUKDS. 


store ^ SNAPSHOT WORDS IN aUFFER 

SET bUFFER INDEX FOR NEXT Z WORDS. 

SET POINTER Tu NEXT 2 WORDS OP SNAPSHuT 

= LA SSSS (SSSS = NEXT LOTRY IN SU3L1ST) 
TljI fur LAol Two WORUo OF SNAPSHOT. 




J M B L t K E yj Sl l]i^ u U 


OF AGC PKUoRAM AK TEMI S JY NaSA^ ^^ 2^1114- . il 


ll;4G FEB^ 2 6 ,1971 2hUS >46 PAG^ 1099 


L 

OCriN 

-llLtHETRY PRuGKAi4 

- 




USER'S PAGE NO.. T Ej S3 

’ 2‘JI 

REF 

1 



'J5f-/572 

1 3356 

0 

TCP 

SNAPLUUP 

NUT LAST TWC. 

■v21i2 

REF 

i 



]5# 3574 

J3454 

i 

LDMRHAS2 GENAGK 

DNPHASE2 



REF 

6 

LAST 

1696 

M5t3575 

54 336 

iJ 

TS 

S JdLl jT 

YlS, last. save Ao 

T234 

8FF 

18' 

X'A^ST ■ 

TT9B 

“T5,'J3T'6~ 

■3 //a2 


C A 

NEOUrJE 

“SET DNbCADR~AN'D 

\ 233 

REF 

12 

LAST 

iC98 

o5 f 3577 

3 4 33 5 

i, 1 

rs 

CUEC ADK 

SU 8 LIST PCiINTEkS 

' 256 

REF 

7 

LAST 

1099 

5 1 JO vO 

56 336 

1 

xch 

SUjl 1ST 

tc negative values. ■ 

v*25 7 


27 

LAST 

l{.9a 

3 1 30 kj X 

54 0^3 

i 

«> 

TS 

EBANK 


'256 

REF 

4 

LAST 

1:98 

G 5, 3602 

7 4331- 

1 

MASK 

L 0^6 


v259 





J 5 f 36 3 

3 i . 06 

1 

EXTEN3 



26 ^ 


Z6y~ 

CA'ST 

T.TTJB — 

0 5 f 36'.- 4 

J T..' VI Ur *. - 

1 

I »Si D w X 

A 


• 26i 





E3ti4ul 



E6ANK= 

14.1 


<;?52 



- 


'3t ->6GS 

3 14-2 


OCA 

14.' 1 

PICK UP FrRST‘2 WORDS “OF SNAFSROTa ^ 

1263 

REE 

28 

LAST 

10 98 

u.^3 7 



E8ANK= 

C i\T rt jUF F 


C264 

REF 

2 

LAST 

10 98 

36 ^ 6 

1 3635 

U 

5 NAP END TCF 

CNTMEXIT 

NOW GL SENC THET4. ^ 

.265 

REF 

iJ 

LAST 

il99 

M J f 3 o T 

3 135 5 

1 

FETCH2W0 CA 

6i\fcC AuR 


C266 

REF 

23 

LAST 

il99 

J5#36l 

3**. > ' w3 


To 

EBAnK 

SCr EBANK 

C267 

REF 


LAST 

1 r 9 9 

j 5, joil 

7 433 

i 

i^A5K 

lO»i8 

ISOLATE RELATIVE ADDRESS 

120 B 

REF 

126 

last 

ivl 77 

05,3612 

3 4 OCT 

1 

TS 

L 


V26 9 

REF 

1 



1id,^613 

3 3462 

1 

CA 

CKaORDCF 

DECREMENT COUNT AND ECADR 

-27 

REF 

14 

LAST 

IB 9 7 

’ 5 , 3ol4 

26 335 

1 s 

ADS 

DNECADK 


■“r27ir ^ 





o5T>olTr 

^ 0 )6 

1 

EXT^NU 



‘272 

REF 

127 

LAST 

1099 

ij 5 f J o i 6 

5 10 ul 

J 

1 i 

1U. 

1 NOLX 

L 


-273 





E3,14L. 



tBANK= 

14, . 


1274 





0 5 , 36 1 7 

3 14 1 

■> 

1 > 

1 > 

OCA 

14. . 

PICK UP 2 DATA WORDS 

1275 

REF 

29 

LAST 

1099 

u 3 3 7 



£ 3 AK K” 

CNTfiSUFF 


1276 

REF 

3 

LAST 

1099 

’.>5 , 3621 

1 3635 

0 

fLF 

DNTrtEXi T 

NOW GO SEND THlM. 

U277 

REF 

a 

LAST 

1099 

ii j f 36^ X 

54 336 

j 

CuSUOLST TS 

SUoL 1ST 

SET SUbLlST POINTEK 

’276 

REF 

C 

LAST 

1C 9 9 

•j5f 3622 

5\J 336 

1 

NcXTINSL INDcX 

SUJuIST 







J 5,3626 

6 COUu 

1 

(J* 


= CA SSSS (SSSS = NEXT ENTRY IN SUBLlSTi 

C23C 

REF 

266 

LAST 

1099 

G 5, 3624 

10 CCS 

c 

CCS 

9 

y 

IS IT THE END OF THE SUoLIST 

C281 

REF 

1'. 

LAST 

1099 

o 5 , 3o2 5 

24 33 6 

1 

INCH 

S U 3 L 1 S ] 

NC- 

C2B2- 






1 3632 

TT" 

TCF 

+4" 


1283 

REF 

11 

LAST 

1099 

i}5 1 3o2 7 

54 330 

0 

TS 

3U3L 1 ST 

SAVE A- 

C28A 

REF 

19 

LAST 

1099 

05, 363 

3 77C2 

0 

CA 

TTEGONn 

SET SUBLIST TD MINUS 

i2d5 

REF 

12 

LAST 

1C99 

.5,3631 

56 336 

1 

XCH 

SUBLIST 

RETRIEVE A. 

^'286 

REF 

267 

LAST 

1C99' 

15,3632 

24 OGL 

1 

+4 I NCR 

A 


1287 

REF 

15 

LAST 

1199 

05 1 «>633 

5h 335 

u 

TS 

LXCCAUK 

SAVE DNAUR 

12 88 

FEP" 

■3" 

TTTST’XrQT^' 

.G57T634~ 

"T" T p 1 5" 

1 

TCF" 

J t i w > + ^ 

CO USE CuMr‘'nM LUUiNoK PkUBllM^ WOULD 

A 1289 










OCCUE; IF THE PROGRAM ENCOUNTERED A 

AC29C 










DNPTR NOW! 

t 291 





0 5 f oo3 5 

0 6 J J 6 

i 

CNTMtXIT EXTtNU 


LQWN-TELEMETRY EXIT 

.292 

REF 

1 



U5f 3636 

01 034 

1 

W i< 1 T t. 

DT^T rtl 

TO SEND A + L TU CHANNELS 34 + 35 

\2T5 ' 

REF r2r 

LAST 

irw 

05 ,363 f 

"I’UTJl 

n 

CA 

IT - ' 

Hfc^iPtCXlVtLY 

( 294 





j 5, 3640 

V L ^ 0 ; 6 

1 

TNEXI fL EXTcNO 



1 295 

REF 

1 



>5,3641 

G1 135 


iffR 1T£ 

UNTH2 


* 296 

REF 

45 

LAST 

1191 

' 5 , 54j42 

1 5323 

1 

T hjv£S JH w 1 OF 

H cS U'Mb 

EXn TELEMETRY PROGRAM VIA RhSUMEu 


1 




ii 


< 1 


'\ » 


.» 


AiSEHBLE Rfc\/ISION .7^ CF AbC PRObRAM ARTEHiS bY NASA ^ 2iH4- 11 


11: 4- FEB. 26il97l ZEUS 


is 46 PAbL lib 


L 


CCWN- TELEMETRY PROGRAM 


USER'S PAGE NC 


Eb So 


!-2y7 


REF 


2 LAST 393 


/ 1>7 4 


RiNBi2 EQUALS -1/b 





r*. ^ ^ 








■ 

'"T- ■ ■ 

• 1 ^ ^ “ • ' 


-X •, ‘ 


) ?'■ .- ■ 


■ » • ’•^' "Vi ^ 


■ t= cj r 




■:•} 


n 






¥ • 


til iM^n- iMiBlia^ 


T2_. 



fQ 


9 


9 


I 



T 

« 



4 




% 


Lj I RlrVISlUN ^.12. Gt* AbU RKUGRAM ARTEMIS BY iJASa 2^2Xi.lH~ ii 


1 i I f-EB<. <i6fi9<’l ^tUS 


46 RAGE 1101 


CCrtN- ItLEMETRY PRCGRAM 


usek's page NC, 


t S3 


P ^ 3- I 
*■; ■> . i ■ ' <’ 

R S 3 4 
T. ' 3 o 
K'..3' H 

HlJI 
KE312 
RC313 
R <315 

R0317 
KC320 
kv^32 1 
k0322 
k*' 323 
Kr324 
aG323 
Rr328 
R^329 
RC331 
Ri333 


SLBRuGIINE NAME- ONDUMP 

funciiGnal de SCR ip n on - to 


(DUMP) ALL 8 BANKS OF tKASMHLE SIUKAGfc ' TwlCfc 


BANKS AkE sent ONE Al 

256D WORDS 


A time 
OF EACH 


CALL ING 


EACH BANK IS PRECEEDEO BY AN ID WORD, SYNCH BITS, ECAuR AND TIMEl FULLUirSEO BY THE 

~EFANK;r ETTATTlCS AREr DUMPED IN URDE'R t r«:r. EBANK u FIRS U~ THEN ESAiVKi Tmcr T"'""" 

SEQUENCE- THE GROUND OK ASTRONAUT BY KEYlNb VTAc CAW INITIALIZE THE DUMP„ 

AFTER KEYING IN Y74E THE CURRENT UGWWLlSr wlLL 3E ITMEDIATEtY^ TERTH M ATED Anl/ THE" DOT^iNL INK ERASABLE DITHP 
WILL BEGIN, 

ONCE INITIATED THE OOwNtlwK ERASABLE DUMP CAW dt TERMINATED lAND INTERRUPTED DQwNLIST RE INSTATED J ONLY 
BY THE FOLLOWING: 

FRESH START ' ^ 

2, COMPLETION OF BOTH COMPLETE DUMPS 

3, ARID INVCLUNTARILY BY A RESTART, 

NORMAL EXIT MODE- TCF ONPHASEl 

ALARM OR ABORT MODE- NONE 
^SUfcBQLTlNES CALLED- NONE. 

ERASTiBLE 1NH iACTZATriGN HcaurRED- ' ““ ^ ~ “ “ 

NONE 

DEBRIS- DJKPLBCf DUMFSW, DKTMGOTO, F5ANK AND CENTRAL RESISTcRS 

TIMING- TlMEdN SECS) = { ( NO»DUMPS )* INU.EBaNKS I WOSP CKuBANK + NU.IuWDSIJ / Nu^ WDSPtKSEC 

TIMEIIN SECST - I 4 3 ( 256 + 4 ) / IV 

THUS TIMhUN SECS TO SEND DUMP OF ERASABLE 4 TIMES VIA JuwNLINKI - 63. SECONLS 


C 


STRUCTURE CF CNt EBANK AS IT IS SENT BY DOWNLINK PROGRAM 


P; 336 

(REMIKDEK-THIS ONLY OESCRIBES UNE OF 

TH£~8 EBAN 

RC33a 

COWNL 1ST 





RC339 

WORD ' 

lAKEK FROM 

CONI ENTs 

OF 

EXAMPLE u 

RC 34 

1 

ERASl D 




Di77X u 

Rr342 

2 

LUwlDCJD 




7734^ 1 

k'-344 

3 

DUMPLOC 




134 1 

K- 346 

4 

TIMEl 




1412. 1 

RC347 

5 

FIRST WORD 

OF 

H BANK 

X 

d34CC 1 

Rj 349 

6 

2ND WORD 

OF 

t BANK 

X 

W ^ 1 i. 

Rr35T 

7 

jkD 'KGRO 

Uf- 

EBANK X 

L i i 42 1 

Ri 35 3 

• 





1 

Rv354 






1 

KD355 

m 





1 

K C 3 5 6 

26CD 

256Th WC.vO 

OF 

EBANK 

X 

. 3777 1 

RC358 

NCTE- DUMP LOG 

CONTAINS THE 

COUWTER 

AND 

ECADk Fur t 

RF35G 

THE BIT 

STRUCTURE uF 

DUMPLOC 

IS fCLLOWS 

R ; 36' 

“ 




X 

= NUT USED 

K L 3 6 i 

X ABC 

EEE kRRRRRRK 


ABC 

— c K M S A ti L c 


32 EBANKS WHICH WILL ot SENT'^BT DM ; ’Ur P ) 


Comm ewTs 


DOWNLdT FOR DOWNLINK ERASAELt L'UHP ( X= / CSM, 6 LM) 

jQrtNLlNK SYNCH BITS. (SAME ONE USED IN ALL OTHER DOWNIIdTS) 

(See NOThb ON dUHPLCC 11= 3RU ERAS DUMP, 34 i =ECADR uF 5UI WD 
TIMt IH CEWTISECCWjS 

IN This E^CAMPLE THIS WORD = CCMENTS OF FT, 14 t cCADP 34 > C j 
THIS EXAMPLE THIS WORD = CONTENTS OF 67,14 1 (ECALji< 34 1 i 
TN 'THT S' FX7rMPIT~TITr3 “WtJRTr ^ •CC■^TFNT5 OF' P7V14"^r ECADR 34 '' 2 i 


IN JHIS example this word = COWTFNTS OF 67,17/7 {ECADi; T777) 


K 36 3 
K . 365 

~wr365 


DUMP CGUNTcRtUt, ABC 
uOMPlLTE ERASAELi: DUMP NUMBER 
EEL = EBANK BITS 

RRTT RftRR'R“'”REL ATTVt~Ai:Dr<tS S wT TH IN 'AfTT^ AT^K 


= ,1,2 OR WHIt.H u- v.S I HAF 

1,^,3 OR 4 respect IVeLY IS IN PRDoivSS) 


"368 
V 36 S 
'370 


REF 3 
REF i 
REF 2 


CAST 1^98 


LAST l.'97 


j5,3o43 J 477^ 1 
C 5, 3644 54 j3:i .. 

w5,J645 D 37-iio 


CWOUM PI 


i-2 


UA 

ZERO 

INITIALIZE 

DOWNLINK 

IS 

CUMPLCC 

EKASABLE LUMP 

TC 

SENu I D 

GO SEND ID 

AWD SYNCH 


u P * 

ASifcMett RcVISiON .72 C^- A^C PRUbRAM ARTEHii BY NASA Z 2iii4- ii 

ii:4' l-te» 26*1971 ALUS 

>46 PAGt 11 2 

L 

BC wN-TfcLtrtt TRY PROGRAM 

USER'S PAGE NU.. 1 

t ^ Si 


.^11 

RE6 

1 



- 5* 364o 

3 3655 

1 


OA 

LCNDUMPi 

SEl UNTMGUTU 

' B7i 

REF 

u 

LAST 

lo9T 

>5* 3647 

54 334 

1 


TS 

lntmgu ru 

TU LOCATICN FUR NEXT PASS 

» J73 

K t; P 

22 

last 

IL 91 

c5,365i 

3 ',>025 

u 


CA 

7 IMtl 

PLACE TIMEl 

'.374 

REF 

129 

LAST 

1099 

0 5r 3651 

56 OUl 

u 


xcri 

L 

I N1 Q L 

i 375 

RtF 

2 

last 

11 1 

'5f Job 2 

3 ‘ 333 

1 


lA 

LuKr LuC 

ANu fcCADR OF THIS CBANK 1 N1 Li A 

376 

RFF 

4 

last 

i(>9y 

j 5 i ^ 6 b 3 

1 36 35 

■r 


TCP 

LNFMEXn 

SEND DUMP LOG AND TIMEl 

37/ 

REF 

1 



i'5f J654 

03656 

1 

LDNDUMP 

A0K£ S 

CNDUMP' 

— - — — — - — _ 

3 7 3 

REF 

1 



0 5* 3655 

u367 j 

& 

LONLUMPl 

AOKES 

LNUUMPl 


0379 

E F 

47 

LAST 

10 07 

05*3b56 

3 47 6 7 

s 

J 

CNOUMP 

oA 

1 Hu 

INCKEMtNT ECADR IN DUMPLOC 

03 80 

REF 

3 

LAST 

1102 

o5f 3657 

26 335 

.r 


A l) S 

DUMPLGO 

TU NEXT UP HORD T U BE 

1381 

REF 

6 

last 

i‘-99 

3 f J66 i 

7 43 d 

1 


MASK 

LuhB 

DUMPED AND SAVL IT* 

Cj'3ti2 

REF 

26(i 

last 

1099 

J 5f Joo 1 

i u i'i 3 G 

0 


CCS 

A 

IS THIS THE BtGlNNlNb UF A NEW EFANK 

0363 

REF 

1 



0 b f Joo^ 

1 36 72 

L* 


TCF 

CNDD.1P2 

NO- THEN CCNTINUE DUMPING 

<384 

~R£F” 

4 

“Last 

11 .’2 

"T57io6:i 

j 0335 

1 


tA 

TumPluC 

TtT- IS THIS THE END OF THE ~ 

i 3 b D 

kcF 

36 

last 

10 32 

bf j664 

7 4754 

1 


MASK 

Bi rij 

SECOND CON'.PLETE ERASABLE DUMP? 

< 3b 6 





?5,3665 

L C u-u^ o 

1 


EXTEND 



.; 367 

REF 

2 

LAST 

271 

5 1 J 6 6 6 

1 3645 

1 


32 F 

CNOU'tPi +A- 

NU - GU BACK AND INITIALIZE NeXT B vNK 

’ 39'. 

REF 

2 

LAST 

2: ,5 

0 b f -jbu 7 

1 3446 



TCF 

uNPfiAbc 1 

VES - SEND DUIrtNLIST AGAIN 

0391 

REF 

1 



O' 5 * 3 0 7 L 

3 3654 

► 

CNGUi'iPi 

CA 

LCNDJMP 

SET DNTMGQTO 

■' 392 

REF 

7 

LAST 

11 ' 2 

5*3671 

54 334 

i 


To 

L N r KGU 1 LI 

FOR WORDS 3 TO 2560 OF CURRENT ^6aNK ' 

<-39 3 

K t F 

5 

LAST 

11.^2 

j5t 3672 

3 ‘..335 

1 

6NUUMP2 

CA 

C JMP L 

... - _ . _ ^ _ — _ 

V 

REF 

29 

LAST 

1C99 

J 5 I J6 7 3 

34 033 

u 


rs 

tBANK 

SET EBANK 

3'? 5 

REF 

7 

LAST 

11 w 2 

i 3 f J 6 7 4 

7 4350 

1 


MASK 

LCRb 

ISOLATE RELATIVE ADURESS. 

0396 

KEF 

166 

LAST 

10 8 5 

ii5 t b675 

b 4 Lv w 2 

1 


T3 


iNUlt: MASK INSTRUCTION IS USED TU PICK 

39 7 

PEP 

16 

LAST 

744 

05*36/6 

■3 4t7i 

1 


CA 

^cb-: 

UP Fr<ASAfaL£ p£6iSTtRS 50 THAI 1 -ib 

W 398 

REF 

130 

LAST 

11 2 

j5,3677 

54 GOl 

1 


rs 

L 

REGISTERS 2\ ’23 WILL NUT dt ALTERED,/ 

0399 

REF 

137 

LAST 

1 

3 5 # 3 7 1 J 

b 0 

< f 

V 


INDEX 

w 


0 4v^ 





£3,14'. 0 




t3ANK= 

14>< 

PICK UP LUW ORDER REGISTER OF PAIR 

V A ' . i 





.5,^761 

7 1431 

1 


MASK 

14 1 

OF ERAS ABLE KEGISTErS* 

. 4 . 2 

REF 

131 

LAST 

1102 

5 f 3 7 (J ^ 

56 OGl 



XOH 

L 


7 : 40 - 3 -^ - 

TTcF" 

“TW 

"CASr 11.2 

“TTSr, J7TT 

5 ^ ' 'C Cr 



INUh’C 


PibK UP HIUH UkUliK PtblSlFk UF PAlk 

.404 





V 5 1 3 7 0 4 

7 i4au 

G 


MASK 

l4.> 

OF ERASABLE REGISTERS* 

■ 4' 5 

REF 

30 

LAST 

1C99 

.337 




t B AN K— 

LXrM'JDFl 


4 6 

REF 

i> 

LAST 

1102 

0 b f ^7L 3 

i 3633 

IJ 


TOP 

LNTMcXi 1 

bO St ND T h t K 

.4 7 





£5,3706 


1 ' 

SENG 10 

tX FEND 


=>’-!*ENT RANGE USED BY ERASABLE nuMP PkOGu 

4' 8 

REF 

8 

LAST 

112 


22 334 

0.- 


Q<CH 

LNTMGUTU 

DNINGOTU SO NEXT TlMc PRUG WILL 

• 4 . 9 

REF 

1 



. D* 37l£ 

3 b u 4 i 

1 


trf* liXi 

t: XA > 1 J 

To LJCAIILK ^ULLUWING :TC 5c*''dlu: 

.41' 

R t F 

15 

LAST 

273 

0 5 * 3 7 1 1 

54 . ijI 

1 


T J. 

i 1 4 Pi 

MilFANCE USED BY REGULAR DUKNLiNK 

Aj41v 1 








PRlujKmM 

>411 

RitF” 

2 

* A t i 

u A 0 1 

1 SLJ Sr f 

..5 * 37 12 

3 35d6 

1^ 


1 C' 

ru2e '<j 

Gq s£ W dRC uRUER CdDt lu iiiLPU 

.412 

REF 

1 



w 5 * 3 7 i. 3 

3 2U0O 

J 


CAF 

LCH 1 50 JU 

PLACE SPECIAL ID CODE INTO L 

0413 

REF 

132 

last 

11C2 

J5 r 37 14 

5 ET 1 ; 



XCH 

L 

AND rO BACK INTO A 

4135 

REF 

16 

LAST 

1102 

£5,3/15 

3 O- . 0 1 

n 


L, A 

1 1 cMPi. 

SEND DCWNLIST ID CODE 1 St. 

A 14 

kef 

6 

LAST 

1102 

05,3716 

1 3635 

ft 


TCF 

LN/iVOxn 







'Vf>C 














VJC 


«r.or;- ’■ ' 

; ;fi 4 


','v 3 
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1 I : 40 FEB. 26,1971 ZEUS 


046 PAGE '1103. 


OCWN-TELEMETRY PROGRAM 


USER'S PAGE NO, 


11 


EC S3 


♦ f 
I 


' 5 


, -v 






» C _ 




s 


-.1 * 


■ o 

; 


A 


??r 

■ I • ^ 


A 


I 




^ j 


% 

w 


• I 

‘ f.: 


• A. 

*■ *; 




, ’ 


. J*?*- . ' i. 




i-Mr ”■ ,- 

- ^ , I - 



■’ * < . 
/.* • 



j k 


*# 

i. 


A 







"t- 



?P 


0 




P'G. p' 




'J' '-' r-P 


...e 






■ S', f'^ <1 f" - 


^ ' C:7rQ, 

c ^ j jE, 




f ’ . 


l-r. 


• t- 

• ■ ^ 


9 _ 




H _ 




0 


f 

■Sj 


If- 






--J- 

• t • 


•A 





li;4 26tlg7I ZEUS 


0^46 PAGt 1X4 


C'At-lJ. A^i kt I^JSX t_BjLV i s 1 yiJ ^ t 72 O F AoC PKQcK aH ARTEMI S ^tiY >m ASm 2. 21 X14“ li 


L INTEK-tAM^ COMMUN ICAT I JN USEP'S PAGE NUe 1 E S3 


THE PCELUWING K>.>GfINE GAN DE USEJ TU CALL m SUdKCJlINi. IN ANuIHCfs BANK* IN iHc dANKCALL VERSION, THE 
R' l' .3 CADR of the subroutine lilMtCiATElY FOLLOWS THE Tu BANKCALL iNSTKU'ct ICN, t^lFH CIA) yViO CtL) PRESERVtUo 


■- i 45 

Hfch 

3 

LAST 

432 

S-VJ C *1 


2!i L T L UG 

FFI AGl 


L 5 





463 6 


3 ANK 


- - — - - -- . - . _ - _ _ 

rOL.55 

REF 

1 





CuUNT^ 

Si/ BANK 


ECO 6 

REF 

4 

LAST 

424 

4o36 

52 134 0 

BANKCALL UXCH 

euF2 

SAVE INCOMING A,Lj 

C C :j 7 

KEF 

189 

LAST 

11 >2 

463 7 

5C 0 )2 0 

I i’i □ E X 


PICK UP CADk^ 

nrcTB 





4640 

3 i 

CA 



t 'Gt G 

REF 

1 9 

LAST 

11 4 

464 I 

24 ':-.2 G 

-1 INCR 

I 

-St 

SO HE RETURN Tu THE LUC. AFTER THE CADR. 

R L>.. 1 



:>hCaLL is 

IDcNtloAl TO BANKCALL, EXCEPT THAT THE LaUR 

ARRIVES IN Ao 

^ 12 

kef 

133 

LAST 

11 2 

4642 

54 L "J 1 1 

SWCALL TS 

L 


' 13 


3 

LAST 

592 

4643 

22 Cw4 0 

LXCH 

F iiANr^ 

SnITuH bANKSt SAVING RElURf^l® 

‘ V 14 

REF 

3 

LAST 

424 

4o44 

7 5 4 1 L> 

hagk 

lOwi 

GET SUB-ADDRESS UF CADR. 

\ ' 15 

REF 

191 

LAST 

llv 4 

4o45 

5o •. j2 u 

XCH 

c 

A,L NOW CCNTAINS DP RETURN. 

- <16 

REF 

5 

LAST 

11 4 

4o46 

52 134 .> 

D.XCH 

DJFL 

kEsTukING INPUTS IF ThIS IS A BANKCALL. 

0017 

REF 

192 

LAST 

11- 4 

4647 

5l go 2 

INDEX 

c 


vC i 8 





4650; 

V 2CvC 1-' 

TC 

IOuOl 

SETIING C TC SWRETURN-:. 

t A.' 1 V 

REF 

u 

LAST 

11 . 4 

^65 1 

56 ij4 1 

SWkETUKN XCH 

fcUF^ +i 

COMES HERE TO RETURN TU CALLER. CtA,L> 

cG2 

REF 

4 

LAST 

11. ‘4 

465z 

5 o G 4 0 

XCH 

FBANK 

ARE PRESERVED FOR RETURN. 

U 21 

KEF 

7 

LAST 

11 :4 

4o5 3 

56 134 1 

XCH 

i:UF2 i 


22 

REF 

8' 

LAST 

11<'4 

4634 

V 133 0 

TC 

GUF2 


KL' 23 



THE 

FOLLOWING ROUTINE CAN SE 

USEU AS A UN I L Alt 

KAL JUMP 

/,11H C(A,L) PRESERVED AND THE CADR iMrtEOIATELY 

KlC25 

FCL LOWING THE 

TC POST JUMP INSTRUCTION. 




Cu26 

KEF 

i i J 

LAST 

11-4 

' To 5 5 

56 0U2 G 

PUSTJUMP XoH 

C 

SAVE incoming’ C (A). 

0027 

REF 

2t>9 

LAST 

11 2 

4656 

5 > gGL 1 

INDEX 

A 

GET CADR. 

TTTZ^ 





465 7 

3 COOg 1 

CA 



K 2 Z 9 

^ - 


BANK JUMP 

IS THE SAME 

AS PUSTJUMP, EXCEPT THAT 

riib CAijR 

ARRIVES IN A. 

C 3 1 

REF 

5 

LAST 

11^4 

466 u 

54 o4 1 

EANKJUMP TS 

r l!aNK 


Cu32 

REF 

6 

L AST 

11 4 

460 i 

7 5*^41 w 

*1 A S K 

LCti 1 


i C33 

—RTF 

194 

“OfST 

11 ;4’ 



XCH 


Restoring rfsfPUT ciai if this was a 

<<.34 

KEF 

195 

LAST 

11 .4 

'^66 3 

5 J w 2 v 

it+ 1 G- 1 - i u .1 X 


PUSTJUMP 

Lu35 





4664 

X 2 u 0.-^ 1 

PHiUi2 TCF 

1 J .J' ^ 

PKl Li 2 = TCF IGGL : = 12 y 

^ji .. Ti ■ 1 - 

■ - — 


- 






- 


1 ... 

I 


2 


ii;4„ FEU* 26fi97i ZEUS 
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uAP: ASSEHeiE Rt^/iSUlfvi 072 CF AuC PKUoRAH AKIEFIIS bY NASA 


211 i4- 11 


L I^TER-dA^K CGNPUN ICAT I ON 


USER'S PAGE NLa 2 EO S3 


P \ ' 3b 



THE 1 

FGLLQWl FG 

RsJUl i \>iE 

GtTi THE 

RETURN CAUK SAVhO, SY SdCALL 

UR 8ANRCALL AND LEAVES IT IN A« 

1 C38 

REF 

7 

OAST 

11' 4 

466 5 

5 5 ^4 1 

1 

MAKECAUR 

b af 

LUWi 


^ Co39 

HEF 

- y 

i» T 

i[lW— 

4666 

ynrss 

T' 


“SaSK 

fJFT’ 


C C 4 ^ 

REF 

lu 

LAST 

11 >5 

4o67 

u . i J 4 

i 


AD 

EUF2 +i 


c c-A 1 

REF 

196 

last 

1114 

46 7 0 

S ‘J - 2 



TC 



tv 465 

REF 

3 

LAST 

366 

4671 

54 135 

1 

SUPDmCAL 

TS 

KPTEMP 


"LiA i 

irHF“ 

&■ 

■ L'ASr 

T104 

■~4oTZ'' 

D b C 04 

r 1 


XCfT 

F3AN*t 

itT F'BAniv FDP D a , 

<.v.4 7 5 





4673 

u u uO 6 

1 


EXTEND 



Cd46 

REF 

o 

LAST 

58? ^ 

46 74 

04 06 7 

1 


KOK 

SUPERBNK 

Save FB'Am IN 61T5 15-ilf AND ' 

485 

hef 

4 

LAST 

11 : 5 

4675 

56 13 5 

u 


XCH 

FiPTE4P 

SUPcKSANK IN BITS 7-^5^ 

CC49 

REF 

3 

LAST 

11* 5 

4676 

7 5041 



HASK 

LCWl ■ ' 


11495 

REF 

134 

LAST 

11 -4 

4677 

56 Ooi 



XCH 

L 

SAVE REL, ADR, IN BANK, FETCH SUPERBITS^ 

CCS c ■ 





47TJT3 

J CGU4 

“0 


INHINT 


BtCAUSE RGPl uuc6 nui 6AVt iUKEKbAfMKo 

10505 





4701 

\J Li 0 is b 

1 


EXT END 



- Ct'51 

REF 

in 

LAST 

11 "5 

47C2 

w 1 'v* T 

1 


WkITE 

SUPcRliNK 

SET SUPERBANK FOR DATA 

C<-52 

REF 

135 

LAST 

11.5 

47l3 

50 00 1 



1 NUEX 

L 


“00525 





4TiJ4- 

3 200 0 

O’ 

" — ^ ■ — ■ 

CA^ “ 

* 

PINBALL (FIX MEM DISPT PREVENTS ODA^FTERE 

-153 

REF 

5 

LAST 

11,5 

a705 

66 135 

0 


XCH 

RPTEMP 

SAVE 1ST WC, FETCH OLD FbANK AND SBANK, 

rr5T4 






0 Tfv ob 1 


EX 1 END 



C'.53 5 

REF 

11 

LAST 

lit; 5 

4707 

U1 l7 

1 


rtRl T t 

SU p£: KDimK 

RESTORE SUPERbANKo 

^ Cu 54 

* 

- - 




^ -V 

^ C L' 

i 


RELINT 



Cv 54 5 

REF 

7 

last 

11,5 

4711 

54 ’♦ /4 

1 


TS 

FflANK 

REST3RE FbANKo 


REF 

6 

LAST 

11 *5 

»7i2 

3 ul35 

1 


CA " 

^'PTcMP 

RECOVER FIRST WORD' OF DAT A« ' 

< 555 





4713 

C 0032 

. 


RETURN 


24 WuSo DATACALL 516 MU, SUPDACAL 432 MU 


i>AP: Kl:VI 3IQ N C 72 CF AGC PKUGKAM ARTbHlb flY i^ASA 2' li 


lls4 FiiB* 26,1971 ZirUS 


46 PAGfc 11-6 


INTLR-aAj\K COMMU'^ilCATION 


USER'S PAGE NOo 


Si 


P v 

- -- - 

-- — 

THE 

FOLLUWINl^ 

RUUlIi'ii£6 AKt_ 

IDENTICAL TO 

OAi^KCALL ^WCaLL 

EXCEPT THAT THEY ARE USED 

IN INTERRUPT o 

i t. S8 

REF 

2 

uAST 

426 

4714 

52 t-73 

i 

1 BMkC ALL 

OXCH 

KU H 1 R C b3 

USES RUPTREG3,4 FOR DP 

RETURN ADDKESSo 

EH 5^ 

“TeT 

197 

LAST 

11 ;s 

4713 

5u 002 

i 


INuEX 




C 1 6', 





4716 

3 OUGO 

1 


CaF 




^ J o i 

KEF 

198 

LAST 

116 

4717 

24 062 

0 


I NCR 

L 



C' o2 

K E F 

136 

LAST 

11^3 

472€ 

54 OUl 

1 

ISoiCALL 

TS 

L 

---- -- - - 

- 

CL6i 

REF 

8 

LAST 

1173 

4721 

22 004 

0 


LXCH 

F3ANK 



t('t64 

R Ef 

9 

LAST 

11 5 

4722 

7 5041 

f'» 


1-4 ASK 

LO.a 



Ct faS 

REF 

199 

LAST 

ii 6 

4723 

3q i 62 

V 


XCH 

w 



tv 66 

REF 

i 

LAST 

11:6 

4724 

52 G73 

1 


OXCH 

KUP r RE 63 



CC67 

RcF 

2CG 

LAST 

iis6 

4725 

50 002 

0 


INDEX 

w 



* 6 8 





4 726 

0 2000 



TC 




C< 69 

REF 

i 

LAST 

69 

4 727 

i> 6 *273 

0 

ISHRETRN 

XCH 

RUPTKEG4 



CG7 . 

REF 

» 

last 

llv6 

4 730 

56 J }4 

'v^ 


XCH 

FBAiMR 



CL71 

REF 

4 

LAST 

llo6 

473 1 

56 7j 



XoH 

RUPTKLG4 



C€72 

KEF 

4 

last 

11C6 

4732 

E o0'72 

1 


TC 

RUPf REc3 




kc:c9g 




USPRCAOR ACCESSES INTERPRETIVE COOING IN OTHER THAN THE USEk'o FOANK- THE CALLING SEQUENCE IS AS FOLLOWS 


A €6*92 








L 

TC 

G5PRCA0R 



ACL 93 








L + i 

CAUR 

INTPRlTX 

INfPKETX IS Tht INTERPRETIVE 

CODING 

A CL 94 

■ -- 

- - 

- 



- - - 


- 



H t: r Ux N IS T L L + 2 

- — 

CIS 

REF 

4 

LAST 

426 

4733 

54 164 

V 

CSPRCADR 

TS 

LCC 

SAVE A 


i 1 L# '4' 

PEF 

28 

LAST 

961 

4734 

3 4761 

u 


cA 

2 1 T ^ 



C 10 5 

REF 

7 

LAST 

379 

4/35 

54 >23 

1 


T 3 

L,-oR 

EXIT INSTRUCTIUN TO EOOP 


. 10 6 

REF 

12 

LAST 

424 

4736 

3 t J 6 

1 


CA 

3 u A K 



.-17 

REF 

1 



4737 

54 165 

i 


rs 

SANKSt T 

USER'S 8BANK TO BANKSET 


JlCd 

REF 

20 1 

LAST 

1 X V 6 

474u 

5D 002 



INDEX 




civ 9 





4 741 

3 OUDC 

1 


CA 




— riiT 

“RTF' 

Tc" 

L /fST ■ n P 6 

4T42 

"STTvriTTr 

1 



FSANa 

iNickpREliVt bAnk To fBank 


?ill 

REF 

1 , 

LAST 

lie 6 

4743 

7 5,41 

u 


*TA6K 

LCaI 

YIELDS INTERPRETIVE RELATIVE 

ADDRESS 

112 

REF 

202 

LAST 

11 .6 

-*744 

56 mj2 

< 


XCH 

/V 

W 

INTERPHEIIVE ADDRESS TU Qt fi. 

rChING L+l 

’-ilJ 

i<6F 

5 

L AST 

11 Jo 

4745 

j6 164 

1 


XCH 

LOC 

L*^i TO LQCt RETRIEVING ORIGINAL A 

V 114 

REF 

1 



4746 

1 4663 

1 


TCF 

L 




• * 
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L iNTEK-dANK CUMMUN iCAT ION 


P V il? 
R il‘- 

R cl \ 

■KiTrZl 

RC 122 
Ri 124 

R^'!126 

KC12e 


HC132 
uni 3 4 
K ^ 136 
Rcl3e 


THtRE ARE FOUR POS SI BLcSL T1 I NGS FuR CHAKNcL .7o (CHANNEL 

PStUOO-i-lXcD 


SOPERdANK 


SETTING 

S-REG. VALUE 

6ANK NUMiifcRS 

SUPEKBAKK 

3 

^<X 

2'Cob - 3777 

3l - 3 7 

SUPERB AH K 

4 

1 ■■■! C 

ZUOC - 3?77 

4 - 47 

SUPERBANK 

5 

1 1 

2jUC - 3777 

5 - “ i> 7 

SUPERBANK 

6 

11 , 

2G}JU - 3777 

** Q 7 


W 


-*■11 

11:4 

FEB* 26,1^71 ZEUS « .46 PAGE 11:7 



USER'S PAGE NO. 4 E S3 

./ CONTAINS THE 
OCTAL PSEUDO 

ADUKESSeS 

SUP ERBANK SET TING* ) 

7 Ouv V 

i ai. 

- 1. 777 7 

- 127777 

tWHEHE XX CAN BE ANYTHING AND 
rilLL USUALLY BE SEEN AS 11) 

(AS FAl^ AS IT CAN BE SEER, 

ONLY BANKS 4-43 WILL EVER BE 

1 OjOCD 

- 147777 

- 167777 

AKD'T^TTE" PRESEN TL 7 A VA X LABLF) 

(PRESENTLY NOT AVAILABLE TO 

THE USER) 

(PRESENTLY NOT AVAILABLE TO 

THE USER ) 
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PAGE 11 J 


L INTERPRETER 


USER'S PAGE NO* 1 ho S3 


KCf.tl SECTION 1 OISPATCHLk 


Mil. 2 
RC<. 

iv;' I 6 

KC! 1., 


ENTRY TO THE INTER PRETc 4 U INT PR ET SET S_ L 0 C^ T^ fP.E FIRST INSTRUCT! ON t BANKSET TO THE BBANK OF THE 

UBJECT INTERPRETIVE PROGRAM, ANU INTBifiS TO THE UIIIS CCNTENTS OF FbANKo INTERPRETIVE PROGRAMS MaV BE Tn 
VIRTUALLY ALL BANKS PKEStNT UNuER ANY SUPER-bANK SETTING, Ul Ih THE RESTRICTIGN THAT PROGRAMS IN HIGH ttANKS 
(eiTli) OF FBANK = 1) 00 NOT REFtK TO L0W6ANKS, AND VlCE-Vtr,SA, THE INTERPRETER DOES NOT SwITCH SUPEKBANKS* 
fc^BANK SWITCH IiNiG UCCUKS wUtNEVcK GbNER AL ERASABLE t XJu “ >777) IS ADLRtSStUa 


V 12 

REF 

"i 



oiK ■ ) 




S t TL QL 

INtERF3 


5-L«i25 





6u06 

— - - 



BANK 

- - - - 



REF 

i 
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$S/1NTER 


.C135 





6uv.6 

sJ 3 

1 

INTPRET 

KELINT 



i;tl4 





6'j w 7 

LOO 6 

1 


EXTEND 


SET LUC TO THE WORD FOLLOWING THE TC., 

’ 16 

REF 

O 

lTvST' 

lib 

60 XO' 

22 lo4 

1 

+ 2 

QXCH 

LOC 


<■'.16 

k6F 

13 

LAST 

1. Jl o 

1 

3 C w ^ B 

1 

+3 

CA 

B B A N K 

INTERPRET I VE BRANCHES FINISH HERE, 

Ll17 

REF 

2 

LAgT 

not, 

o j1 Z 

54 165 

1 


rs 

BANK SET 


Lul 6 

REF 

39 

LAST 

10l!> 

oui3 

7 4752 

i 


MASK 

EiTlj 

GET 15TH BIT FOR lNDEXA8LE~AbDRESSES» 

loig 

KEF 

4 

LAST 

7 

6JiA 

54 115 

l-J 


TS 

INTolTiS 


vu2’ 

REF 


LAST 

11 : 6 

o 15 

^4 V 23 

1 


F5 

LOOP 

MAKE SURE Ng_ I NST RUCT IONS LEFT OVER 

C'.2i 

kff 

1 



6 L- i 6 

1 6 37 

1 


TCP 

NEWURS 

PICK UP OP CODE PAIR AND BEGIN* 


C. 22 
t I 23 

c 24 

REF 

REF 

14 

226 

LAST 11- 8 6017 22 L’Jb 1 INTRSM 

last 94 sv 6l2-< 1 6011 0 

uLOAC LOADS MPAC, MPAC +1, LEAVING ZERO 

LXCH LBaNK 

TCF INTPRET +3 

IN MPAi. +20 

RESUME SUSPENDED INTERPRETIVE JOS 

1 .25 


- 

oJ21 U 1 CLUAP 

EXTENu 

— ■ 


V 2o 

REF 

1 



6.22 

5 Lllb 

1 



AOUKWD 


CTY7 







j-iijrrr 

. [ 

'W 


OCa 

LUAD op C 1 C t AOUUW'D ) ) iNlU MpALfMX'AX +1 


Tv 28 

REF 

238 

LAST 

917 

6 v >24 

52 155 

1 

SLJAD 2 

OXCH 

PPAC 


ti 29 

KEF 

2 C 6 

LAST 

11 i 

6 u 25 ' 

3 4772 

1 


OAF 

Zt 2 U ZCkL rtPAC +2 



> 
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L iMERPKETEK 


>-■ 0 



AT THE LNu CF 

MU:.T INSTRUCTIONS 

, CONTROL IS 


R u F 

289 

LAST 

1 1C 8 

6 i^6 

^4 l36 

1 

+ 2 TS 

' 3 3 

REF 


“LAST 

“'SAJ 

G G27" 

"5A 1 o3 

I 

KtwfTOOE TS“ 

34 

KEF 

3 

LAST 

11 3 

6u3i 

3 C 1 6 5 

6 

DANZIG LA 

* J 3 

REF 

i:> 

LAST 

1 1 ' 6 

603 1 

i>4 C06 

0 

TS 

A, i 3 6 

REF 

9 

LAST 

11 6 

0.32 

10 C23 

1 

NOIBNKSW CCS 

rri? 

f\ £ r 

~ 1 



6033 

1 6D4o 

“T 

ToF 

L-j9 

REF 

6 

LAST 

862 

t>G34 

X *j c^67 

1 

W ^ 

40 

REF 

1 



6j35 

i S156 

1 

TuF 


C( 4 1 

REF 

7 

LAST lie 3 

6y36 

2-^ 164 1 

I NCR 

C^42 



ITRACE (il 

REFERS TO 

"NEi^OPS". 


r043 

REF 

6 

LAST lie? 

^6037 

SD 164 i NEWOPS 

I I^Uc-X 

Lt44 




6\i4‘. 

3 tOJu 1 

CA 

CC45 

REF 

27C 

LAST 11 >4 

6141 

iu "OOli ^ 

w W ^ 

^ '.’'46 

REF 

1 


6u4^ 

1 6331 1 

TCP 


v6 47 





o J43 

y. i i 7 7 

0 

L0W7 

'OCT 

ct 4t 

REF 

i- 

LAST 

lie 9 

6 v44 

54 v2> 

1 


TS 

Lt'49 

REF 

6 

LAST 

379 

£>c 4 5 

7 6-43 

1 


MASK 

LR 5' 

REF 

7 

LAST 

384 

6^ ^46 

54 G2L 

1 

LPJUMP 

fs 

:.'.5l 

PEF 

O 

CAST 

11-9 

oe4 7 

i. . 920 

i 


CCS 

♦'C32 

REF 

1 



O'. 5 

1 6216 

u 


TCF 

33 

KEF 

i 



6u5 i 

1 6712 

1 


TCF 


*1 


114— U 


VtN ru uANZIG 

MPAC +2 
r-Gut 

BAiNkgET 

EEmNK 

EUJP 

■CPJDTIP^ 


I^E ki J iJB 
GH A( 

LOG 

lCg 

A 

LGjT JKt 


177 

EOuP 
LlIW 1 


CYH 

c vk 

CPjj:'iP2 
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USER'S PAGE NO. 2 EG SJ 

TU GISPATCH THE NEXT OPEKATiUH. 

AND OECLAKt DP MODE 

'in^a'OTGDT^FCirTrrJDE-^ TiTSTRUCriUffST 

SET dBANK BEFORE TESTING NEWJOB "SO THAT 
IT MAY BE SAVEQ DIRECTLY BY CHANJuB, 

SEE IF AN CRDEH CODE IS LEFT OVER FROM 
FTTE LASinPTVIirTrFn^lEVEO. SU, FXbCUIEo 

EDOP IS SET TU ZERO ON ITS RE-EDITING. 


SEE IF A JCB OF HIGHER PRIORITY IS 

Present, ANu if so, change joss, 

ADVANCE TFrETuC^f ION COUNTER. 

ENTRY TO BEGIN 8Y PICKING DP CODE PAIR, 
MAY BE AN CPCQDE PAIR OR A STORE CODE, 
TEST SIGN AND GLT DAESIA)." 

PROCESS STORE CODE. 


OP CODE PAIR, LEAVE THE OTHER IN EDOP 
RHE'RE CCS EDOP WILL HONOR IT NEXT. 

rdwwo ' FNTERS HERE IF A fU GHT-HANU" b> 
CODE IS TD BE PKOCESSEO, TEST PRtFlCES. 
TEST SECOND PREFIX BIT, 


EXIT 


+G OP CODE IS EXIT. 
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L IKTERPRETtR 

i- ’ PROCESS ADDRESSES WHICH HAY BE LIRECTi IHDEXcO» UR REPtRcNCE T 


Cf; S 6 

REF 

60 

LAST 

1089 

6052 

7 477U 

1 

ADDRESS 

MASK 

Sin 

CcS7 

REF 

^71 

LAST 

11 9 

6^ 53 

1 C/ r -■ U 6 

D ' 


CCS 

A 

1,05 3 

REF 

1 



6^54 

1 6113 

u 


TCF 

INDEX 

L.C59 

REF 

Q 

# 

LAST 

llu9 

6‘; 5 5 

3 J 164 

1 

DIRADRES 

1 44DE X 

loc 

' ^ 6 . 





6036 

4 OOUi 

1 

CCT4V Ww 1 

o 6 

i 

0061 

REF 

272 

LAST 

mu 

6U 3 7 

IC UOO 

0 


CCS 

A 

C062 

REF 

1 




i 61 64 

w 


TCF 

P U :,H UP 

La, 03 




- 

6< 61 

77773 

1 

KEb4 

DEC 

-4 

V - 64 

REF 

ic 

LAST 

11 lu 

6062 

24 164 

1 


1 NC R 

LuC 

roos 

REF 

2 

LAST 

110 3 

6., 6 3 

54 116 

^ . 

1 


TS 

ADJKWD 


-t 


to~- 


3 


5 


'i 


i 
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E PUSHUOWJ^I LIST, 

SEE IF ADDRESS IS INDEXED* CYR CONTAINED 
40. XX, SO BIT 1 Is NOW AS IT WAS IN CYR* 
FORM INDEXED ADDRESS* 


LuUK AHEAD TO NEXT WORD TO SEE IF 4 

ADORE SS IS GI VEN. 

ithtot; 


IF SO, TC SHOW KE PICKED UP /' HORD^ 
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L INTtKPRETfck UStK*S PAGE NQ« 4 cv S3 


P: 66 FINAL ClGESTiLN OF OIRtCT ADDRESSES uF OP LODES /<ITri cl PREFIX IS DDNt HERE. IN EACH CASE, THE 

Kf^oO REgUlKLD 12-611 SUB-ADDRESS IS LEFT IN ACORWD, WITH ANT REyUlKED t uk F BANK SWITCHING DONE. ADDRESSES LESS 

K; j/; than are taken TL be relative to the work area, the CP LUOb IS NOW IN bits 1-5 or- CYR WITH BIT 14 = 1^ 


vC 72 

73 

EE 74 

75 

HEP 

REF 

REF 

REF 

1 

273 

1 

1 

LAST 

111 > 

b -64 

6 J6 5 

b j 66 
Ob6 7 

6 62^ j 

1 ^ w L U 

6 767 6 

1 6 v74 

1 

a 

1 

"j 


AO 

CCS 

AO 

TCF 

-tNDVAC 

A 

— ENDcRAS 
lERASrSl 

SEE IF ADDRESS RELATIVE TU WORK AREA. 

IF NOT, SFE"rF IN GENFRAL ERASABLE. 

C V 7 C 

REF 

16 

LAST 

894 

6C'7 (.• 

3 C 12. 

1 

NET ZERO 

CA 

F IXLUL 

IF SO, LEAVE THE HODIFIEO ADDRESS I-N 

77 

REF 

3 

LAST 

1110 

6b7 I 

26 lio 



ADS 

AuDKWO 

ADDRWC AND dispatch. 

« l78 

REF 

9 

LAST 

1109 

6372 

Ilk/ *‘2^. 

L' 

I THIS 

INDEX 

CY.v 

THIS INDEX MAKES THE NeXT INSTRUCTION ; 

4j 

■■P79 

REF 

1 



6073 

7 6242 

1 


7 

INDJUMP -1 

TCF INDJUMP + QP, EDITING CYRI'' 

Luec 





03 74 

t c006 

1 

lERASTSl 

EXTEND 



CL 81 

REF 

1 



6^^ 7 ii 

6 61u5 

1 , 


bZMF 

GcAU JK 

GG PROCESS GENERAL-ERASABLE ADDRESS. 

Lt bZ 

REF 

11 

LAST 

11 o 

6vj7 6 

7 5.41 

V 


rt A SK 

LUmI 

FIXED BANK ADDRESS. RESTORE AND ADD B15o 

ove3 

REF 

12 

L A ST 

1111 

60 77 

6 5041 

1 


ao 

LCrtl 

SWITCH BANKS AND LEAVE SUBADDRESS IN " 

Cl 

REF 

'i- 

LAST 

1111 

^ XL V 

56 116 

1 


XCH 

ADDKWU 

ADDRWD FOR OPERAND RETRIEVAL. (THIS 

■ iiCRb 

“RET 

5 

“otsr 

TI C2 “ 

6 iC 1^ 

6Trr5 

1" 



IHT 3X1X5 

rtt’lHiDD PRtCLUDLS tJSh Uh iHfe LASi 

CC'86 

REF 

11 

LAST 

1 Ic 6 

6iC 2 

54 V .4 

1 


lb 

F 6/4 i^K 

LOCATION IN EACH FBANK , I 

CCE7 

REF 

1 

LAST 

nil 

biU3 

FC J2, 

f 

\ 

‘ 

I TR 12 

Index 

C f K 


LcSd 

REF 

2 

uAST 

1111 

bi 4 

7 

1 


7 

IN J JUMP -1 

t 

<■‘089 

RcF 

3 

LAST 

1 1 2 

6 i c 5 

7 433v. 

1 

GEADDR 

MASK 

LCWd 



“REF 


LAST 

"334" 

6ic6 

B 5o24 

1 


'TCD 

XiTl T4. .. 


•.‘391 

REF 

5 

t AST 

1111 

olO? 

56 116 

1 


XCH 

ADDKwD 


SCO 2 

REF 

30 

LAST 

lie 2 

61 IT 

54 c u3 

0 


rs 

EBAN'K ' 


c-.:93 

REF 

11 

LAST 

llil 

bill 

50 '.20 

L.' 

ITKi 

Index 

L i t\ 


Cv:94 

HEF 

3 

LAST 

nil 

' ol 12 

7 6242 

1 


7 

INDJJMP -1 
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INTtHPKt IcK 


USER'S PAGE NO 


S -> 


P i * . '-i b 


THE FALLOWING RUUTINE PROCESSES INT 


RC( 97 

CCM AIN 

THc ADDRESS UF 

ANY ERASABLE R 

Lt 1 

G I STcK ( 

42 6 £ I NG 

KtLATI V 

R 'LN 9 9 

BANK 

f CK 

ANY 

INTEGER IN 

THAT 

RANGE & 





^ iC 

KEF 

1 



6i i 3 

3 76 6 6 


CCDLOAU* 

CAF 

LLOAD^ 

^ id 

KEF 

12 

LAST 

1111 

6114 

34 

1 

+ 1 

TS 

CYR 

Lie 2 

REF 

17 

LAST 

1111 

6115 

3 012. 

1 

INDEX 

CA 

F iXLOC 

C iv 3 

REF 

1 



6116 

54 139 

1 


16 

1 NuEXLUC 

ir 4 

REF 

11 

LAST 

111 

6117 

24 164 

1 


INCH 

LOG 

I b 

REF 

12 

LAST 

1112 

6127 

5C 164 

1 


INDEX 

LuC 

lub 





bl21 

^ 00u_ 

0 


cs 


■Sun 

REF 

274 

LAST 

1111 

0122 

ic ' iJuo 

U 


CCS 


elCd 

REF 

2 

LAST 

1112 

61Z3 

24 136 

0 


incr 

iNDEXLuC 






6124 

16 125 

0 


nOup 



REF 

a 

LAST 

1 11 1 

oi23 

34 lit* 

c.' 


rs 

ACDrti^D 

* ill 

KEF 

2 

last 

141 

612 6 

7 7675 

1 


MA6K 

HiGH4 

vll2 





6127 

J Oo U Q 

1 


fc X Th NO 


1 i 3 

REF 

1 



13^ 

1 6133 

1 


32 F 

INJEX2 

1 114 

REF 

6 

LAST 

1111 

oiii 

3 Ills 

1 


CA 

INTBITIo 

' 115 

KEF 

7 

LAST 

1112 

6132 

26 116 

L 


ADS 

ADDRWD 

,116 

REF 

3 

last 

1112 

6133 

5 e 130 

U 

liJDEXZ 

INCEX 

1 f\iJ cXLuC 

* 117 

REF 

46 

LAST 

93o 

ui34 

4 Lv46 

1 


Cs 

XI 

• 1 1 h 

KEF 

8 

LAST 

1112 

ol35 

26 116 

U' 

- 

ADS 

acdkkd 

i 119 

REF 

4 

LAST 

787 

6136 

7 767 7 

I 


HA6K 

F IGriO 

V IZl 





6137 

•9 ^ . Si iv ^ 

1 


EXTEND 


1^1 

REF 

1 



6l4l 

1 6153 

1 


32 r 

1 Nu 3KK 

1 122 

REF 

3 

last 

1112 

6141 

7 767 5 

T 

w 


MASK 

H i(.»H4 

.123 





6142 

w V L 6 

1 


eXTEND 


'124 

R e F 

1 



ol43 

1 6155 

1 


dZ F 

I»»UiiHAS b 

125 

R t F 

0 

LAST 

1112 

u 144 

3 Cll6 

1 


C A 

AuDKWU 

':i26 

REF 

12 

LAST 

1111 

6145 

54 3v4 

i 


TS 

F d A 

1.127 

REF' 

13 

LA jT 

1111 

o 146 

7 5u41 

h 


Ui ASf\ 

LCwi 

vi28 

REF 

1 



6147 

6 4756 

1 


Au 

2K 

M29 

REF 

ic 

LAST 

1112 

615 

54 1 1 o 



TS 

AODk WD 

L 13 

REF 

13 

LAST 

1112 

6151 

5 2 ' 

u 

ITRll 

INDEX 

CYR 

Li31 

REF 

4 

Last 

TTlI 

6132 

j bZ-^Z 

y 


3 

IND JUMP 

132 

REF 

18 

LAST 

1112 

oi53 

3 - 12l 

1 

INDWDRK 

CA 

F IXLOC 

1J3 

REF 

1 



6154 

1 6161 



rcF 

1TR13 -1 

134 

REF 


LAST 

nil 

6155 

3 5 .24 

i 

JLH AS E 

CA 

CCTi4... 

135 

REF 

i X 

LAST 

1112 

61 56 

5 o 116 

1 


XCH 

ACuKhU 

136 

REF 

31 

LAST 

1111 

013 7 

54 tD3 

* 

Kj 


IS 

f dA.iK 

C137 

RFF 

9 

LAST 

1111 

6 1 6 1 

7 435, 

1 


MASK 

L L «'i 3 

. 1 3 e 

REF 

12 

last 

1112 

6161 

26 116 

u 

-1 

ADS 

ACDRWD 

1. 139 

KEF 

14 

LAST 

1112 

ol62 

5 - 2 i 

3 

I IK13 

INDEX 

CY.\ 


ESSES* AN INTERPRETER INDEX REGISTER MAY 
TO THE VAC AREA) OR ANY INTERPRETIVE PROG 


ST00L4 COMES EERE TO PROCESS LOAD AORo 
ISTOVL* ENTERS HERE), 

SET UP INDEX LOCATION. 

{ADDRESS ALWAYS GIVEN). 


INDEX Z IF ADDRESS STORED COWPLEMENTED 


14 bIT ADDRESS TO AODRWO. 

IF ADDRESS GREATER THAN 2Kf ADD INTBITIS 


CO AUGMENT » IGNORING AND CORRECTING fJVf , 


SEE IF ADDRESS IS IN WORN AREA 


SEE IF IN FIXED BANK 


IN FIXED - SWITCH BANKS AND CREATE 
SUB-ADCkcSS. 


MAKE ADDRWD KELAllVt TO WORK AREA 


4 T^l»rT « I 

- r ' • _ . 
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i»^-j c;*' c 
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■ > 167 
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1 N T £r«PRt; ThR 


U6£K»S PAGE Nu 


£ S3 


iht SA.^fc A6 THu jV^ GF LPE KAt^G LESlREu (ALL A uU/SU BTHACT ElL.K tXCEPTIGNS TO THIS GENERAL RULE ARE LiSfEU 


BELOW (f^(C^E THAT IN EVERY CASE THE MODE REGISTER IS LcET INTACT) 2 


lo VXSC AML V/SC WANT 
KESULTf V<S8 WANTS A SCALAR, 


OPPOSITE TYPE OF OP6RAWU» coG^t IF THE LAST UPERATiQN YIELDED A VECTOR 


T-rri- 1 .. :z~ At 7 R- x ^ SHJULD L G A U THE ACCUMULA TOR 1:^DE PEN LENT OF THE RES 

INCLUDES i/LOAOt ULOACf TLUAD t POD L » AND P 0 V L ^ " 


PUSHUP WITH SLuAOl 


ULT CF THE LAST UPERATIUN, THIS 


3o SOME ARITHMETIC OPERATIONS REQUIRE A STANUAKu T YP 
THIS iNCLJuES SIGN WANTING LP AND TAD REQUIRING TPa 



OPERAND REGARDLESS OF THE PREVIOUS OPERATIONo 


REF 

1 



bl64 

3 4351 

1 

PUSH UP 

CAF 

REF 

15 

LAST 

1112 

ol6^ 

7 1 j2i 

1 


t^SK 

KEF 

3 

LAST 

63 d 

6166 

6 6171 

L 


AD 

R £F 

275 

LAST 

1112 

616 7 

i C D ^ G 



CCS 

REF 

1 



617: 

i 62v2 

1 


TCF 





6171 

7776 7 

1 

-OCTl 

UCT 


4 j If T HE LOW 5 BITS OF CYR ARE LESS THAN 

? 07 ^H 1 S^cj 5 kEOUli^£S‘si>ECtAL ATTENrlTO; 

-OlTI^ (no -C.)^ 

A • - 

f^^^GUP FOR all codes greater THAN OCT 7o 

- 1 . 


R t F 
REF 
REF 
REF 
REF 

* 

21% 
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1 

2 

LAST 

LAST 

LAST 

LAST 

1>43 

1114 

1114 
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6172 

6173 

6174 

6175 

6176 

6 6961 

Id u C ■ ■ 

5u j.. . 

4 6213 
1 6204 

^ j 

1 

1 

L- 

L 


au 

0 o 

INDEX 

CS 

TCF 

1_ ' J 4 

A 

WDS 

RtGuP +2 

REF 

5 

L A ijT 

11^ 

6177 

5 1.. 1 o3 

Li 


1 NUEX 

MODE 

REF 

2 

LAST 

547 


4 6211 

1 


Cs 

rEVCNI 

REF 

J 

LAST 

1114 

0^1 1 

1 6294 


- - - _ , 

rcF 

REGUP +2 


6 

■■■’ ~ jv 

LAST 

1114 

tj2i 2 

5. lo3 

o 

REGUP 

INDEX 

MODE 

REF^ 

2 

LAST 1114 

62.3 

4 '5 2 i 3 

ii 


LS 

fvGo iJUS 

REF 

1 



6LL 4 

^6 1 ^6 

1 

+2 

AGS 


REF 

13 

last 

1112 

04£^ U 5 

54 116 

r. 


TS 

A Lj U 1 V iJ 

REF 

16 

LAST 

1114 

62l 6 

5 L w i ' 

V 

ITk14 

InDdX 

CYk 

REF“ 

6 

last 

1113 

S2C7 

7 6242 

1 


7 

INuJuMP ' 





62 1C 

ccogz 

0 ' 


uCT 

V 





6211 

0CC06 

1 

REVCNT 

OLi T 

w 





6212 

6 

i 


UCT 

6 





6213 

J L ‘ U ^ 


' Ifl L >> 

DC i 

2. 





6214 

0i-'U'.'3 

1 

CCTAL3 

OCT 

♦ 

— , ^ 

_ . 

- ■» 


6215 

00006 

1 


UG 1 

6 


WE NOW HAVE 7 ' OP COOE(MOD4lo SEE IF 
THE OP CODE (HU04) IS THREE (REVERSE), 

NO - THE MODE IS DEFINITE, PICK UP IHE 


FOR VXSC AND V/SC WE WANT THE RECUIREO 
PUShLOC DECREMENT WITHOUT CHANGING THE 
MODE AT THIS TIME. 

MOST ALL OP CODES PUSHUP HEREo 


(THt INDEX MAKES THIS A TCF. ) 


REVERSE PUSHUP OFCKEMENT, VECTOR TAKES 2 

WORDS I 6CALAi'< Takes o, 

CUNVtNUCNAL OcCREMLNT IS 6 WURDS VECIUR 
2 IN DP, AND 3 IN TP, 


u 
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P^ 1 JJ 
XlGb 


IMERPkl IcR 


USER'S PAGE NU 


8 


eo S3 


TEST THE SECUHU PKEFIX BIT TJ SEE IF IHIo Is A MISCELLANEOUS DR A UNARY/SFORT SHIFT UPERATION. 


REF 

TIEF 


17 LAST 1114 
1 


u<^16 lu 1 

C2ir T'52j2 T 


GPJUMP2 


c cs 

TXT" 


CYR 

CFJUHP3" 


TEST SECOND PREFIX BIT. 

TES T ihiku hi I lu See IF or sthtt 



lllZZ C -END VAC UtC -43 


R 1188 
RV19U 


irriT?' 


IN 

TT 


^TiE FOLLOWING ROUTINE PROCESSES AuORESSE^ OF SUFFIX CLASS iv* THEY ARE BASICALLY 
Thh RANGE L - 52, ERASABLE ECADK CONSTANTS FRUH 10 . - 3777. AND FCAORS LoSf 
rUWTRAai iu SUFFIX X, iN WHICH ONLY Ihc LOW UKUcR~T T ~ AKE AVAlLABLr; 


ALL 


WORK AREA ADDRESSES 
15 BITS ARE AVAILABLE 


1193 

K Eh 

13 

LAST 

1112 

ti221 

24 ia4 

1 

ISoilADR INCH 

LUC 

Cl 94 

REF 

14 

LAST 

1115 

6222 

5u id4 

1 

1 NDEX 

LGC 

L19T 





6223 

^ '0000 

I 

CA 


\.i96 

REF 

5 

LAST 

7; 

6224 

54 117 

1 

TS 

hUL i dH 




(ENTRY HERE FROM SICALL). 

PICK UP ADDRESS WORD. 

WE MAY NEED A SUBADDRESS LAIER. 


Cl 97 
1.196 

REF 

REF 

1 

13 

LAST 

1112 

6225 

0226 

( 19^ 

REF 

Id 

LAST 

1115 

6227 

C2'.;/‘ 

REF 

273 

1A5T 

1114 

623V 

^ 2< 1 

REF 

1 



6231 


3 5042 

1 

CAF 

LGrt7+2K 

54 0 u 4 

1 

TS 

fbank 

7 0C2i 

1 

MASK 

CTR 

50 uUC 

1 1TR7 

1 NUcX 

A 

i ^3u3 

v* 

TCP 

FISC JUMP 


THESE iNSTHUCTIUNS ARE IN BANK 1^ 


11:4. 2£^197I. 


: 
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ZEUS ^-46 PAGE 1116 


L INTERPREItK 


USER'S PAGE NU. 9 b S3 


P' 2 z complete the Ol^PAlCHiNG UP UHARY AiNiJ ShuKT SHiFf uPhKAllUNS^ 


l2> J 

RL-F 

14 

LAST 

ills 

6232 

54 004 

1 

CPJUMP3 

TS 

E3ANK 


CALL IK BANK < (BITS 

11-15 OF A ARE i) 

R'. 2i 4 

■'‘2C 5 

2U6 
*.2' ? 

REF 

RfcF 

REF 

19 

279 

A 

I TRACE (6 1 
LAST Ills 
LAST lliS 

re^£r5 IQ 

6233 

6234 

6235 

"0PJUMP3«« 

16 C2i: 1 

5 G 006 1 

1 2000 i 

- 

CCS 

ii^UEX 

TCF 

CYK 

A 

U-YAJUMP 


TEST THIRD PREFIX BIT 
THE OECKEMENTbU UNARY 
i-4 OF A (ZERO# EXIT, 

a 

CODE IS IN BITS 

HAS BEEN DETECTED! 

12', 8 

KEF 

/ 

LAST 

1114 

6236 

10 163 

1 


CC6 

F LL)£ 


ITS A SHORT SHIFT CODto SEE IF PRESlNT 

C2* 9 

Ciil . 

'-;21I 

RtF 

REF 

REF 

1 

2 

1 

L AST 

1116 

623 7 

624C 

6 24’ 1 

1 2017 
1 2017 
1 2121 

1 

1 

r 

> 

- 

TCF 

TCF 

TCF 

SHORTT 
SHORT I 
SHORTY 


SCALAR OH VECTOR. 

CALLS THE APPROPRIATE 

ROUTiNEo 

:zi2 

REF 

A 



4344 



FBANKMSK 

EQUAL S 

eAHKMASK 




E213 

REF 

21 

L A ST 

3l5 

6242 

L ji22 


LVdUF 

AOkES 

V3UF 





b Ak : ASS K£>/1S10N ^)7Z OF Abb t^R QG RAM Ak TtiHiS bY NA 5A_2- 

L INTEHPRiITcK 


P 214 



THE FQLLO»aNG 1> THE 

JUMP TABLE 

FOR UP CUDLS 

2lS 

REF 

1 

6243 

1 6454 

IN J JUMP TCP 

<217 

REF ~ 

1 

6244 

"r7b4T': ' 

rcF 

v2ie 

REF 

1 

624 5 

1 Toll 1 

TCF 

^ 219 

ref 

1 

a246 

1 7336 1 

TCF 

022' 

REF 

1 

6ii4 7 

i 6652 1 

T CF 

221 

REF 

2 

last 61bi 

1 643 7 0 

TCF 

^ 222 

REF 

1 

62i> i 

1 u^J2i U 

TCF 

0223“ 

~'RFF" 

1 

625'2" 

r TS’BT ~1 

1 C F 

L224 

REF 

1 


i 64s i. 1 

TuF 

C225 

RtF 

1 

6254 

i 656/ 1 

1 LF 

<226 

REF 

1 

“ 6255 

i 64 72 1 

TCF 

1 22 7 

KEF 

1 

6256 

1 72 /b 1 

TCF 

;'228 

TTTF 

1 

6Z57 

T 6526 1“ 

TCF 

= 229 

REF 

1 


i 6575 1 

TCF 

23' 

REF 

i. 

6261 

1 727o 1 

TCP 

' 231 

REF 

1 

6262 

1 lb ji. u 

TCF 

V 232 

REP 

1 

i. 

o26 3 

i 756^ 1 

TCF 

' .233 “ 

“KeT 

1 

0264- 

7L 7^3 3 1 

T'C ) 

• 234 

REF 

1 

6263 

1 7537 J 

7vF 


REF 

1 

6266 

1 7555 1 

TCF 

i23 6 

REF 

i 

6267 

I 672 G 

TCP 

i237 

REF 

1 

627' 

1 6716 6 

TCF 

0238 

REF 

1 

6271 

1 7C'J5 1 

1 C F 

TZTT" 

■ TTbT 


527 r" 

T 

“TUF 

^24 

REF 

1 

6273 

i 7414 ' 

TCF 

241 

REF 

1 

627 4 

1 73oi 

TCF 

>242 

REF 

1 

o275 

1 6754 - 

TCP 

' 243 

REF 

I 

62 7 6 

i 7 b 3 1 1 

TCF 

r-ZZfZf- 

RTT^ 

T“ 

“62TT 

“IT 6'74'4 1 

1 6F 

(245 



63^^C 

1 630 . 

ToF 

3246 

REF 

1 

u3w 1 

1 “7526 J 

TCF 

< 247 

REF 

1 

63'. 2 

i 7547 1 

TCF 

Rb24b 

CEDES 

' 

AND 14 MUST NUT PUSH 

UP. CODE j 

4 MAY BE UScD 


T 
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;iii4- 11 


USER'S RAGb^NO^ 1 E. SJ 


WHICH .'I AY Have INDEXABLE ADDRESSES UK HAY PUSH UP. 


V luad 

TAD~' 

i i u b 

vXSC 

L uUT 0 
iLOA‘0 
bLU A u 
f/SC 


- LOAD HPAC WITH A VECTOR^ 

- - TR I P L E“'PR¥CTT1UN" ADD TCrTiFAT, 

2 - CDMPLEMtNr MPAC IV OK SC) IF X NEG. 
j - VtClOR TIHES SCALAKo 
< 4 - COMPUTED GO TU. 
b ~ LOAD RPAC WITHTRIPLE PRHCI$rOTv)« ’ 

- LOAD MPAC hlTH A DP iCALAK. 

rT*~^~VtCl UK UI VIDEO BY 'SCATAR'. 



bLUAD i-w - LOAD MPAC IN SINGLE PRECISION. 

SSP 11 - SET SINGLE PRECISION INIU 

- PDDL 12 - PUSH DOWN MPAC AND RE-LOAD IN QP« 

13 - MATRIX PuST-MULT IPLI ED BY VECTOR. 

■ r4“~PUSH UUWN ANU V E C I U R L DAU. 

CCALL 15 - CCHPUIEO CALL* 

VXM 16 - MATRIX PR'E-MULTi PLIED BY VECTUR. 

TSLC 17 - NORMAL! Zb MPAC (SCALAR ONLY). 

UrtPR 2U - DP MULTIPLY AND ROUND. 

L jv 21 -"■i5P‘“DiTrc;r oT, 

cJdV 22 - OP DIVIDE INTO. 

GbrilFT 23 - GENERAL SHIFT INSTRUCTJONc 

VAD 24 - VECTOR ADU» 

VbU 25 - VECTOR SUdTRACTo 

eVSU 26 - VECTOR SUBTRACT FROM. 

27 - 'VTLl'UK DUF'PRUDUCI.: 

VXV 3- - VhCTCB CROSS PRODUCT. 

VPK'jJ 31 - VtCTDR PROJECT lONo 

LbJ 32 - DP SUBTRACT a 

uJSU 33 - DP SUBTRACT FROM. 

~ TJAD " -~nP ■ ATFD^ 

35 - AVAILABLE 

D/iPl 36 - DP MULT I PL Y« 

ShfRU 37 - Stl PUSH DOWN POINTb'R (DIRECT ONLY) 


P JK VECTOR ObCLARE BE FORE PUSHUP IF DESIRED. 
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L 


IMERPhEIEK 


LSEK'S PAG. NO 


11 


S3 


y £ 



2SD 

REF 

i 

253 

K£F 

1 

254 

KEF 

1 

255 

KEF 

I 

• 256 

REF 

1 

^257 

REF 

i 

V-25L 

REF 

i 

C 25 S 

REF 

1 

'.26 

REf 

1 

'261 

REF 

L 

(2b 2 

REF 

1 

C 2b3 

REF 

1 

( 2^64 

HEF 

I 

C265 

REF 

1 

* 2c>6 

REF 

1 

i. 

.267 

K EF 

1 


I HE FOLLOWING JUMP TABLE APPLIES TO INDEX, BKANCri, ANO MISCELLANEOUS INSTRUCTIONS, 


' >3 

1 

2341 

1 

MISCJUMP rCF 

AXT 


-- 

o3 1 4 

1 

2346 

D 

TCF 

AXC 

*. 1 

— 

63C5 

1 

2j51 

0 

TCF 

LAA 

2 

— 

oJi. 6 

1 

23j 5 

1 

TCF 

LXC 

3 

— 

63 o 7 

1 

2361 


TCF 

SXA 

04 

— 

63i< 

1 

23 6/ 

e 

TCF 


.5 

— 

oJll 

1 

2 4 / 3 

, 1 
i. > 

TCF 

lNCf\ 

' u 

— 

6312 

1 

2412 

0 

TOP 

1 IX 

f 


i>3l3 

1 

2375 

0 

TuF 

XAD 

1 


6314 

1 

24J6 

u 

I'Cr 

XiU 

11 

— 

o31 3 

i 

2464 

1 

TCF 

B2E/GUT 0 

12 

— 

6316 

1 

2471 

0 

ICF 

faPL/3HN 

13 

— 

6317 i 

2444 

3 

rcT 

kTb/bHIZ 

14 


o320 

1 

25.4 

n 

TCP 

CALL/iTA 

15 


632 1 


2 3x3 

■-.r 

TCF 

Srt/ 

16 

— 

6322 

1 

2454 

1 

IGF 

EJW t ui 

17 





ADDRESS 1 u INDEX TRUE^ 

ADDRESS ! r rt^DE X C”DM PLEME N T L D, 

LOAD INDEX FROM EKA^AdLE, 

LOAD INDEX FROM COMP Lt ME NT OF ERAS 
STOKE INDEX IN ERASABLE.. 

EXCHANGE INDEX WITH ERASAOLEo 
INCfiEMENT INDEX REGISTER, 

‘TkAI^S’F^R on iN’DCx, ' 

INDEX REGISTER "aDD FROM ERAS ABLE, 
INDEX SUBTRACT FROM ERASABLEo 
BRANCH ZERO AND GuTQ, 

branch plus and branch minus. 
WiiiKTr^rj-BA^ix 

CALL AND STORE OPRET® 


SWITCFi INSTRUCTIONS AND AVAILABLE^ 
BRANCH UN OVERFLOW TO BASIC OR I NT 
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REVISION 
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L 

IMhkPKt FtR 









USER'S PAGE NO c 

12 L So 

p i’oa_ 


THE FOLLOWING JUMP 

TABLE APPIES TO 

UNARY INSTRULTlUNSa , 





•.2:6 9 

REF 

1 

CfCfZOOU 




;>E TLUC 

INTcKB^ 





t2695 



c 0 1 2\j'-i'r^ 




d ANK 






' Z1-: 

REF 

1 

- - 

- 

- - - 


COUNT* 

'p 4>/ I NT cK 

— — 


- • - — - - - - ' — ■ 

^ _ _ . — _ 

^271 

RtF 

1 

OC f 2uUC 

i 

32^ 6 

1 UNAJUMP rCF 

SUKT . 

01 


SUUAHE ROOT.. 


rzi2 

R E F 

1 

~ CGvzoai 

1 

35z5 

1 

TCF 

■ 

r 2 

— 

“SI No ' 

— - - — . . — _ ^ — — 

273 

REF 

1 

OOt20L2 

1 

3514 


TuF 

COSINE 


— 

COS. 


\ 2~nt 

hifcF 

I 

^ V f ^ L/ L9 3 

1 

36u5 


I CF 

ARl- U I N 

HIT 


ARC sin; 


(:275 

REF 

1 

CU,2aL4 

1 

36 -s7 

1 

rcF 

ARCCOb 

^5 

-- 

ARC CCSj 


C276 

RtF 

1 

~QZ~t2\jG5 

I 

3173 

r 

TCF 

DSG 

j 6 

— 

DP SCUARc, 

- - — — - - — — — — 

^.217 

REF 

1 

OOtZ 006 

i 

21i<j 

1 

TcF 

ROUND 

7 

— 

ROUND TO DP» 


276 

REF 

1 

KdKi t 2 0 7 

1 

7 624 

1 

TCr 

COMP 

1' 

— 

COMPLEMENT VtLTUR 

OR bCALAR 

t:2 7^ 

RTF 

I 

y Q 9 2w 3 K 

i 

323 i 

. 

TC F ■ ' 

“VUEF 

11 

—* 

VtLlUH UtFlf^bo 


C2fl' 

REF 

1 

oo,2cai 

i 

3 )22 

G 

TgF 

ONI T 

12 

— 

UNIT VECTOR.- 


‘'281 

REF 

1 

ij j f 2 u 1 2 

1 

3175 

0“ — 

TCF 

AdVALAUS 

13 


LENGTH OF VECTOR 

OR M A b LiF S Cal A K .i 

'V.26Z 

REF 

i 

gO f 2v 1 3 

1 

3244 

1 

rcF 

VjU 

14 

— 

SaUARE UF LENGTH 

OF V E C i U 

C283 

REF 

i 

Oo,2Ci4 

1 

6323 

1 

TCF 

STAOR' 

15 


PUSH UP “ON STORE “ 

CO Oh :j 

284 

REF 

1 

Gvi f 13 

1 

3273 

L 

TCF 

R9U 

16 

- 

RETURN VIA QPREI. 


0283 

KhF 

ir 

C V f 2b 

1 


0 

1 CF 

"PII3TI 

rr 

— 

PUSH' pp’Ac ‘DU'sm. — 



11* 4 he bo 2fcflv 7 1 X. EUb 
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46 PAol 112 


L iArtKPKcTtA 


USth'S PAGE NO* 13 E S3 


P 25:6 SECTIUinI 2 LOAD AND ST LRc PACKAGta 


K V '2 ') 

Rl 2 ^ 1 
R L 29 3 


A ScT UF c IGHT ^ TGK E CODfcS iS PRUVIDED AS THb PHTHAAY METHOD UF STORING THL MULTI-PURPOSE 

ACCUMULAtOl^i IWPALla iF IN THh' UANZiG S tCT ION LOG KEFEK;* TO AN ALDtaKAlCALlV POSITIVE WORD, IT IS TAKEN AS A 
STORE CODE WITH A CCRKtSPONJlNo ERASABLE ADDKES^o MOST Gt THE^c CODES akE TWO ADDRESSf SPECIFYING THAT THE l^uRU 
FCLLOWING THE STORE CODE SS TO B'E UsED AS AN ADUKESS FkOH wHluH TU RE-LGAD KPAC, FOUR OPTIONS Ai-IE AVAILABLE: 


Ri293 !• STORE STORE MPAC, THE E ADDRESo lAY oE INDEXED^ 


K 12 9 7 



2 * STOOL 



STORE MPAC AND 

RE-LOAD 

IT IN DP 

WITH THE NEXT ADDRESS (THE LOAD MAY BE INDEXED), 

lO 299 



3 , stoVl 



STORF' M pAC An d 

R E- lOaO 

A vCCrjK 

17 ^ 5 ^ abuvF. J > 

R^Ol 


— 

4 o S 

TCALL 

^ 


STORE ANC Uu A 

CALL (BOTH ADDkcSScS MUST BE DIRECT HERE).. 

P 03 <. 3 

- 


stddl and 

STOVL WILL 

] AK t FkOM 

THE PUSri-DUrtN E 

i S T 1 ^ NO 

LOAD ADDRESS IS GIVEN. 

j 3 t S 

REF 

2 

last 

ii'ja 

6 ijL<L 




SETLOC 

INTERF 3 


...3 :55 




- - 

632 3 




SANK 


. - — — _ 

‘ 3 36 

K t F 

2 

last 

110 a 

TO 11191 

20 5 

2 v 5 * 


COUNT* 

$i/ INTER 

\ 

7 

REF 

4 

LAST 

11 9 

6323 

3 

2 1 □ 3 o; 

STACK 

CA 

b M K S b T 

THE STADR CODE (PUSHUP UP UN jTORE 

03 V 8 

REF 

15 

LAST 

1116 

g 324 

54 

'.4 1 


Tj 

FBAiNK 

ADDRESS) ENTERS HERE, 

^ 3 C 9 

REF 

15 

LAST 

1115 

6325 

24 

lo 4 1 


INCK 

L CC 


C 3 iG 

REF 

16 

LAST 

1 12 : 

6326 

5 . 

164 1 

ITRl 

INDEX 

LCL 

THE STUKECODE WAS STORED COMPLEMENTLU TO 

0311 





63 Z 7 

4 



OS 

1 

MAKE IT LOOK LIKE AN uPCUOE PAIR, 

L 312 

REF 

2 

LAST 

i :‘99 

o 33 . 

b 

7 7 y 2 b 

- 

AD 

Nci^UNt 

(YUL CANT REMOVE 1 BECAUSE OF EARLY CCS) 

: 313 

REF 

14 

LA ST 

1114 

633 1 

54 

lib u 

COSTURE 

TS 

ALD.'Wu 


-314 

REF 

6 

LAST 

357 

y 33 2 

7 

4347 1 


MASK 


ENIPY FROM dig PAT CHER, SAVE THE ERASABLE 

CJ 16 

REF 

lo 

c AST 

112 . 

633 3 

5 6 

lit) 1 


XCH 

ACD . Wu 

ADDRESS AND JUMP ON THE STORE CODE NO. 

v' 3 1 6 

REF 

i 



63 o 4 

7 

7 o 56 1 


MASK 

512 T i 4 


c 317 





6335 


- ' -'jfj I 


L X T ENu 



; 318 

REF 


LAST 

■ 1041 

633 6 

7 

4764 1 


MP 

Bil ^ 

EACH IrANSFER VECTOR ENTkY IS TWO WORDS. 

C 319 

REF 

2 aw 

LAST 

1116 

63^7 

3 L‘ 

OwO 1 

I TR»; 

I NDEX 

A 



032“ TTFF — — ^ I“to3Tr^ “ TCT 510 K JUTTP 


assemble REt/ ISlON ( 72 CP AbC PROGRAM ARTEMIS QY NASA ^ 21114- li 


L 

IN TbRPKE 

TER 







pv 321 



iTOKb CODE 

JUMP TABLE. 

CALLS THE 

APPkOPKI ATE 

S TDK INC RDUllNE 

RJ -52i 

A SUPPLIED GPtRATlDN 

CGDho 






Rs,3231 



STORE ^jTORE 

,1 AND STORE 

,2 RETURN 

TO OANZlOf 

THUS RESETTING T 

C 324 

REF 

1 

■ - 

bJ4 1 

w 

6371 

1 STURJUHP TL 

STuKE 

C325 

REF 

1. 

LAST 8J4 

0342 

1 

6 j3'^ 


TLF 

C AimZ 1 u 

r326 

REF 

i 


6343 

L 

636.j> 

1 ^ 

TC 

STORE,! 

C32 7 

KtF 

11 

LAST 1121 

o344 

1 

6C3 


TCF 

DAN2IG 


H tf" 

3. 


634 5 

J 

63ou 

T 

■ 1 1 

SlUHt,2 


kEF 

12 

LAST 1121 

b346 

1 

6 J 3 w 

1 

L . 

TCF 

DAMZlb 

i.,33’. 

RtF 

1 

i- 

LAST 1121 

6347 

u 

6371 

1 

TL 

5TuR E 

C331 

REF 

1 


635C 

1 

'642 7 

1 

TCF 

DCDLOaD 

.332 

REF 


LAST 1121 

635 1 

U 

637 1 

1 

TC 

STORE 

(333 

REF 

1 

_ . 

6352 

L 

6113 

. * 

TCF 

lJDLCAD^ 

(334 

REF 

4 

LAST 1121 

63 5 3 

0 

6571 

1 

TL 

STORE 

C335 

HEF 

1 


6354 

1 

6432 

-1 

TCP 

DCVLQAu' 

v336 

REF 

b 

LAST 1121 

6355 

0 

637 i 

1 

TC 

store 

^337 

H fcF 

1 


6556 

1 

6435 

1 

TCF 

CQVLljAO=«^ 

0338 

RtF 

6 

LAST 1121 

7 

w 

6371 

1 

TC 

LoKt 

v339 

REF 

1 


bjiO K 

3 

5.„ J2 


CAF 

C ALLCU J t 

T34«:j 

KEF 

2u 

LAST llio 

b36 X 

5^ 

‘ 2 ' ^ 

I 

TS 

CYk 

L341 

REF 

1 


6362 

1 

6221 

1 

TC t" 
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MOVE X1H3 TO MPAC ^3 SflTlNo UP FUK X3M2 

ll 42 

REF 

4L 4 

LAST 

1147 

7455 

5 Z 1 6 Ki 

1 

DXCH 

KPaC +3 

AND ADD -X3M1 (D MPAC -*-3 TO COMPLETE THL 

" Tr 4 i " 

REf '405'' 

OiST 

IPTT 

745^' 

' 72 r5D 

1 

D aC H 

FPAC 

V LuHPlCTviEKT uF [Ht ktSuLf** 

lv.4^ 

REF 

4 .1 6 

LAST 

1147 

743 7 

20 lo---' 

1 

DAS 

FPAC +-> 

- - - 

1 45 





746 0 

u 00 36 

i 

EXTEND 



10 46 





7461 

1 746 3 


3ZF 

+ 2 
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L 

INTERPRET 

cK 

- 





- 

USER'S PA^E NOs 41 E3 

S3 


U47 

KtF 

3 

LAST 

1134 

7 46 2 

c 6 7 o J 

O 

TL 


- 



l»->r 

REF 

lo 

LAS 1 

114 J 

7463 

w 7ii36 


TC 

DPP sue 




lv‘4 -y 

KEF 

36 

last 

1147 

7464 

32 127 

1 

DXLH 

VeuF +4 

GO AOD -X2M3 TO XBMa TO CfUMPLEtE 

TRl X 


1' 

KEF 

4 

LAST 

il35 

7465 

1 6747 

1 

TCF 

civ J V XV 

COMPONENT (TAIL ENL OF OADJa 

- 

- 

1'. 1' Si 



THE 

MPACVBUF 

SU 13 ROUTINE SAVES 

i HE VECTOR IN MPAC IN VBUF 

WITHQUl CLOBetRING MPAC. 



li 33 





7466 

u/ 6 

1 

RPACVbUF tXTENiJ 


CALLED BY MXV, VXM, AND UNIT. 



i< 34 

hEF 

4t.>7 

LAST 

114 7 

746 7 

3 ,15 5 

0 

OCA 

PPAC 




1 3b 

KEF 

3 7 

LAST 

1143 

747 

32 123 

0 

UXCH 

V dU F 




Iv 36 





7471 

U 0 0 c 6 

1 

tXTEND 





It 37 

KEF 

4oa 

LAST 

il4o 

7472 

3 L'16-/ 

u 

OCA 





Iv 5 3 

KEF 

33 

uAST 

1143 

7473 

52 12 3 


OXCH 

vauF +c 




iC 39 





7474 

0 039 6 

1 

fcXT t Ku 





Iv 6 

REF 

4 . 9 

LAST 

1148 

T4T3“ 

3 v i62 

1 

OCA 

mPac +ii 




61 

REF 

39 

LAST 

1143 

7476 

52 127 

1 

OXCH 

VJvjF +4 




U62 

REF 

223 

LAST 

1142 

7477 

0 00 -J 2 

-<■ 

TC 


RETURN TO CALLER^ 




K 15 6 3 



DQUeLE PRECISION SIGN AGKtc 

ROUTINE. 

ARRIVE ! 

1^^ 1 1 h I iX P J I IH 

A+L. OUTPUT IS IN A + L. 

1 o5 

REF 

29. 

LAST 

1142 

73C 7 

i 1- Ou 


AL5ICNAG CCS 


TEST UPPER PART. 

lL6o 

HEF 

1 



73i 1 

1 73i. .j 

1 


TCF 

UPPi^ 6 

IT IS POSITIVE 

1..07 

REF 

226 

LAST 

1148 

7 3 0 2 

0 0L.y2 

1 ■ 


T C 

Q 

ZERO 

iC o b 

REF 

1 



75 3 

1 7513 



TCF 

UP,-Jl:S 

AEGAT IVg 

li u9 

REF 

227 

LAST 

1148 

73,_ 4 

6 C: 



TC 


ZERO 

i:. h 

RcF 

144 

LAST 

1142 

730 5 

36 jL 

i 

LPPUS 

X b 

L 

SAVE DECREMENTED UPPER PART. 

Iv 71 

REF 

11 

LAST 

lv92 

7536 

D 47 >3 

1 


AO 

Half 


Iv 72 

REF 

12 

LAST 

1148 

75 <7 

o 47:> J 

1 


AO 

tt\Lt 


1>'73 

REF 

291 

LAST 

1148 

■ 7513 

34 i 

i 


T 6 

fi 

SKIPS CN OVERFLOW ^ 

1 74 





7311 

1 7513 

0 


TC r 

♦ 2 


r:75 “ 



1X43 

'T5TZ' 


'Tt" 

U 


UiCK 

l 

fthSlURE UPpEIX IU RuIGINAL VALUE 

1- 76 

RtF 

14o 

LAST 

1143 

7313 

36 Goi 

a 


XlH 

L 

SWAP A + L BACK» 

77 

REF 

22B 

LAST 

1143 

7^14 


c 


TC 



it 7 8 

REF 

147 

LAST 

1148 

7515 

5 6 ' j . 1 

J 

LPNLG 

XCH 

L 

SAVE CGMPLEMENTl-D + DECREMENTED UPPi:«, PT 

H 79 

REF 

11 

LAST 

1. 61 

7316 

6 4732 

i 


AO 

NgGRAX 


lulSTi 

REF 

21 

LAST 

112. 

T^L7 

z~rm 

‘■m. 


AD 



1* 6 1 

REF 

292 

LAST 

1148 

7520 

34 wwJ 

c.' 


r 2 j 

A 


1', 32 





7321 

1 75l3 

r 


ICH 

+ 2 

OGNT INCREMENT IF NO^ dVbKELUW. 

1^63 

HEF 

143 

LAST 

1143 

73l2 

2 4 L V 1 

J 


INCH 

L 

J 

11. 8 4 

REF 

149 

LAST 

114'8 

7523 

56 V V 1 

I 


XCH 

L 


It 85 





7324 

4 

v 


COM 


f^AKL NcCATIVh AIjAIN* 

1‘ 86 

REF 

223 

LAST 

1143 

7523" 

J C 'jJ2 

J 


X c 

C 
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L IMtKPRtTcR USER'S PAGE UOe 42 E3 S3 


Pi li 



INTirl 

^PHETIVE 

instruct lUUS WHJSE 

EXELUTlUiM CONST 

5Ts up ^’R1N 

CIPALLY CALLING SUBROUTINESo 

l:' 

KEF 

17 

LAST 

H4B 

7526 

u 7J--3 0 

CMPl 

TC 

CPPSU3 

DWP INSTRUCT I UN.. 

1' V' 

REF 

23 

TAST 

TITB 

' 7527^rFJ3 ; 


rcF ■ ■ 

DANiTt o 


Iv 9 1 

KEF 

io 

LAST 

1149 

7S3< 

^ 7 ’350 J 

chpk 

rc 

LMPiUii 

■ - _ 

ll < ^ 4C 

REF 

1 



7531 

V 71'o6 1 


TL 

puuNusjb 

ICtAJ = +' ) j> 

i'. 9 3 

REF 

24 

LAST 

1149 

7532 

i 6 3 . . 


TCF 

U A U L I U 


1 94 





7333 


CDV 

tx T Er^u 



iv *^3 

REF 

62 

LAST 

1147 

1 534 

3 *116 1 


INjEX 

ACuKmD 

ROVE CIVIDEND INTO BUF> 

V 9 b 





7335 

3 L C* ■■ j 1 V ^ 


OCa 



1*. 9 7 

REF 

2 

last 

1117 

7536 

i 7543 C‘ 


TCF 

ECDV +4 







7537 

u 0 s/ ./ a 1 

eoDV 

EXTE NU 


FUVE DIVISUK INTO WPAC SAVING MPAC, THE 


TTFr 

03 “TTTSr 

i 149 

754C 

5' r iT6' 1 


TJTUEX 

ACJkWJ ■" 

L 1 V i D b U t 1 TJ b U i“ . 

il‘ 





7541 

3 COGl 0 


l)C A 

-i 


11 i 

REF 

^1^ 

LAST 

1148 ' 

7542 

52 155 1 


JXCh 

MPAC 


112 

K tF 

53 

LAST 

H3S 

7543 

52 131 

+4 

UXCh 

tUF 


11 3 

REF 

215 

LAST 

1143 

7544 

3 4772 1 


CAP 

ZERO' 

DIVIDE ROUTINES IN TANK " ^ 

114 

KEF 

2 

LAST 

113<J 

7545 

54 UtJ4 1 


Ti 

FBANK 




' T 



75W 

1 T^3~l 


‘"TCF“ ■ 

L 7 bUiJ 


11 6 

REF 

64 

LAST 

1149 

75^7 

3 116 1 

ScTPO 

GA 

ACOK WJ 

MUST SET TC WORK~AKEa» OR EBANK TROUSLEo” 

11 7 

REF 

12 

LAST 

1127 

755C 

54 166 1 


TS 

PU:iHLUC 


11.-8 

HEF 

1 



7351 

1 1 


Ti.F 

NQl 6 *'iKS W 

NO FiANK SVtITCH REQUTRFO," ' 

11 - V 

REF 

216 

LAST 

1149 

7552 

3 47?2 i 

TSLC 

CAP 

ZEKU 

SHIFTING ROUTINES LOCATED IN BANK ' . 

111' 

KtF 

21 

LAST 

1149 

7553 

54 g4 1 


TS 

F8ANK 


1111 

REF 

1 



7554 

i 2172 0 


TCP 

liLC2 


1112 

REF 

7 

LAST 

11 9 

7355 

3 6 J 43 u 

GSiTlFT 

CAF 

LOW? 

USED AS MASK AT GENSHIFT., THIS PROCESSES 

1113 

REF 

22 

LAST 

1149 

7S3 6 

54 V V 4 1 


TS 

FBATK 

ANY SHIFT INSTRUCTION (EXCEPT TSLC) WITH 

ni4 

“RTF 

TT 



/557 

T“2ZT4 TT 


TCP 

GbN6Hlt-T 

"An AUUKt^ii ( KUU i iNbS IN BANK i 
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FU15 THb FOLLu^INb IS THfc PRULJGUt TQ V/;jC. IF THt PFcjtNT MODE IS VECTOR, IT SAVES THE SCALAR AT X IN BUF 

KlllT ANU CALLS THE V/SC ROUTINE IN SANK IF THE PRESENT MUOE IS SCALAR, IT MOVES THE VECTOR AT X INTO MPAC, SAVING 

K 1 1 1 9 T Ft__S C AL A k i n MPAC IN BUF BEFORE C ALLING Trt £ Vi^S C ROU TINE IN BANK f ^ 


110 

1121 

Rtf 

KEF 

11 

1 

LAST 

1145 

T36 o 

7561 

lU l63 
1 7572 

1 V/SC 

1 

CCS 

TCF 

PCOl- 

DV/SC 

MOVE VECTOR INTO MPAC^ 

1122 

REF 

2 

LAST 

115 

7362 

1 75 72 

1 

TCP 

LV/SC 



1123 




7563 

0 iVo 

1 

VV/SC 

EXTEND 





1124 

REF 63 

4- AST 

1143 

7564 

5 <116 

1 


INDEX 

ACJRRD 




1125 




7565 

3 C V ' 1 

V 


OCA 





1126 

REF 54 

LAST 

1149 

f 566 

52 131 

/ 

V/SCl 

DXCH 

bUF 

IN BOTH CASES, 

VcCIOH IS NOW IN MPAC AND 


1127 

REF 217 

LAST 

1149 

7567 

3 4772 

1 


CAF 

ZERO 

SCALAR IN fiOF« 



1128 

REF 23 

LAST 

1149 

757C 

54 0-w4 

1 


IS 

F3ANK 




ir29 

REF 1 



1 

I 26 5^3 

1 


rcF 

V / STl 2 




113 

- - 


- - - - - ■ 

Tsiz 

C 1*5 o 

1 

C V/ 6C 

L X I E ND 


- 


— 

1131 

REF 66 

LAST 

115 J 

7573 

j V 116 

1 


INDEX 

ADDi<;^U 




1132 




7574 

3 ( 0. ^ 3 

1 


OCA 

2 




1133 

REF 411 

LAST 

1149 

7575 

32 16v^ 

1 


DXCH 

MPAC +3 




1134 




75 76 

i L - V6 

1 


h X T c N D 





1135 

REF 67 

LAST 

115. 

7577 

5 ii 116 

1 


INDEX 

ACOkWO 




113b 




766 L* 

3 iCCb 

1 


DCA' '■ 

4 




1137 

REF 412 

LAST 

115 j 

76v i 

52 162 

u 

... - 

DXCH 

* 2AL 

— - . 

.. 


1138 

REF 123 

LAST 

1125 

7602 

4 4773 

1 


^ 3 

CNt 

CHANGE MOCE TO 

VECTOR 4 



1139 

REF 

13 

last 

115 J 

7oc 3 

54 163 

1 

ts 

MODE 

11 A' 



- 

- - 

/6C4 

6 00U6 

1 

tXT E ND 

- — — . ... 

1141 

REF 

6d 

LAST 

1150 

76u5 

5 Cli6 

1 

1 NUEX 

ACDRWO 

1142 





7 1» c 6 

3 0 *.1 1 

r 

DC A 

- 

1143 

REF 

413 

LAST 

11 Su 

7 7 

52 155 

1 

DXCH 

MPAC 
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USER'S PAGE MO, 44 


L3 S3 


r 1 i 4 S 



SIGN 

AND CQFPLEHENT 

INSTRUCTIu 

NS, 

- - - 

■ -- - 

114 b 

REF 

69 

LAST 

1150 

/’oil 

D 1. 116 

1 

SIGN 

1 NDE X 

ADD R HD 

' 1147 





■ 76112 

Li UJo 



uC 3 


il4U 

REF 

25 

LAST 

1149 

7ol3 

1 6 C 3 

1 


TCF 

DANZIG 

1149 





7ol4 

1 7L>i 6 

L 


TcF 

+ 2 

list 

REF 

2 

LAST 

1119 

7615 

i 7624 

1 


ICF 

CCMP 

1151 

REF 

70 

LAST 

1151 

7616 

116 

1 


I NDE X 

AOU R Wu 

— 1152 





r6TT" 

ILTKTr 

1 

CCSL 

cITS 

1 

1153 

REF 

26 

LAST 

1151 

762 C 

1 603u 

\ 

w* 


T 6 r 

C A L Ikj 

1154 

REF 

27 

LAST 

1151 

7621 

1 60 3o 



TCF 

G A 1 j Z I b 

1155 

REF 

3 

LAST 

1151 

7622 

1 7 024 

1 


TCF 

CD/iP 

1156 

P^EF 

28 

LAST 

1151 

7623 

1 6032 

{,. 


rcF 

DANZIG 

1157 





7624 

U Ot JO 

1 

COMP 

fcX TENU 


1150 

RTF 


"L7TST" 

1150 

ftiZ^ 

4 D1 a !> 

i 


uCb 


1150 

REF 

415 

LAST 

1151 

7626 

52 155 

i 


JXlH 

MPAC 

116 

REF 

19 

LAST 

115 ! 

7047 

IE 163 

1 


CCS 

MODE 

1161 

REF 

1 



To 3 -u 

1 7641 

i 


TCF ■ 

dcuhp 

lio2 

K t F 

2 

LAST 

1151 

7631 

1 7641 

1 


TCF 

DCOMP 

1163 





7632 

0 0006 

1 


EXTEND 


1164 

kef 

416 

last 

1151 

7633 

4 ^ 1 6 

1 


UCb 

MPAC +3 

1105 

REF 

417 

LAST 

1151 

763 4 

LuL 

1 


□ XCH 

MPAC +3 

1166 





7635 

W I'(,:a6 

1 


EXT ENu 


1167 

REF 

416 

LAST 

1151 

7636 

4 ciuZ 

L' 


DCS 

MPAC +5 

liaT 

“HEF' 

419 

last 

TSJT 

3Z 162 

, 1 

V 


“JaTTR 

KFAc +5 

1169 

REF 

29 

LAST 

1151 

764l 

1 6C3\j 

r 

W 


T C r 

CANZiG 

117- 

REF 

42t. 

last 

1151 

7641 

4 156 

1 

DCUMP 

CS 

MPAC -1-2 

1171 

REF 

421 

LAST 

1151 

7o42 

54 156 

1 


TS 

MPAC 

1172 

REF 

J! 

L AST 

1151 

7643 

1 6L3 . 

t 


TuF 

C Ai'J Z I b 


CALL CLHP INSTRUCTIUM IF WORD AT X IS 
TTFGTTr IVE T40W-ZtRTT; 


DO THE CUMPLEMENTo 


COMPLEMENT OP MPAC IN FVtkY CASE^ 


EITHER COMPLEMENT MPAC +3 OR THE REST OF 
THE YECTOR ACCUMULATORS. 


VECIOR COMPLEMENT 



• '' i > T4 



» • ^ 




4 



■ A 





t 
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P 1173 


THE FOLLtJWiNG SHUKT SHIET CGutS REQUIRE NU AOOaISj WQkL) 


R1174 


!• 

SRI 

TO 

SR4 

SCALAR 

SHIFT 

RIGHT 


RUTS 


2* 

SR IK 

Tti 

$R4K 

scalar 

SHIFT 

RIGHT 

AND rLUNOo 

a1I76 


^ a 

SLl 

T U 

SL4 

SCALAR 

SHIFT 

LEFT, 


Rli77 


't © 

SHK 

TO 

S L4K 

SCALAR 

SHIFT 

LLFT 

AivO RUCN J , 

R 1178 


m 

VSKl 

TO 

V Sft rf 

Y E C T OH 

SHIFT 

RioHT 

(ALWAYS K OUR OS) 

RU7? 


o» 

VSLl 

TO 

VSL J 

VtCTUK 

SHIFT 

LLFT 

(NEVER ROUNDS) a 


R i i d 

the 

FOLLOWING CO 

1\ X 1 d 1 

i* 

SR 

Rlid2 

/i a 

SRR 

RAIL 3 

3 (t 

SL 


R 11 d4 






SCALAR 

SCALAR 

scalar 

SC A L AR~ 


SHIFT 

SHIFT 

SHIFT 

ShTFT 


RIGHT • 
RIGHT AivO 

LEFT* 

rtFT 


RUChlD 


KUUROa 


Klib5 

:> o VSK 

VECTOR 

SHIFT RIGHT* 

RilS6 

6<i VSL 

V ECT OR 

SHIFT LEFT* 

Rllb? 

If THE ADDRESS 

IS INDEXED, AND THE 

INDEX MODIFICATION RESULTS 

R1189 

ABSOLUTE VALUE OF 

THE COUNT IS OGNt IN 

TFE opposite DIkeCTION* 


HUE 

REF 

2 

LAST 

1119 

C C , 20 C L 




SETLCC 

1 N r t Rbu 

119* b 





vO f 20 1 7 




BANK 


1191 

REF 


LAST 

1119 TO 

il2'j; 

15 

15* 


COUNI* 

iS / INTER 

1192 

REF 


LAST 

1143 

30,2017 

3 6211 

f 

•-y 

SHUK T T 

L AF 

A 

1193 

REF 

23 

LAST 

1124 

V.' 0,2020 

7 CAy2- 

1 


HA S«< 

CYrt 

1194 

REF 

17 

last 

10 91 

f 2 0 2 1 

5 4 C 2 1 

J’ 

L2 


TS 

G K 


KEF 

24 

LAST 

1152 

UUf 2u22 

ic r2L 

1 


CCo 

CYR 

1196 

REF 

1 



Lu f 2». '23 

1 21J1 

1 


TCF 

} GSL 

1197 





GO f 2 0 2 4 

‘ J V L* 2 ^ 

i 

SRDDV 

U tC 


119 b 

REF 


LAST 

1152 

’u7^25 

51 0 21 

i 

TSSK 

INUEX 

SR 

1199 

REF 

51 

i- AS T 

iC38 

Co, 2026 

3 4753 

i 


C aF 

b IT 1 4 

121; :‘i 

REF 

12 

LAST 

1142 

V 1 2027 

54 1 J 5 

1 


rs 

MPFEMP 

12‘- 1 

REF 

25 

LAST 

1152 

CC f 2g3 4' 

IL ')2v 

1 



CYR 

1292 

KEF 

1 



DC ,2' ’31 

Cl 23 5 Is 

u 

K I GHTR 

I c 

RPACSRND 

12.3 

REF 


LAST 

1143 “ 

CO, 2o32 

1 6i27 

J 


TCF 

FEN400E 

12( 4 

REF 

13 

LAST 

1132 

00,2 -33 

3 L 1 5 

.1 t 

MPACSHI*; 

ca 

MPl BMP 

12C b 





G 0 1 2 w 3 A 

Cl 6 

1 


cX f ClVllJ 


12 6 

REF 

422 

LAST 

1151 

OG f 2 3 5 

7 ^ 156 

1 


HP 

RPAC +2 

12‘ 7 

REF 

42j 

last 

1152 

00 1 2 u 3 6 

34 1^6 

1 

+3 

TS 

MPaC ■*'2 

12-8 

REF 

14 

lAST 

1152 

00,2 jJ? 

3 • 1 3 d 

u 


C A 

MM c HP 

12 . S 





Uc f 2u49 

J 1 J * 0 

L 


L XT L NO 



A N A NEGATIV E SHIFT C U UNT, A SHIFT OF THE 


SCALAR SHCRT SHIFTS LUMt HcRE* THE dHIFT 
COUNT-1 IS iNUW IN blTS 2-3 OF CYR. THE 
ROUNDING bIT IS IN Bill AT THIS POINT, 

SEE IF RIGHT OK LEFT SHIFT DLSIREDo 
’Sh ITT' left; 

MPTEHP SETTING FOR SR GEFORE DDV« 

G£ f SHIFT INC BITo 


SEE IF A RCUND IS UESlKED, 

VES - SHIFT RIGHT AND ROUND- 

SET ■ItiuE TO UP ICIA) = I, 

DO A TkIPLE PkECISIGN SHIFT KibHT, 


(EXIT FROM SQRr AND ABYALJ. 


o w K ; _ A> O t M B L t y I SI O N j7Z Ct _ A oU F kU^KAM ART EMIS aY N A 3 A_4i_2 1 1 


L 

INTL-RPRcTbR 







121 

REF 

A24 

L A 3T 

1152 

V C 1 Z. fu 4 i 

7 M54 

k 


MP 

1^1 1 

REF 

4z5 

LAST 

1153 

CO ,2'-* 4 2 

52 15 5 

1 


DXCH 

1212 

REF 

15 

1.AST 

1152 

•jO f Z u4 3 

3 '135 



C A 

1213 





cru,2-.44 

L) l[lT^v6 

*1 


tX J t ND 

1214 

REF 

15 

LAST 

1148 

L-o, 2i^45 

7 * V. L. 1 

1 


MP 

1213 

REF 

AUb 

LAST 

1153 

C 0,2 046 

2w 156 

1 


DAb 

1216 

REF 

31 

L AST 

1151 

Ou 1 2i04 7 

i 6 iji J ^ 

' < 


IGF 

H 1217 



MPAC 

SHIFT 

RIGHT AND 

ROUND 1 

SUbkCUT INES^ 


1216 

REF 

427 

LAST 

115-> 

30, 2. >5 

3 vrl56 

(> 

PPACSRND 

CA 

1219 





' 3?..' , zu5 i 

0 V.Cub 

1 


extend 

122 

REF 

1 o 

LAST 

1153 

U u f z 

7 u 135 

1 


MP 

1221 

REF 

'420 

LAST 

1153 

av , 2 CS 3” 

56 155 

0 


XdH 

1222 





o0,2o 54 

^ G ij b 

1 


lXTEND 

UZT 

“TTEF" 

1 / 

LASI 

1153 

CQ 

/ 6135 

i 


“FTP 

1224 

REF 

4 2V 

LAST 

1133 

00 , 2>-/56 

56 155 

0 


XCH 

1225 

ref 

151 

LAST 

1153 

uO f Z 

6 GTJGl 

, 


AO 

1226 

- 


- 


f ^ vi' Li' 

6 i^UOG 

1 

VSHR2 

iJUUBL L 

1227 

REF 

43 

LAST 

1153 

Xj O' T 

54 156 

1 


Tb 

122S ■ 





O’J , 2'. it 2 

1 2' 964 

j 


TTF 

1229 

REF 

431 

LAST 

1153 

w J f Zi O ^ 

26 155 

1 

- 

Aub 

123' 

HEF 

2id 

LAST 

li5j 

ca,2w64 

3 4772 

1 


uAF 

1231 

REF 

43tl 

LAST 

1153 

V/ ij f ^ J 3 

54 l36 

1 


Tb 

1232 

REF 

433 

LAST 

1153 

0 0 f /d w O O 

36 i 34 

1 


XCH 

1233 ■ 





ijOtZubi G J .b 

1 


'EXTEND 

1234 

REF 

IS 

LAST 

1153 

j > , 2 V 7 C 

7 L135 

1 


MP 

1235 

REF 

434 

LAST 

1153 

1 2.u7^ 

20 153 

1 


D 


REF 

230 

LAST 

1148 

-\t t Z J 7 Z 

0 cue 2 

f,' 


TC 

1237 

REF 

19 

LAST 

1153 

LI 3 1 2 c 7 3 

3 C 135 


VSHRKND 

CA 

IZTB^ 





iio f ^ u / 4 

6 1 9; 3^ 

1 


lX ( END 

1239 

REF 

435 

LAST 

J.15d 

.0 0 f id 1 > 7 15 

7 1 155 

1 


MP 

124 

REF 

436 

LAST 

1153 

C-j,2l76 

54 155 

1 


Tb 

1241 

REF 

152 

LAST 

1153 

Lii * J * d 7 7 

56 <-.-1 

» i 

V 


XCH 

1242 

REF 

1 



CUfZiCP 

1 23 6'. 

1 


ICf 


1*^- il 
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bPAC 
KPmC 
i'-PI tMP 


4«5 


PAGE 1153 


USER'S PA^E NO. 46 E3 53 

SHir-I MAJOR PART INTO A,L AND PLACE IN 
MPACj+l^, 


L ORIGINAL CIMPAC +l)o 

^PAt, +1 ' GuakANTEED NU OVERFLUvia 

OANZIG 


MPAL +2 WE HAVE TO DU ALL THREE MULTIPLIES SINCE 

MPAC +1 ANT "HP AC +2 hIbHT HAVE STIGN 

MPVcMP DISAGREEMENT WITH A SHIFT RIGHT OF 

F PAC +1 

■jrpx^fr 

PPAc +i TRIAL MINOR PART^ 

L ^ ' * ‘ ' 

t FINISH VECTOR COMPONENT SHIFT RIGHT 
MPAC +2 AND ROUND o 

T 2 

MP4C +1 GUARANTEED NO OVERFLOW, 


ZERO 
HP AC +2 

RPAb SETTING TO ZERO SO FOLLOWING DAS WORKS, 


PPT lMP 

^'iPac again nd overflow* 


MPTEMP ENTRY TO SHIFT RIGHT AND ROUND MPAC WHEN 

X0NTA'1N5'“A VbClUK COMPUNENI , 

MPAC +1 
PPAC +i 

L 

V jHR2 


GO ADC ONE IF NECESSARY AND FINISH, 


I 


=5 


GAk; 

ASSEMBLE 8 

EVISl ON i 72 

LF Ai,L PROGRAM ARTE 

MIS BY 

NASA 2 21114- 11 

L 

INTERf RE 1 tk 








P 124-^ 



KQU T I NE FUR 

SHUkT SCALAR oHiFT 

LEFT 

(AND NAYdt 

round) ^ 

it:44 

KEF 

19 

LAST 

1152 

oe • 2 lu 1 

3 6021 

1 

TSSL 

U A 

SR 

1245 

KEF 

2.' 

LAST 

TI53 

iTC) , 2 lu 2 

54 135 

1 

+ 1 

r 3 

MPTEMP 

1^46 




- 

U C t Z 1 c 3 

U Li. 6 

1 

+2 

cK f END 

— 

1247 

REF 

437 

LAST 

1153 

a0,2ii 4 

3 vl56 

0 


UG A 

MPAC +1 

12hE 

REF 

438 

LAST 

1154 

'’ v f ^ i. 3 

1S6 

1 


DAS 

MPAL +1 

124 s- 

KEF 

439 

LAST 

1154 

vi sJ f zLxk h 

6 D154 

1 


AD 

KPAC 

12 5 • 

REF 

“4-4 ^ 

LAST 

11 54 

0 U f .cl i L 7 

6 « 154 

1 


AD 

FiPAL 

IZji 

KfcF 

441 

LAST 

1154 

U C f £ i JL w ■ 

54 154 

fj 


IS 

MPAC 

1252 





uO f ZkX X 

1 2113 

i 


TCF 

+2 

1253 

REF 

4 

L A^T 

1139 

SUf 2112 

54 121 

1 


rs 

UVrl ND 

A 1254 











1255 

REF 

21 

LAST 

1154 

7 21 13 

1 u 13 5 

1 


00 3 

MPIEMP 

1256 REF 

2 

L AS I 

TI^Z 

ijui 21 14 

1 2 1 / ^ 

i 


TCF 

TssTrTI 

1257 

KEF 

26 

LAST 

1152 

>iT2115 

iij 02 L 

1 


y Vj ^ 

CY/n 

125 8 

REF 


LAST 

1149 

u \} f ZXXtj 

7ii 5 

1 

ROUND 

rc 

8 JUiv D3UB 

1255 

REF 

32 

LAST 

1153 

J L t id i i 7 

1 6030 

D 


TCF 

DANZIG 

126- 

REF 

33 

LAST 

1154 

u u f ^ kZ . 

1 6-3w 

0 


TCF 

DAnZIG 
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46 PAbt 1154 


USER'S PAGE NO, 


47 


l3 S3 


GET SH I FT COUNT FOK SR. 


ENTRY HERE FkOM SL EOR SCALARS^ 
SHIFTING LEFT ONE PLACt AT A TlMt IS 
FASTER THAN DOING THE GHOLE SHIFT HITH 
MULTIPLIES ASSUMING THAT FREQUENCY OF 
SHTLT CUUNtS” fSuES DOWN RAPIULT AS A 
FUNGTiCN OF THEIR MAGNITUDEo 

CVEKFLQWo (LEAVES CJVERFLOW-CORKECT ED 
RESULT ANYWAY). 

LCOP UN DECREMENTED SHIFT CUUNT* 


SEE IF ROUND WANTED, 

YES - KOUNC and exit, 

SL LEAVES A ZEkO IN CYR FOR NO ROUnO, 
NO - EXIT IMMEDIATE 


v* AH ; AS S tMBL E R E VISI ON • ' IZ CF AGC HRGGRAM AR TE^fl S aY NASA Z 'J 21 1 14 - ii 
L INTFHPREFEK 


P IZtl 

VEC lUR 

SFIFTlNi. ROUTINES. 



- 




REF 


LAST 

221 

00,2121 

3 4774 

1 

SHORTV 

CAF 

LUW3 

12o3 

R6F 

27 

^ AST 

1154^ 

Iin ,"2122" 

/ 002 j 

1 


■ IHASK — 

Cyk 

1264 

REF 

22 

LAST 

li:>4 

00,2123 

54 i Jb 

1 


rs 

MPTEMP 

12 6S 

KEF 

26 

LAST 

11 bb 

i?U 9 

10 02CJ 

1 ■ 


Cc's 

CYK “ 

1266 

REF 

1 



00,2125 

1 2145 

1 


TCF 

VSSL 

1267 





0T,2126 

“ CE176 

1 

GCTi76 

UCT 

17o 

126B 

REF 

23 

LAST 

115b 

ij t Z X Z T 

be 1 3 b 

c; 

VS3R 

INDEX 

MPTEMP 

126S 

REF 

52 

LAST 

1152 

uO, 213- ^ 

3 4 if 3 

1 


CAF 

BiTi4 

127 

REF 

24 

L AST 

11 55 

Co f 213 1 

54 135 

1 


Ti 

MPTEHP 

1271 

REF 

1 


- 

,2132 

j 2i 73 

1 


re 

V^HRaND 

1272 

KEF 

442 

LAST 

1154 

00,2133 

52 155 

1 


OXCH 

MPAC 

“1273 

KFl- 

443 

L A5 1 

1155 

uU f 2X34 

52 



“TJZCFI — 

“?rPAc +3“ 

1274 

REF 

444 

LAST 

1155 

CO, 2135 

52 155 

1 


UXCH 

FPAC 

1273 

REF 


LAST 

1155 

vv, 2136 

D“2n73 

1 


TC 

VSHRRnD 

1276 

REF 

44b 

LAST 

1155 

00,2137 

52 ii>5 

1 


OXCH 

KPAC 

1277 

REF 

446 

LAST 

11 5b 

jO i214C 

52 162 

0 


OXCH 

MPAC +5 

IZ7F“ 

Rhh 

447 

LAST 

n 55 

0 3 f Z i 4 1 

52 155 

1 


‘“ETXDFT' 

"WAC 

1279 

KEF 

3 

LAST 

1155 

^,2142 

e 2j76 

1 


TC 

VbHKr-.i’^O 

120^0 

REF 

I 



00,2143 

i 73!>4 

> 


TuJ” 

VKUI AT tX 


11:4' FE6, Z6tlS)71 ZEUS a >> 46 PAGE 1 1 ^ 

USER'S PAGE NDa 4B £3 S3 

SAVE 3 BIT SHIFT COUNT - 1 WITHOUT 

nsTTTmrzm:. — 

1jE£ If LEFT DR RIGHT SHiFTa 
VECIUk SHIFT LEFT* 

US“ED IN PROCESSED SHIFTS WITH - COUNT* 

(ENTRY FKCM SKT*“>'ICK UP SHIFTING BIT* 
MPIEHP CONTAINS THE SHIFT COUNT - 1* 

SHIFT X COMPONENT*. 

SWAP X AND Y COMPONENTS* 

SHIFT Y COMPONENT* 

SWAP Y AND L COMPONENTS* 

SHIFT I COMPONENT^ 

RESTORE COMPONENTS TO PROPER PLACES* 


- . k A.Pi «S S it CN ; 7^ GF AcjC PROoKAM _A kTE HIS DY HaSA I 21X14- l i 1 ij. ^ F£B« 26,1971 ZEUS 4b PAGE 115b 


L IMEf<PftET£K USER'S PAGE NO. 49 b3 S3 

VECTOR ^KifT LEFT - Du.JE ONE PtACE AT A TIME. 

12B2 REF 2S LAST IISS Qgl^l44 54 135 1 -1 To MPTEMP SHIFTING LCQP. 


1283 00,2145 o ’-uw6 1 VSSL txTENO 

1284 REF ^48 LAST 1155 00,2148 3 cl55 i' OCA FPAC 

i2Hji REF 449 LAST 1158 Gw, 2147 2w i.55 1 OAS KPAC 

12^8 00,2150 w GUG6 1 EXTEND 

1267 00,2151 1 2133 O bZF +2 

WFP 3 ■ LAsT^rrJ^ DG72l52“7r8TCrC OHhFlDIR — 

1289 " ’ 00,2153 0 CduO 1 caTENJ 

129C REF 45, LAST 115o _0C,2154 3 fl6o j DCA MPAC +3 

1291 KtF 45i LAST 1156 0L',2i55 2 g Ibv 1 DAS PPAC <-3 

1292 00,2156 0 ‘J'.’06 1 EXTEND 

oITTZlFT WZf T2 

1294 REF 4 LAST 1148 UC,2i6- 0 6763 L TC lVEKFLaY 

12“- 5 0C,2l6l 0 ^ .'W8 1 extend 

1296 REF 452 LAST 1156 UC,2I62 3 »_ iu2 1 UCA t'^PAC +5 

1297 REF 453 LAST 1156 00,2163 2l; 162 0 DAS RPAC -*^3 

1298 00,2164 0 ■_'w 36 1 tXTEND 

1299 _1_21U7 1 02F +2 

13-' KEF 4 LAST 1147 0t',2i66 0 67oc {> TC CVtiKFLwZ 

1301 REF 26 LAST 1156 00,216? 10 135 1 CCS RPTEHP LOUP UN OECREMtNTED SHIFT CUUNTERd 

i3vj2 REF 2 LAST 1153 kG,2170 1 2144 0 TCF VioL -1 

1303 REF 34 LAST 1154 2 iTi 1 6030 6 TCF CAi^ZlG EXIT. 


11140 f-cB, 26,1971 ZEUS 


KJ 


/U': 


A S S £M6Lh KEV l Sl0iv< \>ll OF AGo PkOUkAiM AATEHIS BY WASA 2, 21114- . U 


a ‘46 PAGE 1157 


L iNTtRPPL 1 1 rC 


USER'S PAGE NU« 50 E3 S3 


P 13 J 4 



TSLC 

- TRIPLE SHIFT 

LcFT AND 1 

COLNT. SHIFTS MPAC 

LEFl UNIiL 

GREATER THAN .5 IN MAGNITUDE, LEAVING 

K13V6 

THE 

COMPLEMENT 

OF THE 

NUMBER 

OF SHIFTS 

KEQUll.EO 

1 N A 



IJ. 7 

KEE 

27 

LAST 

1156 ™ 

0'w,21 72 

54 135 

1 

^TSLC2 

T3 

PFI EMP 

STAST by zeroing shift count (IN A NOW*. 

13.' 8 

ft tF 


LAST 

1142 

> ij f ^ T T 3 

U fao 7 Z 

1 


TO 

d.iANCH 

EXIT WITH NO SHIFTING IF ARGUMENT ZEROo 

13. *9 





:.u,2i7 4 

1 2i7o 

1 


TCF 

42 


131 

KEF 

1 



0‘C,217 5 

i 2212 

i 


TCr 

ENUrSLC 

STORES ZERO SHIFT COUNT IN THIS CASEo 

1311 

KEF 


LA ST 

349 

^ u t L 1 7 6 

0 ~l Z Zo 

iL 


TC 

TPAuKtt 

MAY CAUSE UPSHIFT OF ONE EXTRA PLACE^ 

1312 

kEF 

454 

LAST 

1156 

L ;,2i77 

3 0154 

1 


CA 

PPaC 

BEGIN NORMALIZATION LOOP. 

■ 1313 

REF 

1 



V f 4 

1 22J7 

1 


TCF 

T sLL Test 


1314 

HEF 

28 

last 

1157 

CC,22i 1 

24 135 


ISLCLOUP 

INCR 

MPTEMP 

INCREMENT SHIFT COUNT EK* 

1315 





00 , 22li 2 

w ib 

1 


EXTEND 




— FTEF 

455 

"TTIST ■ 

113 / 

GO , 22L 3 

3 156 

0 


DCA 

KPAu +i 


1317 

REF 

456 

LAST 

1157 

U v* f ^ ^ 

2 l36 

1 


UA5 

MPAC +1 


1318 

REF 

457 

last 

1157 

03 , 22 w 3 

6 f.l54 

i 


AD 

PPAC 


1319 

REF 

45d 

last 

1157 

00 f 6 

26 154 

i ’■ 


AD3 

P.PAC 


1320 





GO, 22 (7 

S V 0 ^ 'v 

1 

TsLCTEST 

DGU 3L 


SFE IF tANOTHERH SHIFT IS RE&UIRFD, 

1321 





00#22li 

54 W) 0 - 

V- 


OVSK 



~1T22~ 

— ffFF 

1“ 




i"22'jr 

1 


“TTF 

TsruruuF 

YhS " iNLftiiWENf X0Ul4i ANLi Shif-1 

1323 

REF 

29 

LAST 

1157 

0,2212 

4 013 3 

1 

ENOTgLC 

L3 

RPTEMP 

----- ... - _ 

1324 

REF 

1 



L f 3 

1 6572 

0 


TlF 

S fuREl 

STORE SHIFT COUNT AND RETURN TD lANZIGo 


, ASSEMELi: r’,i.^lSlCN GF AGC HKObKAM AKTfcMIS BV N ASA 2 11 


1114.. F b b< ^6tlV71 


ZEUS 


o 46 J>AG£ Xlb6 


INTERPHE TcK 


USER'S PAGE NUe 31 


t3 S3 


P 13 Z ‘3 
K liZ 7 


IHb FULLUWING ftUUTlNES PRJCESSES THE GENEKmL SHirl Ii><STKJCTl 
TEE olVEN ADDRESS IS CECJDEC AS FULLCWS: 


SKt SRRj SLt AfvD SLk* 


K i3ze 

K1329 


tills 1-7 

bIT d 


SHIFT COUNT t :>uaADDH ESSl LESS THAN 123 DECIMAL* 
PSEUDG SIGN 811 (DETECTS CHANGE IN SI^N IN INDEXED 


SH^^TS ) 


k 1331 



81 T 

9 

* FuK LtFf 

SHIFT 

t 

A N G i 

FQK 

RIGHT 

S h 1 F 1 a 


K 1332 



BIT 

1* 

1 FUK TEKMINAL kUUNC UN 

^CALAK SHIFTS, DTHhR><lS 

C 0 

R1333 



d I TS 

11-13 










K 1334 



31 T 

14 

X « 









K I33!> 



3lT~ 

T5 










H1336 

THE 

ABOVE 

ETmC GOING 

IS DONE 3Y 

THE YUL 

SYSTEM 

• 




1337 

REF 

71 

LAST 

1151 

^ j f z Z 1 A 

7 

0116 

0 

GENSHIFT 

MASK 

A CDRWD 

GET SHIFT COUNT, TESTING FOR ZERO. 

1338 

TeT 

293 

last 1148 

. : ,22 15 

TO 

GUu 

0 



CCS 

A 

tARKIVtS IflilTh CtA) “ LOViflo 

1339 

kef 

1 



- ,2216 

1 

2224 




TCF 

Gci4SHFT 2 

IF NDN-ZtRC, PROCEED WITH DECREMENTED CT 

134 

REF 

24 

LAST 

721 

V i* f zZX / 

3 

473? 

' } 



CAF 

b 1 1 

ZERO SHIFT COUNT. NO SHIFTS NEEDED dUT 

1341 

REF 

72 

LAST 

1158 

V i.' f 

7 

0 11 6 




MASK 

ADUKrJD 

WE MIGHT HAVE TO ROUND MPAC ON SLR AND 

1342 

REF 

294 

LAST 

1158 

00,2221 

1 ' . 

* J '-J %J 




CCS 

A 

SRK (SCALAR DNLYT. 

1343 

REF 

3 

LAST 

1 1 54 

00,2222 

J 

7i05 

i 



TC 

RUONDoUB 


1344 

REF 

35 

LAST 

1156 

00,2223 

1 

O . J V 


- 


T^F 

DAiU IG 

- - - . 

1343 

H t F 

3 

LAST 

1157 

^6,2224 

b4 

135 

1 

G &N S 

HFT2 

To 

MPT EMP 

DECREMENTED SHIFI COUNT fu MPTEHPo 

1346 

REF 

29 

LAST 

11 6 

0 j , 222 5 

d 

4761 




CAF 

L X T 0 

test meaning uf low seven bit count in 

1347 






% 

KJ 

C ‘. i J 6 

1 



EXTEND 


MPTEMP NOW. 

1348 

REF 


TASf 

“llsS 

iiO f idzlXi 7 

7 

^ ii o 

f 



MP 

ACDkWU 


1349 

REF 

1 



00,223:; 

7 

0214 

1 



MASK 

LG22 

JUMPS ON SHIFT DIRECTION IbIT.d) AND 

133 

REF 

295 

LAST 

1156 

CiC',223i 

5 

'5 J L. 

1 



1 ('iUfcX 

A 


1351 





00,2232 

1 

2233 

* J 



ICF 

+ 1 

ORIGINAL SFIFT DIRECTION (JlT 9)„ 

1352 

rEF 

i 



00,2233 

1 

2332 

v' 



rCF 

H iuH 

negative shift CtJUNT FOR SL OR SLR. 

1353 

REF 

i 



VJ,2234 

1 

2342 

1 



TCF 

LEFT 

SL OK SLR« 

'X35^— 

kEF 

1 



uo,2235 

1 

ZT36 

i 



f CF 

TlTT- 

NeGaTive shift CUliNI W1 1 H SR (JR SPk . 
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I INTEHEKEluK USER'S PAGE NU, 52 h3 S3 


P 1355 

- 

- - 

GENERAL SHIFT KIGHI. 





- 

- - — — . .... 

1356 

REF 

2i" 

LAST 

1151 

00,2236 

It l63 

1 

K I GH T 

G 6 ^ 

POUE 

SEE IF VECTOR UR SCALAR. 

1357 

keF^ 

T 



3Tr,22'37~ 

1 227 / 

Ir 


TCf' 

GXOJbLK 


1356 

REF 

z 

last 

1159 

■J’i, 224'-' 

1 22 77 


- 

TCF 

G ti^lS CH 

. . 

1359 

REF 

31 

LAST 

115b 

00,2241 

3 135 

J 


CA 

MPT E. IP 

SEE IF SHIFT COUNT LESS THAN 14D. 

1366 

REF 

1 



00,2242 

6 37 26 

1 

WRIGHT 2 

AD 

NEGi2 


1361 





SU,2243 

X- 

1 


EXTEND 



136 2 

K tF 

1 



uC f 2244 

6 2127 



6ZME 

VSo X 

IF SQf BkAfiuH AnU Shlpj i a i irLT« 

1363 

REF 

22 

L A 6 T 

1143 

0~j,2245 

6 77 u 2 

<J 

- 

AD 

h cuU Nt 

if NUT, RECUCt MPTEMP 3Y A TOTAL OF 14, 

1364 

REF 

32 

LAST 

1159 

L' U f 2246 

54 13 5 

1 


Tb 

MPTEMP 

AND DO A SHIFT RIGHT AND KUUMD BY 14. 

1365 

REF 

219 

LAST 

1153 

ox. , 2247 

3 ^772 

1 


CAF 

ZERO 

THE RDUND AT THIS STAGE MAY INTRODUCE A 

1366 

REF 

153 

LAST 

1153 

i j V f 22^ t. 

54 OjI 

1 


TS 

L 

CNE BIT ERROR IN A SHIFT RIGHT 15D. 

1367 

REF 

"459 

L ASl 

ir57 

, 225 1 

-^ 6 X5^ 1 


XCH 

“FFAC 


1368 

REF 

46 ij 

LAST 

1159 

\J J f zzt^z 

56 155 

L 


XCH 

MPAC +1 


1369 

REF 

■ 1 



cox 225 3 

“0 22 Zl 

1 


TC 

5E TR jUi 4 D 

X COMPONENT RDvi SHIFTED, SO HAKE UP THE 

13 7 

KEF 

461 

LAST 

1159 

0 f 2254 

2U 15 j 

1 


DAS 

MPAC 

ROUNDING QUANTITY t IN A AND UR +-1 

A 1371 











IN 11. 

13 72 

REF 

462 

LAST 

1159 

2 J f 223 3 

5o 157 

1 


XCH 

MPAC +3 

REPEAT THE ACUVE PROCESS FUR Y AND Z» 

1373“ 

REf 

"463 

LAS! 

1159 

gC ,2256 

56 lou 

c 


xCh 

HPAC f4 


1374 

REF 

2 

LAST 

1159 

00,2257 

o 2272 

1 


TC 

SET ROUND 


1375 

REF 

464 

LAST 

1159 

GC , 226v 

z: lu 

1 


DAS 

MPAC +3 

NO OVERFLOW ON THESE ADDS. 

1376 

REF 

465 

LAST 

1159' 

u f 226 i 

56 lol 

1 


XCH 

I^PAC +5 

- 

1377 

REF 

46q 

LAST 

115S 

L' V f 22 6 2 

56 162 

1 


X^H 

MPAC +6 


1376 

RTF" 


TTfST" 


Dv, 22773" 

~ZZT2 

I 


T J 

SETRUUND 


1379 

REF 

467 

LAST 

1159 

OO ,2264 

2 lo^ 

w 


DAS 

FPAC +5 


13 b', 

REF 

33 

LAST 

1159 

Jut 2265 

IG 135 

1 


ccj 

MPT trip 

SEE IF DQNEf DOING FINAL DtCfttMENTo 

1381 

REF 

34 

LAST 

1159 

tJ J f 2 2 6 6 

54 135 

1 


TS 

PPTE.3P 


1382 

REF 

1 



Cv,Z267 

1 2242 

0 


TCE 

VRiGHfL 


“1383 





uC,2270 

f.’^60*4 

1 

TIASLO 

TTEC" ■ ’ 

o29T4”3-r 

SORT CONST ANT 

1384 

REF 

36 

LAST 

1158 

c vv f 22 7 1 

i O.-J.J 

4 . 


TCF 

CANZ IG 

~ 

1385 
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0 0 f 2723 

1 2731 

1 


TCF 

/iNuKH 

NORMALIZE CIViSUR IN BUF^ 



1711 





L 'j f L 7 <£i ^ 

C Ll Jo 

1 

/mRhVZ 

EXT EfJu 


IF LESS THAN «5, AUGMENT DVNORMCT AND 


- 

1712 

REF 

5 

LAST 

1171 

Cu,2725 

24 137 

1 


AUb 

L V/'iQkHC i 

CCUbLE DIVISOk^ 



1713 





DO f 2726 

lU V Vjf ij 6 

1 


EXTEND 





171^ 

REF 

92 

LAST 

1172 

09 |2727 

3 .U31 

1 


DCA 

BUF 




1713 

k t F 

93 

LAST 

1172 

0U»273' 

^0 131 

0 


DAS 

bOF 




1716 

RbF 

94 

LAST 

1172 

Ou,2731 

3 0130 

4.’ 

/NUKM 

Ca 

BUF 

SEt IF DIVISOR NORMALIZED. 

— 

— __ -- ^ 

1717 





00,2732 

6 OOOU 

1 


D0U3LL 





17 IG 





f Z 73 3 

54 GQO 

0 


avsK 





1719 

REF 

1 



00,2734 

i 2724 

L 


TCF 

/NURH2 

DOUBLE AND TRY AGAIN IF NUT. 



172t 

REF 

1 



J L f Z7 3 5 

w 2747 

1 


TC 

V/SCD(/ 

DO X CCMPCNENT DIVIDE. 



1/21 

REF 

5g9 

LAST 

1171 

U i f Z 7 3 1) 

3 Z i O v; 

1 


DXCH 

MkAL +3 

SUPPLY ARGUMENTS IN USUAL SEUUENCE. 



1722 

REF 

31 

LAST 

1172 

- ,2737 

52 155 

1 


QXCH 

3PAu 



1 

0 

1723 

REF 

511 

LAST 

1 1 7 L 

- j,274 

“ 52 io^ 

1 


DXCH 

^^'PAL 




1724 

REF 


LAST 

1172 

ij,2741 

0 2747 

1 


TC 

V/oCjV 

Y CQMPONENTo 



1725 

REF 

t> 1 2^ 

LAST 

1172 


52 162 

' 1 


DXCH 

RPAC +3 




1726 

REF 

513 

LAST 

1172 

vi ‘ j f Z 7 ^ 3 

52 155 

1 


DXCH 

RPAC 




1727 

REF 

514 

LAST 

1172 

0 ,2744 

52 162 

U 


DXbH 

MPAC +5 


- 

-- 

17 23 

REF 

3 

LAST 

1172 

„ .,2 745 

0 274 7 

1 


TC 

V/SCOV 

Z COMPONENT. 



1729 

REF 

2 

LAST 

1155 

w J f L 7 6 

" i 7354 

'j 


TCF 

VKOT ATtX 

GO RE-AKkANGE COMPONENTS BEFORE EXIT. 




\ 
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L 


iNTERFRc TcR 


USER'S PAGE NL* 66 E3 S3 


I'i/J SUBKGUIIHE USED BY V/^C TU 01 YiDE VECTOR COMPONENT IN MPAC,+i BY THE SCALAR GIVEN IN BUF» 


1732 

REF 

42 

LAST 

1171 

0 - 12747 

3 127 

u 

V/SLDV 

CA 

VciUF ^"5 

REFLECTS SIGN OF SCALAR- 


1733 

H t F 

Y 

LAST 

1169 

La; , 2 7 5 *7 

54 136 

r 


Ti 

liVSTGN” “ ■ 



1734 

REF 

Ji:> 

LAST 

1172 

; a j 275 1 

is 16 4 



CCS 

^PAC 

FOhCE MPAC POSITIVE, ‘ EXITING UN 

Zeku* 

173 5 

REF 

1 



yU » 2752 

i. 2 7 Q 

V 


TCi” 

/MPAC+ 



1736 





00,2753 

1 2753 

ij 


TCF 

+ 2 



173 f 

HtF 

1 



00,2754 

1 2762 

1 


fCF 

/(TRAC- 



1738 

REF 

516 

LAST 

1173 

vG *2755 

1 155 

1 


CL3 

PPAC +1 



1739 

REF 

2 

LAST 

1173 

LCt4l756 

1 2766 

0 


TCF 

/i^K aC+ 



17^L 

REF 

23o 

LAST 

1169 

v2 0 f jci 7 i> 7 

L y j 2 

/• ■ 

i/ 


TC 

; ’’ 

'W 


1 

1741 

REF 


LAST 

1173 

■ ~a<:t,z76v ’ 

1 2762 

1 


TCT^ 

/MPAC- 



1742 

REF 

237 

LAST 

1173 

UG, 2761 

0 0 0 V 2 

\) 


TC 




1743 





G <2 f iL / u ^ 


1 

/MPAC- 

extend 


USUAL COMPLEMENTING AND SETTING 

U F b I G H m 

1744 

REF 

517 

LAST 

1173 

UC,^763 

4 .155 

1 


D C b 

MPAC 



1745 

REF 

518 

LAST 

1173 

Wu ,2764 

52 165 

1 


DXCH 

MHAC 



1746 

REF 

8 

LAST 

1173 

UCS2765 

24 136 

u 


INCR 

lVSIGN 



1747 

REF 

132 

LAST 

1171 

C L f ^ 7 6 6 

4 47 7 G 


/MPAci- 

L S 

CNL 

INITIAL IZE NEAK~0N£ "switch- 


1748 

REF 


LAST 

1166 

L t ^7^ 7 

5 4 145^ 

1 


T 3 

F AXD VSR 



1749 

KEF 

519 

LAST 

1173 

3 1: f ^ 7 7 O 

4 C 1^4 



L5 

FPAC 

CHECK POSSIBLE DVEEiFLUW. 


1751 

REF 

15 

LAST 

1172 

20,2771 

6 133 

1 , 


AD 

3UF2 

UNNOHMALIZEO INPUT DIVISOR^ 


1751 

REF 

3'. 2 

LAST 

llo5 

QL,2772 

It >6 5 

k. 



A 



— 1752 — 

■RtF' 

— r 



— '00,2773 

1 "3{: IT 

1 

L. 


“TCT^ 

~UD Y L AL L 

I\Ul 


1753 





00,2774 

1 2 776 

1 


TCF 

+2 

+. IS JUST possible 


1754 

REF 

d 

LAST 

1171 

0Lr,2775 

1 24t4 

1 


TCF 

DVjYi' 

NO T3GPE 


1755 

REF 


LAST 

1173 

w u f Z 7 7 6 

54 14. 

1- 


T b 

A;tD YSW 

SIGNAL Possible near-one case 


1750 

REF 

52-. 

LAST 

1173 

■ »T0,Z777 

4 (155 

1 


0 s 

MPAC +i 

SEE IF DIVISION CAN BE DONE 


1757 

REF 

16 

LAST 

117 3 

00# j0\- ^ 

6 tl34 

1 


AD 

jUFil 



1758 " 





— — — \ ^ 1 

W u f ^ 13 2 L 

w u w u 

r- 


hxT cNU 




1759 

hEF 

n 

'j 

LAST 

11 73 

0 0 f jvv u z 

3 246 4 

1 ' 


32MF 

OYOVf 


. . 

176^- 

kLF 

521 

LAST 

1173 

0 C f s>00 -3 

52 155 

1 

uOVCALL 

DXCri 

RPAC 

CALL PRE-CiViDE NUKM AL IZAT ION > 

‘1 

1761 

REF 

6 

LAST 

1172 

C # ' w ^ 

5;, 137 

1 


INDEX 

JYNGRHCT 



1762 

REF 

2 

LAST 

llu J 

tjU t h30 - 5 

1 2564 



TCF 

/tAXT cb T 
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L XNTEKPRfcf cK 


i7o j 

■ - 




M t 300 6 

325l6 

iJ 

SLOPELU 

ui^C 

,3324 

l7o4 

REF 

236 

LAST 

1173 

0 _ f 3 jL 7 

56 v02 

u 

VECAGKEE 

XCH 

i ' 

% 

17ut> 

REF 

522 

LAST 

1173 

f 3 u 

52 135 

1 


OXlH 

MPAC 

1766 

REF 

2 

LAST 

1171 

00,3011 

i-' 73^1 



TC 

AL S I GNAG 

1767 

REF 

523 

LAST 

117^ 

00,3 12 

32 13 3 

1 


OXLH 

MPAC* 

176 A 

KEF 

524 

last 

1174 

00,3013 

52 16 :■ 

1 


OXLH 

MPAC +3 

1769 

REF 

3 

LAST 

1174 

00,3g14 

U 73jw 

0 


TC 

ALg 1 GNAG 

1777' 

REF 

525 

LAST 

1174 

00,3iji5 

52 160 

1 


DXCH 

KPAC +3 

1771 

R^F 

5i?6 

LAST 

1174 

,3u 16 

32 162 

0 


u Xch “ 

MPAC +5 

1772 

REF 

4 

LAST 

1174 

00 f 3u 1 7 

U 7300 

0 


To 

AL3 X GNa G 

1773 

KEF 

527 

LAST 

1174 

GO, 3 02' 

32 io2 

0 


0 XCH 

MPAC +3 

1774 

KEF 

37-3 

LAST 

1173 

OC, Jt.21 


1 


TC 

A 
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SIGNAGREE PPAC 


SIGN AGREE MPAC +‘3 


SIGNAGREE MPAC +3 
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IMfc 

KPHET 

i* K 







USbJ<*S PAGE NQp oB E3 S3 

P1773 

- 


THE 1 

FCLLUWlNo ROUTINE 

EXtCUTES 

THE UNIT INSTRULTlUM, hHJLH 

TAKES THE UNIT OF THE VECTUH IN MPAC. 

1777 

KtF 

2 

LAST 

1 17 1 

uO 1 3022 

J 3tv7 

-J 

LNIT TC 

VECAGKEE 

FORCE SIGN AGREEMENT IN VECTOR 

' 17 Tb 

RtF 

2 ' 

L71ST 

1144 

~Jio7SUZT~ 

V. 7466 

1 

TC 

^IPAC VsUF 

7E" ■’ A R GU fin:NT'“nr~VBDT^ ■ 

17 7G 

HFF 


LAST 

116 9 

or*, 3^24 

3 4/72 

1 

CAF 

2 ERU 

MUST SENSE OVERFLUK IN FOLLOWING DOT- 

lie 

K EF 

6 

LAS i 

1162 

GO, Jv25 

36 121 

2 

XCH 

LVFINU' 


17 bi 

i'tF 

3 

LAST 

71 

DC f 3u^6 

54 141 

1 

TS 

Ttrti 


17b.d 

RfcF 

1 



Ou»:> j27 

J 3316 

1 ► 

TC 

V S 0 S U i> 

■ DOT MPAC WITH ITSELF. - - -- 

17 33 

8£F 


LAST 

1175 

00 f 

3 ;jl4l 

\) 

CA 

T tMi 


I7b4 

k£F 

7 

L AST 

'1175^ 

1 3C>3 1 

56 121 

J 

XCH 

"DVFITTJ""' 


17b5 





vU 9 3u32 

S ’. 2 j& 

i 

EXTEND 



1786 





“0X^,3033 

7 3335 

u 

bZF 

+ 2 


1787 

REF 

1 : 

LAST 

11 M 

C)0 f 3?j3^ 

1 2404 

1 

TCF 

C Vu V F 


1788 





0073i‘35 

u •: J 6 

1 

kX TENl) 



1789 

REF 

523 

LAST 

1174 

Qij f J j 36 

3 c 1 5 5 

■ 1 

JCA 

MPmC 

LEAVE THE SUUAKE OF THE LENGTH OF THE 

'IT9T — 

”17EF 


L AST 

“1137 

OU ti 3T 

5C 12 ; 

1 ■ 

i NOfcX 

FIaLGC 

AKbUMLINJl IN LVsyUAKLi 

1791 

KEF 

1 



UC,3 J4 ^ 

32 943 

1 

OXCH 

L V o w U A K E 


1792 

R E F 

1 



f 3 ^1 

w 3342 

1 

TC 

SaKTbUb 

GO TAKE THE NORMALilEG SQUARE ROOT® 

1793 

KEF 

529 

LAST 

1175 

00f3w42 

1' 154 

L 

LL S 

KPAC 

CHECK FOR UNIT OVERFLOW^ 

1^9^ 





f 

1 3 0 -> u 

U 

ICF 


MPAC. 1 il NOT LEsS THAN ^3 UNLESS 

1795 

REF 

15 7 

i-AST 

1 166 

uO f 3 

54 1 

1 

rs 

L 


1796 

KEF 

Zo 

LAST 

1175 

':a,3v45 

5u 120 

1 

1 iM D E X 

FKlOC 


1797 

REF 

1 



J f 3u ^ O 

62 946 

1 

UXCH 

LV 


179 8 

KtF 

11 

last 

li7;> 

* 9 3 1 4 ? 

1 24-' 4 

1 

T CF 

CA/JVF 

INPUI TO SQkTSUB Was 

i799 

H 6F 

1 



00 1 3sj50 

4 4321 

1 

cs 

FuUKTLEK 

5Ei: IF THE INPUT WAS SO SMALL THE THE 

ibi; L 

REF 

45 

LmST 

llol 

COf 3s>51 

o 135 


Aj 

P.PTcMP 

FIRST TWO RLGlSTfcRS OF THE SCUARE WERE , 

IffCl 

REF 


L AST 

1174 

■ 70,3 '5 2 

1 l»‘ ' W J 


CCS 

h 


180 2 





vO f S 3 3 

4 0"’ - w L 

} 



IF SO, SAVE THE NEGATIVE OF THE SHIFT 

18^3 

REF 

1 



~0U,jo54 

I 3132 


TCF ' 

SMALL 

COUNT -15Dp 

1804 

REF 

L 



00,^055 

1 3:64 

1 

TCF 

L Ak S E 

{ T K1 S IS USuALLV THE CASc®)" 

i 8 ■ ; 5 

KEF 

4 

LmST 

1<, 91 

J 1 3^6 6 

4 47 7 o 

1 

c s 

THIRTEEN 

IF THE SHIFT COUNT WAS EXACTLY 14, SET 

Ibi 6 

REF 


LAS! 

1175 

3 t 3 J 5 T 

54 13 5 

I 

T.> 

KPTcHP 

THE PKt-DlVIUE NORM COUNT Tl -130® 

18^.7 

K L F 

53% 

LAST 

1175 

O'J f 3*7 6^ f 

3 cl54 

1 

CA 

KPAC 

SHIFT THE LENGTH RIGHT 14 BEFORE STOKING 


“TTEF 

153 ■ 

'LAST 

nr5 ■ 

■■"uC-V37'5T" 

■52rT- . 1 

X" 

■3malL2 ^s ~ ■ 

L 

(SMALL EXITS TO THiS POINT T- 

lb 0 9 

REF 

227 

i_AST 

1175 

cC , 3v^62 

3 4772 

1 

CAF 

2cR*j 


lai: 

REF 

1 



GO V 3 ^7 0 3 

13111 

1 

TCF 

LAaGEZ 

00 TO STORE LENGTH AND PKOCtEG. 

1811 

REF 

47 

LAST 

1175 

GC ,3 l>4 

iw 135 

1 

LARGE CCg 

MPTtMP 

MOST ALL CASES COME HERE® 

1812 

REF 

1 



09,8-^55 

1 3 i / 3 

1 

T^F 

L Ai<Sc3 

SEE IF NO NORMALIZATION v/AS KEwUlKEO bY 

1813 

REF 

1 



00, 5.66 

4 2 24 

1 

E 

SRUUV 

SCRT t ANO IF Su, SET UP FDR A SHIFT 

lt>14 

REF 

43 

LAST 

1175 

OP, 3. 67 

34 135 

1 

TS 

MPT \A? 

RIGHT 1 BEFORE IJIVIDING TO PRODUCE 

1815 





OC 9 ^ 


1 

L X T h N j 


THE UESl.'EO HALF UNIT VECroaa 

1616 

REF 

531 

LAST 

11/ 5 

ere, j: 71 

3 i 15:^ 


UCA 

MP \C 
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IMEKpRhlER 


IfU/ HEF 2 LAST 



V 


i . ' 


1 


. » ■ - 


-•M 




i& 









1 





u 


n 


10 


9 


0 



/> 


I 






• » - 




t 


'i 


V 




4 






« 


j 


2 


f ' 


• H* 
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USER'S PAGE NU, 7/ £3 S3 

IB 16 





OS f 3073 

4 OCCG 

\J 

L ARbL3 

CUM 


LEAVE NEGATIVE UF SHIFT COUNT-1 FUH 

IBIS 

REF 

4 9 

LAST 

1175 

I2C 1 30 7 A 

54 13 5 

1 


To 

RPi^-IP 

PREOIVIDE LEFT SHIFU 

IBZ 





: j,3j75 

4 CIO 

G 


CUM 


PICK UP REGUIRtU SHIFTING BIT TO UNNURM- 

1621 

REF 

3 1 5 

LAST 

117:> 

C j i ^ 7 6 

^ w ‘.Ot 

1 


I vM D fc X 

A 

ALUE THE SURT RESULT • 


RFF 

54 

L AS T 

115 0 

00 t 3 77 

3 4753 

1 


C AF 

c- 1 T 1 4 


1823 

REF 

95 

LAST 

1172 

GO, 

54 13 0 

1 


7S 

dUF 


1824 





Jv , Jiv, i 

0 yzU6 

1 


EXTEND 



1823 

REF 

53ici 

LAST 

1175 

OOf 31u2 

7 0155 

1 


MP 

FPAC +1 


"1526 

“FEF‘ 


L AST 

TIT7“ 

‘Jo f Jiv- B 

56 13^ 

u 


xcn 

OUF 


1827 





f ) L , 3 i xv4 

0 t o 6 

1 


txi END 


lUNNQRMALlXE THE SORT fUR LV). 

1328 

REF 

533 

LAST 

1177 

09,31.5 

T tilj4 

0 


MP 

KPAC 


182 9 

REF 

159 

LAST 

1173 

J ' j f 3 1 ^ 5 

1 

j 

w 


XCh 

L 


laiv" 

REF 

97 

LAST 

1177 

cc,3i : 7 

3 C 1 3 0 

r* 


AD 

BDF 


1831 

6F 

16, 

LAST 

1177 

0 v f J 1 i 0 

Civ 1 

» ‘ 

*I 


XCH 

L 


1832 

REF 

ZQ 

•.AST 

1175 

U f 3 L X i 

3 0/ 1 2 z 

i 

L AKGfc2 

INDEX 

FiXLiJC 


1833 

l^EF 

2 

last 

1175 

G j t 3 1 1 2 

52 045 

1 


DXCH 

L\/ 

LENGTH NOW stored IN li'ORK AREA* ^ 

1834 

RtF 

X3 J 

L AST 

117J 

Kj u f :jX X 3 

4 477 w 

1 


G S 

CHu 


1835 

REF 

u 

last 

1173 

jc ,3114 

54 14L> 

xj 


TS 

MAXDVSW 

NO MAXOV CASES IN UNIT» 

ld-i6 

RTF 

43 

LAST 

1173 

^ j f 3 L i 5 

52 123 

1 


DXCH 

VJJF 

PREPARE X COMPb'NENT FOR DIVIDE, SETTING 

1837 

REF 

534 

LAST 

1177 

■J u' , 3 1 1 6 

52 155 

i 


0 XG 

KPAC 

LENGTH OF VECTOR AS DIVISOR iN BUF^ 

1833 

REF 

93 

LAST 

1177 

00,3117 

52 131 

1 


4>XC H 

8UF 


1S39 

REF' 

1 



00, 312 J 

L 315 c 

\ 

1 


rc 

cNi rov 


184' 

REF 

44 

last 

1177 

uJ,312i 

52 12 5 

>•. ' 


OXCH 

VfloF +2 

DO Y AiSU 2 IjN JSUAL FASHION SD WE CAN 

1841 

KEF 

535 

LAST 

1177 

0 0 j 3 L2 2 

52 153 

1 


DXCH 

KPAC 

EXIT IHKUUGH VRuTATEXa 

1842 

REF 

536 

LAST 

1177 

U L , 31 2 3 

To . 

1 


DXCH 

RPAc +5 


1843 

REF 

2 

LAST 

1177 

J J f 3124 

C 315^ 



Tc 

UHITDV 

- 

1844 

REF 

45 

LAST 

1177 

00,3125 

52 12 / 

1 


DXCH 

VijJF +4 


1^45' 

REF 

53T 

"TTAST 

1IT7" 

" 00^3126 

•5Z“T55 

~T 


JXLri 

TTRAX 


1846 

REF 

53d 

LAST 

1177 

00 f 3 1 2 / 

52 162 

■» 

u 


DXCH 

HP Ac +5 


1847 

K E r 

3 

LAST 

1177 

C 'Lr ♦ ^13 0^ 

^ 313'^ 

I 


TG 

cNi r ijv 


1848 

REF 

3 

LAST 

1172 

' j L f 3 1 3 i 

1 7354 

L 


Tct 

VRU TATEX 

A NO G X 1 T 
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INf eRPRElEK 


USER'S PAGE m 


71 


E3 3 3 


P 184^ 
rt laiji 

14 

PLACf 5 

IF THE LENGTH OF THE 
; BEFORE THE OIViJE. 

ARGU.*’! ENT 
NOTE THAT 

VELTUK WAS lESS THAN 2{-*;a>, 
IK THIS CASE, THE HaJOR PART 

EACH COMPONENT MUST BE SHIFTED LEFT AT LEAST 

U'F EACH COMPONENT IS ZEH0-» 

1«6 3 

REF 

5g 

LAST 

117 7 

•; .,3132 

54 

135 

1 

SMALL 

Tl> 

PPTlhP 

NEGATIVE OF PPb-QIVlDE SHIFT COUNT. 

iab4 

REF 


LAST 

1175 

u .. f 3 i 3 3 

3 

4772 

1 


CAF 

26Ru 

SHIFT EACH COMPONENT LEFT 14o 

1855 

HbF 

46 

LAST 

1177 

00,3134 

56 

123 

1 


XlH 

vauF +1 


1856 

KEF 

47 

LAST 

1173 

□ 0,3135 

56 

122 

f 

r 


XLH 

lauF 

■ 

1857 

REF 

4a 

LAST 

1173 

r 3 13 6 

56 

125 

1 


XCH 

vauF +3 


185 8 

KEF 

49 

LASI 

llTB 

■ J,3137 

56 

124 

0 


KCn 

"VEUF +2 


1859 

REF 

5\ 

LAST 

1178 

i 314 

56 

127 

L 


XCH 

V3UF +5 


186t 

KEF 

51 

last 

1178 

U 0 f 3 1 4 1 

56 

126 

1 


XCH 

VdUF +4 


1861 

HtF 

oL 

LAST 

1178 ' 

0L,3i42 

4 

0135 

1 


C5 

MPTEMP 


1862 

REF 

J V u 

LAST 

117 7 

j 3143 

5C 

C C i. 

1 


INDEX 

A 


lWST~ 

"1^ 


LAST 1177 

c w f 3i44 

3 

4753 

1 


w AF 

tn f i 4 


18d4 





UL , j145 

0 

CC j6 

1 


c XT c ND 



1865 

PEF 

539 

LAST 

1177 

00 ,3146 

7 

0154 

t, . 


HP 

PPAC 


1666 

REF 

1 



ij V f 3 i 4 7 

1 

33 61 

1 


Tlf 

SMTLL2 


iti6 7 

REF 

4 

LAST 

776 

4776 




THIRTEEN 


ccri5 


lB6b 

R HF 

2 

LA ST 

786 

4321 




FCUKT EEN 


CCf 16 


1669 

REF 

14 

LAST 

382 

4321 




uCT l6 

— 

RlDl 


- - - - 


- 

- 

- -- - 

- 


- 
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INTERPRETER 


USER'S PAuE NUo 72 


E3 S3 


P18 


THE FOLLOWING ROUTINE SETS UP THE CALL TO THE UlVIuE kGUTINES 


1871 

REE 

54u 

LAST 

1173 

Q f i 5 1 

10 154 

W.7 

UNI TUV 

CcS 

MPAC 

FORCE MPAC POSITIVE IF POSSIBLE, SETTING 

■ 1272 

REF 

1 



4K?^,31'5T 

3167 r 


T C 

C MP A CTF 

CVSiGTx ACLUKUING^ 

lU IHh SIGN UI HHAL 

1873 





■v0,3l5 2 

1 3154 

c 


TCI" 


SINCE the CIVISGR 

IS ALWAYS POSITIVE 

1874 

REF 

1 



^uO 1 3153 

1 3161 

‘ J 


T C F 

UMPAC- 

■ RERL"* 


1675 

REF 

541 

LAST 

117 9 

00,3154 

1 1 $5 

1 


CCS 

MPAC +1 

----- - _ 

----- 

1876 

REE 

2 

L Ab T 

1179 

0 G 1 3 1 5 5 

i J167 

1 


TCF 

LMPAC-*- 



1877“ 

TTEF' 

-‘2rjg“ 

“CAirr 

1174“ 

OO t^lITG 

0 OU jZ 

V 


It 

0 

EXl f 'XWHFDrATEL'Y 

ON ZEiCD, 

167 3 

KEF 

2 

LAST 

1179 

0C,3157 

i. 31ol 

0 


ICF 

UMPAC- 



1879 

REF 

24::^ 

LAST 

1179 

Co, 3160 

0 "COO 2 

C“ 


TC 

V 



188C 

REF 

229 

LAST 

1178 

U J,316i 

4 4772 

(.1 

CMP AC- 

66 

ZtKo 

IF NEGATIVE, SET 

“» IN DYSIGN FUR FINAL 

1861 

REF 

Q 

LAST 

1173 

00,3162 

:?4 1^4 0 

1 


TS 

U\*SIbN 

COMPLEMENT o 


"TB-H2 — 





QTJVilS J ■ 


i 


rXTEKU 




16b3 

REF 

542 

LAST 

1179 

on f 3164 

4 0155 

1 


UCS 

MPAC 

PICK UP ABSULUTE 

VALUE OF ARG ANU JUMP. 

1884 

REF 

52 

LAST 

1173 

' CO, 3165“ 

5. 135 

‘J 


INDEX 

MPTEMP 



1685 

REF 

3 

LAST 

1173 

00 f 3166 

1 2563 

1 


TCF 

MAXTEST -1 

_ - ^ - — 


1806 

REF 

i'J 

LAST 

1179 

iJ C f 3 1 6 7 

54 136 

1 

CMPAC-i- 

TS 

bVSiGN 

SET DVSIGN FOR POSITIVE UUOTIENT* 

ltT37 

“TTFF 


“TTTSr 

"Tmr 

— m^rynTT 

"5r~nr!r 

1 


130CuH 

f*PAC 



1888 

REF 

53 

LAST 

1179 

w f 3 1 7 1 

3 135 



1 H u E X 

FPTEMP 



16cJV 

REF 

4 

LAST 

1179 

00,3172 

1 25^63 

1 


TCF 

X 1 E ST “ i 
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73 E3 S3 
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UPEKATlCNi, 

_ ... ^ 

— 

------ ^ 

_ _ y ___ _ 

1891 

Rt8 

i 



001 3173 

0 3277 


CSg Tc 

l^SOSUB 

SUUARE THE Op CONTENTS 

OF MPAC. 

1692 

REF 

42 

LAST 

1165 

UO » -il 74 

1 6030 


ICF 

LAN/ 10 



1893 

RtF 

22 

LAST 

1161 

Lw f 317 5 

iC. 163 

1 

flSVALABS OOS 

HCJt 

ABVAL OR ABS INSTRUCT lONa 

1894 

REF 

1 



kJ^j r 317 6 

1 322!> 

C 

rcF 

A8S 

DU ABS ON SCALAR^ 

#1 

1695 

PEF 

2 

LAST 

1180 

CCi 3177 

1 3225 

0 

rcF 

Aes 



1896 

REF 


LAST 

1175 

00 1 32t 0 

33 1 6 

8 

A8VAL TC 

V 50606 

OQT MPAC WITH ITSELF. 


189 7 

KEF 

23 

LAST 

1130 

IJ Or 32 Cl 

22 163 


LXLri 

MODE 

NODE IS NOW DP (L ZERO 

AFTER DAS). 

1698 





uO 1 32. 2 

0 1 0 1‘ 6 

1 

fcXTENU 


STORE SQUAKt OF LENGTH 

IN WORK AREA. 

1699 

KEF 

544 

LAST 

1179 

OC , 3203 

3 i 1 5 5 

a 

liC A 

MPAC 



19or 

REF 

27 

LAST 

1177 

00,3204 

5w 120 

1 

INOhX 

FKLOC 



T^l 

KEF 

2 

L^ST 1175 

UO f 32u S 

5>2'"l43 

1 

u;fCH 

L Vi JUAkf: 
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IM EKPRr TER 


USER'S PAGE NO 


?4 


13 Sj 


P IV .-2 
R 1 V*. J 

H i9v4 
RIVE 6 

H 19C 8 

RiVlZ 
R 1S14 
R1916 

n<r?TT 

K1919 
R192' 
k 1921 


program ccScr ipt ion- subroutine surt 

FLNCTIUNAL 0£ SCRI PTI LN-OOUBL E PRECISION SOUARE ROUT RuUI I.Il 

THIS Program takes the SUUAHE AOjI of THc Zl ok zb MC^T blGNIFICANl BITS 
NUM3ERS-7>fPAC7MFAXTl, AND~MFACTZr THE'FOOT T S R E I ORNFD UITUSn 


t 

I 


IN 

Pkrc'ixi 


THE TRIPLE PHECISIUN SET OF 
"TTi "HPAC^AND MP.TCflo 


rtAHNiNG- THIS SUBROUtlNG USES A TRIPLE PR£CI:>IUN l.^PUT* THE PRuGRAMMcR MUST ASSURE THE CONTENTS OF MPAC+2 
ESPECIALLY IF THE CUNTENTS OF MPAC I S SHALL OK ZERO., >' jR OETAILS SEE STb MEMO NO„949^ 

CALLlNis SEQUENCE- IN INTERPRETIVE MODE i*E*, FOLLOWING TC IiMTPk i.T, SwRT NO ADDRESS IS ALLOWED 

INPUT SCALING THE BINARY POINT IS ASSUMED To THE RIGHT LF blT 15* THE ANSWER IS RtTURNED WITH THE SAME SCALING 


SLbRUUTINES- GENSCRf MPACSHR, 3QR I SO B, ABORT 


ABIIRT“rxrr“HOTJE" ABURTS ON NEGAT 
DISPLAYS ERROR CODE !.» 2 

TC A3GkT 
OCT 13 2 




E-'4~r7T775~ uCTALl 


TJiTTFSrS^ 


R1922 DEBRIS - LOCATIONS ^UF,MPT£MP,ADDkHD ARE USED ' 

1923 REF 2 LAST 1175 COti2b6 j 3342 1 SORT TC SQRTSUB TAKE THE SQUARE ROOT OF rlPAC^ 


TXZ4 

REF 

54 

TTATST- 

Trrr- 

CC f 32t 7 

"IT 135 

1- 

TTCS 

-TTFTEHP 

RETURNED NORWALlZEn SQUARE ROUT* '-SEE TF 

1025 





^ » 32 li 

1 3212 

1 

TCF 

+ 2 

ANY UN-NGRPALlZATiON kEgUlRED AND EXIT 

1926 

REF 

A3 

LAST 

iiac 

, 1 32 1 1 

1 Gj3 


TCF 

DANZIG 

IF NOTo ' ^ 

1927 

REF 

3 

LAST 

1160" 

bvf32i2 

6 3 7Z6 

1 

AD 

KEGlZ 

A right shift OF more THAN 13 COULD BE 

1928 





U0t3213 

! t .. 

1 

i 

c 

1 

EXTfciMU 


REQUIRED IF INPUT WAS ZERO IN MPAC,+1, 

1929 

HREF ■ 

1 



0 Q f 3 4L 1 4 

6 3^Z 

1 

B^rtF 

S(JR 1 T 

GCTES HeRe iM KOSl CTASHS* 

193 





* • j t ->2 1 5 

22 .^7 


ZL 


IF A LONG SHIFT IS REQUIRED, GO TO 

1931 

REF 

77 

LAST 

ll6i 

•> 0 f 3Zl6 

22 116 

1 

LlCH 

AODkWu 

GENERAL RIGHT SHIFT^ROUT I NtS. 

1932 

REF 

4 

last 

1160 

^ J,3217 

1 23/3 

I 

TCF 

GENSCR •♦A 

ADURWD WAS ZERO TO PkEVENT ROUND* 

1933 

REF 

55 

LAST 

1181 

fJU f *9 

6 sj 1 3 !> 

J 

sqktghft index 

MPTEMP 

SELECT SHIFTING BIT AND EXIT THROUGH 

1934 

Ref 

AI ITAST 

1132” 

J iJ f ^ 1 

J"^32 

u- 

CAF 

i I T 1 5 

SHlFT ROUTINES? 

1935 

REP 

56 

LAST 

1181 

^ f 3222 

54 13 5 

1 

TS 

i-F l EM P 


1936 

REF 

23' 

LAST 

1179 

.:'.;,3223 

3 4772 

1 

CAF 


TC ZERO MPAC +2 IN THE PROCESS," 

193 7 

REF 

2 

LAST 

116 0 

LV i3224 

1 2036 

1 

TCF 

MPACjrit\ ^3 


1938 

REF 


1.AST 

1157 

00, 3225 

u 6672 

1 

A3S TC 

BRANCH 

TA — 

1 EST SIGN CF MPAC AND COMPLEMENT IF 


TO'? ■ 

"RFT^ 

44" 

LffST“ 

XTBl" 

: Er,"32ZEr 

1 6J3 


~TCF 

' — DANZIG 

194 

KcF 

45 

LAST 

iiai 

00,3227 

1 6.3- 

u 

1 CF 

lo 

1941 

REF 

4 

LAST 

1151 

V 3230 

1 7624 

1 

TCF 

COMP 
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KEF 

17 

Lu6i 

1146 

K . f 3 4^ 3 i 

4 4 760 

' y 

V DtF 


FOUR 

VECTOR DEFINE - t SS ENT 1 ALLY TREmTS 

i > '+ 

REF 

13 

L A6T 

1149 

V. f 3232 

26 16 6 

1 


AOS 

PU3HLUC 

scalar in MPAC AS X COMPONENT, PUSHES UP 

iVAA 





V f -j 3 3 

6 t 6 

1 


tX T tNU 


FUK Y AND then AoAIN FUR 

T«4S 

K h |r 30 y 

L A6Y 

1X7 6 

60 f 3^34 

lT r ' 1 ■ -■ 

J Iw S-' 

1 


I isde r 

A 


1S40 





00 f 3235 

3 i.» J ' y 3 

1 


OCa 

2 


7 

REF 

545 

LAST 

115_ 

UU f 

52 io J 

1 


OXCH 

KPAC +3 


4 b 





U Cl y 3 3 T 

0 1 

1 


L X 1 1 No 



lSf49 

REF 

14 

last 

1182 

U f 324' 

3 016 6 

0 


iNOcX 

PISHLGC 


I9i>0 





OUf 3241 

3 3' 01 

0 


OCA 

* 

. J 



P F 

546 

irssT 

TT5T 

Oo f 3242 

52 162 

0 


jxch 

MPAC +5 


1952 

KEF 


LAST 

1 146 

0 U f 32 4 3 

1 84 7 

1 

1 


rcF 

V.XQJc 

MUDL IS NCN VLC'ORa 

1953 

H6F 

3 

u AST 

118 c; 

00,3244 

U 3318 

r*‘ 

\Sij 

To 

V S w S U 6 

OCT MPAC WITH ITSELF. 

1954 

REE 

1 



do, 3245 

1 7268 

J 


TlF 

u i'^au c 

HQUe IS NOW DP. 

1955 





Q.;,3246 

0 J 6 

1 

PUSH 

tX f £NU 


PUSH DOWN MPAC LEAVlNi 11 LOADED. 

1936 

KtF 

59 7 

L AS T 

1182 

V ^ f 324 7 

3 0155 

0 


OCA 

phal 


195 7 

REF 

15 

LAST 

11 32 

. 0,325 

5' 1 6 o 

•J 


INDEX 

PUiHLuC 

PUSH DOWN FIRST TWO REGi STFHS iH EACH 

1956 





ww ,3251 

52 -L :i 

1 


UXCH 



195 9 

REF 

24 

LAST 

1180 

Ov/,3252 

5 L 1 o 3 



INDEX 

t'\ U J 6 

INCREMENT PUSHDCWN POINTER^. 

196 

KEF 

5 

LAST 

1127 

wC ,3253 

TT213 

1 


CAF 

WoS 


1 96 1 

REF 

lo 

LAST 

1132 

J j f 3234 

l6 U 

1 


A J ^ 

PC5HL0C 


19o2 

REF 

25 

LAST 

1182 

LJ, 3255 

i 2 163 

1 


CCS 

MODE 


1963 

REF 

1 



0' / ,325o 

1 3271 

1 


i LE 

T PU S H 

PUSH DOWN MPAC +2. 

1964 

REF 

46 

LAST 

1181 

00,3257 

i 6C3v 

Mli 


i Ct 

C ANZ lo 

DONE FUR DP. 

1965 





^ f ^2o 

w U0-J6 

1 


tXTfcNO 


ON VECTOR, PUSH DOWN Y AND Z COMPONENTS. 

1966 

REF 

548 

LAST 

1182 

VO f J26i 

3 C 1 6 u 

0 


jCA 

lAPAC +3 


1967 

KEF 

17 

LAST 

1182 

t ^^202 

:> 1 1 0 o 

0 


1 WkJ t X 

PU8HLUC 


1968 





V *v f 32 b 3 

51*775 



i)K CH 

- ^ 


190 9 





Ol , 3264 

Q ( 

1 


LXTENo 



1^7. 

iTFr 

549 

Last 

XTHT 

w ^ f 32 6 5 

3 i 62 

X 


DCA 

Pa C + 3^ 


1971 

REF 

18 

LAST 

1182 

u J 1 326 6 

3 . 166 

II 


1 NOfcX 

PuiriLUC 


1972 





u f 32 u 7 

51*777 

I 


oXcH 

. -2 


1973 

REF 

47 

last 

1182 

1* ^ f 32 7 L 

i 6‘-3 l. 



TCf 

C A^J2 1 G 


1974 

REF 

55-; 

LAST 

1182 

u ,3271 

3 -.156 

L 

TPUSH 

6 A 

RPAC +2 


1975 

rTF 

2 

LAST 

1126 

# 32? 2 

1 652T 

1 


r^F 

EN J TPUSH 

+ ^ 

19 76 

ft EF 

28 

LAST 

iia^ 

' ' , 327 3 

5. 12u 

1 

ft V w 

INDEX 

r llLUC 

hVm; - return iVA gPF^ET. 

1977 

HEh 

6 

last 

1120 

u0,3274 

3 0532 



CA 

W H TV 1. T 


19 73 

fvEF 

21 

LAST 

1141 

»i u t 327i> 

54 117 

1 


18 

POL i SH 


1979 

REF 

5 

LAST 

11 3 C 

, ' C f 32 T 6 

1 6621 

’ 


rcF 

G L 1 J +4 

[ASSUME QPRET PtilNTS TO FIXED UNLY^ ) 
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K I9d2 

SPECIAL 

CASES 

OF UMPSU3 AND DQTSUGt PUT 

IN TU S 

AVt bCME 

19:.>3 

REF 

551 

LAST 

1182 

^ ^ f 3 7 ? 

_» 0155 


osy SUB 

L# M 

i9d4 





V. f 33 c. ^ 

I*- ti3U6 

1 


LX I ENU 

1985 





J f 33^- 1 

7 OOUO 

’ > 


S ^UAi'^ c 

19 «6 

REF 

552 

LAST 

1133 

. j f 33 L Z 

54 1^0 

I 


TS 

1987 

REF 

231 

LAST 

1181 

f 33\ 3 

3 4772 

i 


oAF 

1988 

REF 

553 

last 

1133 

Cu» 53c 4 

56 155 

c* 


XCH 

1989 





vl 0 f 3 Jr w 3 

L’ T 

1 


fc X 1 1; ND 

199 ■ 

REF 

554 

LAST 

1183 

J u f 33c 6 

7 C 1 5 4 

■^1 


MP 

1 

' ■' 




u f 3 3 j 7 

ZC- 0 J 1 

1 


0DlIU3L 

19 92 

REF 

555 

LAST 

1183 

yc? r 33 1C 

2 156 

1 


D/43 

1993 

REF 

556 

LAST 

11 33 

CJD f 33 i 1 

56 154 

1 


XCH 

19Q4 





CG,33i2 

D C i. w 6 

1 


fc at end 

IW5 





V 0- f 33 1 3 

7 C 0 0 V 



Sy UAKE 

1996 

REF 

557 

LAST 

1183 

^ 5 1 3314 

2u 155 

1 


DAS 

1997 

REr 

241 

LAST 

1179 

u ' if 1 3 

u COO 2 

1' . 


rc 

1998 





. i33i6 

J U . 6 

1 

Vbwsua 

EXTEND 

1999 

REF 

B 

L AS 1 

1139 

( Dt3317 

22 13 7 

1 


gXCH 

— 2C.cT — ^ 


118C 

Co f 332 V* 

u 3277" 

L 


TC 

2c . 1 

REF 

553 

LAST 

1133 

(‘*5,3321 

52 la 

1 


DXCH 

21 <2 

KcF 

559 

LAST 

1183 

*j ^ f J^3ZZ 

52 153 

1 


JXLH 


REF 

59 

LAST 

117 7 

03 f 33 Z3 

5 <1 131 

i 


UXLH 

21' 4 

R£F 

5 6 v; 

LAST 

1183 

Oti 1 3324 

J 156 

$ 


C A 

2i - 5 

REF 

1 c ■ ) 

LAST 

1183 

yO 1 3325 

54 132 

w 


TS 

Zi- t> 

REF 

3 

LAST 

1133 

I 3326 

C 3277 

i 


TC 

2CC7 

REF 

561 

LAST 

1183 

DC, 33 2 7 

52 156 

1 


DXCri 

2r -ij 8 

REF 

ICi 

LAST 

1183 

■jC f 333' 

2L 132 



DA;> 

20-9 

REF 

562 

LAST 

1183 

0^, ,333 1 

6 wl54 

1 


AD 

2 1 

REF 

12 

LAST 

11S3 

03,3332 

0 C13i 

c 


AD 

~ “2Cir 

~FBF' 

I'D3' 

LAST 

T1TT~ 

f 333 3 

~5^ 0133“ 

1 


TS 

2c 12 





i! ., ,3334 

i 3336 

f . 


TCP 

2C13 

kEF 

6 

LAST 

1175 

00,3333 

54 121 

1 


Ta 

2M4 

REF 

56i 

LAST 

1183 

C 0 ,33 3 6 

:>2 lo2 

c. 


DXCrt 

2 1 5 

REF 

564 

LAST 

1 1 33 

05,3337 

52 155 

1 


D < C 1 *^ 

2'- 1 6 

REF 


LAST^OTT^ 

wL f 3^4^. 

w 3^T7 

s- 


rc 

2c 17 

REF 

1 



00 , 334 1 

1 7154 

1 


TCF 


11:4 FE6. 26 t 19 71 ZhUd 



USER'S PAbt NU. 


^'PAU f IN SOTH the SCALAF. and VECTGFl ^E\ST 


46 Page life. 


1-3 S j 
THiiY APE 


HPAl +i ■ ‘ SQUARES THE SCALAR CONTENTS OF MPAC. 


t 


R P A G +2 

2lRu FGKH 2 1 cross term > 


MPA^ 

MPAg +l 
PiPAC 


AND HAY8E tVERFLOW; 

AND SET A TO NlT GVEkFLUw 


WV.'. 


HRAC 


GOT RtT 
us^SiJH" 

MPAC +3 
MPau 

euF 

MPa^ +2 
SUF +2 


uSQSUb 
MPAC +i 

bUF + i 
mPaC 
EUF 
BUF ■ 

iZ 

!_ F i i\D 


MPAC +S 

MPAv 

D Sa SUa 
ENDD'j r 


DOTS THE VECTGli IN ^‘PAC rllTH ITSELF 
SQDAJTF'THfX XURFCNFm 

SO WE CAN END IN DUTSUb. 

SQUAKt Y COMPONENT „ 


IF OVERFLOW o 


mi mtiraypppmmr^. 

END AS IN CuTSUGv. 
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JuUbLE PKECIilOri SQUARE ROUT 

HQLTINE, TAKl THE 

^viUAKL P03T 

OF THE T^. IPLc PKEClSlGIs ( XPAC +2 USED ONLY 

!' Zi 2<. 

IN NaRMALlZAl lUN) CQNTENrci uF 

MPAC ANu 

LEAVE THE 

HuRMALIZktj RiSULi 

liT MPAC {CtMPACJ GREATER 1 HAN OR EmUAL Tu 

2'- 22 

• 5 ) # 

TFt 

K I bH T 

SHIFT 

CUUia t TO UNNUR'^IALl Zfc) IS LEFT IN 

MFluHP, 


2 ,C-> 

HEF 

232 

LAST 

1133 

- f 35^ 

3 477 2 

1 

SURTSGb 

CAF 

jL ti<U 

ST AKT by zeroing right SrtlFt COUN 1 

Z‘_24 

REF 

57 

LAST 

1181 

V ^ f 3343 

54 135 

1 


TS 

VEFEHR 

-- - - - ■ — ■ — - - - - - — . - _ - . 

2* ^ 5 

H t F 

565 

LAST 

1133 

OC* 3344 

!•. 154 

1 


Cb ^ 

8 FAC 

CHECK FOR FCSrriVE AKGUHtHT, SHIFll.'T^ 

2' 26 

REF 

i 



QC,3345 

i 34'J3 

1 


rcF 

S.3FAC+ 

FIRST S I GN 1 F 1 C ANfPP A t R h gTsTT'K InTj ~~ 

2127 





V u f 3346 

i 3350 



I OF 

+2 

MPAC ITSELF,. 

2i 20 

REF 

1 



:.,3347 

1 3372 

b 


ToF 

SQa 1 Itb 

SEC IF MAG OF' ARGOHeHT LdSo 1 HAN 1 (-4). 

2C29 

kEF 

56b 

last 

1134 

;! :,335. 

56 1 j6 

' 1 


Zori 

MP-IC +2 

MPAL IS ZERu - SHIFT LEFT 14^ 

2l 3 

PtF 

567 

LAST 

1184 

-7 J f 660 i 

3 b 155 

L 


Xbri 

KPAC +1 


2.31 

R£F 

568 

“TAST“ 


V J f 3352 

54 154 

•n 


TS 

,mfAC 


2\ 32 

RtF 

14 

LAST 

9w3 

6C 1 335 3 

3 4774 

1 


oAr 

>EV t 

AUGMENT PI GMT SHIFT COUNTER^ 

2' J3 

KEF 

06 

LAST 

1134 

00,3354 

54 135 

1 


TS 

PPTl ap 


2« 34 

REF 

56 S 

LAST^ 

11 84" 

'Jo73355 

io 154 

■"t 

kJ 


CCS 

MPAC 

Set IF MPAC NOR Pr.Z..’ 

2 38 

REF 

2 

*.AST 

1184 

OG, 3356 

1 34u3 

i 


ICF 

SMPAC+ 


2 'v. 36 





03,3357 

i 3361 

1 


TCP 

♦ 2 


-T *» 

^ 7 

REF 

i 

- 

- 

0 1 3 6 

1 3375 

i 


rcF 

Zero AniS 

NEGATIVE BUT L-SS THAN 1 (-4) iN MAG^ 

2! 3d 

REF 

570 

LAST 

1184 

L V f 33 6 1 

56 155 



XCH 

PPaC +1 

ZERO - shift Left 14 AGAIij, 

2’. 39 

REF 

57i 

LAST 

1184 

u f 3362 

54 154 

♦ ’ 


TS 

MPAC 


2C4 , 

REF 

15 

LAST 

1184 

- J f 6oo3 

:» 4774 

i 


CAF 

S E V E R 

AUGMENI right SHIFT CQUNiEh,. 

xii 41 

REF 

59 

LAST 

1184 

y! . f ^3 64 

^6 13 5 

1 


AJo 

MPTEMP 


2‘-4 2 

REF 

572 

LAST 

1184 

1 33b 5 

1 1. L 5 4 

L 


L 0 6 

PPaO 

- 

2.43 

REP 

3 

LAST 

1134 

1 3j>6b 

1 34)3 

1 


TCF 

SHPAO+ 


2(. 44 

K E F 

242 

'last 

1 183 

’J f 336 7 

L L t J 'J 2 



re 


sukt (’) = (. 

2L45 

REF 

2 

last 

1134 

.i_,33 7C' 

i 33 75 

1 


TCP 

ZeKU AN^ 


7^46 

RTF' 

1 



u J f 3371 

1 345 u 

1 


J CF 

F I XROOT 

DU NU t L t AV L SyKlbUt5 HlIH “ IN f’FAC 

2i* 47 

REF 

3 3 

LAST 

1132 

y_,3372 

1 ' -j *-> 

w 

S JRT Neb 

CCS 

A 

argument is negative, but see if sign- 

2L48 

REF 

1 



30 f 33 73 

1 34 Ji 

1.; 


[ L F 

AbKi 

CORPECTEiJ ARGUMcHT IS LESS THAN 1 t-4J 

2c 4 9 

REF 

573 

LAST 

1184 

00,3374 

i c 15 5 

1 


cos 

/iHAu 

IN MAGNITUDE, IF SO, CALL 7k?'<SWcK ZEkj. 

Zi 5* 

REF 

233 

LAST 

1184 

00,3375 

3 4772 

1 

Z EhOANS 

CAF 

ZEKk 

FORCE AN:>WER TU ZERO HERE, 

2M51 

REF 

2 

LAST 

1184 

00, 3376 

i 345 

1 


}Lf 

F I X K JLf r 


2052 

REF 

2 

LAST 

1134 

00,3377 

1 3401 

u 


TlF 

SWR i a3k T 


2f'53 

REF 

3 

LAST 

1184 

U 0 , 340 1 

1 343 c 

1 


TCP 

r 1 X 4% jxj t 


2C 54 

REF 

5 

LAST 

925 

t w f 3 4 3 1 

u 5726 

i 

SORT AbRT 

TC 

PCO 1)001 


2C55 





f 34 j 2 

213 .2 



□CT 

213 2 

SwRl CALLEL Rl fH NEGATIVE AKGuHLiH 

2C 56 

REF 

i 



0 C f 34i. 3 

Q 2443 


SHPAC+ 

AL> 

“1/ 2+2 

SEE IF AK GUM ENT GREATER THAN UK E8UAL Tj 

2 <--57 





V w f 34t> 4 

<i«< SliJ 

i 


LX TEND 


o 5 j 


j 


U AJ': 


AS S t M6 Lti KEV ISIUN ' 72 OF AGC PKOuRAM AKT&MJS B Y NASA ^ ^1±L I L 


L 

INTERPkE TEK 







2' 58 

REF 

1 



U w , ^4v. 5 

6 3453 

1 

« 

6ZMF 

s R r t s r 

20 59 

REF 

5 74 

LAST 

1134 

. 0 , 34'J 6 

52 153 

1 

DXCH 

MPAC 

^ 2176^. 

REF 

Zl 

LAj I 

1166 

6 w f 3A-S 7 


1 

LxCH 

■'SR 

206 1 





t) V f ^ 1 

0 0006 

1 

EXTEND 

2* 62 

REF 

13 

L AiT 

1166 

{TO, 3411 

T 4753 


HP 

HALF 

2* 0 3 

REF 

575 

LAST 

1133 

00,3412 

52 15 5 

1 

DXCH 

MPAC 

2l6^ 

ilF 

23 

L AST 

11B5 

06,3413 

56 021 

1 

XCH 

SK 

2* 05 

REF 

576 

LAST 

1185 

Ok f 4 

26 155 

1 

ADS 

MPAC +1 

2. 60 

REF 

1 



0 u ,3415 

3 2314 

6 ARGHI 

CAF 

iLSPEHi 

2C 67 





0 V 1 3 4 1 6 


1 

txTENJ 

2C 6 8 

H cF 

577 

LAST 

1135 ' 

#0,3417 

7 .154 


HP 

P A t# 

2C69 

REF 

X 



iTOf 342 0 

6 2565 

or 

AD 

E I A S H I 

20 7'^ 

REF 

i V. 4 

LAST 

1133 

uU,3421 

54 i3C 

i +4 

TS 

auF 

2f 71 

REF 

578 

LAST 

1135 

Co 1 3422 

3 C'i34 

1 

Ca 

MPAC 

2073 





sc ,3423 

L C. 0 6 

1 

E XT L {\0 

2( 74 

REF 

19 

L AST 

1135 

U'J' 1 j424 

7 4753 

'•-17 

MP 

HALF 

20 7 5 





iJV , 342 5 

u OuL6 

1 

EXTEND' ' ' 

2' 76 

REF 

105 

LAST 

1135 

GO, 3426 

iL 13C 

i 

DV 

SUF 


2r7T RlfF 'lTto “TXSr 118'b 5X073^77 — 26" 13 ; 1 SB3 ilUF 


2C7 8 





CO, 343 c 


1 


t XTENU 


2v79 

REF 

2c 

L mST 

1185 

0 0 1 343 i 

7 4753 

■v* 


MP 

H 

' *20 8 F 

REF 

579 

LAST 

lias 

CO , 343 2 

52 155 

1 


uXcH 

MPAC 

a 1 





uO f 34-3 3 

U 

1 


EXTEND 


■ 

KEF 107 

TTTSr 

1TB3“ 

uo , 3434 

1 J T3U 

r 


UV 

WF 

z 33 

REF 

10 8 

LAST 

1I85 

CC,3435 

54 131 

1 


T3 

6DF +1 

2i o4 

REF 

234 

LAST 

il84 

Ou , 3436 

3 4772 

1 


CAF 

2EHU 

2( 35 

REF 

I6l 

LAST 

1177 

iivr f 3 437 

56 C V 1 

( 

V*' 


XCH 

L 

2r E 6 



■ 


007344^ 

6 13trQ6 

1 


EXTEND 


2LS7 

REF 

1j9 

LAST 

1185 

cC,3441 

1C 13v 

1 


D V 

8UF 

'■zras' ■ 

■ REF' 

n:62~ 

' LASr 

■7L7nJ5“ 

>4^ t .i 

1 


I 3 

L 

27 89 

REF 

ilo 

LAST 

1185 

vuf 3443 

3 .131 

1 


w ^ 

cUF 

2l9C 

REF 

5 8G 

LAST 

1185 

■TC , 3444 

2.J 155 

1 


DAS 

HP AC 

2! 91 

- 




V/ '7 f j445 

6 0006 

1 


EXTEND 


21.. 9 2 

REF 

1 



0 C , 344 6 

1 3432 

1 


8ZF 

ICQbNK;.. 

2x793“ 

R EF “33“ 

rasT 

11/0 

~ CTT; 'i'44T~ 

“3“473. 

1 


cAf 

POSHAX 

21 94 

REF 

5dl 

LAST 

1185 

u0,345’- 

54 134 

L- 

F IXkUuT 

TS 

f PAC 

2C95 

REF 

582 

LAST 

118:5 

O'j ,3451 

D 4 13 3 

1 


TS 

1* P A C +1 

2! 96 

REF 

243 

LAST 

1134 

J J f 34rt)'2 

J j 2. 

k 

r C ‘ 

TC 



lis^'w hcb* 2fetl971 Z£US ■» j 4to p A Gl 1X35 

UStR'S PAGE (siG« 73 S3 

IF SO, SEE IF LESS THAN_ <,2S-, 

WE WILL lAKt THE SQUARE ROOT OF MPAC72. 
SFTFT“RTGFn""T AND GU lU ! Hc’313?3~R0lH INt 


GUARANTEED NO QVERFLUWo 


ARGUMENT BETWEEN .25 AND Gt i a 

L IN cAH APPROXIMATION FUR THIS KAnGl 


X:/2 = tMPAC/2) (SLOPEHI) + BIASFII/2V 


X-/2 lARGLC ENTERS HERE). 
SINGLE-PRECISION THROUGHOUT. 


„ 5IMPAC/2 j 


o5CFSPACy2 ) /iX /2 I 

TT + ■ . 51 i«»P A C72 T / IT ■7 2 J : 


FORM UP XI /2o 

SAVE AND BRING OUT AkGUMcNTc ” 
TA KE DP QUCTll : TI WITH XIa 

SAVt MAJOR PART OF QUOTIENT 
FORM MINOR PAKl LjF QUOTIENT USING 
( R U M A I N U E K , ' Is 


IN PREFAKATION' FUR UAS; 

X2 = Xl/2 + {MPAC/2)Xl 

■ J 

QVLRFLOWS IF ARG. NEAR POSMAX. 



Rtf'Jt<iN TO CALLti'x TO UNNORMALIZE, 


I ’ ' 



ASSfMtLt 


i L y i I Cfsi 14 GF AajC P.lU oRAH ART EM i,b_ bY A ^ _ii i 1 1 Ar _ i i 


li.: Au FLti> 26,1S7I ZFUS 


At> PAG t 116 b 

■ " ■ " j 


L INTcKPKLltR 


UbFR'S PAUL NO, 79 



SJ 


r 

t 


l'. '^1 

REF 


last 

1 V- 2 

K4 - f J4 !>3 

6 4754 

u 

SRI ESI 

AJ 

v^UAK Tt K 

AKtjUMtNT WAS LESS THAN o3, SEE 

IF LESS 

S6 





w ' ■ f 3454 

0 u w w 6 

1 


nXTEt'iU 


THAN o25« 


2» 9- 

H EF 

1 



>j j « 345 5 

0 3477 

*-s 


8 2. -IF 

i NuRH 

IF SO, BEGIN NUKMALIZATlONr. 


ZU 

REF 

583 

LAST 

1185 

V vf J456 

52 155 

l 


JXOH 

RPAl 

IF BETWEEN .5 AND ...25, SHIFT 

1 23 K . I 1 A f"'* ij 

11 1 

REF 

24 

LAST 

lltj5 

.-0,3457 

22 21 

1 


LXCH 

3 K 

SfAKT AT ARGLGa 


III 





‘ > V f 3 4 6 1 - 

u Ul:v>6 

1 


EXTEND 




^di > 3 

*<EF 

21 

LASt 

1185 

f 346 1 

7 4753 

C' 


AP 

HALF 



21 A 

■ “ ■ 2 •^>1 

REF 

584 

last 

1136 

6 0 f 34 0 Z 

52 155 

1 


OXCH 

MPAC 



21'J 9 

RFF 

ib 

LAST 

T.X86 

oCV 3463 

56 021 

1 


XCH 

"TiT 



21 b 

REF 

385 

LAST 

1 1 to 

i - f J 4 <:> 4 

26 1 5 J 

i 

- 

ADS 

MPAC +1 

MU OVEKFLOWo 


21 7 

REF 

i 



- . f 346 5 

3 3yo 6 

1 

AKGLO 

CA»- 

SLOP EL 0 

(NiJnMAL IZED) ARGUMENT BETWEEN 

» 1 Z 5 AND 

21G8 





Ji3466 

0 CC .6 

1 


EXTEND 


-.25 


21t 9 

REF 

58o 

LAST 

1186 

f 3 46 7 

7 ^154 

! 

X 


MP 

MPAC 



zro 

RFF^ 

1 



•. L ,34 7 C 

~5~~zzir 

0 


AO 

■FTASlGT 



2111 

REF 

1 



J' ,3471 

1 3421 

1 


TLF 

ARGO 1 +4 

BEGIN SOUAKE ROOT.. 


^112 





tj'J » 34 7 Z 

U OC jU 

1 

5 IK 1 iiHZ 

L X T t N U 


SHIFT LEFT 2 AND INCREMENT RIGHT SHIFT 

2113 

REF 

587 

Last 

1186 

j V , ->473 

3 L 1 5 6 



ULA 

KPAC +i 

COUNT ( FUR 1 EKMlNAL UNNURMAL I2AT ION ) . 

2114 

KEF 

588 

LAST 

1136 

6U , 3474 

1. 156 

1 


3 A S 

RPAC +1 



2115 

REF 

539 

LAST 

1186 

0(4 r 3475 

6 u 1 34 

i 


AO 

MPAC 



2116 

REF 

590 

LAST 

II 80 

00,3476 

26 1 54 



rtDS 

FPAC 

I NO OVERFLOW) . 


2117 

REF 

6... 

LAST 

1164 

w « f 3 4 7 7 

24 135 

c> 

SOKTNUKH 

INCIL 

PPi E^^P 

FIRST TIME THROUGH, JUST SHIFT 

LEFT 1 

2118 





0 U , 3 3 . - . 


1 


cXTENU 


IPUIS IN EFFECTIVE RIGHT SHIFT 

SINCE 

2119 

REF 

591 

LAST 

11 ao 

6 f 3 ^ C/ X 

3 156 

’TTt 

u 


DC A 

KPAC +i 

Ut WANl HPAL/Z) . 


111 

REF 

■ 59 ^ 

last 

1136 

0 6 7 3 5 0 Z 

Z3 156 

1 


UaS 




2121 

KEF 

593 

LAST 

11 66 

60, 350 3 

6 . 1 3 

1 


Ad 

RPAC 



2122 

REF 

594 

LAST 

1186 

uO, 35c 4 

ch 13^ 



ADS 

MPAC 

(AGAIN NO CVERPLOW).. 


2123 





00,331 5 

'* J ‘‘ S ■* 

1 


0008 LL 




2124 

KEF 

22 

LAST 

~ 385 

Ov , 55^6 

54 .12 



TS 

Cyl 



2125 

REF 

23 

LAST 

1186 

.. - ,35w7 

iU 022 

L» 

NGRMTEST 

CCS 

CYL 

SEE IF A<\GOMENT NOW NORMAL I 2 ED 

AT 

2126 

REr 

24 

last 

1186 

J f 351 

1 1^'ZZ 

1 


CCS 

CYL 

GREATER T FAN ol25« 


2127 

kef 

1 



"do, 3511 

1 3472 

1 


TCF 

Sjiv r 

NO - SHIFT LLFl 2 ^5^JKE AND Ti-Y 

•A 6 > T i i\! ri 

2128 

REF 

2 

LAST 

1186 

00,3512 

i 3415 

r 

C 


TCF 

AKoHl 

YES - NOW BEIWElN .,5 Ai^D .>25- 


2129 

REF 

1 



00,3513 

1 3463 

1 


TCF 

AlibL 0 

ARGUMENT NCW BETWEEN *25 uiD * 

125. 


I 


-t.t- 
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INTEHPKElfcR 


USER’S PAGE NU, 


Hi 


E3 Ss 


1 0 


H ili3 > 

IHiGUNUMETRlC 

FUNCTlLf. PACKAGE 

m 





- - - — _ - . ^ . 

R213 1 



THE FCLLUwlN 

G TKIgCNCMETRIo 

F UNCTIUNS 

AKt AVAlLABLh AS INTEK*^ 

KCl IVE CiPERATlCNS : 

Kilii 



1, SIN 


COHPUTES 

ti/2)SlNEU PI 

MPAC >» 


R21'i4 



2* CLS 


CU3PUT tS 

( l/2iC0SiN£ (2 1 

P 1 A P A L- ) .3 


R213S 



3 O' i 

AS IN 

- ■ 

COflPJTES 

ti/2PI I AKCSINEl 2 MPAOI ^ 

- - - _ — . _ , ... 

K2136 



4ep J 

CiCOS 


COMPUTES 

tl/2Pl 1 ARCCaSlNt(2 MPaCJo 


R2137 

S IN- 

-AS IN 

A NO 1 

CCS-ACUS 

ARc ^^UTUALLY INVERSE, IE 

SlNtASlNlAJl - 

- - - - - - - - — ' 

2138 

REF 

4 

LAST 

1181 

or ,3514 

J 6672 

1 

COSINE 

1 L, 

BRANCH 

FINDS CUSINE USING THE IDENTITY 

2139 





00,3515 

i 352^ 

1 


TCF 

+ 3 

COStX) = 5IN{Pl/2 -* ABStX))o 

~2r4~ 

RTF" 

j_ 



u 3 f 35 Lo 

i 332 3 

"1 " 


Tut" 

PRt S I NC 

• 

2141 

REF 

2 

LAST 

1187 

,3517 

1 3523 

1 

. 

TCF 

i-^KhS li4t 

- . - _ - _ - _ 

2142 





Ou, 352C 

U O Ci 0 6 

1 

+ 3 

bXT hNu 

PPAC 


2143 

REF 

595 

LAST 

1136 

Co , 352 1 

4 C'I55 

1 


CCS 


2144 

REF 

596 

LAST 

1187 

CO* 3522 

52 155 

1 


OXCH 

MPAC 


2145 

REF 

7 

LAST 

1136 

w U f 3 5 11 3 

3 4754 

u 

P RE SINE 

CAF 

* J AK I £K 

PI/2 SCALED 

2146 

Rtf 

397 

LAST 

1187 

iy io f 3 ^ 4 

26 154 



ADS 

3 P Ac 


2147 

REF 

596 

LAST 

1187 

Cv ,3525 

52 155 

1 

SINE 

DalH 

y PAG 

DOUBLE A- GUMLNT* 

^145 





L j f 3 ^ ^ 6 

2C 1 

i 

+ 1 

ULiU'JSL 



2149 





, ;,3527 

54 : 



JVSK 


SEE li LjVEKiLuW PRESENT* 

215<" 





C l, , 3S3v 

1 3533 



rcF ‘ 

+ j 

IF NOT, APCUfiENT OK AS 13* 

2151 





. , 3d3 1 

0 W u o 

1 


cX TEND 

- - 

li" SO, hr lust (GR GAINEOI PI, SC 

2152 





■} J,3532 

4 00 j1 

1 


DCUM 


COMPLEMlNT MPAC USING THE IDENTITY 

'7^2153^ " 











if I j 4 C X ( FT) SlJ^tXJc 

2154 

REF 

59 i 

LAST 

1187 

CO , 3533 

52 1j5 

1 

+3 

DXCH 

RPAC 


2155 

REF 

6<. 

LAST 

1187 

00,3534 

3 ^154 

1 


CA 

RPAC 

SEE IF A; GUMCNIT GREATER THAN «5 IN 

2156 





Ui- ,3j 35 

6 CC ' 

1 


DUUriLc 


HAGivdTUuE. 11 3U, REDUCE IT TO LESS THAN 

2157 

REF 

16_i 

LAST 

1135 

Ow t J53ij 

54 r -i 

1 


rs 

L 

5 (+“Pi/2 SCALED! AS FOLLOWS: 

2158 

KEF 

1 



tjl ,353 7 

i 353 w 

1 


TLF 

SM 


2159 

REF 

:Jt. 9 

LAST 

1184 

wo f J b4i^ 


1 


INDEX 

A 

iP PSSlTIVi , FORM PI - X, IP NEGATIVE 

2161 

REF 

7 

L A ^ i 

10 82 

Vi U f -1 54 1 

:> 4752 

0 


gaf 

t%Ocl/2 +i 

UJtr ^P1 ^ X 

2161 





vv , 3542 

U w J V 

1 


DUOBLL 



2162 





V ^ # 5543 

u ^ 1 V 6 

1 


fcXTbHU 



2163 

REF 

6 j 1 

LAST 

1187 

w ' 1 3 5 44 

6 C 154 

1 


su 

KPAL 

IJ A K A N 1 E £0 14(3 eJ V L R f L □ W o 

2164 

RE'F 

632 ’ 

CTCST 

11 ^ 7 '" 

ly-; ,CJ 54 T'' 

54 15^ 

13 


■ TS 

“PPaC 


2165 

REF 

603 

LAST 

i ld 7 

60, 3546 

4 lap 

1 


cs 

MPAc +1 


2166 

REF 

604 

LAST 

1187 

03,354 7 

54 15 5 

1 


rs 

KP AG + 4 





1 


ZfcUS 


2177 


0, t3i>t)7 32737 I 
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216 7 




V, f 355 

L ^ ’^36 

1 SNl 

C X T N L> 


2168 

REF 6C5 

LAST 

1187 

*) ) *3551 

3 ' 155 

0 

UCA 

MPAC 

2169 

REF 17 

last 

1173 

L *3552 

52 134 

0 

3 X CH 

8UF2 

rr? 

t F 

last 

Xlo3 

."3553 

"irrm" 



kJ 

”Tu ■■ ■ 

'DSw^Ui) 

2171 

REF 5 

LAST 

9' 3 

V. f 3 3 ^ A 

0 7171 

1 

TC 

POL i 

2172 




' j f 35 5 5 

3 

1 

Ulu 


2173 




L J * 3556 

14441 

G 

2DL:C 

+ i# 3 9Z t>99^J J 96 

217 3 




f 35 !^T 

3732 5 

1 



2174 




‘ .*35677 

53250 

1) 

2UtC 

■^^T5^39637Trr 

2174 




G-' f 3 5^ X 

6'' 764 

1 



2175 




i • '* 3562 

12146 

1 

2 DEC 

+^315756717 

2175 




w V f 3 3 

21276 

i 



2176 




U 'J f 3564 

7 5466 

1 

Z U6 C 

-.,^7478 0 249 

2176 




GO* 3565 

71471 




~Trnr 




UO»356<j 

5c23o 

"•* 

4 

?0eC 

+,o.;9o^49<sa 


ll;4 Pf.b-. 26tl971 , 
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81 


E3 S3 


Sb_T UP TU EV^JLUATb HASTINGS POLYNOMIAL 


SCiUAkE MPAC 


tVALUAIt FQUKIH ORDEk POLYNOMIAL 


2178 

2179 

REF 

REF 

1 

19 

LAST 

1149 

G V * 35 7 ’ • 
i>G,357l 

3 24g 7 
u 705 5 

c 

lAF 

TC 

L8LiF^ 

DMPSUb -1 

MULTIPLY OY argument AND 

2 1 8 V 





GO* 35 72 

0 OC U6 

1 

EXTENO 



2161 

REF 

6C t> 

L Ail T 

1183 

00,3573 

3 01^6 

c 

UCa 

MPAC -H 


2132 

KEF 

6 vj 7 

iu A3 T 

1188 

UO, 3574 

2U 15u 

1 

JAS 

P.PAC" + i 


2183 

REF 

6o8 

LAST 

1188 

00, Jk575 

6 C154 

1 

Au 

MPAg 


2164 

REF 


LAST 

1183 

00,3576 

26 154 

0 

A U3 

MPAC 

NEIIHF.K SHIFT OVERFLOWS*. 

2185 


1 ' 



08,3577 

U OC5C6 

1 

cX r tKu 



2186 

REF 

61*7 

LAST 

1138 

0 6 1 3 6 0 'Lf 

3 C X 6 

» 

UCA 

Mpac +1 


2187 

REF 

611 

LAST 

1188 

C 3 f 3 i> U 1 

2, 136 

1 

DAS 

MPAC *1 


2188 

REF 

612 

LAST 

1138 

O v3 T 3 O ^ Z 

6 '1 134 

1 

AU 

M P AC 


21S9 

REF 

613 

LAST 

1188 

41 Q f 36v 3 

Zo 134 

L 

ADS 

MPal 


219t 

REF 

48 

LAST 

1132 

Go t Juw 4 

1 6 J u 

6 

TCF 

D Ai J Z i b 



.. AP : AbStMBLE KbV 1 51 ON C P Ab C PKObKAM ARTE MI:^ UY_ N ASA 2il 


L lNTERPKi.TER 


P2i^‘i AKCS IN/ARCCC5 ROOT IN£. 



REF 

1 



0 J f 36 u 5 

3 362 6 

6 

ARCS IN 

CAF 

4^193 





V J t 6 

1~36ir 

r 


TCF~ 

21^4 

REF 

1 


■ - 

C' * f j 0 . 7 

3 371 _ 

i 

AKCCUS 

CAF 

2105 

REF 

1 



y U f 3 1 > X 

34 136 

1 


TS 

2196 

REF 

b 

LAST 

1167 

ijC f 3 o X 1 

66 1 2 

1 


TC 

2197 

KEF 

L 



DU t 36 

1 3622 

0 


TCF 


FTEF 

ir 



uC i J 613 

~ir~JTZW 

1 


tlf 

2199 





^ U 1 3 o X A 

Kj L J 0 

1 


EXTEND 

22 i 

REF 

6 l 4 

LAST 

1188 

uu , 3615 

4 155 

1 


uCS 

22 .y 1 

KEF 

615 

LAST 

1189 

00*3616 

52 155 

1 


DXCH 

22 w 2 

REF 

1 



00 , 3 ol 7 

3 3727 

0 

*• 

CAF 

22 c 3 

REF 

2 

LAST 

1189 

fjD f 3 c]i 2 Sr 

56 136 

0 


XCH 

A 

RTF" 

1 



" 0 D, 3&21 

54 i 3 T 

0 


TS 

22 5 

REF 

22 

LAST 

1 i a '6 

L /0 f 3622 

4 475 J 

o**' 

ACbsST 

cs 

22 w 6 

REF 

6 I 0 

LAST 

1189 

0 'i f 3623 

6 V X 3 ^ 

1 


AD 

22 -' 7 

rtEF 

31 u 

LAST 

1137 

UU , 3624 

1 C CC ' 

u 


CCS 

220 6 

REF 

1 



60 , 3 o 2 5 

1 3 71 6 



r c F 


2209 

KEF 

1 



Go f 36Z6 

i 3 7.-4 

1J 

LASINEX 

Ilf 

221 

KEF 

m 

L 



W ‘ jr f 3 0 4^ 7 

1 363 7 

1 


T C r 

2211 

K£F 

617 

LAST 

118? 

D w* ^ 

10 153 

1 


L Cf 

T2TZ" 

ftiiP 

235 

XTSrST" 

1135 

Ou, 3631 

"3“^772' 

I 


(7aF~ 

2213 

REF 

1 



iu f J63^ 

1 3634 

1 


TCF 

2214 

REF 

2 

L A:>T 

1189 

0 s.. f 3o 3 3 

1 363 7 

1 


TCF 

2215 

KEF 

618 

Last 

1189 

00,3634 

54 135 

1 

ACUS= J 

TS 

2ZTF 


fcl 5 

L A ST 

1189 ■ 

DU, 3635 

54 r54 

u 

+ i 

FS 

2217 

REF 

3 

LAST 

1189 

QO r 3636 

L J. 13o 

U 


rc 

221 a 





0 M 1 -i6 7 

c DO./ 6 

1 

ACUSST2 

EXTEND 

2219 

REF 

62"v 

LAST 

1169 

* , f 3 6 4 

4 3155 

1 


UCS 

22 2 > 

KEF 

23 

LAST 

1189 

u 1 J 6 4 1 

6 4753 

I 


AU 

X 221 

^TFX 21 

'~05T 

nw 

: c 

“52“i.Tr!r 

1 


uXTTR 

2222 

KEF 

18 

LAST 

1188 

uO, ^643 

52 134 



uXCH 

2223 

K t F 

3 

LAST 

llbl 

L*0 ,3644 

U 3342 

1 


TC 

2224 

KEF 

61 

LAST 

1186 

J ^ 1 3 o4 5 

lb 135 

i 


CCS 

Tzais 

ReF 

i 



C V. V364~6 

1 T7T1 

T" 


TCF 


- li 


o«i46 PAGE 1189 


LASlNtX 


LCANZIG 

EoiLAPE 

o RANCH 
ACU ^51 
ACusztKC 

HPAC 

NPAC 

TCSOBTh 

tbCAPL 

rSCAPEZ 

half 

.ypAC 

A 

ACaSUVF 


A 51 N- X 
ACUS51Z 
KPAu +1 

ztTc: 

/j c J C> ^ • 

ACuSoTZ 

RPaC +1 

RTPmX 

ESCAPE 


P P A C 

h A L F 

KFAXT ' 

dUrZ 

5 '^K 1 j'Ub 
PPfE.'IP 


11^4 FEbo Zc,X97 1 ZEUS 

USER'S PAbE NOe 62 E3 53 


CCMPUTt AFCSIN bY USING THE IDENTITY 

'aitltt Ti { x j ■ = T rrz “ arccosixit. — 

(EXITS IMMEDlATtLY).' 

test sign xf input, 

START IMMEDIATELY IF PQSlTIVEo 
AKCLU5tT“J = PI/ 2 ^ ~ — _ 

IF NEGATIVE, USE THE lOENTlTY 
AkCCDSiX) -PI - ARCCOSt-XI, FORCING 
AkbUHENT FCSIUVE, 

Str'EXIT TO Da ABOVE DEFURE 
ARCS IN/ ARC COS CONSIDERATIONS. 


IcST MAGNITUDE OF INPUU 


THIS IS PRObAfiLY AN OVERFLOW CASE. 


NO OVERFLOW - PROCbEDu 

IF MAJOR PART IS .5, CALL ANSWER l 

um'rSTl^lTsnTR'FAFT'' NHJATl 7 E ; 


NOW THAT ARGUMtNT IS IN PROPER RANGE, 
BEGIN COMPUTATION. USE HASTINGS 
APPROX IMATION AkCCUS(X) - SORT ( i-X ) P I X 1 

ITT A SCAEECT VER STOTT WHEKb'"P’(Tl ' rS' "A 

SEVENTH UKCER POLYNOMIAL. 

RETURNS WITH NURMALIZEU SUUAKh ROUT- 

SEE IF UN-NuRMAL IZAl I ON REOUlKtO. 

IF ^ SD ' 


F£B» 26,1S71 4fcUS 


' . 4^6 




'■> tMB L£ Kti/iS lGN 72 O F AuC PROGRAM ARTEfilS B Y NA SA 2 21 1 14- 11 


PAGE llGL 

B 


L iMERPRETER USER'S PAUL NO* 63 E3 S3 


2226 

KEF 

622 

LAST 

1189 

..,3847 

5 2 155 

1 

ACQS3 

uXcH 

RPAL 

SET UP FUR PULYNUMIAL EVALUATION* 

2227 

REF 

19 

LAST 

1189 

'-i f _i65ij 

52 134 

L 


OXCH 

3Ur 2 


2226 

H E F 

623 

LAST 

119:, 

I. r S65 1 

52 l-i5 

1 


OXOH 

i*) P A C 


^ 9 

REF 

6 

LAST 

1188 

j f s652 

« 7171 

1 


ro 

POlY 


223 





0 - 1 ^6i>3 

^ ■ ' r ■ JL. 

w ^ 'i-(* o 

1 


UcO 

o 


2231 





O'- j 3654 

132 4i 

ij 


2u cC 

+• 353553385 

CGEFFICIENTS ARE C 2( + I ) /PI SORT (2 ) hHEKc 

2231 





0 w,3655 

2363i' 

f 





2-t32 





0^' , 3o56 

74721 

i 

S- 


2uEC* 

J 3 4 3 3 X 7 L ^ - 6 

6+1* 1 

2232 





0 .,3657 

477 75 

1 





223^ 





. ^ t jo6 . 

0244'. 

j 


2UEC# 

+ 3 -'2 -^2 73 j 85 

3+2* WHERE C STANDS FOR QHIGINAL CDEFFS* 

223 3 





'j f 3q6 1 

20 23 7 






22j>4 





w I 3<io2 

7 b J 6 7 

1 



— j'. 1 12931863 

3+3^ 

2234 





1 3 u 63 

7G742 

1 





22-S3 





V . f J664 

Q3436 

0 


2UtC^ 

o95311ol2 

8+4* 

■2235 





^ Kt f 36 6 3 

2^t36 

1 





2236 





OO f 3666 

74Ci7 

0 


20tC* 

j>a4617'9i>7 

8+ 5* 

2236 





0 J T 36o 7 

57 640'“ 

1 





2237 





G A ' f 3 ii 7 1- 

03046 

1 J 


2DtC^ 

+ *0 150129 7736 B+6-i' 

22 37 





G 0 1 3 o 7 1 

0 7143 

u 





2238 





00,3672 

7663 4 

i 


2DtC* 

J2 -#'2d 4166334 

2238 





60f Jo 7 3 

42244 

« ■ 
i-i' 





223G 

REF 

2 

LAST 

1188 

V 1 3 6 T 4 

3 24 b 7 

*• ^ 


CAF 

L8GF2 

DO FINAL MULTIPLY AND GD TO ArJY 

224v 

REF 


LAST 

1138 

G If 3675 

0 7355 

u 


TO 

DMPbUO -1 

EPILJGUE SEQUENCESr. 

2241 

REF 

-i 

LAST 

1189 

^ f 3 u 7 6 

s Olid 



TO 

E:iC A PE 


2242 





0 .3677 

0 0 C J o 

1 

SU 8 T R 

LX i END 


EPILUGUE FOR NEGATIVE INPUTS TO ARCCOS. 

2243 

REF 

624 

LAST 

1 1 9 c 

‘l. f _! 7 j -0 ■ 

4 id5 

1 


uuS 

lYPAC 


2244 

REF 

24 

last 

1189 

.. f J 7 u 1 

o 47 53 

1 


AD 

HALF 

FORMS PI - ARCCOSt-X) = AKCClS(X)» 

224!) 

REF 

625 

LAST 

il9C 

^ * f 3 7 w 2 

52 155 

1 


DXCri 

/.PAD 

k 

A 

2246 

REF 

Z 

LAST 

1189' 

6 0 f 3 7 3 

L 1 3 7 

i 


TO ■ 

ESCAPE2 

GC ID POSSIBLE ARCSIN lPILOGUF* ■ - - - 

2247 





Qii 1 3 7h 4 

0 C J 'V U 

1 

ASINEX 

extend 



2248 

REF 

62 u 

LAST 

1190 

U C f 3 7 1.J 3 

4 ' 1 5 i 

1 


DCS 

KPAO 

ARCSIN EPILOGUE - GET AHOSiNiX) 

2249 

REF 


‘ LAST 

1187 

0 C t Y 6 6 

6 4754 

c 


AU 

^OAK i Cf» 

= Pi/2 - ARCCDS(XJo 

22p- 

REF 

627 

LAST 

1190 

UC,3707 

52 155 

1 


OXOH 

RiPAL 


2251 

KEF 

49 

LAST 

1 1 8 F' 

‘?T;,371C 

1 6030 

0 

LDANZ IG 

TCF " 

CANZId 



■ « 



AS5fch3Lt REVISICN 072 
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ll;4v FEB» 26,1971 ZEUS o^46 

PAGE 1191 

L 

I NT tRP RtTER 







USER'S PAGE NO. 84 

E3 S3 


REF ill 

LAST 

1139 

UO f 371 i 


1 

ACaSSHR INDEX 

A 

THE SHIFT RIGHT IS LESS THAN 

14 SINCE 

2253 

KEF 56 

LAST 

1176 

00.3712 

3 47 1> j 

1 

CAF 

ElTi4 

THE INPUT RAS NON-ZERO DP. 


22:^4 

KEF 62 

L AST 

1169 

uO t 37 1 3 

54 135 

1 

TS 

KPTEMP 



2Z55 

REF 4 

LAST 

1 1513 

U0T37I4' 

12C73 

I 

n7 

VSrTFTRfTD 

DP STTIFT K IGHI AND ■KUOND^> 


2256 

KtF 1 



u 1 -> 7 X 3 

1 3647 

0 

TCF 

ACUb3 

PROCbEDo 






0 0 1 3 7 1 6 

0 Ot 0.6 

1 

ACUSUVF EXTEND 


IF MAJOR PART WAS ONLY 1 MORE 

THAN o5, 

2256 

REF 2 

LAST 

1189 

G0,-i717 

i 3634 

1 

tiZF 

ACOS= : 

CALL ANSWER ZERO. 


22:5^ 

PEF 31 

LAST 

832 

JOf 372u 

w 5671 

1 

ACUSADRT TC 

aLar,h 

IF OVERFLOW, CALL ANSWER ZERO 

BUT 

22551 

_ _ 

- 


‘JV » 372 1 

V. 13wi 

1 

JCT 

13 i 

SOUND AN ALARM. 

. _ ____ .. ^ . _ 

226'.. 

REF 236 

LAST 

1189 

20 ,3722 

3 4772 

1 

CAF 

ZcKO 



22 6 1 

RFF 3 

LAST 

1191 

06»3723 

1 3634 

1 

TCF 




2261 

REF 9 

LAST 

1190 

5 J, 3 7 24 

3 4754 

6 

A COS ZERO CAF 

LUARTEK 

ACOSIOJ = Pl/2. 


2262 

RcF 4 

LAST 

1191 

•JV .3725 

1 3o35 

0 

TCF 

Acas=- +1 

SET MPAC AND EXIT VIA ESCAPEt. 

. _ 

226 3 




-0,3726 

77763 

n 

u 

REG12 DEC 

-12 



2264 

REF 1 



:,372 7 

1 3677 

0 

TCSU6TR rcF 

Siiti r K 










w 

• f 
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' AS SfcMBLh KEV l BlON i lZ CF A GL PROGRAM ARTcMIS GY hASA 2 l.i i 4~ _1 1_ 


141 RbU* 26<i971 ZbUS 


1 NT EKP Kc TtK 


UbXP ' S PAt;»E NO 


85 


fc3 S3 


P 226 5 

R226 7 



THE 

J. e 

FOLLOWING 1 i\SI RUCUONS ARE 

axt address 

AVAILABLE FUR SETrii\l6, MUOll-yiNG 

TO INDEX TRUEc 

, AND BKANCHlNti UN .INDE_X REGISTERS: 



R 2266 



JL 9 

AXC 


ADDRESS 

TO INDEX CUHPLtHENTEU, 




K226° 



3 o 

LX A 


LOAD INDEX FROM ERASABLE. 




R227 



4. 

LXC 


LOAD INDEX CUMPL EMENTED 

FKUti lkASABLE* 




k 227 1 



3 o 

SXA 


STOKE INDEX IN ERASABLE.: 

11 




:<2272 



U a 

XGHX 


EXCHANGE 

INDEX REiGSTciV 

1^1 frt tKASAOLbo 




tv 2273 



7.. 

INCR 


INCREMENT INDEX REGISTtKa 




R2274 



Sa 

XAD 


lR A s Afl LE 

ADO Tu INDEX REGIS rCHa 




k22 7^ 



9, 

XSU 


ERASABLE 

SUBTRACT FROM INDEX RcGiSTER^ 




K22 76 



1... 

IIX 


BRANCH CN Index registek a jo decrement* 




2277 

REF 

i 



1 1 G - 


6ETL0C 

I K T b Rbi 




227 ?5 





1,2341 


DANK 





2278 

REF 

1 





C LfUN T ^ 

$t/ INTER 

- 


i 

2279 

REF 

1 



j 1,2341 

243 o 1 

AXT re 

T Au > Ul 

SELECT APPROPRIATE INDEX REGISTER, 



22 8€ 

h £ F 

22 

LAST 

1182 

; 1,2342 

3 117 L 

C A 

POLISH 




2261 

ft E F 

r 

j-AST 

1112 

- 1,^343 

5 L- 13 -..j ». 

XSTCRE INDEX 

I ND b XL UC 

CONTAINS CIFIXLQCI OR C(FIXL0CI+1, 



2232 

REF 

46 

LAST 

1122 

:1,2344 

54 .46 1 

rs 

XI 




22 83 

REF 

50 

L AST 

119- 

o 1,2345 

1 6 '• J 3 j ‘ ■ 

l CF 

DANZIb 

- - . 



2284 

REF 

2 

L AgT 

1192 

>1, 2346 

t 2436 1 

AXC TC 

1 AG SUB 




2285 

8 EF 

23 

LAST 

1192 

. 1 , 234 7 

4 0117 1 

cs 

PGL 1 SH 




2286 

REF 

1 



1,2350 

E 2343 1 

TC 

XoTuRE 

— . _ _ . 


- 

2237 

RFF 

1 



01, 235 1 

V 2424 1 

LXA IC 

ia.lDREKS 

LOAD INDEX REGISTER FROM FRASABLEo 



228 8 

REF 

24 

LAST 

1192 

C’l , 23^2 

5-' 117 0 

INDEX 

POLISH 




2289 





.1,2353 

3 &0u\ 1 

CA 





— ZZ9ir“ 

8 £ F 

2~ 

LAS^r 

“IT92~ 

1 f 

1 234 -> t- 

rcF 

X 5^r 3 Rl 




225 1 

REF 

2 

LA ST 

1192 

'J 1 f xd35 5 

L 2424 1 

LXv. TC 

IdADHc-RS 

LOAL NDX REG FRCH ERASABLE COHPLEHENTEOo 



2292 

REF 

25 

L As T 

1192 

. 1,2356 

5C 117 . 

INDEX 

FCt_ I SH 




229 3 





j L§ Z 3^ 7 

4 U J ^ 

CS 





2294 

REF 

3 

LAST 

1192 

.1,2360 

1 2343 . 

TCF 

XSTORE 




2295 

Her 

3 

LAST 

1192 

^ i , l36 1 

0 2424 i 

SXA TC 

IsAu.nERS 

STORE INDEX REGISTER IN ERASABLE, 



2296 

REF 

5 

LAST 

1192 

c i f zsoz 

5" 13 i U 

INDEX 

1 •nDi~ xlu c 




229 7 

REF 

49 

last 

1192 

1, 2363 

3 Lu4o 0 

CA 

Xi 




2296 

REF 

26 

LAST 

1192 

0 i f 2364 

5l 117 / 

MSTOKCi INDEX 

PULI jH 




229 9 





' J 1 f 2 3 6 3 

54 -J jr ^ 

TS 





23Cv 

REF 

5i 

LAST 

hji 

1 

j 1, z366 

1 6 J 3 . . .• 

Tcr 

Can 2 Ib 





b : ASS LHetE HfetflSlON . 12 . G F AbO PkGSRAH AKThMlS BY NASA ^ ^U. 

I INTtRPKtluK 


^.y\ i 

IV t F 

‘-r 

CAST 

1192 

91 ,236 / 

J 2 42 4 

1 

XCHX 

TC 

1 5 A OHhk S 

23 '1 

k EF 

27 

LAST 

1192 

- 1 1 237 ■- 

5(/ 117 

U 


INDEX 

POLISH 

J 





1,2371 

3 k 1 ' 4 ; u- 

1 


CA 

J 

23 4 

■REF 

6“ 

L ■ 

1192 

"1,2372 

' I3T" 

J 


TNITFST' 

■ INDtXUUC' 

23u 3 

REF 

Sw 

LAST 

11«2 

w' JL f ^3 T 3 

5 J 4 6 

J 


XbH 

xl 

23v'6 

kEF 

1 



C 1 , 23 7 4 

1 236^ 

j 

^ 4 


TCF 

■mSTURET 

23‘17 

REF 

3 

L A ST 

1 1 J 

J- 1,23 7 5 

G '2424 

1 

XAU 

i c 

loAURhRS 

23b8 

HEF 

2S 

LAST 

1193 

, > i, f 3 T 6 

50 117 



INDEX 

PCLIbH 

■ 





> i f id J / / 

S' TO err " 

1 


CA 


231 

REF 

7 

LAST 

1193 

j i t jd ^ w 

50 13b 


XA02 

I NUB X 

i i\OB XLUC 

■2311 

REF 

51 

LAST 

1193 

:/i,z4 1 

26 046 

1 


AD 5 

XI 

2312 

REF 

52 

LAST 

1192 

v2 i t 414 U 4d 

1 603 0 



TCF 

lANZ Iu 

2313 

HEF 

3 

LAST 

1192 

9 1,24b 3 

b 243 6 

1 

I NC R 

TC 

1 Mvi S Ud 

'Z31’4" 

REF" 

■ r9“ 

■ L7TST ■ 

1X93 

i f Z4U 4 

3 til/ 

w 


O 

P uL I SH 

231S 

REF 

1 



i ,2405 

1 24Uv; 

r' 

'1 


rcF 

XAD2 

2316 

REF 

6 

LAST 

1193 

^ X f ^ 6 

0 2424 

i 

XSu 

Tb 

laADRERS 

2317 

REF 

3v 

L- AST 

1193 

Vi i f z4^-' 7 

3G^ 117 

it* . 


1 ndex 

POLISH 

2318 





. 1,*:41 

4 COco 

J 


cs 


2319 

"■iTFr 

2“ 

LAST" 

TIX3 

0 if Z4l 1 

1 24T/ZJ 

U' 


r C F 

XAJ2 


232f 

fith 

4 

last 

1193 

U,2412 

b 2-+36 1 

TIX 

TC 

r ag^uo 

2321 

REF 

3 

L AsT 

1193 

.1,2413 

i> ^3 13 V. K ' 


1 t^UE X 

INUE XLuC 

2322 

REF 

34 

i_AST 

920 

L 1 , 241^1 

4 v0 5^. 


uS 

SI 

2T23 

“RTF 

9 

TSsT 

■ir93~ 

“JTTZTTS" 

~5mx ^ 


I N Jt X 

INDEXLuc 

2324 

REF 

52 

LAST 

1193 

. 1,2416 

6 V ,4u 'w' 


aD 

XI 

2525 



— ■ 


’^1,2417 

0 i. '■ 0 6 i 


Extend 


2326 

REF 

53 

last 

1193 

u 1 f Z42 ^ J 

6 t> -■ 3 L ‘ 1 


dZMF 

CANl I G 

2327 

R tF 

1 ■ 

LAST 

1193 

jl,2421 

50 lJU 0 

OUTlXdR 

INDEX 

1 NOl aLUC 

2328 ■ 

— tTEF" 

'53' 

“ LAST 

1 ITS- 

01 ; 2422"“ 

06 b'HO 0 


XCH “ 

XI 

232- 

REF 

o 

LAST 

1132 

01,2423 

1 6615 1 


TlF 

GOT j 


il:^. ftBo 26 fic 7 i z£us 
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USER'S PAbh NG, 86 t3 S3 

tXCHAMGb INDEX REGISTER WITH EkASAgLE. 


AUU ERAS ABLE TO INDEX KEGlSTERo 


IGNORING OVERFLDwSo 

INCREMENT INDEX REGISTER. 


SUBTRACT erasable ,ER0M JNDEX REGISTp* 


BRANCH AND DECREMENT ON INUEXo 


T41T OPERATION IF DECREMENTED INDEX IS 
NEGATIVE CP ZERO, 


IGNORING ' D VERFLUTFSI 


DO THE BRANCH USING T Hfc CALR IN PULlSHa 


oiMP; AlaSfcMBLb KryiSlON .11 Lf AUC f*RQbKAr4 AKTbHl^ bV NASa ^11 i4-.il 


lil4C FEBo /i6,197l ZEUS 


^6 PAGE 1194 


IMLPPhc (EK 


USLU*S PAGt NO, 


87 


K3 S 


.sUbROUTlht lu COOVtRl AN EfxASAdLE ADDRESS (11 oirsi TO AN EbANK SETTING AND SUeADDRES,S. 


Z33Z 

REF 

31 

LAST 

1193 

.It 2424 

4 011 7 

1 

ISADREkS cs 

POL I SH 



233J 

RtF 

3 

LAST 

1122 

^ 1 j 242 5 

& ^u6 

1 

AD 

CEC45 




RcF 

312 

LAST 

11^1 

^ If ^426 

IS COL 

• ^ 

1#, Cr 3 

A 

COES THE ADDRESS POINT TU THE WORK AREA? 


2335 

REF 

29 

LAST 

1182 

. 1 1 242 7 

3 012^' 

1 

GA 

H Xi_ jC 

YES. ADD FIXLOC. EBANK OK AS IS. 


23 36 



- - - 

- 

i # 

1 2435 

r ’’ 

; * 

r lf 

+:> 

_ _ _ * - .. . _ .. ... 

> 

% 

233 7 

REF 

7 

LAST 

1122 

. 1,2431 

3 5024 

1 

V.A 

Cj6 1 J. ^ 

NO. SET EBANK f. MAKE uP SUBADORESS. 


^330 

REF 

32 

LAST 

1194 

.1,2432 

56 117 

Km 

XCH 

KJLISH 



2339 

KEF 

34 

LAST 

113' 

J 1,243 3 

54 at) 3 

T 1 

TS 

c 3 a NK 



234* 

KEF 

12 

LAST 

li.3 

-1, 2434 

7 435 

1 

Mask 

LDWo 



2341 

REF 

33 

LAST 

1 i j 4 

Jl,2435 

26 11 t 

1 

+5 AD:» 

POLISH 

FALL INTO TAGSU8, AND RETURN VIA Q« 

. - 

K2342 



jUDROUTINE 

WHICH SETS THE ADDRESS UF THE SPECiFItD INDEX 

IN INOeXLDC. (ACTUALLY, THE ADDRESS -3BD. ) 


^344 

REF 


LAST 

1194 

.’1 , 2436 

3 l12'j 

1 

TAb3U3 uA 

F I X i_ JC 



2345 

REF 

11 

LAST 

1193 

1 f ^*^3 7 

54- Ul 

1 

13 

INDEXlDC 



2346 

KEF 

3.,- 

last 

1161 

.1# tu44 . 

2 

1 

CCS 

C V 

BIT 15 SPECIFIES INDEX, 


234 7 

REF 

12 

last 

1194 

v 1,244 1 

24 13.* 

L. 

I 4^1 C R 

1 NU hr XL oC 

.. MEANS USE X2. 


234 b 

REF 

244 

LAST 

1185 

1 , 2442 

U 00 u2 


TC 

U 



234<^ 

REF 

245 

LAST 

1194 

j 1, 2‘+43 

0 OtiD2 


TC 

r • 

1 FOR Xi, 

----- 






- 

- 


- - 



» 
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L INfEKFHLIER USER'S PAGE NOo 63 13 S3 


p;'33 

■ - 


HISCELLANEOUS OPERATION CODES 

WITH UlKtCT AUDRESSci** INCLUDED HERE ARts 

- 

K Z3SZ 



1. IT A 


STORE 

QPRET (RETURN ADDRESS} 

ERASABLE, 


k2354 



2 m XTAL L 


call A 

SCBiitimiNEf tEAVlNG i^EtUR 

T'j In qpRE"} . 


K2336 



3« KTB 


RETURN 

ro BASIC 

LANoUAob AT THE 

GIVEN ADDRESS, 


R2358 



•+. BHIZ 


BRANCH 

IF The high urdur ct' i^pal 

IS ZERO (SINGLE PKECISIuN}, 


R236r 



UCV 


BRANCH 

OK OVERFLUWo 



R2361 



o« GOTO 


' SIMPLE 

SEQUENCE 

CH AlSiljf a 



2362 

REF 

31 

LAST 1194 

1* i:444 

i(J 02 u i 

RTB/DHiZ 

C#- C#- ^ 



2363 

REF 

34 

LAST 1194 

01,2445 

3 3117 0 

RT3 

LA PCL 1 



2364 

REF 

2 

LAST 424 

01, 2446 

C 46^1 


TC SWCALL 

-1 SC A "TC C" FROM ROUTINE LEADS 

TU DANZIG 

2365 

HEF 

6'2d 

LAST il9L 

g 1, 244 / 

10 154 u 

BHIZ 

CCS MPAC 

- 

. 

2366 

R E F 

54 

last 1193 

wl ,24>'i 

i 6vJJ 0 


TCF CA-NZIb 



Z3o7 

“T^rEF" 

7 

TTfST — 1X93^ 

" 1 » 2'45 1 

1 6615 I 


tlp Goro 



2368 

REF 


LAST 1195 

^1,2452 

1 6030 J 


TCP CAiMZIG 



2369 

REF 

3 

LAST 1195 

01 ,2453 

~1 6613 1 


TCF GCTG 



237' 

REF 

9 

LAST 1183 

Cl, 245 4 

10 121 1 

BQVlB} 

DCS LvrlND 

' BRANCH ON OVERFLOW TO BASIC OR' 

INTEKP, 

2371 




J 1,2453 

1 2457 1 


TCF ^ ^ 



Z3T2 

RE? 

T6 

X7rsrTT?3 — 

C1T2^3T 



I lF DANZ. I G 



2373 

REF 

1*. 

LAST 1195 

u 1 1 7 

:>4 121 1 


T b QVF I ND 



23 74 

REF 

32 

LAST 1195 

Ol 1 ^46'v 

io j2. 1 


CCS CYt< 



237 5 

REF 

1 


t i,2461 

i 2445 1 


TCF rTB 

IF BASIC, 


■ 2376 




. jL I ^4^ ^ 

1 

e5TUD8 

UCT 36C 



237 7 

REF 

9 

LAST 1195 

wi,2463 

1 6615 1 


TCF GCru 




1 < 


5> 
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L 

IMtKPKt 1 

cR 








_ _ _ _ — — - _ JP ^ ^ m. •%mr V p ■ r > wr ^ «il- A 

USER'S PAGE N 0 » o9 E3 S3 

2J78 

HFF 

33 

LA3T 

1195 

:i,2^64 

->25 

1 

ezt/GuTG 

Cr C 

CYK 

SEE WFiJCH CP-CUpE IS DESIRED^ 

ZM9 

K£F 

6 

LAbT 

1189 

0 li 2465 

. 6672 

1 


TC 

SKAIMCH 

DO tilt. 

23 b',^ 

REF 

57 

LAST 

1195 

Cl f 

1 60 3u 



TCF 

D Ai4Z I b 


23 81 

K£F 

10 

L A^T” 

119$ 

>1 1 2467 

i 6 6 1 5 

1 


TCF 

GCTu 

DO GOTO, 

2362 

i< £F 

58 

LAST 

1196 

1 t 2 i H 7 

1 6 jJ 

i 


T CF 

CAOZiG 

------------- 

236 3 

KEF 

3^ 

L AST 

1196 

01 f 2471 

iv .i 2 > 

1 

B P L / d 

C C b 

CYK 


23 84 

REF 

1 



01,2472 

1 25 j 

i 


TCF 

apL 


2385 





W 1 f 2d^7 J 

12 . 

1 

531- 

6 Eu 


SHIFTS CP CODE IN SWITCH INSTRUCT IO.nJ ADR 

2386 

RtF 

7 

LAST 

1196 

01,2474 

u 66 / Z 

1 


rc 

Bra ivb i"i 

CO oMN* 

2387 

REF 

5Q 

LAST 

1196 

..1,24 75 

1 6 ./ 3 

1 


TCF 

B Ai\/ I G 


2388 

REF 

u- 1 

LAST 

1196 

1 f 4^ 4 7 6 

i b 

o' 


TuF 

OAAZIG 


2389 

KEF 

li 

LAST 

1190 

•j1,247? 

1 6613 

1 


TCF 

aUl J 

ONLY IF NNZ J: 

239(; 

REF 

6 

LAST 

1196 

V i ,25ij( 

' 66 ? Z 

1 

8 PL 

TC 

ERAWCH 


2391 

R tF 

12 

last 

1196 

i,25Ll 

1 6 a 1 3 

i 


TCF 

G J 1 u 

IF posi n va OK zerOo 

2392 

REF 

13 

LAST 

1196 

C 1,25 -2 

1 6615 

I 


TCF 

GGf J 


23Q3 

REF 

oi 

last 

1190 

1 , 25v. 3 

i 6C3, 

0 


TCF 

L)A;'42 iG 


2394 

REF 

35 

LAST 

1196 

•1,25. 4 

1 0 • Z J 

1 

CALL/IIA 

•CuS 

CYR 


2395 

REF 

i 



V 1 , 25^. 5 

L 06 ., 7 

I 


TCF 

CALL 


2390 


- 


— - - 

» X 9 U 

12 b j1 



NUUP 


CAt>4N J T GfcT HEkB 

2397 

KEF 

7 

LAST 

1193 

L L f Z5 u 7 

: .d424 

1 


TC 

15Al>K£RS 

STOKE yPRET® (TAGSUB AFTER isADRERS IS 

2398 

KEF 

3 1 

LAST 

1199 

V 1 1 2^^ X V 

:>* 12. 

1 


i iliC L K 

FlXi-OC 

SLOW Ifsi THiS CASH, aUT SAVES STORAGE, ) 

2399 

REF 

7 

LAST 

1132 

1,2511 

3 5 052 

0 


CA 

CPRcT 


24i ‘ 

REF 

2 

LAST 

1193 

0i,2512 

1 2364 

0 


TCF 

MolUREl 



j 


r 


AF : 

ASa tMBL t 

REV IS I UN 

L 

INTERPwt TcK 

P 240 1 


THE FOI 

K 24 V ^ 

V Vi 

BUNS ET 

R 24r 4 

Cl 

TETGC 

R24. 5 

<J2 

BUFSFT 

R24 6 

r 3 

SET 

K 2 / 

i 4 

BON I NV 

K 24- B 

* -1 5 

I NVGO 

R 24; / ^ 

“ ns 

313FT7’JV 

k241 

C7 

INVERT 

R2411 

1C 

BONCLR 

f<24l2 

11 “ 

CLRGC 

R 2413 

12 

o GFC LR 

fr74T4 

T3 

LLhAR 

' R2415 

14 

a ON 

R2416 

16 

BOFF 


72 OF AGC PROGRAM AKrtiMlG BY NASA 2<>21iiA- li 
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46 PAGF 1197 


USER*S PAGE NG, 


9 l 


E3 SB 


IHE FOLLOWING UPLKATIQNS ARE AVAILABLE FOR ALTERING AND TESrU4G INTEHPkETlVt SWITCHES: 


SET A SWITCH AND 00 A 
5 FT A StTITCff’ AND OZrA 
SET A SWITCH AND 00 A 
SET A SWITCH* 


IT WAS ON 


o J 1 C I r 
GOTO* 

goto if it was off 


I N V t RT 
INVERT 
INVERT 

INVcRT 


A SWITCH AND 
A SwlTuH AND 
A SWITCH AND 
A SWITCHo 


BRANCH IF IT 
DC A GOTO* 
BRANCH IF IT 


WAS ON* 




CLcAH A 
CLEAR A 

CLLAK A 
r UEA FT "S' 


SWITCH 

SWITCH 

SWITCH 

TWITCH 


AND 


AND 


BRANCH IF IT 
DO A GOTO » 

BRANCH IF IT 


WAS OHc 


WAS OFF^ 


8Rmnch if a Switch was on* 

BRANCH IF A SWITCH WAS UFFo 


k2417 


THE ADDRESS SUPPLIED i«lTH THE SWITCH INSTRUCTION IS INTERPRETED AS FOLLOWS 


R24i9 

R242-. 

k242i 


BITS 1-4 
BITS 5- a 
BITS 9- 


:»WITCH BIT NUclBER ll-iSI* 

SWITCH OPERATION NUMBER* 

SWITCH WORD number IUP TO 64 SWITCH WORDS)* 


R 242 2 



THE ADDRESS 

ITSELF 

IS MADE ■ 

UP 

BY 

THE 

YUL SYSTc 

M ASSEMBLER* THt 

BHANCH INSTRUCIIGNS REUUiRE TWO 

R2424 

ACOK 

ESSESf THE SECOND 

1 TAKEN 

AS T Ht UlRECT 

I OR 

INDlkEd 

IF IN EKASA3LE) 

ADDRESS OF THE BKANCHo 

2426 

REF 

b 

LAST 10 V 4 

Gi,2513 

j 477 7 

1 

SWI T CH 

cS OAF 

LOW 4 

LEAVE THE SWITCH BXT 1N SWBIT o 

2427 

REF 

35 

last 1195 

u if 25 1 4 

7 .117 

1 



Mm 

POLISH 


2 4 ZB" 

KEF 

713“ 

LAST 1194 

71,77X7 

5 0 Tr~ 

XT 



INUt X 

A 


2429 

REF 

42 

LAST 1181 

w 1, 2516 

0 4 752 

c 



CAF 

I I i.5 

(NUMBER FRCM LEFT (0 RIGHT*) 

243: 

REF 

i 


Cl, 2517 

54 131 

llw 



T S 

SWBIT 

w’ 

) 

24S1 

REF 

3o 

last ic93 

c 1,252' 

3 47t»2 

1 / 



CAF 

BIT 7 

% 

LEAVE THE SWITCH NUMBER iN SWWORD. 

2432 




: 1,2521 


i 



EXTEND 



T433~ 

"■RTF' 

3o 

TATTTTTT 

C 1, 2522' 

' "Tnmr 

"1 



TIP 

PGLl xH 


2434 

KEF 

i 


.1,2523 

54 13) 

1 



TS 

Wifli 0 Ru 

- 

243B 




If 2524 

u 00 U 4 

c 



INHINT 


CURING SWITCH CHANGE SO kUPT CAN USE TOU 

24 J 6 

REF 

314 

last 1197 

Gi,2a*i5 

5^' OOtj 

1 



1NL.EX 

A 

LEAVE THE SWITCH hCKD ITSELF IN L* 

2407 

REF 

26 

LAST 852 

s/ 1 f 2526 

3 CG74 

1 



6 lA 

STAI l 



~RFF' 

246 

TAST l.TG-F 

7r,“2bZT 




rs ' 

c 

G WILL bt* USED AS A CHANi'JELa 
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cR 








USER'S PAue no. 91 

E3 

S3 

2439 

REF 

26 

LAST 

1034 

cif 253* 

3 4756 

1 


CAP 

blTil 




244 





ij 1,2531 

C UL J6 

1 


c XTENO 


DISPATCH SMITCH 31T OPERATION 

AS 

IN BITS 

2441 

REP 

37 

LAST 

119 7 

01,2332 

7 '.il7 

1 


HP 

POLISH 

7-a UP POLISH, 



2442 

REF 

1 



01,2533 

7 3024 

u 


MAjK 

b3 T U84 

GETS 4X2^T" CJDE. 



2443 

REF 

315 

LAST 

1197 

01,2534 

i> 0 OCO 

1 


INDEX 

A 




2444 





• 1,2535 

1 2536 

1 


rcF 

+ 1 




2445 

REF 

2 

LAST 

119 7 

61, 2536 

3~0i3i 

1 

+1 

CA 

Syi^ai I 

Ow - SET SNITCH IN QUESTION^ 



2446 





C i, 253 7 

D COO 6 

1 


EXTEND 





2447 

REF 

i 



Gl,254b 

u4 302 

1 


kUR 

tCHAN 




2446 

REF 

1 

— - 

^ 

01,2541 

i 2533 

1 


rcF 

1 LlKt: 

. 



2449 


T 

LAST 

1198 

. 1,2542 

3 ClJl 

1 

+ 5 

CA 

SMB I T 

Ui - INVERT SWITCH. 



245 C 





-1,2543 

0 OOO 0 

1 


EXTEND 





2451 

REF 

2 

LAST 

1198 

a, 2544 

66 662 

r 


RXUR 

LCHAN 




2452 

RTF 

2 

LAST 

llTg 

■ 1,2543 

TT55t7 

1 


TCF 

S ml S 1 OR E 




2453 

REF 

4 

LAST 

1198 

V 1,2346 

4 Ci3i 

L 

+ 90 

c ^ 

SrtSl r 

1C - CLEAR. 



2454 

REF 

24/ 

LAST 

1197 

Jl,2547 

7 ooaz 

1 


MASK 

u 




2455 

REF 

2 

LAST 

1197 

01,255l 

50 13*J 

u 

S W^TO 

Kc INDEX 

SMMORU 




2456 

kEF 

26 

LAST 

1197 

0 1, 255 1 

54 074 

0 


1 ^ 

STATc 

NEW SWITCH WORD. 




P A(j L X 
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£K 







USER'S PACE NO, 92 

t 3 s ; 

24 S 7 





if 2552 

0 s. V j 3 

i 

+ 136 

KEHN7 

11 - NOOP., 


24Srt 

REF 

3 7 

LAST 

1 10 2 

I f Z S3 3 

3 4 754 

0 


CAF BETii 



2459 

> » y- 





V. 1,2 554 

0 0C06 

1 


EXT END 

DISPATCH SEQUCfc CHANCING 

OR BRANCHING 

2^6 

REF 

38 

LA6I 1198 

.-1,255 5 { 0117 1 


M P PTlt 1 

cmjE, 


2461 

REF 

2 

LAST 

1198 

X t ^ 3 3 6 

7 3 >24 

r 

r*r 


MASK 831084 



2462 

kef 

316 

LAST 

1198 

.1,2557 

5 V w j* 

1 


IMOEX A 

— - — ___ 


2463 




- 

'j If 2561 

1 25oi 

/ , 

J 


TCF +1 

OKJGINALLY stored in BITS 

5-6 

2464 

KEF 

248 

LAST 

1198 

01,2561 

4 0002 

1 

+ 1 


Co - BRANCH IF ON, 


7^65 

KfF 

5 

L AS T 


0 1 f 2362 

7 0l3F 

0 

lEST 

i^ASK 



2466 

REF 

31 7 

LAST 

1199 

o X f 2^ 3 o 3 

lU 00 U 

J 


CCS « 



2467 

REF 

1 



01,^56^ 

1 2574 

1 


TCF SwjKIP 



2468 

REF 

1 



1,2565 

1 6664 

1 

+ 5 

TCF 3rt3K7'iNCH 

Cl - GO TO, 

— 

2469 

KEF 

2 

LAST 

1199 

6 1 f 2 5 6 6 

1 25 74 

1 


TCP SwSKXP 

HERE ONLY ON BIT 15c 


247' 

— - 



- — 

t.i,25u7 

12 57u 

V/ 


.IQUP 

CANNOT GET HERE 

- 

2471 





1 f ^ 5 T 0 

12 571 

1 


NUGP . 

cannot bET HERE 


2472 

REF 

249 

LAST 

1199 

V. i , 2571 

3 ..sjja 

-J 

+9D 

CA "iS'"' 

10 - BRANCH ^IF OFF, " 



2473 

REF 

1 



.1,2572 

i 2562 

1 

.^j 


TCF TESI 



2474 





j 1, .1573 

12 5 74 

1 

+ ilD 

MOuP 

CANNOT &FT HERE 


2475 

RhF 

Ao 

LAST 

1131 

- 1,2574 

24 164 

1 

SWSKIP 

INCR LUC 



2477 

KEF 

62 

LAST 

1 1 V6 

'V 1 ,25 7 5 

i 6'3. 

07 

+ 130 

TCF CAiSZiC 

11 - NOOP, 


2478 

K £F 

1 



1 f 3v- 24 



£31084 

EUUALJS CUkEINw 



2479 

REF 

1 



>1,2513 



S rt/ 

lwUALB 3W1 1 CUES 
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FlXto-FIXcJ CCNbTAKT POOL 


UijbR* S PAGt NU* 


S3 




KEF 


4 LAST li,4 


4 ?47 


S El LOG FFTJlGl 
3ANK 


v.v, 13 kEF 1 CUUNT* $4/FGUNS 

R M 16 THE FOLLOWING TAtiLt OF id VALUtS IS INOEXtOo 00 NOT INSERT OR RfcHlOVE ANY gUANTITIES 




If 

V 


^ t 


ro 


‘ CC..3 


- - -- 

4747 

475C 

37777 1 
37777 1 

DPUSMAX 

POSMAX 

□CT 

OCT 

3 77 7 7 

3 77 7 7 

000 4 

REF 

a LAST 1187 

4751 


LIMITS 


NEGi/2 

vUi 7 




4751 

57777 1 

NEGl/2 

□CT 

-20C RG 

A (;>■ ' 8 








Ri;oCF 


dlT TA3Lt 






f:. 



4752 

40Uui; 1. 

BIT 15 

□ CT 

4000 C 

Ltll 



4753 

2 C* V/ ' J u j 

eiT14 

□CT 

20003 

Oi 12 



‘♦754 

lOUOU C 

BIT 13 

□ CT 

lOvlU £/ 

t( 13 



^♦755 

04030 1 

61T12 

□ CT 

e 4 j jD 

CC14 



%756 

v20j\j 0 

eiTil 

□ CT 

'JUv> 

Ce 1 3 



475 7 

Cl Du 6 Q 

BITib 

□ CT 

1 - , 

Colo 



476ir” 

CC4:j(> .7l- ■ 

iTITg 

U'CT 


■X'17 



4761 

OOZUv 0 

aiT8 

□C T 

• ' 2 w c 

■- 018 



4762 

00106 '3 

8117 

□Cl 

^ w i 

■ 1 19 



^76 3 

00040 0 

EIT6 

□ Cf 

-3o4 . 

“ CC24 



4 764 

ootfau 0 

BITS 

□CT 

V. . 

C( 21 



4765 

Ut 'iO- 0 

E1T4 

UCT 

i , 

^‘22 



4766 

06 u 34 S 

"Tm ^ 

UCT 

000 3 4 

' e23 



4767 

0CD-;2 V, 

B1T2 

□CT 

C0032 

24 



477 - 

w \j V* 1 — ' 

Bin 

□ CT 

t Vj 1 ' 

81025 

LC 

NOT DEaThOY THIS 

COMBINATION, SINCE 

IT IS USED IN OJUtiLE PRt( 

C(-27 



-^77 1 

^77T7u 

NEGv- 

□Cl 

— 

•.L'2:- 



4772 

1 

2ER0 

OCT 


All 2^’ 





ai ri 

□ CT 

1 .'■v, 1 

A003<. 





NO* WuS 

□ CT 

2 

A ;l 3 1 





CCTAL3 

OCT 

3 

ACt 32 





R301 

□CT 


i..C33 



4773“ 

It'’ '.1 b 1 

F IVE 

□ Cl 

5 

AuC34 





REVCNT 

uc 1 

6 

’„i.35 



4774 

30i’U 7 C 

S E V £ N 

□ CT 

7 

A i - 1 3 6 





d i T’^ 

□ CT 

.1 

AEC37 





R2ul 

UCT 

11 

EC 375 

R t F 

6 LAST 382 

4322 


CCTli 


H2Ui 

A ' 1-38 





eInCon 

UWC 

1 

v039 



4775 

Gl'UiS G 

ELEVEN 

DEC 

11 

A'-. '.'4 





QCTi4 

□ OT 

14 

i‘. 4'; 1 



4776 

L ‘ J 15 l-r' 

LCT 15 

uC f 

15 

Al . 41 





KlUi 

□C 1 

Itj 


MUiT PRECEDE POSMAX 


USED BY SIN ROUTINE (MUST dE TWO 
LOCATIONS IN FRONT OF BIT 141 


INSTRUCTIONS* 

~ITDST "PR'EC E DE" ZERO 


MUST FOLLOW NEG 

In 1 tkPKETER 
INTERPRETER 
PINbALL 


interpreter 


PINBALL 
P2 5 
1 >'I 


(OCTAT 12J 


ALARM ANU ABORT (FILLER) 


PINBALL 


J 


^ ASS i:Mti L£ k EVl SICN ,72 Cf AoC FtXOGKAM AriT hHI S BY i4ASa Z ZIL 


1 FIXEC-FIXEO CONSTANT 

POOL 


- 


- 4 3 

4 77 7 

L:.. 717 1 

LQy^4 
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' ji 
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\ 2S6 

REF 

113 
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1217 

.. 1 , 3 ; 7 6 

54 131 
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bUF +i 






C2d7 

REF 
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LAST 

1217 

imX t SJ 7 T 

5o ioY 

1 
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FRl JRI T Y 






L2sa 

REF 

7 

LAST 

1217 

L 1 , 3iC ( 
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HASK 
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t 

•. 23 31 

REF 

X 6o 

LAST 

1213 

W 1 t J 1 •' J 1 

54 V 1 

1 


IS 
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23 82 

REF 

2 
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12 j a 

^ Xf 3 iu 2 
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REF 
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1218 
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1361 
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J 
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4 .2 1 
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TIFT 

■RFFe 
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1 
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23 
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1 
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RcF 

3 
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o 


TC 
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TCP 

41 






(•278 

KEF 

26 

LAST 
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EJl 
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a 
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Lj 
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C2b8 

P t F 

1 
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33'3..1 
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OXCH 

LuNGCADK 

■ 

REF 

4 
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64 E 

91,3143 

J 5214 

L 


Tc. 

SUPOXChZ 






01,3144 

1 3146 

0 


TCF 

+ 2 

Z 9 1 

H tF 

1 

c. 

LAST 

19o 

01 ,31^-3 

1 3171 

1 


iCF 

uUMK Y JOB 

t-Z9Z 

BEF 

113 

LAST 

1219 

01,3146 

1 L 1 i L' 

1 


CCb 

S’JF 






'J i , 3X47 

i 3i 3 i 

I 

V- 


rcF 

+ 2 

; 2Y4 

KEF 

2 

LAST 

1213 

u 1,3150 

i 2735 

l) 


TCF 

Ei'tOPRLHG 

C29i> 

BEF 

3Z1 

LAST 

1218 

j 1 , 3 13 1 


1 


I ND E X 

3 

C296 





01,3152 

2*7777 



CAF 

-i 

' 2S7 

BEF 

1 



V 1,3153 

6 312 3 

1 


AO 
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CTOB' 

TTEF" 

”TT~ 

LAST 

1215 

J 1 1 5154 
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1 


1 b 

NEW JUB 
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4 
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1213 

‘^1,3155 
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REF 
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-J 
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To 
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A lJ 
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J 
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. 
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0 

CUMHYJUd 
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TS 
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RELIKT 
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1 
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REF 

2 

LAST 
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REF 
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J 
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KEF 

15 
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1215 
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aK 1 Tc 
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IS 
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L WAITLIST 


USER'S PAGE NU, 1 l S 3 


Kvi 1 PROGRAM CLSCklPTION 

R'wt! 3 f'CU NO - 2 

K !'.S MOD BY - MILLER IDTMAV INCKlASEO TU 162.3 SEC) 

R^r 72 HCD 3 BY KERN AN I IWiNt 'TRSEKl tU" AT^WAITL I3TT Z/ZE/6B"SKrFPtR"TTrV 4 


UATtr - 1' OCTUaER 19tj6 
LOG SEoT tOl^ - WAl lLiST 

ASSEMBLY SUNBUKST I EV 5 


R'.t . 73 HCD 487 KERNAN UWIDCLE ii'i B4J 3/2d/6u SKIPPER KcV 13o 
RCl ^799 


RCu a FLNCTIUNAL DE SCRIPT I CN- 

TaK r~OF' A" Sb CTIIJR^CI- PRUGR ANSV -WATTUI sTV TA'SKIj T3k'UPT VUS EO nr'CALL' ^'TITOGRAHi^rCALt ED A I ASK 

Kvill WHICH IS TU BEblN IN LIA) CENT ISLCONDS. WAITLIST BPDaUS Ti ME3 , LbTl AND LSIZ. TiJt MEANING OF THCSt L ISTb 

Rv' 13 FCLLCwa 

R' t l4 C(T1ME3Y = 16384 -t U-TrCENTlSeCONUS, tl^PRESENT I IHc, T1“TIME FOR TASKlV 

R jC'16 


K CD 1 7 
ROC 1 8 

Rrci9 

RfCZt 

R^ ^.21 

~^~l<rV22 

RcC23 


CiLSTlJ = -tT2-Tll+i 
CILSTi +iJ = -(T3-T2>+1 
CILSTl +2) = -lT4-T3l + i. 


CTOT r “TFI-^-TTS^TT} +T 
CtLSTl +7J = -(T9-T8I+1 


RC( 24 CILST2I = 2CADR OF TASKl 

RCL25 CTLST2 +2) = 2CAQR OF TASK2 

RC-; 26 

~irCJ2T r 

ROC26 C(LST2 +141= 2CADR CF I ASKo 

RCC2 ® ^ " C(lST 2 +161= 2CA0K OF lASKO 


‘ROC3 WARNINGS- 
RCC-31 

•RTCT^ Z ^ ~ ~Cl ) 1 C= XTAr <= I625CU (1 CENTTSECOTEr-nTTS-Z:-!?" 3ECrj 

KDC33 2J 9 TASKS MAXIMUM 

RTC34 3) TASKS CALLED UNDER IMERRdPT INHIBITED 

R» -:35 4J TASKS END BY TG TASKOVER 


R.v36 CALLING SEQUENCE 


R - C 3 7 

L-1 

CA 

ftCi 3 9 

L 

TC 

RG04 e 

L+1 

w M 

RCC41 

L+2 

(MI 

KCf 42 

L+i 

REL 

R. 421 TWICDLL- 



PvCCaZZ 



RC:423 

TWIDDLE 13 

RC i 425 

SUCH 

CASES 


DEL TAT ITIME IN f. 
WAITLIST 
UESIkEO t as k 
OF 2CAUR) 

I RET URNS 


i, l 


UoECONDS TO Task START) 


HbKt:) 


OR USE WHEN THE TASK BEING S 
IT improves UPON WAITLISI 


ET UR lo IN THE same EUANK ANC Ft5ANK AS THc USFi IN 

IHE need for the fiSCGN HALF OF THE 2CADR, 


6Y ELIMINATING 


li:4> FEtJc 
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u >i>’ ; A^S fc M h LI 2EV1 31 ON 72 CF A oC . PRQ3t <AM A 81^6 MIS BY tsiA S A_ _2 :_2. 1 114^ ^ 11. 

L WAIILISI 


USER'S PAGE NtJo 2 



lii 7 


SAVING A hCRD* JWIQDLE IS LIKE WAITLIST IN EVcKY RESPECT EXCEPT CALLING SEQUENCE, TO WIT- 


KJ.mj4 3 _ L~ 1 

KL( A i 1 L 

RCE432 L+1 

H Ct 4 3 3 L +2 


CA DELTA! 

T C T W IDOL t 

AORES DESlficD TASK 

RELliTT UcTUKMS HLKc) 


Rvi43S NCRPAL LAlT MODES- 

k UA 4 ~ AT L + 3 CF CALLINb SE JUENCE 


Kf-T4S ALAhH UR AGORT EXIT PQDEo- 


R4-t46 TC ABORT 

RCt47 UCT 1203 (WAITLIST QVcRFLUW - JUO MANY TASKS I 


RCi**! tKASABLE INIT IAL12ATICN REwUIRED- 

Rt.P4‘> ACCUMPLISH60 BY FRESH START , — LST2 o . , LST2 +io =EiMDTASK 

RCt S LStl,«.^, LSri +7 -NEGl/2 


Kv. Si OUTPUT — 


ROl 52 LSTl AND LST2 UPDATED klTH NEW TASK AND ASSOCIATED TIME.. 

RiC'53 DEBRIS- 


ROT 54 centrals- A#W»L 

RC*. 55 OTHER - WAITEXiT, WAIIADK, WAlTTcMP, WAl TBArK 

Kv.1 56 CtTAILED ANALYSIS UF TiMlNG- 


RCl57 CjNTRCL WILL NUT BE RETURNED TG THE SPECIFIED ADDRESS (2CADRJ _ IN EXACTLY DELTA T CENT ISECONDS. 

RCC59 THE APPROXIMATE T IME HAY BE CALCULATED AS FOLLOWS ' 


RCCol 
RU62 
RCt 63 
RCl 64 
R Ct. 66 
R 6067 
Ri C6B 
R 6 i 6 9 
R6( 71 


LET TO = THE TIME OF THE TC WAITLIST 

LET TS = TO -HATU + COUNTER INCREMENTS IScT UP liHE) 

LET X = TS -t luUTS J/lOv (VARIANCE FROM CUUNTcRS) 

LET Y = LENGTH OF TIME OF INHIBIT INTERRUPT AFTER iiKUPT 

LET Z = LENGTH OF TIME TO PROCESS TASKS WHICH ARE Duc THIS rSKJPT BUT DISPATCHED EARLIER^ 

11= f USUALLY) 

LET DELTO = THE ACTUAL TIME TAKEN TG GIVE CL,^TROL TU‘2CAai< 

1 HEN UtLTU = IS+OELTA 1 —X +Y +Z ♦'CCUNitKS^’ 

=^-THc TIME TAKEN BY WAITLIST ITSELF AND THE CCUNTEK 1 lOKlNG UUKING IHIS WAITLIST TIMEc 


RCt72 
RCL 74 
ROD 76 


IN SHORT, THE ACTUAL TIME TO RETURN CONTROL 
1 N rCRROPT^ All CGCNTErt^ T I Cia N^ , the TBROP f PROCc 
CF OTHER TASKS INHIBITING THE INTERRUPT* 


Ju A 2CAUK IS AUGMENT Eu BY THE TIME TO SET UP THE TASKi^ 

G s 1 Nirri Tt7 THE'i»mo^T^iJcrs~sTN:^^ the "pidtste j lity 


40 1 
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l» A I TL I ST 


USER'S PAGE NU 


£r^ SS 


77 4 


yizi 


BANK 


; 7G 

KEF 

13 
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E 3 1 14 1 ■ 


E 8 ANK^ 

LSTi 

t ; 

REF 

1 
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ii/wAI ! 

1 7 S' 1 

REF 

137 
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12 lo 

d 222 

3 477 i 

TWIDBITI CAF 

CNt 

:< 7S5 





5223 

D 0C04 

TWIDDLE INHINT 



REF 

172 

LAST 

12ZC' 

3224 

^4' CGI 1 

TS 

L 

vG 6 1 

H£F 

34 

LAST 

1185 

5225 

3 47 5‘- 1 

CA 

PUSHAX 

— Ecinr ' 

REF 

Ti5T~ 

'TTTST' 

~iZTT 

3ZZi 

Z 6 OvJZ 1 

A 05^ 

C 

- 1 fi 3 

REF 

23 
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5227 
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CA 

a Di\ N K 

r.i 8 32 
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3 G 0 u 6 1 
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REF 

16 
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122 ) 

5231 

04 J\i7 L 

RQR 
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REF 
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LAST 
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L L u - o 1 

EXTEND 
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261 
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rs 
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5241“ 
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fr,39 
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5243 

54 ]^g3 C 
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WAIT ADR 

C 0 ') 1 
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2 

LAST 

14u 

->244 
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WA I T 30 
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24 
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1223 

5245 

56 006 1 

XCH 
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k EF 

6 
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L 
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1 
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1 
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1 

TS 

L 
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1 
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113 
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4 
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1 

TS 
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1 
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« 
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"T 
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77u3 


T3 

NQY ACAOK 


MASK 
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BANK 
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NUV AC 
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BANK 
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134 

RtF 
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V. 
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CRDERS SET CIA} - fJ - Tl + 1 IN 

TEsrTi’o rF" posiTivr ; 

CCCURRED PRIOR TO CS TIME3 AND THAT 
- (Tl ■- Tic THE FOLLOWING FOUR 
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Au 
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8 

9 

3 
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LAST 
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1226 
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.1,3233 
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1 

1 
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1 

,3 

AD 

AD 
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AD 
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TO IS N-xr, FORM QUANTITY 
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RcF 
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1226 

• 1 , 3234 
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W 


- 
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U 
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ly 
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0 
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WCF 
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5/ * 4'Ji3 

1 
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21 
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.1,3243 

57*404 

0 

XCH 
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■ 16S 
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22 

LAsT 
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57*4 jS 

1 
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23 

LAST 

1227 
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57* 4 J6 

1 
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LSTI + b 
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24 
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1227 
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3 
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1 

CA 
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1 

1 

mr 
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1 3252 

• 

S ' 
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19 
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0 
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2v 
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1 

JXCH 
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RtF 
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1227 

01,3254 

53^ 41 5 

1 

' U XCH 
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.174 

KEF 

22 

last 

1227 
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J 

DXCH 

LST2 +o 

CITS 
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23 
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1227 

01,3256 

53*421 


OXCH 

LST 2 +db 
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REF 

24 

LAST 

122 7 

01,3257 
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1 

U XCH 

L.iI2 +1 o 
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KEF 

25 

LAST 

1227 
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53*425 

1 

DXCH 

L ST 2 +1 20 

■ 178 
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26 

LAST 

1227 

01,3261 
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4, 

uXCH 

LST2 +14D 
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27 

L’AST 

'TZTT 
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1. S 1 id + 1 6 0 

Tier 
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3 
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. l,32o3 
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*L. 

AD 

EHUi AoK 
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1 
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J 

Mr 
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2j 
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0 

0 

U 
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AD 
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+4 
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KEF 
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0 


AO 
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1 


TC 
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u 
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lu 


+4 
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A 
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TC 
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2o 
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J 


AD 
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J 
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1 
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v' i f 33 .#’ 
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0 


AD 
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cT^5 

REF 

2 
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i 


TC 
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Q 
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2 
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+4 
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A 
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TD 

- T 4 
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1 


AD 

+3 




'199 
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0 
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0 


AO 
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1 
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1 
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REF 

329 
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A 
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28 
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1228 
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0 


AO 
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Q 
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J 
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1 


TC 
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C2.9 

REF 
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t 
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A 
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TO 
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29 
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1 
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+4 
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1 
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R € 26 3 

C (LSr2+8 

) = 

2CACR 

TASKS 







R<^264 

C(LST2+1 - 

I = 

2CA0k 

7 A SRb 










AP : ASS BL t V '- 7^ CF AbC FRUSR AM A HT£Ml6 BY NASA 2( 21 114- 1 1 

hAI ILIST 


Zot) Si'iTLHS H£KE CN TB KUPT T u DISPATCH WAlTLIi^TED 


* 266 





0 1 f 3 j6Z 

W k-tvO X 

T3RUPT 

EXTEND 


* 2 6 T 

rEF" 

1, ‘J 

la^t 

£2^4 

ul ,3363 

T4“.r/ r 


' 77^ 

i\ 

^tiPLRBiSiK 


PEF 

22 

last 

i< 96 

01,3364 

54 -'16 1 


TS 

EANKRJPI 

• - 26 





v) 1 1 336 5 

i, 1 A, ,jO 1 


EXTtNu 


2 / 

REF 

18 

LAST 

' 96 

^ J i t 3 6 6 

22 U2 i 

. _ . 

UXCH 

WRUPT 

2/1 

REF 

10 

LAST 

12. 3 

vi , 336 7 

3 4751 6 

13RUPT2 

CAP 

K c u i / Z 

■ ‘ 272~ 

RtF 

3 3 

TATT" 

1Z3 V 

■j i. 1 J JTT o 

5 if * H-u / ii 


XLH 

X S i 1 +7 

; 273 

KEF 

34 

LAST 

1231 

vl,3371 

57' 406 1 


Xuri 

LSI! +6 

D274 

REF 

35 

LAST 

1231 

v3 1 1 3 i 7 Z 

57*4^5 1 


XCH 

Lsn +3 

-2 73 

REF 

36 

LAST 

1231 

i.. 1 , 33 Y 3 

57 * 4i/^ J 


XLii 

LSTl +4 

C276 

REF' 

37 

LAST^ 

1231 

Cl, 3374 

57'4wS 1 


aC H 

LSTi +3 

iZll 

KEF 

33 

L AST 

1231 

6 1 f 33 7 5 

57 '402 o 


XLH 

LSTl +tL 

TZTE 

~fTEF" 

39 

■ LAST 1231 

i f J 3 7 6 

^7^40 1 . 


Air H 

L:>T1 +1 

127G 

REF 

46 

LAST 

1231 

ul ,3 377 

37 '4v^ 1 


XCH 

LSTi 

C2ac 

REF 

3!? 

LAST 

1223 

C 1 , 340 •. 

6 475L/ 1 


AD 

PusHAX^ 

c2ei 

REF 

4 

LAST 

1226 

\j i # 3 4 w X 

Z 6 J Z 6 1 


ADS 

T IHt3 

C232 

REF 

2 

LAST 

31 

0 1 , 34 J 2 

55*137 1 


T5 

RUPTA6N ■ 

1283 

REF 

245 

LAST 

12 2 C 

. i,34i. 3 

4 4772 w 


LS 

ZERO 

/ 2 34 

REF 

- 3~ 

last 

123T" 

^ 1 ,34l 4 

' 5 5’ ITT? T 


TS 

1 A6^^[ 

L2d5 



■ - 

— - 

9 i, 34L-5 

O' t ' V o 1 


EXTcNU 


/ 2ato 

REF 

4 

LAST 

1227 

1 1 346 6 

4 5275 u 


U<.rS 

END I ASK 

' C287 

REF 

28 

LAST 

1227 ' 

"U 1,34.-' 7 

53* 4ji 1 


uXCH 

lSTZ +i6D 

C288 

REF 

29 

LAST 

1231 

01, 34iL 

53 '427 b 


DXCH 

LST2 +i4D 

C?BV~ 

REF 

“3t: 

"XSST 

T23T 

; r,34Ti“ 

53' 425 1 


UXCTT 

L S 1 2 +X. Z D 

«'29v 

REF 

31 

LAST 

1231 

31,3412 

33 '423 i 


DXCH 

LST2 +iDD 

C2^1 

REF 

32 

LAST 

1231 

01,3413 

5 3 * 4Z 1 J 


DXCH 

LSTZ 

. c292 

REF 

3 3 

LAST 

1231 

81,3414 

53*417 b 


OXCH 

L:jT2 +6 

i:293 

REF 

34 

LAST 

1231 

-i,34l5 

53'415 1 


DXCH 

LST2 +-4 

v2y4 

REF 

35 

LAST 

1231 

^1, j416 

53'413 1 


DXCH 

L S 1 Z +2 

■ 0295' 

REF‘ 

I'/T" 

rATT 

■ 123 r“ 

“771,3417 

5 3 ■ 4 X i L 


UX'v^H 

L ST ti 

: 296 

REF 

175 

LAST 

1224 

1 , 3 42 V 

56 ,'..1 t 


XCH 

L 

r297 





U , 342 1 

U 0 , . 6 1 


tX f ENU 


‘ ' : 2 5 

REF 

19 

LAST 

1231 

01, 3422 

01 LC7 1 


WRITE 

SUP CRB NK 

<.299 

REF 

176 

LAST 

1231 

.1,3423 

p 6 3 J i *. 


XCH 

L 

1 3v. 





■Trr,3424" 

52 . J 6 


uTCj 
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USER'S PAGE NOa 11 E3 33 


■fti A' D c uPircm^w ^ A B AN K "VTSOJT nm 

SAVE KIIH E AND F BANK VALUES^ 


DISPATCH WAITLIST TASK- 


1, KOVfc UP LSTl CClNTENfS, ENTERING 
A VALUE OF 172 +1 AT THE BOTTOM 
FUR T6-T5, CORKESPONOING TO THE 
1 7 >i I h R V A L B 1 , ' ^ ' T ’ SE C" F TR 'E m? ! ffS KT " 

2^ SET T3 - 1, '- T2 -T USlNw LIST 1 

SO T3 WONT TICK DURING UPDATE. 


ISETS^IIFTAGN TJ +1 UN"a7F7a=im'I 

DISPATCH TASK., 


SET SUPERBANK FROM BBCON OF 2CA0R, 
RESTORE TU D FOR UXCH Z- 


oAf ■ AbSeMBLfc REVISICN 7 2 Cf AiiC PROGRAM AkTEMIS BY NASA 2- 11:4' t-c&o 26,1971 Z£US ,^46 PAGE 1232 


L 

WAITHSI 

■ - 

- - 



- 

- 


USER' S PAG - NUo 12 

E3 S3 

Ft, 3' 1 

• 

- 

RETURN# AFTER EXECUTION UF T3 

OVERFLOW 

TAiK: 


. _ _ __ _ ____ __ 


'.3 ’2 

REF 

2 

LA3T 

1222 

40o( 



ScTLCC 

h A I T FZ 



‘3. 25 





5j14 



BANK 




wi 3 

REF 

2 

LAST 

1223 TO 

122 5 ; 

56 5b* 

. . - - - 

COUNT* 

it/wAi r 

-- - . . - _ 

- - - - ----- - - . - - - _ 

13 4 

REF 

4 

LAST 

1231 

5314 

11* 137 1 

TASKOVEK 

w 0 3 

R'JRTAGN 

IF +1 RETURN TO T3RUPT, 

IF -L RESUME* 1 

< 3 >5 

REF 

3 

LAST 

1223 

3315 

3 5234 1 


CAP 

WAIT do 



A 3l6 

REF 

26 

LAST 

1224 

5316 

54 Oi.6 C 


TS 

&6ANK 



<'3i'.t 

■reT 

1 



5317 

1 "3367 1 


TCF 

“TSRuRTZ'' 

i:TrP/nxFr~f:EifT TA3K"ir ir 

"WAS"' DUE . 

{328 

REF 

2i 

LAST 

1231 

d32C 

3 Cdi6 0 

SUPERrSM 

iji M 

BANKRUPT 

— - - ^ ^ 

- — - - ' _ - - _ 

t 3 <2 9 





d321 

0 C U o 6 1 


EXTEND 




i3i0 

REF 

2.,: 

LAST 

1231 

5322 

U 1 C'ty 7 1 


WR 1 TE 

SUPLR6NK 

RESTDRE SUPERBANK BEFCRE 

RESUME IS done " 

^ 311 





5323 

U Utiw6 1 

RESUME 

EXT END 




2312 

REF 

1? 

LAST 

1231 

3324 

22 U12 1 


UXCri 

wRUPT 



s. 313 

REF 

24 

LAST 

1232 

5325 

3 COio U 

NOiRSM 

CA 

6A»^I K \UP T 



-314 

REF 

27 

LAST 

1232 

5320 

56 w 16 1 

+ 1 

XCH 

dBANK 



t315 

REF 

1 i 

LAST 

139 

5327 

'52 Ui t 

NU08RSM 

OXi-H 

ARUPT 



C3155 





533t 

U «.-C J 3 1 


RELINT 




i 316 





5331 

5 Lli7 1 


RESUME 
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L wAllUST USER'S PAGE NU. 13 t3 Sj 

P'317 LCNGCAlL 


F. 31b PHCGKAM CtSCR IPT iUN 

Kr319 PRGGRAM '^RTTT EN "FT "W.TH. VAKUFSFTT 


DATE- 17 MARCH 1967 
T TD7r'¥7n‘TLTST' 


K 32' MOD GY- R, MELANSON TU ADD DOCUMENT ATi ON 


ASSEMBLY SUNuTSK. kEV«, 1 . ' 


Rv 321 

Rr 322 

Rt 324 
Ri 32 b 


FUNCTIONAL DESCRIPTILN- 

LGNGCALL IS CALLED WITH THE DELTA TIME ARRIVING I.* A,L SCALED AS TlME2,TrMEl WITH THE 2CA0R DF THE TASK 
IMMEDIATELY FOLLOWING THE TC LUNGCALL, FOR EXAMPLE, IT MuHT BE DONE AS FOLLOWS WHERE TIMELOC IS THE NAME OF 
A" DP~1TEGlJTER"TaT4TA'IMNTr A -OELTA I IHE AND ■WHERE T ASKIUDu' 'TS~“rHE NAME’ UF JHE~ LUCA II UN A I WH 1 LH"TDNGCALL IS lU 
START 


Rt329 CALLING SEQUENCE- 

Ar33, 

A .331 


A 333 


EXTEND 

DCA TIMELOC 
TCr~ LCINGCAXX 

2CADR TASKIUDC 


R 334 
R C335 
K*'336 

irr33T 


NCRRAL EXIT MCDE- 

li. TC WAITLIST 

2i. DTCB ITC L+3 OF CALLING ROUTINE 
3TT CTCB mr T ASKOVHR' aN'‘Sa0rSFaacNT 


IbT PASS THRU 


LO K Y CL i 


Kt 336 
K C j 3 9 


ALARM CR ABORT EXIT RODE- 
NONE 


34* 
R E341 

Rf 342 
R.343 
R 344 


OLTPU1- 

— ujm TTSM t'~3rNir TutTGii ME+r~= 

LONGEKIT AND LUNGEXIT+1 = 
LONGCAJK and LQNGCACR+l = 
A = SINGLE PRECISION TIME 


FFCT A TTM'E — 
RETURN 2CAUB 
TASK 2CADR 
FUR WAITLIST 


Kv.34S 

KT346 


Rr348 


ERASaELE INII lALIZATlON- 

“'A”=~PXS r STGTTrFlCANT PART OF ’IJELTjr-TIRX" 
L = LEAST SIGNIFICANT PART OF DcLTA TIME 
G = ADDRESS OF 2CADR TASK VhLUE 


R ’ 349 
K 1 3 S 

imsT' 

Ri352 
■RE 353 


DEBRIS- 

A I 0 1 L 

XCKGCADiT 
LONGEXIT 
LONGTIME 


TO^rrOTiFCAURTT 
AND LCNGEXIT+1 
AND LONGTIME+1 


RC354 *** TFE FuLLOWiNG IS TO jE IN FIXED-FIXED aND UN SWITCHED bRRASl BLE 


13545 
. 355 


REF 


LAST 1232 


■AE t, I 

5332 


SETLGC WAiTF2 
BANK 


3555 REF 3 LAST ii32 TU 
356 REF 41 LAST 1231 


1233; 
E3, 14 


14 


72^ 


GUUNT^i' it/WAIT 
EBANK= LSTi 


O M 


tp : 
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WAITL i^T 






— - - 


USER'S PAGE NUo 14 £7 S3 

J 7 

REF i 



^332 

S3 * 3u 5 

1 

LGNGCALL OXCH 

LUiJ o T 1 ri E 

OBTAIN THE DELIA TINE _ 

1 3 5 B 




5J3 J 

0 bQ'jii 

I 

EaT end 


OBTAIN THE 2CADk 

359 

REF 273 

LAST 

12J-J 

5334 

5 C052 

C 

NQX 

w 

, — 

w 3 6 V 




5335 

3 L4J .i 1 

*1-' 

DC A 



v361 

REF 2 

LAST 

1215 

5336 

S 3 • 3 a 1 


DXLH 

L GM a C A u R 


3u2 
; 363 

KEF 1 



5337 

534i 

Q i,<L J6 

3 5343 

i 

L 

EX 1 E ND 
JCA 

LGCL2LOR 

! 

NOW GO TO THE APPROPRIATE SWITCHED BANK' ' * 

FOR THE REST OF LDNGCALL 

. 364 




5341 

52 OU6 


UTC3 




^ 365 

REF 

42 

LAST 

1233 

G 3 f J. 4 o * ^ 




6BA.\K= 

LSTl 

C366 

RcF 

1 



5342 

•53425 

I 

LGCL2Cui< 

2CA0R 

LNGCALL2 

V-366 

REF 

1 



5343 

02063 

G 




R 367 


THc 

FOLLOWING MAY 

' BE IN A 

SWITCHED 

BANK, INCLUDING 

ITS ERASABLE 

368 

KEF 

J 

L AJiT 

1226 





SeTLCC 

EX EC 31 * 

36 C 5 

- - 

— 


- 

: If 3425 



- 

BANK 


r36S 

REF 

2 

LAS T 

122o TO 

1232: 

13B 138* 


COUNT* 

li/wAIT 

'3 7; 

KEF 

1 



51,3425 

23*435 

1 

LNGCALL2 

LACH 

LGNGEXIT +1 

.371 

REF 

o 1 

LAST 

1223 

V 1 f ->4Z6 

3 4767 



La 

1 W'J 

.372 

REF 

274 

LAST 

1234 

1 , 3427 

26 j j2 

1 


MUS 


37 3 

REF 

2 

LAST 

1234 

'-'if 34^*. 

55*434 

1 


TS 

L Ci'Jij t XI T 

3731 

REF 

2 

LAST 

1234 

.. 1 , 34.5 1 

il'3<j4 


L GCLNGT M 

CC 3 

LONGTIME 

3732 

REF 

i 



.1,3432 

1 3440 

0 


rcF 

LQNoCY C L 

3733 





-1,3433 

1 3435 

1 


TCF 


c. 3 / 3 A 

“REF 

3 

LAST 

1223 

01,3434 

1 524 7 

1 


TlF 

WaTL^T -- 

■ 3735 

REF 

3 

last 

1234 

€1,3433 

3 13L5 

D 


CA 

longtime *•! 

3736 





: 1,3436 

0 00 i- u 

1 


EXTEND 


' 3737 

REF 

4 

LAST 

1234 

1,343 7 

5 5247 



tiZMF 

A r L ST ” 


SAVL THE CORRECT BB FOR kHTURN 
OBTAIN THE RETURN ADDRESS 


TEST FOR NEC. TIME 

Hl-UROEH PCS.^,»aK 

ZEROo..TE5T Lu-ORDER 

NEG.,»PODDUi 

ZERO, o TEST LO-ORDER 

LQ-ORUER ZEKO/NEGa .^aPOODUO 


H. 374 
375 
.376 
■ 377 

BEF 

REF 

1 

4 

*** WAITLIST TA;,K LQNGCYCL 

. 1 , 344;' D . i,. - 6 

-1,3441 4 3452 

LT^ST 1234 : 1,3442 21 '3 5 

*** 

1 LONGCYCL 

G 

1 

c A r END 

JC3 DPBiri4 

OAS LONGTIME 

CAN WE SuCCESFULLY TAKc ABOUT lo25 
MINUTES OFF OF LONGTIME 

l3 7S 

REF 

5 

LAST 

1234 

*1, j443 

11*3. 5 

1 

CCS 

LCNollME +1 

THE REASUNIBG BEHIND THIS PART IS 

379 

K c F 

1 



u Ir J444 

i 34 o2 

L 

w 

TCF 

^^UCH 1 i t 

INVGLVEL, T.4KiNG INTO ACCOUNT THAT THE 

A 3 










WORDS MAY NCT BE SIGNED CORRECT tD ( Jp 

A - 331 










BASIC INSTRUCTIONS 

A V 3b 2 










DU NUT SIGN CQRRcCT 1 AND THAI WE SUBTRAC 

a; 383 










TED BIT 14 11 OVER HALF THE POS^ VALUE 

Ac 3 14 










■' ITHJTn^lSTNTTEirE’inV ■'S'rNG L f: WORDl 

. 335 





.1,3445 

13 44b 

J 

NUUP 


CAN:T get here 

l366 





1,3446 

i -^447 

1 

TCF 

+1 

— 

.387 

REF 

6 

last 

1234 

1,3447 

11* 3^.4 

tj 

G L,# 0 

Loi>ib 1 i M L 


’338 

hcF 

2 

LAST 

1234 

' 1 , 345 c 

l 34b2 

lT 

roF 

uui < r I Mb 
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L WAITLIST USERVS PAGE NO. 15 E3 S3 


C3SS 





vl f 34!> 1 

L>CCO0 

1 

CP8ITi4 

UCT 

Cu^OO 



C390 





oil 3452 

2 'O w» ^ / 

0 


□ CT 

20000 



A ' 391 











LUNGCALL 


392 

KEF 

3Q 

LAST 

121J4 

Uif 3453 

3 475 j 

1 

LAgTTIME 

UA 

8 1 T 1 4 

GET BACK TFE CORRECT UELTA TFOR WAITLIST 


.393 

REF 

7 

LAST 

1234 

~ 01, 3454 

27*3 >3 

1 


AOS 

LuNGTlMb +1 



395 

KEF 

2 J 

LAST 

It. 88 

61,3455 

0 5223 

1 


TC 

TWi OD lE 



€396 

kEF 

1 



V 1,3456 

' 03142 

l' 


aDKES 

G iiTC AOR 

~ THE ENTRY TO OUR LONG C ADR ' 


t 399 

KEF 

2 

LAST 

385 

vi, j4j7 

3 5313 

w 

LGNGKTRN 

CA 

T SKUVCOR 

SET IT UP SO THAT ONLY THE FIRST EXIT IS 


-'-xwr 

RrF" 

~T" 

LAST" 

TZ34~ 

■G1,'346C 

53 *43 5" 

1) 


TTXCFr 

LiJ^)GtIXI T 

lU IHb CALLER IIF t'UNGfALL 


4:1 





3 1 , 346 1 

52 l;ji6 

0 


oTca 


THE REST ARE TU TASKOVER 


>.4 2 

REF 


LAST 

1235 

0 1 f 3462 

3 4753 

1 

MUCHTIME 

CA 

li 1 t 14 

WE HAVE OVER OUR ABOUT 1^25 MINUTES 


C4 ‘4 

KEF 

27 

i_AST 

I'j 77 

■Ca,3463 

^ 5233 

0 

WTLTCaDK 

TC 

WAiTLlST 

SET UP ANOTHER CYCLE THRlT HERE I-GENADR) 


r4 5 

KtF 

43 

LAST 

1234 

E3 f i46iy 




EbANK= 

LSTl 



^ 4"^ ^ 

■REF” 

— 2” 

(.AST 

TZ34“ 

— vrrT34w 


TT” 


2CA0R 

LONG CYC L 



4v 6 





01 , 3465 

02 c 63 

0 




.. 

— 

C4G8 

REF 

1 



1 , 3466 

1 3457 

0 


rcF 

LONGRIKN 

NOW EXIT PROPERLY 



4 


1 ' 


10 



r — 



« 4 




# • • 


E 


5 




J 





i 


1^^ . 







I 


1 






«a.i>— , <pai 


. .41 


ah : ASMMBLt; ^Ic CF AGC HRauKAM A .< r£MI;> bY NASA 2 2XXA4- ii 

I LATirUDt LONGllUUt SLiiKUUllN£S 

)< V I StBKljOTiNc TO CONVERT RAD VeCTOR AT GIVEN TIME 10 LaI,LUNG AND AL [ 
*■' C AL LI NG SEQUENCE 


h bOj L-1 _ CALL 

R C L LAT-LCNG 

KitaiS SUBROUTINE^ USED 

6 ft-lO-RP ,aRCT AN,SETGAMMAtSETRE 

RlC. 7 ERASAaLt INIT, REwe “ 

HvtbB AXOf-AYUt AZC, TLPHEP I StT AT LAUNCH TIME! 

R^(U9 ALPHAV = POSITION VECTOR HETLRS D-29 
R jCl.; MPAC— TIME (CSECS B-28} ^ 

R'-iCil ERADFLAG =if TO COMPUTE EARTH RADIUSf =0 FOR FIXED tAKTH RADIUS 

lUNAT=LAG=: for earth, 1 FOR 'MOON 

:< T 13 OUT PC T 


K ^ i i ^ 
RCLli 
R ifU 

~~mrB 

0C19 


LATITUDE IN LAT (REVS» b-0 ) 
LGixblTUDE IN LONG tREVSo B-. J 

ALTITUDE IN ALT METERS 13-29 


REF 


i 


13 » 20 CG 
13,2-TS3 


bETLCC LAT LONG 
DANK 


@ 






C'T H'l. 

'R 21 
022 

REF 

REF 

1 

id 

LAST 

911 

E4,i531 
13,245 j 

4022v. 

r‘- 

w 

CoJNT* 

EBANK= 

LAT-LONG STj 

1$/L I-LG 
Alpha V 

S cT ? 0 

^ r23 

REF 

2 

LASt 

542 

15,2454 

02241 

1 


INC GRP EX 

.» 24 





13,2455 

c C Uu 1 

0 


u 

^C25 





13,2456 

240'?7 


s r uVl 

u : j 

H 26 

REF 

1 

LAST 

1236 

13,2457 

02132 

1” 

W-' 


ALPH.'VV 

o<. 27 





13 f 246'k ■ 

514-^6 

1 

PUSH 

A B J A L 

CF 28 

REF 

2 

LAST 

03 

13,2461 

l63 7 i 

1 

:> T DDL 

5 IHHAH 

'.'29 

PEF" 

16 

LAST 12 6 

13, 2462 


1 


TTrOTETT" 

'V C 3 ‘ j 





13, 2463 

71414 

U 

dOFF 

CUo 

CCil 

REF 

Jt ' ' 

LAST 

911 

i jf 2464 

J 1743 



L UN AFLAC 

^^32 

REF 

L 



1 Jf 2463 

26466 

i 


C4LLK TKP 

C 33 





13,2466 

77624 

1 

CALLRTRP CALL 


0L34 

REF 

3^ 

LAST 

617 

13, 2467 

6 ^ J 7 



R-r J-KP 

( {. 3 5 





iJ,24T 

/7666 

~ir~ 

Unit ~ 


vC36 

REF 

2e 

LAST 

1236 

13,2471 

36152 

1 

.aTCALL 

ALPHhV 

COi? 

REF 

i 



13,2472 

3*57 6 u 

f 

u 


Sfc 1 CJ i il '4 t< 

i^C 3 8 





13,2473 

77624 

1 

uA L L 


CL 30 

REF 

3 

LAST 

762 

13,2474 

2b 664 

1 


5 ET H t 

rc4i 





13,2475 

63545 

0 

DLOAD 

DSQ 

1. ‘4 1 

REF 

21 

L AST~ 

T23^ 

r3,^?7^ 

02152 u 


TCPHaV 

01.42 





13,247 7 

o3525 

u 

POOL 

LSw 

tT:43 

RcF 

22 

L AS r 

1256 ■ 

13,25..- . 

L 2154 



ALPhaV + 

L w44 





13,25 1 

7541 .3 

^ ' 

DAO 

SuR I 

it 45 





13, 25o 2 

76455 

1 

DMP 

SLlK 
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SAVE TIME IN 6-70 FOR R-TO-KP 
'-50= K Ff^R-TQ-RP ■ 

Aes« valui^:f k for alt formula beluw 

:SET'l^'PAU^>t.‘^Fm TAFTH, NUN-ZbkU FUK WUUN 
USE CUS( M TO Gtl NON-Zf:RU IN MPAC 
C^EARTHf l=MODN 


HP VECTOR CLNVERTED FROM R B-29 

OFnrTp“B=T: 

U2= 1/2 SINL FOR SlTRE SUBR BELOW 
SET gAMmA=62/A2 FOR EARTH, =1 FOR MOON 
S GAL ED 3— I 

call re METLRS B-2G 




ASbErttLc Kt^^iSIQN \j1Z GF PRUuRAM ARTtMIS HY NASA 2021114-^11 


11:4: FiBo 26,1971 ZEUS 


• r.46 PAGE 1237 


L 

LATITUOt 

LONGITUDE 

StaROUTlNES 

- 


- 

USER'S PAGE NO* 2 

V ' 4 6 

H bF 

1 



iif 25 ;3 

1 


GAMKP 


' : i.m 

REF 

7 

LAST 

892 

13,25 4 

14. 21 1 

STGDL 

COSTh 

COSILAT)-!-! 

r ( 4 b 

REF 

2J 

LAST 

1236 

13, c5 5 

02156 1 


ALPHAV +4 


rL49 

REF 

■ 7 

lAST 

''a?7“ 

T3, 25‘C6 

34‘j23 1 

S T C A t L 

“51 Ni H “ 

‘STNaTiTT’T^r 

i i 

REP 

1 



13,2507 

i£!6o14 ^ 


ARC TAN 


Ct51 

REF 

12 

last 

911 

iJ,251C 

147-^7 0 

STuDL 

LAf 

LAT St 

cr52 

REF 

24 

LAST 

1237 

1 1 1 

02152 0 


ALPHAV 


V C 53 

REF 

8 

LAST 

1237 

f 25 12 

14021 1 

STOOL 

COSTH 

COSiLONGJ B-i 

t.C 54 

ft£F 

2!? 

LAST 

1237 

13,2513 

U2154 it 


ALPHAV +2 


— rr55^ ■' 


w~ 

“iTAsrr 

123 7 

“13 , 25 1 4 

~3^tZZT~l 

^ ICALL 

S 1 Ll T H 

SlNTXTjRGl B”! 

v< 56 

KEF 

1 

LAST 

1237 

13,2515 

2o614 1 


Ak"vCl Ai>a 


':t 5 7 

REF 

10 

LAST 

911 

13,2516 

14751 1 

STGDL 

l.OT>iG 

LONGo REVS B-7 IN RANGE -1/2 

l.t5B 

REF 

3 

LAST 

1236 

13,2517 

02331 1 


ALPHAM 


^C59 



■ ' 


13,252 

77625 0 “ 

DSU 


‘ ALT= R-RE METERS 3-29 

vC60 

REF 

Q 

LAST 

814 

13,2d21 

u2240 0 


E.iADM 


— crsi — 

“TTEF^ 

— ar 

LASl 

— 702“ 

13, 2522 

34 fb3 1 

ST CALL 

7;lt 

EXIT WITH'ALT Mb 1 b'KS 8-29 

a 62 

REF 

3 

last 

1236 

1 3 1 2.5^ 3 

02241 1 


INCORPEX 



E4 S3 


* 


f __ 

L 

P • I 6 
K ^ < 6 ^ 


F MBLt iLcV f ^ uF A^jC PRUok AM 

LATITUUc LLiNGlTUUt GULiKCUTiWES 

SUBKiiUUNt TD GONVfcR I LAT r LO.slG, ALT 
CALLING SEwUENCE 


B_kLE_M 1 G dY NAS A Z 21114- il _ LH^s, FEB, 26.1971 ZEUS «, 46 PAGE 1238 

USER'S PAGE NOo 3 S3 

AT oiyEN IlME ro kADIGS VEGJGk 


K • fc b 

L- 

1 ’ 

CALL 






- -m. - • ■» ' ™ * * ' ' " » — 


K<. f 66 

L 



LALOIUKV 






K». 1-G7 

suaBouriNds used 






— _ _ _ _ — _ ^ 

k < T O 3 

setgapmaVsetre.kp 

-TC-R 





1 

■ - 4 1 

H r t o 9 

era SABLE 

INIT 

• REU 

« 






RCC7r 

AXOfAVC, AZU 

tTEPHEM SET AT LAUNCH 

TIM 

iz 



Rxi 71 

LAT — 

latitude 

1 K E V S dt 1 





- - -- . _ 

K( V 72 

L CnG** 

LUNG 

I TUUt 

( R E V b ^ - ) 






R • 7 b 

ALT- 

-altitude 

(METERS) 6-29 





- - 

RC 74 

HPAC — 

TIME 

(CS 

ECS 3-281 






R <1. 1 7 

tHAUtLA^ =l 

lU CUrtPU 1 b cAkTH 

KAUXUSf 

= 1. FUR hlXcU EARTH nAUlUS 


R.-l 76 

LUNAELAG=», FUR EARTF»i FOk MUON 





RCC77 

UuTPU I 









K lL 7 ii 

R- VECTOR 

IN ALPHAV 

(METERS 3-29 ) 


- - 

- 


iC79 





13,2324 

4L22L 

i^' — • -» — w 

LALUTORV STw 

SETPD 

LAT, LUNG, ALT TO k VFXTOR 

CU8C' 

ri EF 

4 

L AS ) 

1237 

1377325 

w2241 

1 


1 NCuRPEX 


TOdl 





13,2526 

^ t u i 

kJ 


0 


CCS2 





1 3,252 7 

34^ ? j 7 

1 

STuALL 

66 

6-7U= TIME for RP-Tu-R “ - -- 

( t 33 

REF 


LAST 

1236 

13, 253: 

357uo 

1 


SEl GAMHA 

GAMMA=fa2/A2 FOR EARTH, 1 FOR MODN 8-1 

CC84 





13, 253 1 

733A'6 

1 

ULUAO' 

SIN 

COS(L0NG)COS(LaT j IN“ MPAC 

GC35 

H EF 

13 

LAST 

1237 

13,2532 

* j C T 4 7 

• 1 

(, ; 


LAT 

UNIT RP= SIN( LONGICOSILAT ) 2-3D 

GC 8 6 





13, 2533 

652 7 5 

1 

UMPK 

pdTl 

PU 2 ^AMMA*S IN(L AT ) ~~ 

C087 

REF 

2 

LAST 

1237 

13,2534 

' ; ' J 1 1 

1 


GAMRP 


ccaE 

REF 

14 

LAST 

12 3 3 

1 3 1 2535 

•U, 747 



LAi 

- lD=~(irAHMA-$lN(L at 1 a- 2 " ^ ' 

'.609 





1 3, 2536 

65346 

t 

cu>> 

P J J L 

PD 4 2-30=C0S ( LAT ) 6-1 TEMPORARILY : 

- - CC 9 C‘ 

REF 

11 

last 

1237 

13,2537 

i' c 7 51 

1 


L UNijf 

_ . ^ - ... ■■ m 

i 

T091 





i 3 f 4l54b 

5735t, 

0 

SIN 

DKPK 

PC 2 

CW2~ 





13, 254^1 

71325 

1" r 

PDI7C 

CuS 

~FD“4 Z-3I7^5nT( LX NG ) t U S TL'AT ) 6-2 ~ ~ 

L<: 9 3 

REF 

13 

LAST 

1233 

13 » 2542 

7 4 7 



LAi 


" i'C 9 A 





13, 2543 

71325 

L. 

PDDL 

CoS 

PD o 4-50=C0S (LAT ) B-1 rtMPORARILY 

CO 9 5 

REF 

12 

LAST 

1238 

13,2544 

‘ t 7 1 

1 


LUi'ib 


r'.:96 





13,2545 

5547 5 

1 

DM P R 

V J£F 

PD 4 MPAC= COs(LDNG)CUStLAT) B-2 

CO 97 





13,2346 

41456 


UNIT 

EUSH 

! -5U= UNIT kP FUR RP-TU-R SU6R« 

CC98 

REF 

26 

LAST 

1237 

TT,2547 

36152 

1 

STC'AIl 

Alpha )f 

ALPHAV +4= sTNi" fxnr 

Ct^99 

KEF 

4 

LAST 

1236 

13,255*' 

26654 

1 


SETkc 

RE METERS 8-29 

i 16 c 





13,2551 

4314J. 


DLUaD 

bUFF 

SET MPAC=i FUR EARl H, NUN-ZtKU FOR MOON 

■rivi 

REF 

17 

LAST 

1236 

13,2552 

117 62 

1 


2 EKU VtC 

• -v 

.12 

REF 

21 

LAST 

1236 

13,2553 

1743 

u 


LUNA FLAG 


. 1' 3 

REF 

1 



13,2554 

265 JO 

ij 


CaLlHPRT 


1.4 





13, 25^*5 

“77746 

1 

CUj 


•TOT CGS ( 1"TG GET ■NON-ZERra i'N'TTPTfC 

1 3 





13,2556 

77624 

1 

CALLKPRT CALL 



16 

« EF 

o 

LAST 

783 

13,2557 

^53** 5 



RP- TT-R 

lXTT kith UNIT k VECTOR IN MPAC 

1 1 7 

REF 

27 

LAST 

1238 

i3,256v 

16152 

J 

r uuL 

ALPHaV 


^ JL' - '■’i 

REF 

1>, 

LAST 

1237 

13,2561 

'J224r:- 



t KmU h 




1 * 




ASiEHBLt khViblON <' 72 OF AGG PROGRAM AKThMIS dY iJAGa 2 21114- 11 


ll:4G FtB* 26fl971 ZFUS 


o' 46 PAGt 1239 


r. 



LAi ITUDE 

LUNG 

ITUDE 

S L ii Rti U T 1 E S 





USER* S PAGE ^ fc;4 

L 




i 3 1 

74213 1 

OrtU 

V <SG 

1 Hh -i 

r ALT) (UN IT k) METERS B-30 

11 

REF 9 

LAST 

1237 

13f 23^3 

. o 73 i L 


ALT 



ill 

REF 28 

LAST 

1238 

13 »2364 

‘ ^ X 2> 4^ 0 


ALPHAV 



112 




ISVZJCB" 

^77TZ* D 

V a ill 


K METLKS B-2« 

113 

RLF 29 

L AbT 

1239 

I3t 2366 

06152 1 

oTLALL 

ALPHAV 

EXl T 

WITH R IN METERS B-29 

1 1 4 

K lF ii 

LAST 

1233 

13,r567 

•22241 1 


iNCURPtX 



115 

SLBHUUTINd TO 

COMPUTE EARTH KrtUlUS 






116 


R< 117 


^^PUT 


1/2 SIN LAT IN ALPHAV +4 


K< ilo 


OtTPUT 


kCH 9 


fcARTH RADIUS IN bRADM AND HPAC tMETbRS 8-29) 


1120 





13,257 - 

4j3 343 


GETEKAU dljad 

CSD 





"121 

REF 

3w 

LAST 

1239 

13 , 237 1 

•-2156 

1 


ALPHAV 

'*'4 

SIN4*2(L ) 



1122 





13,2372 

443:j2 

u 

.iLi 

8DSU 





(123 

REF 

1 



13,2373 

1 i 7 ^ J 

G 


DPl/2 


Ca5*=»'2(L) 



C124 





13 f 7 

442 73 

1 

OMPR 

6 J3U 





“ ^rzs 

REF 

~r~ 



1372575“ 

255X1' 

T 


t G 





' 12o 

REF 

2 

LAST 

1259 

1j,2576 

1176' 

u 


DPl/2 





( 127 

- 

‘ 



13,2577 

754o3 

1 

3DDV 

SwR T 





.128 

REF 

1 



13 f 2 6 l * 

26 6 _ 3 

G 


E2<SC 




, * 
H' 

12 9 





13f 1 

77622 

1 

SR4R 






< 13. 

REF 

11 

LAST 

123& 

1 3 f ^ 0 ^ 

€2240 

U 

STURc 

CrtAD-l 





— Tin — 





~L3V25CT' 

■’776r6 

7T 

“RViJ 






P . 1311 

THE 

F C L L drt 1 NG 

CCNSTANT.^ WcRE 

COMPUTED 

WITH A*t>378166,8= 

6 3367 84 

METERS 



. — - 


Kt 13 ia 
7<Ci3i3 
R -1314 



aaxsL- 

E 2 / AZ- 
Et={i- 


B**2 SCALED B-iil 
d»«2/A^^2 SCALED 8-1 
a^^^Z/A^+Z) SCALED D-D 


REF 


6 LAST 12 6 


13,25(75 

'Cm"446 1 

■ E2XSC 

ZTTEC 

13, «:6v5 

Uc 3 j > 

1 



€4,3757 



CPl/2 


13, 26l 6 

17711 

c- 

£2/A2 

20EC 

13,ZGG7 

05254 

1 



13,261' 

CO 155 


EE 

20EC 

13r,'2Gl€r 

25256 

1 



1 3 f Z6 1 Z 

• , 1. 'M j Z 

vG 

ERAD 

2DEC 

13,2613 

17755 

U 




:r~IT? 45 Tr 55 B 9 

XUKIT 

o993DDo4db4 B— 1 
6.693J>ll6 fc— 3 


6 i 7 :>D 3 i 5 


2 9 


B*5!'2 SCAL'ED' 3-51 


;»AKMA= 6 *^ 2 / ^ 6-1 


( l-b4*2/A“«'42) 8-t 


7 


pad radius 




r 

i 


G^F: 

ASSEMBLE Kt VISION 72 

Of mSC program ARTEMIS 6Y NASA 2 21 L 14- li 

1 

EAT HUUc 

LONblTUOb S 

UBROUTI NES 






pi 13? 

ARCIAN S 

UliROU TINE 







K i 1 3 3 

CALL! NG 

StaUENCE 







K 1 39 

SIN THETA IN SINTH 

a-i 






k vl4'' 

COS THcTA I N COSTH 

ii-i 






kil41 

CALL AkCTAN 







142 

OUTPUT 








R^143 

A C T A N 

THETA IN MPAC AfsJD THETA d- 

IN 

KANGh -i/2 TO +1/2 

<144 

- 

- 

1 3 , 26i 4 

77 

1 

ARC TAN 

BOV 


145 

REE 1 


13,2615 

2661q 

1 



CLKOVFi.N 

■ l46 



l3 ,2616 

63 54i> 

0 

CLRQVFLW 

OLOAO 

LS-< 

1 14? 

REE 9 

LAST 1237 

13,2617 

00023 




5 1 1 ^ T rt 

„ 14d 



13 ,262' 

6352,? 

r 


POOL 

oso 

6145 

REF 9 

EAST 1237 

1 3 f ^ ^2 . 1 

( ^ 

1 



O'JsT rt 

■ 'Cisw' 



13,2622 

77615 

0 


DAO 


C151 



13,2623 

75454 

L 


32 L- 

S^Rl 

nT2 

REF 1 


13,2624 

26642 

U 



arCTanxx 

<153 



13,2o25 

4C S 6 5 

V 


800V 

BOV 

134 

REF 1, 

LAST 124v 

x3,2626 

D 0 \ 2 3 

♦ 

L. 



S INI H 

•,15 3 

REF i 


13,2627 

26647 

a 



A j 

:;i56 



13,2o3'. 

67542 

U 


S K X 

A S 1 )\ 

137 

REF 4 

LAST 769 

13,2631 

0CU25 

5 


STOKE 

1 hiz f A 

TIB' 8 



■'1372532 

~^UI25 

1 



Bi’/N 

139 

REF 1 

last 124 

13,2633 

00021 

1 



C GS f H 

16 

REF 1 


13,2634 

ZbSJb 

L. 



I\ izGC US 

' 161 



13,2635 

43545 

1 


OLUAD 

R Vo 

,162 



1 3,2636 

57545 

1 

KEGCOS 

OLOAD 

CCO IP 

C163 



13,2637 

43244 

1 


3PL 

uAO 

164 

RTF T" 


13,Z64< 

26644 

u 



NbTJGU 1 

V 165 

REF 3 

LAST 1239 

13,2641 

1 1 Jbi; 

0 



CPi/2 

1166 

REF 5 

LAST 124 V 

13,2642 

c0325 

C 

ARCI ANXX 

STORE 

I HL T A 

1 167 



13,2643 

77616 

ij 


KV4 



Il ;4‘ t-bb> Z6»1971 I 


<1 ^ 


46 PAGE 124 


USER'S PAGc NOo 


E4 S3 


SmTHTTS^ 


h . 


168 


13,2644 52 C25 1 N Eg UUT 


DSU 


bOT 


U 


;369 

REF 

4 

LAST 

124G 

13, 2645 

i 1 7 ul 

0 



DPl/2 

:i7c 

REF 

2 

EAST 

124-j 

13,2646 

26642 

H , 

%- l ' 



AkCTANXX 

' 171 





13,2647 

75345 

1 

AT AN=9l‘ 

OLUAU 

^ i u iNI 

• 172 

REF 

1 



13,2650 

33412 

u 



LCOPl/4 

0173 

REF 

11 

LA St 

1240 

13,2651 

31)023 

'2 



' SiNTH 

0174 

REF 

6 

LAST 

1243 

13,2652 

00025 

u 


a f UKE 

THETA 

- - -T -*•- 

l17 5 





13,2653 

TTSTO 



RVO 


•;:176 

REF 

2 

LAST 

731 

^..4, 376 1 


■ 

2D2ERU 


0P2t RO 


4 
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I, A K ; A S b £ M BL E HE V i SlGN )ll CF AuC PRUbRAM ARTEMIS BY i^ASA Z 11:4 i F E B. 26tl‘371 ZEUS 

L LAfiTUDL LONGITUDE ibdPOUTlNES _ USER'S PAGE NO, t> E4 S3 

PC177 .«••• SbT^AMMA SUBROUTINE .o.,, 

k:i7B SUbPOUTINt TO SET GAMMA FUK THE LAT-LONG AND LALOTUKV SUBPauriNES 


Ki.179 GAMMA' = FOR EARTH (B-IJ 

RilSu GAFMA = i. FUR MOON (3-1 1 


IU181 

CALL ING 

SEQUENCE 

RC182 

L 

CALL 

RU163 

U+1 

SETGAMMA 


RC184 

Rri85 


INPUT 

LUNAFLAb^U FIDR EARTH, = 1 FOR MOON 


K v 186 
R0167 


OUTPUT 

GAMMA IN GAMRP (d-lJ 


1875 REF 

1 

16,2000 

SEfLOC LATLUNoi 

re 7 6 


1 6 ,3766 

Bank 


.1377 REF 1 COUNT-4> $1/LT-LG 


188 





16,3 7£>6 

431‘*5 


^ fcT tj AHM A 

DLOAD 

EGFF 

BRANCH FOR EARTH 

CTF9 — 

R E F 

T" 



"TSTTT^T — 

266^ J 

1 “ 



TJ277T2r 

EARIR uAmMA 

.190 

REF 

22 

LAST 

1238 

16,377 J 

01743 

0 



LUNAFLAG 


V 19 1 

REF 

1 



16,3771 

35774 

y 



o tf ghex 


C192 





16,3772 

77735 

i./ 


LOAD 



Cl 93 ■ 

REF 

i 



16,3773 

llToG 

0 



131 

MOON GAMMA 

C194 

REF 

3 

LAST 

1238 

16,3774 

OOU 1 1 

1 

SETGMEX 

J TuRE 

GAMRP 


-TI95' 





~T^'3775 “ 

7 / 6 1 6 

0 


RYQ“ 



Ll96 





V V 1 L' 



GAMRP 

— 

80 


‘1961 

REF 

2 

LAST 

1236 

13,200. 




SETLOC 

latlqng 


01962 





13,2654 




BANK 






ij AP i 

4SS£MftLt Kt-VI31UN '72 

CF AbC PKOURAM ARTEMIS BY NASA 2o2lii4-wii 11 

:4 FEB. 26,1971 ZEUS 

,46 PAGE 1242 


L 

LATITUDE LONGnUJt SU8tiuoTJNES 






USER'S PAGE NO. 7 

>3 



• ScT Rn S U BRQ UT IhlE 









R019b 

SUBRUUriMc TO SET fvE 

( EARTH OR 

MUOii* 

RADIUS) 






R '199 

RE= KP FCK MOON 










K 

ftE= RKEF FOR FKED 

EARTH RADIUS OK 

COMPLIED RF 

FOR Flo 

ChER ELLlPbOlL 




K -.120 1 

CALLING SEQUENCE 










RC2-2 

L CALL 










R C 2C 3 

L41 SETRE 









RC2 4 

SUBROUTINES USED 










Rl-20 5 

GETERAO 










R''2C6 

INPUT 

- 

— 

- 

- ' • 



- 


--- - _ . 

R*.2^.7 

ERADFLAG=l FCR fixed REt i FOR COMPUTED RE 






k0 2^. 8 

ALPHAV <4= 1/2 SINL 

IF Ut ItRAU 1 3 CALL 







Rv209 

LUNAFLAG=0 FOR EART 

Hf=i FOR MOON 


- 

- 

• — > . _ 




Rt-2X. 

GUT PUT 










R 211 

ERAOM- 5J4RM FOR MOON IrtcTERS 

B-29) 








-^12 

ERADM- EKAD CR COMPUTED RF FOR EaRTH i METERS B- 

29) 





V 2 1 'i 


13,2654 

71220 

1 

ShTaE 

S T vj 

LLJAD 




214 

REF 1 

13,2655 

CCuSl 

0 



StTKtX 




1215 

REF 1 


Zitl J 1 

0 



5 -4k4 




w2 1 6 


1 3 f 7 

71214 

0 


BON 

DLCAO 

BRANCH FOR MOON ~ 



217 

REF 23 LAST 1241 

13 f 

'.173 3 

i 



LUN AFL AG 




210 

REF 1 

13 ,266 1 

2667 1 

r*' i 

♦ 1 



''TSTTrrsRM 




•:219 

REF 1 

13 1 

26613 

i 



£kau 




« 22‘ 


i3,2o63 

45 *14 



BUFF 

CALL 

ERADFLAG=( FOR FIXED RE,l 

FOR COMPUTED 


.221 

REF 12 LAST 911 

13 ,2664 

0 1> 7 42 




Ek AOFl AG 




^222 

REF 1 

Of dZ665 

26667 

1 



SETkXX 


- ■ P 


i 223 

REF 4 last 9l1 

13 1 12^666 

2657'„ 

1 



GtTERAO 




0224 

“TEF 12 Ea^12'3T 

1l 3 ,2667 

’i5Z4vj 

T~ 

■SuTrxK 

“STCALr 

'XRaoM 

“rXTT~Tm H K h JR RH ME 1 L R 5 

~B=1ZP 


'.225 

REF 2 LAST 1242 

13,267 . 

OL0 51 

( 

T 



Sc I KtX 




' .:226 


l3,2o7i 

77214 


tstrlskm 

3<JN 

V lG A J 

ERAUFLAG=L , SET R. =RLS 



227 

REF 13 LAST 1242 

13,2672 

CC7-2 

1 



L 'naO -L AG 

= 1 R'' = RM 



228 

REF 2 LAST 1242 

1.3,2673 

26667 

1 



ScTkXx 




229 

REF 9 LAST 745 

13,2674 

L2026 

1 



kLS 




* 23'; 


l3,26'/5 

64446 

f ' 


abVAC 

SK2R 

"TCArrTRUM S-27 TD'B-29 — 



-.^31 


13,2676 

7763: 

1 


GOTO 





0232 

REF 3 LAST 1242 

13,2o7 7 

26667 

I 



S tT RXX 




v233 

REF 12 LAST 76t> 

. • 5 1 



SETREX 

— 





0234 


A 3 f 3 f OO 

^C.65 

1 

5w4RH 

2 DEC 

1738 9C B-29 

METERS B-29 (MOON RADIUS) 



C234 


13,2701 

it 1263 

I 








1 

0f* 




i 
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gap: ASSEMeit K6V13IUN 072 GF AGC PkUGRAM AKTEMIS 6Y NASa ^,2ill4-.il 


11: 4o FfcB. 26,1971 ZEUS 


PLA^Lf^;^f INERTIAL QRl L.^J^AT lUN 


USER'S PAGE NO, 


E"'. S3 


1‘ V O '. 1 
2 

Kt003 


Ji O • • 


RP-Io-k SUBROUTINE 
SUBROUTINE TO CONVERT Rl^ tV"ECTuRi.N PLANETARY CuORUlNATc SY^sTEM , ulT HER’ 

EAnTK-FIXED OR MCUN-FiXtO) TO R ( iAM£ VECTOR IN THE BASIC .vcF^ SYSTEM) 


Kt,i^4 R=PT tTJ Ti RP+LPXRP) _Mr= R MATRIX TRANSPOSu 

RU -3 CALLING SEOUENCE 

R CC ' ' 6 L CALL 

RC007 L+ i Rp— TG— R 


K'.iJ8 SUBRaUllNcS USEO 
RCCr9 EAkTHPX fMQONNX, EARTF l 


RCtlo ITEMS available FROM LAUNCH OATA 

R jOli B ;4LR= THE LIBRATIGN VECTOR L OF THE MOON AT TIME TIMSUBL, tXPKESSED 

RrCT2 THc”Hm:Pr-F 1 X b L CUUKU. system RALIAITS — w: 

RCCi3 HEMS NECESSARY FUR SUBR. USED (SEE OESCRlPTiQN OF SU8RH 


R‘wll4 INPUT 

kr.( 15 KPAC= J FDR EAFTH,NCN-ZcRO' FOR MOON 
Rot 16 l-5D= RF VECTOR 

TcrriT TTwr — 


kuLia OUTPUT 

K ti9 MPAC= K VECTOR METERS 8-29 FOR EARTH, 8-27 FOR Mu'JN 


‘ 2 . 

REF 

1 



2. (y j ^ 0 0 ^ 




'21 





“~2S,334b 




\ V 22 

REF 

i 







-C23 





26 f JJ45 

46020 

1 

RP-TO-i 

‘ L 24 

REF 

1 



26 f 3346 

0 0 Wj* ' 

1 



kEF ' 

1 



2o T ^^4 / 

55362 

J 


H 26 





26,335U 

llalh 

1 


C027 

REF 

1 



26,3351 

55416 

I 


0028 





26,3352 

7777B 

1 


:C29 

REF 

1 



26,3353 

0 2012 

< 


t‘3‘' 





26, 3354 

B323i> 

t 

i ^ 

•n, 

RPTORb 

£31 * 

■ ■REF' 

r 



I 335i> 


1 ^ 


< 32 

REF 

2 

LAST 

1243 

2 6 f J -i 6 

C. i. .. 1 

w 


/33 





26,3357 

B2 1 u 5 

1 


< < 3 A 

REF 

1 



26f 3J6C 

'v ' > 2 5 



. > 35 

REF 

1 



26 , 336 1 

BB4 Jo 

4 


« 36 





26i J362 

77624 

1 

RPTORA 

^ Tv37 ' 

PTEF 

1 



Z6f 33u3 

5^567 

0 


A i. 39 









t ■:4r 





Zo , 3364 

76521 

! 


41 

REF 

2 

LAST 

1243 

2(j $ 3^ 6 ^ 

v2B 

‘ i 







26,3366 

77 OB'- 

1 



ScTLGC PLAiiiri.I 

3 am 

Count* $i/LUROT 
STu Bhiz 

RPREXIT 

'“TTPrUKA ' 

CALL LOMPUTt H MATiHX FCR MOON 

FGONMX LP-LM FCR FCON RADIANS 3i 

VLOAC 

dCALM 

VAV VAO 


B 4RPR 
VXM bGTG ■ 

M/^.AIRIX .•;PAC = R=MT 1 1) *( RP^ LPXRP) 

RPRPXXXK RESET FUSHLLC TO BEFORE EXlTl c 

CALL EARTH COMPUTATIONS 

— rafTTBrcc “ “'“—m m a r r i x “ r-x 

AND L VECTOR RAC IANS r! 

MXV ■ VSLi LP=HIT)*'L RAO B- 

MHAi RIX 

GOTO 








f V 


‘ -3 . 


> w w ' 


• ^ -♦ 
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tT 


26,1971 zeus 


ov 46 PACjc 1244 


"1^ 


PLAMTARY INERTIAL ORIENTATION 



USER'S PAGE NO 


Ev S3 




REF 


. 26,3367 553 5 A 0.. 


RPTURb 


' r 



12 


H . 




10 






'Al 


s 


2 , 


^ I 




rf 



’ «■ (- '. 


h .' 

c 



i « 


* - 

#► •. w. - t 


' t , » k . L ‘ 


-J 


. < * * 1 ? ■ 


' " JS;- 

' i v *. 





« ■ : 


,h 


• 1 . # r, 




•' 




H«l 




TT 



I 


« k 
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,46 PAGE 124S 


PLANETAkY INLKllAL URIENTATIQN 


USER'S PAoE f.G. 


bi Sjv 


P 1,44 
R G( 4 S 

'.46 


47 




a d 


R-IJ-PP SUBROUTINE ... 

SLBROUriRE fu CLiNVERT R tVbCTUR IN HEFERENCc CJORD, SYSTtMi TU KP 
(VLCTQR IN PLANETARY CGORU SYSTEM* EITHER EARTH-FIXEU OR MuaN-FIXEu 


RP=M { I ) ♦CR-LXR) 


RCr4;-> 
RCr4'^ 
R ' ' ^ ’ 


K' ; 51 
R b 52 


CALLiNo StgUENCE 
L CALL 

L + i R— TLi— RP 


SUBRUUTIRcS USED 
FARTHKXiMQONHX, EARTHL 


RC153 

i<:P54 

R'CC55^ 

R 56 


IhPUT 
MPAC = 

““5D= 


0 fOR EARTH, NON-ZlKU FOR MUJN 
ITTECTDK 


E-7D= TIME 


R 5 7 

R h ('58 
Ri.>'59 


ITEMS AVAILABLE FROM LAUNCH DATA 

5:4LM= THE LIBRATICN VECTOR L OF THE MOON AT TIHFrTPSUBL, EXPRESSED 
IN THc MOCN-F1X6C COURb, SYSTEM RADIANS BO 


““R^TTIS^ 


TT 

HIS NECFSSAkV 

KO.T " S' USTCGliTl WF'S~FSFTr f SFF " 

FFS CRT PTl T7rTTF” 

K P 6 1 

OUTPUT 



- 

- 





K( V 62 

MPAC = 

KP 

VECTOR McThR 

.5 B-29 1 

FOR EARTH, 

8-27 FCK 

MO UN 


,'-63 





2i 6 f 33 7 . 

46u 2u 

1 

R-TU-RP 

STO 

BHIZ 

— 

1TEF 

Z~ 

LAST 

"TZ?3 

Z6;3371' 

00054' 

1 



RPREXn 

i.( o5 

REF 

1 



26,3372 

554 12 




RTUHPA 

i 6 6 





26,3373 

77624 

1 


CALL 


.667 

REF 

2 

LAST 

1243 

26,3374 

55416 

1 



MJONHX 

0C6 8 





26, 337 5 

61375 

1 


VLUAD 

VXM 

1L6S 

REF 

2 

LAST 

1243 

26 , 33 7 u 

2bi2 

r 



5 ■4Lrt 

GT7T 

“RFF 

TT 

L in w 1 


26,3377 

L ’■';23 0 



MMAT KIX 

CD 71 





26 , 34. u 

77772 

0 


VSLi 


cr72 



- 

' 

26f 34r 1 

5X235 

1 

RTQRPS 

vxv 

£1 VSU 

.* V 73 

REF 

3 

LAST 

1243 

26 , 341. 2 

6 0 'w. 1 

u 



D ‘♦KPR 

Cr 74 

REF 

4 

LAST 

1245 

20,3463 

OCOJl 

(T 



5 :4K PR 

■/ 75 





26,3 4. 4 

77 721 



MXV 


Tt.^ 

RcE 

4“ 

'TTSST 


26',34Cr5' 

.ooz5 

u 



FTaTRTX 

77 





26| J4t 6 

4o3 72 

r 

ftPRPXXXX 

VSLI 

SeTPD 

<.678 





2 1 3 4l- 7 

{j ’ J U 1 




0 

CL79 





26,341 . 

7 7 05 

i 




CU8C 

REF 

3 

LAST 

1245 

26,3411 

V. 065w 

1 



RPRtXIT 

LCdl 





26,3412 

77624 

1 

hTOKP A 

CALL 


urB2 RFF 

~r 

TTCST 

"LZ43^ 

26 1 3413 

555o7 

0 



EARTHiTX 

COS 5 





2 6 1 3414 

7765- 

1 


GvJ T D 


CC86 

REF 

1 



2b , 341 5 

554v.l 

1 



RT0RP3 


LP=LM 


L=MT IT )^LP 


RADIANS b 


K(l)YlR-LXK) b-2 


EARTH LOHPUIATIONS 


RPAC=L=t-AX,-A¥, ) KAO 8- 


b AP 
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L PLAiNtfAiY UNiERTlAL UKl b.N f A f I ON USEP*S PAbt NOn H £ SB 

P.;o7 «*••. MuCNMX SUBROUTINE 

KU SUBKuUTlKc TO CUMPUTE FrtL T RA,\6 FURHaTI ON MATRIX M EUR THE .1GON 

K< ' d'- CALLING itwUENCE 
V i. 9 L CALL 

H ' I U L+1 MUUNNX ■ ■ 


KC 92 BtePOUTINES UStO 
R<C93 NE WANGLE 


R ( t 9 4 


INPLT 




^T2T 

12 b 

ri29“ 

L 1 3 : 
C131 


REF 


l<» ■, 9 5 

6- 

70= TIME 








h CO S 6 


ITERS 

AVAILABLE FROM LAUNCH DATA 







R(C47 


BSUBC 

,BDOT 








RCC.98 


TIHSUBUiNGDIU.NODDOTtFSUBO, FUOr 









CLSi= CUSH) 8-1 








K*^i00‘ 


S1NI = 

SINtn S“1 








Ki. iwi 


1 

IS THE ANGLE BETricEN 

THE 3EAN 

LUNAR 

cWuATQKl AL 

Pi.ANE AND 

THE 


R' 1 Z 


PLANE OF THE ECLIPTIC 

(1 OEuiibE 

32,1 

rti NUT ES } 



_ . _ 

RTl 3 

OUTPUT 









H« 1 j4 

MNAIRl A= 

3X3 M MATRIX b-i 

(STOREO 

IN 

VAC 

Akt A ) 




' 1- 5 



26t34l6 

H L z2 V 

r- 

J 'i 

MQUNMX ST 3 

S £ I P D 



1' 6 

REF 

1 

26f 3417 

J . u 5 i 




EArt VHMXX 



17 



26 » o42v> 

- ' 1 i 

1 



bD 



13 



26, 3421 

77 77 6 

1 


AXI ,1 


8 REWUlRtS SL , 

SL 5 IN NEWANGLE 

1 9 



2& } 3422 

3 

1 



5 



11 



26, 3423 

65345 



DLOAC 

POOL 

PD 1. D 

e-9D='V3U30 

111 

REF 

1 

26, b424 

1564-7 




cSUBQ 


1^-110=- aDOT 

112 

REF 

1 

-i42 5 

ISoHl 

J 



3DU1 



113 



26 j3426 

45 ..i'j 6 

J 


PUSH 

Call 

PD 120 


vll4 

REF 

1 

26, 3427 

55543 

0 



NcMAN.,LE 

EXIT WITH PD 6 0 

AND MPAC= 3 i.EVS li- 

ETT3 



2 6 f 3 43 

7 1 4w6 



PCIoTT“ 

'XiTS 

Firm/ 


V 116 

REF 

1 

26,3431 

14^41 

1 


3 I GDL 

lGs 

PU BD CGS(iJ) 

9-1 

0117 



26, 3432 

77 756 

0 


SIN 


SIN( d J 

i-1 

^118 

EF 

1 

2o f 

1 4^. > 4 3 

v! 


olODL 

SUB 

SE TUP 

INPUT FOR NEWANGLE 

9 1 1 9 

REF 

1 

26 f 3434 

1 5645 

1 



F .> U ti U 


■'fe-90=F sucn 

t 121^ 



26 , 3435 

41523 

1 

w- 


POOL 

PUSH 

PD l^D THEN 120 

i»'-llD=FDUT 

121 

REF 

1 

26 f 3436 

i f 

1 



FJuT 



.122 



26,3437 

4517 ; 

! ,1 


AX i 1 1 

CALL 

F REgUlRLS ( 1, 

SL 6 IN NEWANGLE 

123 



26 , 344.J 

j C c ‘ / 4 




4 



(124 

REF 

2 

last 1246 26, .>441 

55543 

U 



NuW WGL t 

r: X i T Ifi i i fT u - Lv 

AND MPAC= F kEVs d 

■..125 

KEF 

1 

26 , j442 

14V./2 7 

1 


STUDL 

AViiCfH +2 

SAVE I 1 P<F 


€126 

REF 

1 

Zuf 3443 

15643 

1 



NUj 1 Li 


&-90=Nyi)lU 


iO f 

26 f j>446 
26 • 


3 LAST 1240 


^T52y ’J 

15635 0 
45170 0 
U£ JU5 1 
55543 U 


PTjtn: — puOTi 


Tir~I ■ T/THTTTTZO l'"-riD'=NDDOaT 


AX T f 1 


N JUU Jl 
C ALL 


NODE 


MPAC=T 

RCqUlKES 3L , SL 5 IN NEEANGLE 


5 




f > 


REF 


EXIT blTH PU RU ANlJ MPAC- NODl REVS 


G^P: 

455fPieLfc REVISION '72 
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bY NaSA 2 21114- 11 

11:40 rtb. 
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L 

PLANETARY INERTIAL 

orientat ion 




USER' S PAuE NO= 5 L 5^ 

i5 * 





26 1 345 1 

/14oo u 

PUSH 

Cu J 

PO I D 

e-9D= NODI ruVS 1 

^i3 3 





26 , J452 

77636 1 

PUSH 


PD x2D 

1 "^11 Li- CUiilNDDl) B"^l 

' 134 

\< t F 

2 

LAST 

12 4b 

20f 3453 

U0325 U 

:>ruRE 

AVct I K 



^13 5 





' 2^33454 

/643'5 Z 

DMP 

SLITT 



' lit) 

REF 


LAST 

1246 

2 6t ^455 

L’v ^41 1 


Cuii 


COSINJDII B-1 

' 13 / 

REF 

1 



26* 3456 

14335 1 

oTuDL 

6 V£u I k +2 

FO 10 

' Z;-2 5D=AVECT R= C03X S IN ( NODI ) 

< lib 





26f 3457 

7 64 ^'5 1 

PMP 

SLIH 


30B=»=SlNtNUiJI ) 

( 139 

REF 

2 

LAST 

1246 

26 f 346 V 

:.3G43 3 


SOS 



.14:, 

KEF 

> 

LAST 

124 7 

26 f 34ul 

14.37 J 

STUUL 

evtCfK +4 

PD tiO 


“n 4 1 





26 f 3462 

4155o T. 

s i r j 

PCJSTT 

PL i’U 

^ -S INtNDOI ) S“l 

> l^U 





26 1 34u3 

77o76 - 

OCUMP 



2e-3iU=6VECTK= CU6-LUStNUDl) 

V 143 

REF 


LAST 

1247 

26,3464 

14333 1 

STLiOL 

EV3CTR' 

PD' 'B'O 

■ SDH^^CCTSINOOII 

144 

HtF 

3 

last 

1247 

26, 3465 

01 J27 i 


AVECTR +2 

MOVE F 

FKCF TLMP LCCu TU 5 ''41 

ri45 

REF 

1 



26 f 346 6 

14:'. 7 0 

STUDL ■ 

5 ^4r 



146 





26, 3467 

76405 1 

UMP 

SLIK 



TT47 

—Krr- 

73“ 

“C7TST 

1247 " 

26, 347 . 



CLli 



-148 

REF 

4 

LAST 

1247 

26 ,347 1 

14027 1 

STuDL 

AVECTR +2 



>149 

REF 

1 



26,3472 

1 


S INNODI 

' B-9C=SININ£JDX) .3-1 

13i 





26, 3473 

764vi5 1 

DHP 

SLlK 



151 

REF 

i 

LAST 

1247 

26,3474 

00043 U 


SU3 



Gl:^2 

REF 


last 

124 7 

26,3475 

14031 u 

biUPL 

AVECTK +4 


i ■ 

— aTT 

k£h 

~Zo^ 

“XTCST- 

9'40 

2^6,3476 

1 53 37i L 


HloX tKUS 


5=T31T= XTFCTR = ■ -SUH 5=1 

i 154 





26 f 34/7 

57525 1 

PDDL 

UvUMP 

PD ID 

COB 

« 155 

KEF 

4 

LAST 

1247 

26 f 2>5C J 

ovo .43 0 


SUii 



l156 





26 §33;. 1 

63325 0 

POOL 

PDVL 

PD 120 

THEN PO 140 

fl57 

REF 

4 

LAST 

1247 

2 6 f 3 L- 2 

“0l<..41 1* 


cca 



- Itao 

KEF 

4 

LAST 

1247 

2 Of 35C 3 

u0i>'33 1 


BVEC TK 



ri5T 





— 26 ; 3'5u"4 — 

63561 b 

MKSZ 

L 

PD 2"'D 

SvfcClK^SlNl B“2 

i.lbv. 

REF 

1 



26,3505 

15633 0 


S I Ni 



"^161 

REF 

1 



26 f 33 l 6 

CO'.il 1 


CVECTR 



ri62 





26,35’w' 7 

53661 ' 

VXSC 

V ao 

PD 14D 

CVECTR+COSI e-2 

C163 

REF 

1 



26,3515 

15631 1 


CG31 



>164 





26 f Jill 1 

77772 , 

VSLl 





FTEF' 

- - 5 - 

“TATST- 

T24'5" 

26 f 351 2 

“24 04X^1 

STOVC 

^MATRIX +i2D 

PD lD 

n2=BVEDTP>^SIi\I -FoVcCTH “CDS I 

166 





2 6f ^31 3 

63361 0 

V xsc 

PDVL 

PD 14L 


i 167 

REF 

C. 

LAST 

1247 

26,3514 

15633 V 


5 INI 


CVECTR^ SI N1 B-Z 

f 168 

REF 

5 

LAST 

1247 

26,3515 

OOOJ3 i 


c Vi.LT R 



ri69 

- 




26,3516 

52361 1 

VXSC 

VlU 

PD BD 

3VECTR'»C0SI B-2 

1170 

FEF 

2 

LAST 

1247 

26,3517 

15631 1 


CL)S i 



"l^T 





26,~35ZU — 

“653TZT 

" VSLi ' 

FluL 

“““P ET T4Tr 


t 172 

REF 

2 

LAST 

ll-kl 

26,3521 

OCCjT . 


5 . 4 r 

ij-13D=i 

DVECTK=^6VECTR*C0SI-CVECTR^SINI B-1 

: 173 





26,3522 

74346 j 

COS 

vxSC 



.174 

REF 

1 



26,3523 

CGull 1 


D wEL Tk 



-175 



- 


26 , 3524 

73525 1 

PU'jL 

S"IN 

■ PD 200 

14'“1^^D- DVEClR^COSf 

i..i76 

REF 

3 

LAST 

1247 

26,3525 

OL ,c7 0 


5 ii 



^ T177 





Z6V35Z6' “ 

■52J61I 

VXSC 

\f s u 

PIT 14 D 

AVHC'lK^SINF J-2 

178 

REF 

D 

last 

124 7 

26, 352 7 

J2 5 i. 


AVEC Ik 



,.179 



- 


26,353f. 

77772 0 

V S L 1 




0180 

K bF 

0 

LAST 

1247 

26 1 3 1 

14 33 1 

iTUPL 

PMAlfvIX +6 

Mi- AVtLl iNb-DVECT iN^tLiSF 6-1 

ri3i 

REF 

4 

LAST 

1247 

26 , 3532 

'.ro. ? L 


5 4F 
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46 PAGE 1246 


L PLANfcfiiKY IlMhRTlAL ORIENTATION 


USER'S PAGE NOc 6 L> 


i--2 


26,3533 

74356 1 

SIN 

V X SL 

Pu 

3U 

I'jJ 


2d t 35 J A 

71323 . 

POOL 

^ 

PD 

140 8-13D-DVEt I R=<^SMF B-i ' 

164 

REE 3 LAST 1247 

26 1 J535 

L U L 7 C 


3 4 F 



' 1 fc 


26, 353 6 

533ol 

vxsc 

VAU 

"Ptr 

m ’ AVrClTJ^'CTiSF TF2 

166 

REF 7 LASI 1247 

26,3337 

t jr25 vJ 


AVtCTK 



'IS? 


26,334-. 

37372 ' 

VsLi 

VCuRP 



vies 

HEF 7 last 1247 

26,3541 

34 »2 5 1 

STCALL 

MMATRIX 

= 

-(AVECrR^cOSF+DVECTK’i'SlNF 1 b 

io9 

REF 2 LAST 1246 

26 I ^542 

Cl. 1-5 1 J 


L AKT H^^XX 


- 

Ri 19* 

CLRPUI t X = XO+ (XCGT) (T + T. i 






^ 1 cj I 

a-9D= XU IREVS e-'jjf 

PUSHLOC Scl 

r AT r>D 





K^192 

l‘:-ilC=XOUT (REVS/CSECI SCALED 

b+23 FOR 

wEARTH,3426 for 

ACDDQT ANO 8DDT 



KS 193 


AND 3427 FOR FOOT 



— 

K ^ 1 S 4 

X1=DIFFER£NC£ IN 23 

and SCALING OF XOOT 

,=0 FOR HEAKfh,: 

> FUH NUCUUr AND 



R'l 195 




bJOT AND 4 FOR 

FOOT 



i S 6 

6~7D=T ICSEC E-2S), 

UMSUblJ= CCSEC B-42 

TRIPLE PRECo ) 





(IS? 





26,3543 

34343 

1 

fv E A K GL 6 

OLOAC 

SR 

ENTER PU 12D 

cl98 





26, 3344 

GC *'^7 




6li 


<199 





26 , 3545 

21617 

0.' 



143 


' 2L'’' 





26,3546 

72371 

1 


TAD 

T L JAD 

CHANGE MUDi:' TO TP 

^ 2C i 

REF 

1 



i:6 1 354 7 

017'J7 

L, 



1 1 MSUbO 


L 2* 2 

REF 

642 

LAST 

1213 

26, 353 L 

1 3 3 




HPAC 


2v3 

REF 

1 



26,3551 

14. 17 

i 


STOOL 

TIMsUbN 

T+T CSEC e-42 

• 2i 4 

REF 

» 

LAST 

1246 

26, 3532 

c -w 2 

'J 



TXMSUbR +1 


: 2-. 3 





z6 f g>d53 

776u3 

1 


OMP 


PD 10 MULT bY XDOT IN 

V 2< 6 





26,3354 

43237 

d 



G aU 

PD 80 ADD XO IN 8-9 D AFT EH SHllTlhu 

' 2 w 7 





26,3555 

2 C 2 6 

1 



^ 1 1 

SUCH THAT SCALING IS 3- 

. 2' fc 





26, 3536 

6T 20 6 

1 


PUoH 

CLOaU 

P D ■ i' G ' SA'Vr TA r n fil' ' l XnTKUXrF T1~1TT 

4^ -- 

REF 

3 

LAST 

1248 

26, 3557 

C0Ci7 

1 



TI RSUoH 


- 21< 





26 j556v 

41261 

1 


SL 

uMP 


r211 





26,3361 

2-21^ 

1 



-•J 


0212 





26,33o2 

C f L ./ 13 

c 



I'D 

XDOT 

V 213 





26, 336 3 

43237 

0 


S L "r" 

DAD 

PO 6D SHIFT SUCH THAT THIS P7KT UF X 

: 2 F* 





26 f i 564 

2\22 1 3 

r 



1 3 1 i_ 

" ■ ■■ IS s c AL'EGnR’EVsrc^rcrB^ 

2141 





26, J3o5 

4346'' 

1 

HERE 

buV 


TURN OFF OVERFLOW IF SeT 6Y SHIFT 

12142 

REF" 

1 



26f 3566 

55563 

1 



F E .< L 

INSTRUCTION BEFORE EXITING 


A<.215 MPAC=X=Xj 4 (XDOT J t T+Tti ) REVS b 
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F‘ 216 
K ^17 


PLANETARY INERTIAL GKlbNIATlON 


0 ^ m 


m o 0 0 1* LARTHHX Stiti ROU T 1 r4E 
SUBHOvJllNt TO COMPUTE iHc TR ANSFORMATI UN MATRIX M i UR THE tAKTri 


USER'S PAGE NO» 


fc C' S 3 


R( 216 
R‘ 2i‘> 
Rf 22L 


C A L L 1 NG 
L 

L + i 


Sc w’UIE^NCE 
GALL 


EAkT hmx 


Rr2zi 
R< 222 


SGBRQUTINES USED 
NLhANGLE 


Rt 223 
Kt 224 
R. 225 
Ri226 

i NPGT 

INPUT AVAILABLE 

6-7D= TIME CSEC B- 

FRQF. LAUNCH DATA 

■26 ■ 

A 20 REVS B-i 
TEPHEM CSEC d- 

42 


1 

RE227 
R< 226 

C229 

E23U 

i 231 

□ UTPU f 
PMAIRIX 

PFF 3 

= jkX3 M MATRIX e-1 

26 ,356 7 
LAST 1248 26,337G 

26 ,357 1 

(STORED 

4022J 
“ 0005 1 

OOu 1 1 

IN VAC AREA) 

L EARTHMX STw 

1 

EARTHHXX 

80 

SET 8-9D=AZ0 

Iv-11D-W£ARTH 

_ ___ ---- _ . 

^ ^.32 




26,35/2 

TTTTTT 

1 

AX 1 f i 


'■TUR' SL 5,”7INir3r" 

TT irTTEHAfrcrE — 

<233 




26, 35 73 

UCOUL 

1 





(234 




26,3574 

65345 

D 

DLOAD 

PDDL 

LEAVING PD SET 

AT 12D FOR NEWANGLE ' 

G235 

REF 

1 


26,3575 

15653 

L 


azj 



i 236 

REF 

1 


2 6 f J S 7 6 

15651 

1 

■ 

AtA.\ TH 

- - - ' - 


ZSl 

• — J 1 a'l ■ 1 II* 




26,3577 

45Qu6 


PUSH 

CAL2 




H Eh 


L AS 1 1 ^ 6 

Zbf 360 U 

55343 



NCR ANGL c 



.239 




26 , 3o^. 1 

4i4‘ 1 

1 

SLTPO 

PUjH 

ib-19D=5i44AZ 


C24<“ 




26,36C2 

■00023 

) 

- - .r.M - ' 

iuD 

— _ ^ ^ 

CDSlAZr SINTAZ) . 

0241 




26,36^3 

65346 

L 

cus 

PDui. 

2 -^70= MPATRIX= 

-SIN (AZJ COS (AZJ li-l 

C242 

REF 

1 


26, 36 04 

0 vD23 



5 4 

- 

T"' ■ ■ 1 - - 

1 243 

— — -f -/r — - 

g'g'^ 



26 f 36ub 

653^6 

1 

SIN 

P D 3 L 



TZ44 

t< cr 

27 

LAST 1247 

26f 360 6 

rS33 6 

TT ■ 


HI a ZEROS 



*245 




2o f 360 7 

73525 

1 

POOL 

olG 



v246 

PEF 

2 

LAST 1249 

26 f 3o 1 

00023 

0 

- 

5 4AZ 

- 


C24 7 




26,5611 

65276 

1 

OCUMP 

POO 4- 


1 

•: 248 

REF 

3 

LAST 1249 

26,3612 

'30023 

V 

- - 

5 '4AZ 



r24<» 




26, 3613 

6334 6 

L' 

LUS 

P G V L 



r25^ 

RTF 

28 

“CAST 1Z4T“ 

2^6 f 36 L 4 

15330 

V.-' 


H I :?ZER J S 



C251 




26,3ol5 

41525 


POOL 

PUjH 



^;252 

REF 

11 

last 339 

26, iol6 

15334 

1 


hlOPHALF 



Rv2S3 

FALL 

INTC EARTHL 









j AH I 

L 

25*5 
Kf 256 

H 2^7 
K 253 

Kt 25 7 

K‘.26 
R 261 

Ke2e2 
K' 26ii 
K <. 2 6 4 
R1265 


266 
*26 7 
\ 263 
C269 
<. 27 . 
..271 
C272 
C 273 
^274 
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PLANETARY INERTIAL ORIENTAl 1 UN 

■••••• tART HL SUBRUUTINc u««j» 

SL'BKDUn Nt: TO COMPUTE L VbCt OR FUpr LAKTH 

nN'^ SEQUENCE ^ 

L CALL 

L+1 tAKTHL 

INPUT 

AXCtAYO SET AT LAUNCH TIME QITH AYO IMMEDIATELY FQLLUQINU AKO IN LURE 


OUTPUT 

-AX 

MPAC= -AY RADIAN^ 
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USER*S PALE NO. 8 l( Sj 


20fi617 712. 1 1 EAKTHL SETPO uLUAJ 

2of362 : v/wLi7 1 14U 


REF 

29 

LAST 

1249 

26, 3621 

15336 

' i 

‘J 


HloZERUS 





26, 3o22 

a5335 

Wr‘ 

POOL 

POOL 

REF 

2 

LAST 

634 


*j1712 

1 


-A^O 

REF 

2 

LAST 

634 

26f 3o4i4 

01714 

1 


A Xu 





26,3623 

53476 

1 

uCuMP" 

“VDcF 





26,3626 

7765U 

1 

GO f □ 


REF 

4 

LAST 

1249 

2b, 6627 

00051 

u 


EAR iHHXX 


9 


m 


w 


U 


AF: assemble i’lEVISION « 7^ CE nliC PROGRAM AKIEKIi BY NASA 2 21 


i 


PLANtlTARY INuRTIAL ORIENfATlUN 



CCN STARTS AND 
3 LAST 


ERASABLE A:>ilGNMENTS 
124v u4»J7:.7 

2t>t Ao3'- 

r£,363T” 


REF 

REF 


-.26 3 
vlZSA 
y.i.Q 5 
G286 
C287 



i777S 1 

TJzrrsz'T 

,*.33^ i 

1:374 i. 


IBl 

Cu^ i 

5i.Ml 


2U£C'^‘ 




RPREXIl = 
EARTHMXX = 
504KPR 
SINNDCil ^ 
CVECTK 
CVLCTR - 
5,-+ A 2 = 

TIM5U8M = 
5L4LPL 


— rzm 

'239 

C29C 
, l291 

i:292 

1,293 

-'02 4 

'-032 

.024 

u04.j 

wL4Z 

■JOL 0 


AVtH K 
aVcCT \ 
MMATRIX 
COB 

SuB 

5U4F 


,.297 ' ■■ 

2i6 1 363^ 

f f bh5 X 

NUDDDT 

2 DlC'^ 

kZ97 

26| 34j3b 

421/5 1 



^298 ■ 

36 i 3636 

22211 7 

FD3T 

2 D cC 

-.298 

26, 3637 

L a 3 6 1 



C299 " ' 

26 f 36 A^l» 

77777 c 

BDoT 

2DEC* 

C299 

26, 3641 

77767 1 



3* 

20, 3642 

340 Tb 1 

KU31 U 

2DeCS^ 

c 3 '- ■ 

26,3643 

3 j J 6 3 i 



1 

26,3644 

2 ^~l b 7 / 

FSUBO 

2 DECS 

L3' 1 

26, 3645 

06133 ' 



7 3. 2 

269 io46 

C2C52 1 

ESJBO 

ZDEC4 

0302 

26 , 3647 

35257 6 



T3TT 

20 1 

3 f i i 6 V 

Ia E AK 1 M 

2 Uii 

C3D3 

26 , 365 1 

32631 1 



03U4 

26, 3652 

33-576 

AZO 


i.30 4 

26,3653 

1-320 1 




T 1 


I 




Ol 


114- 11 
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USER*S PAGE NO, 


U 


S3 


DPI/ 2 
9 99o4i 


1 SCALED 0-i 

P E-1 B-1* COS (5521,5 SEC, ) 


2^676579t.5> E— 2 b— 1=^ 


SIN (5521,5 SECo) 


51 

52 

V J 
QU 

BD 
80 ■ 
lao 


R-TH-RP ANC RP-TO-K SUBR EXIT 
EAkTHMXjMOONMX subfu exits 
6 KEGS R CK RP VECTOR 


l**i} 

— 

Z’sO 

2' 'll 

320 

340 

60 

^VnT37T6r2¥ 




c 

6 

6 

2 

3 

6 

"G 

6 

18 

2 

2 

1 

1Z"B2F^ 


sjNfKonn — 

u VECIOH MUCN 

c vectr moon 

AZ 

time SUB~M" TKOON) t+t 
L CR LP VECTOR 
A V EL 'I UR T MOON! 

b VECTOR (MOON) 
■M~MATRIX 
CUS(B) 6—1 
SIN(B)^aPI 
F (MUDN) 

RFWcrsi: 


+4o 233263471 t— 9 cJ27* 


-1.145531390 E-16 B28* 
■ 4 B;TZHJr5600 t-i" ■'b'” 


+ 0 75527 3775C E-1 6 


+o» 51194168B“E-2 B 04 


REV/CS, 


REV/CS 


FEVT 


REV- 


REV 


IN GtTAZ 


4 1 71 6C 576rTr~E-7 bZi'^ KLV/CS; 


+7.733314844 E-i 3^^ 


REVS, 
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L ‘'^lASUKEMENT I NCORPURATIC.'J U5tR *S PAGE NUo 1 E : b3 

Pvt 1 INCtJRPl — PERFUK.'IS 1 PE SIX G I MENS I UNAL STATE VECTJk De\/1AT10N PuR POSITl 

RC6'.2 ON AND VELUCI TY UR ThE NINc DIMENSIONAL DEVIATION OP PLiS IT IUN» VELUC 1 TY, A 


RCC-C3 

ND RADAR OR LANDMARK 3IAS.THE OUTPUT OF THE EVECTUK ROUTINE ALDNo WITH T 





KCL- 4 
KT '*• i> 

R V i. ‘ 6 
KC» . 7 

rv : y 

K Ivv 

F£ ERROR TRAN S'lT ION MATRIX (W) Ak L USED AS INPUT TO THE KOUTlNcaTHE DEVI A 

TICN IS GtlTAlNED DY COMPUTING AN ESTIMATED TkACKING MEA^OKEMcNT FkOFi THE 

CURRENT STATE VECTORAND COMPARING il WITH AN ACTUAL TKACKINl, MEAsUREMEN 
r AND applying a STATISTICAL WEIGHTING VECTOR. 

INPUT 

DMENFL^, = 0 60 1 MENS ION AL B VECTOR 1= ^DIMENSIONAL 


- 



KCCf 1^ 

RLE 11 
K'J« 12 

R y t 1 3 

im = eRrck trANsi T Ion Matrix 6xE or 9 x 9 

VARIANCE = variance ( SCALAR! 

Deltas = measured dev 1 at ion (Scalar) 

BvtClOK = 6 OR 9 OIMENSIGNAL 8VECT0R 

— - _ - - 


- - — — 

- - - 

Rl V 14 

OUTPUT 






Fmrsr iJETTAX”- 3Txrr~vn:TuK' "deviattun^' 6n3T(“5"i3TM"E(vjsraN‘Ai: 

Rv( 16 ZI = VECTOR USbO FOR THE 1 NCORPCRA1 I ON 6 OK 9 DlMENSIuKAL 

RCtl? GAMMA = SCALAR 

RLtie CKEGA = OMEGA WEIGHTING VECTOK 6 OK 9 DIMENTIONAL , 

KCC19 CALLING SEwUENCE - - ^ 

K»:l 2 JL CALL INCQKPl 

kCtGl normal exit 


R‘,{22 L + 1 OF CALLING SECyEKCE 


t { 24 

KEF 

1 



36 * 2c;C \ 



SETLUC 

McASINl 

tL25 





3 6 1 32 



BANK 


V L 2o 

REF 

1 




■— 


guUN 

1$/1NC0F 

VI 2 7 

WEF 

46 

LAST 

641 

c 3 f 1 4- C (J 



EBANK- 

W 

cc2e 





36 f 326 . 

7762C u 

INCOKPl 

S 1 3 


cr29 

REF 

1C 

LAST 

588 

3 6 f 326 1 

^231 1 



EGRt 






36, 3262 

6637 t 


AXT ,1 

SSP 

C? 31 





3 Of 326 3 

0 V '..oil 1 



34U 

rc32 

REF 

36 

LAST 

1251 

36f 3264 

uLc5i ’ 



Si 

Li 33 





36,3265 

00022 1 



IBu iXl = 54 Sl= lb 

Uv 34 





3 6, 32 0 6 

bbTR 1 


“A X*f ,T“ 

SSP 

C 1 3 5 





3 6 ,326 7 

O 1 . 02^ 1 



1 bu 

tu36 

KEF 

14 

LAST 

1251 

36,327'. 

'52 - 



S2 

‘037 





36,32 /i 

( L 1 



6 1X2 = IB S2=6 

cc3a 





36 , 3272 

63775 1 

2123 

VLJAC 

MXV'-^ 

L03 9 

REF 

21 

LAST 

631 

36,3273 

'V35'j2 J 



BVECTOk 6VECT0K (0) 

V i 4‘ 

KEF~ 

47 

XAsnr 

1752' 

~~J5T32T4~ 

' /24'6T 0 



W +54U,1 

a 41 

REF 

1 



36f 327 5 

12731 1 


STORE 

Zi ^XdJfZ 

42 





36f 32 7 6 

7777J 1 


VLOAD 


.(43 

KEF 

21 

LAST 

1252 

36,5377 

235 i-. 



BVECTujv +6 6VECTLR (1) 

T 1 ' 44 





36,3»3 . . 

52717 1 


MXV- 

VAD-''' 


A 


E kI'VZSILN m CF AuC FRUGKAi»< ARTEM I S 6Y NASA ^02ii 14*_ J. X 
1. MEASjKt.^Ci'iT I.MCORPOKATlQfyi 


V h5 

‘■?EF 

4 3 

LAST 

1252 

36f 33L' 1 

u2 55 5 

'* h 

V- 



W +1 80,1 

i ( 4 6 

KEF 

2 

LAST 

1252 

36,33 J 2 

75)46 

1 



2 1 +18D,2 

CU4 7 

REF 

3 

LAST 

1253 

36, 33-- 3 

12731 

1 


;> f ORE 

21 +160,2 

:r4e 





3o f Ji3u 4 

nT75' 



YL'DArD 


r 4 

REF 

22 

LAST 

1252 

36, 33 w 5 

03516 

V' 



dVECluk +120 

V. i ■ .S' 





36, 33v 6 

52717 

1 


MXV^ 

V Al)'^ 

51 

H EF 

49 

LAST 

1253 

30f 3 J'j 7 

f 2643 

1 




.i 52 

REF 

4 

LAST 

1253 

36,331. 

7 5046 

1 



Z I + 1 d U f 2 

5 3 

REF 

> 

LAST 

1253 

36,3311 

12731 

1 


S rUKE 

ZI +180,2 

- Z5T~' 





36 1 331 2 

~n~rz^ 



r 1 X T X 


'.,055 

REF 

1 



3o, 3313 

75314 




1 NCURi 

'.:T56 

■“ — 




3o,3314 

431^4 

« 

w 

INCUR 1 

TIX,2 

LON 

5 7 

REF 

1 



36 f 3315 

75272 

1 



2X23 

0C58 

REF 

7 

LAST 

631 

36, 3316 

C27v6 

1 



DRENFL6 


REF 

1 



36 f 3317 

75323 

1 



INCuRlA 

wrp^ — 





Jbf 332 0 

77775“ 

i 


VL.TTTD 


re 61 

REF 

36 

LAST 

898 

36,3321 

1533 6 




ZERUVECS 

re 62 

REF 

6 

LAST 

1253 

36,3322 

02723 



STORE 

ZI +120 

v ; 6 3 





36, 3323 

772v 1 

1 

INCURIA 

SETPD 

vlqad 

wG64 





36,3324 

0 V 1 

o 




65 

REF 

7 

LAST 

1253 

36,3323 

;27.7 

0 



21 

■ " ” 6 6' ” 





36,332ff‘ ■ 

4T7JB 

1 


VSw 

K 1 ii 

‘;c67 

REF 

7 

LAST 

927 

36,3327 

4565 7 

1 



1 FMuOE 

006 8 

... 




36 f ^33 c 

475X5 

c 


POVL 

VS4 

Ji 09 

REF 

8 

LAST 

1253 

36,3331 

6271 5 

0 



Z I + a 

■ cr 7 

* “ 




36 f 33 3 2 

76234 

Jt 


RTd 

TAD 

a 71 

REF 

a 

LAST 

1253 

3b $ 3333 

4565 7 

1 



) PMOOE 

”rT2 





BS ,"3 334— 

'*7 515 

0 


P D VL 

'irs‘3~ 

s 73 

REF 

9 

LAST 

1253 

36,3335 

.,2723 




Li +120 

’74 





36, 3336 

76234 

u 


kT3 

TAD 

. . 75 

REF 

9 

LAST 

1253 

36,3337 

^5657 

1 



1 PMODe 

■ (A. 76 





36, 334 V 

77171 



TAD 

P.XT,2 

vA;77 

REF 

12 

LAST 

631 

3oi 3141 

U3526 

u 



VAKi aNC £ 

‘ ^T8 — 





36 , 3342 

oroT/’O' 

1 




CL 79 

REF 

1 



36 , 3343 

.1114 

1 


6 1 ORE 

1 RI PA 

ocso 





3 6 f 3344 

4L131 

0 


TLOAO 

C.QV 

Cl 81 

K EF 

13 

LAST 

1253 

36,3345 

\ _;>b2 6 




V AK 1 ANC E 

“ re 32 





36f3346 

75347 

3 



^ 1 

or tt J 

REF 

1 



36,3347 

.1117 

1 


S T Ok t 

TEHPVaR 

rrB4 ‘ 





J6 1 33i>t/ 

7TS3'^ 

0 


dZL 


( ' 6 5 

REF 

1 



36,3351 

75360 

0 



INOjRIC 

86 





36,3352 

4.112 

1 

IrC OR Id 

SL2 

cu7 

-. 6 ? 

REF 

2 

LAST 

1253 

3o r 33i> 3 

7j33q 




iN..oaic 

‘ rsB 

REF 

2 

LAST 

1253 

36,3354 

01117 

1 


a \ UK t 

T .. N P V AR 

.189 





3ot 33S 6 

52114 

1 


INCH f 2 

bU i LI 

' ' 9 * 





3t , 3356 

“crBOT'r 



UbU 

I 

• l.9i 

REF 

1 



jiif 33 S 7 

75352 

1 



I NC'jRid 

i r92 





36 1^36" 

615 5 1 

1 

INCOKIC 

TLOmD 

ROU\D 

V . 93 

REF 

2 

L AST 

1253 

36, 3361 

.1114 

1 



TRIE A 

1 '^4 





36t 3362 

754u5 

i 


ORP 

Si2»vl 
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USER'S PAGE NO, 2 E5 S3 


BVfcciuK tzy 


Bt )^'S^ + B(il<^(W+54)+B(2J*( >^*h JJPIRST PAS 
ZI THEN Z2 THEN Z3 


LUGP FOR ZifZ2,Z3 

■ i' 


<* 


Zi*2 + IZ*2 + Z3^2 + VAKIANCL 
CLEAR OVFIND 

TEMP STORAGE FOR VARIANCE 


ll:^j FESu 


Z£US 


.-46 PAGt 1234 






AG3 t:M6Lt: Ki V151 juN .; 7_2 CF AoC P KOGHaM AKTEHIS 6 Y NASa 21 114- JJ.. 


I 


ASUKuf'i.iM I NCCKPURAT lOiM 


USER'S PAGE NO. 


&5 S3 



2 »- F 

J 

LAST 

1253 

36 f 3363 

1117 1 


TEMPVaR 

a 06 





36 1 3364 

7623? 

SL4= 

TAD 

CC 9 7 





36 f 33 0 5 

57570 1 


1 2 

iHT?!' 

PEF 

3 

CTESr 

12 3 r' 

^ 6 f 3 366 

\'iii4 1 


1 RI PA 

C099 





36 f 3^6 7 

63JLj 1 i 

NORM 

INCR,2 

wl';\ 

8EF 

3s 

LAST 

1122 

36,337 . 

V * .5 - 1 


X2 

.J 1 ij 1 





36,3371 

77775 1 

DizC 

*"2 

Cl '2 





36 , 337 2 

77134 1 

SXA, 2 

AXT ,2 

V 1 . J 

REF 

2 

LAST 

93 

36,33? i 

s,2214 i 


KCRMGAH 

1 1^4 





36f 33 74 

v€242 L- 


i J 

V li.5 





36,3375 

4^ 265 1 

auuv 

SdT i"* J 

^ •■J 

KEF 

9 

LAST 

93'a 

36 , 33 7 6 

15320 1 


DPi/4TH 

C1C7 





36,3377 

Ul/oLI is 



(Jij8 

REF 

2 

LAST 

125 

J6f34i. , 

'j34>6 0 

STORE 

"GAMMA 

G1U9 





36,34- 1 

6i 351 s 

TLOAD 

NORM 


“RTF 

4 

last 

1254 

36, j4L 2 

inii'4 1 


IRlPA 

111 

REF 

54 

LAST 

1143 

36,34l3 

CC?47 i 


XI 

112 





36, 34c 4 

653*t5 C 

DLOAD 

Pl jl 

113 

kEF 

643 

LAST 

1248 

Jo, 34v^ 5 

i- - . 1 3 3 U 


MPAC 

114 

REF 

5 

LAST 

631 

3 6 1 34t. b 

C3524 1 


^ tL 1 Aw 

' 113 





36, 34C7 

777 s,! 1 

NORM 


116 

REF 

3 7 

LAST 

1252' 

3^341 i 



SI 

117 





36,3411 

7 ij 46 '-J 1 

XSU,1 

SRI 

i i b 

REF 

- 2 3 - 

LAST 

1254 

36,^412 

6l0 5C 1 


SI 

119 





36, J4i3 

41471 V 

□ DV 

P (j 3 li 

1193 





36 , 3414 

7765 C 1 

GOTO 


f 1196 

REF 

1 



36, 3415 

637u3 i 


K>-a2LUMP 

12 5 





36,3416 

77731 i 

-3 SS'P 


121 

REF 

13 

last 

1252 

36 , 341 7 

c ^ ; 5 2 0 


S2 

122 





36 1 L 

1 


54U 

.123 





36 f 34<^ 1 

6 u 7 / 3 i 

1NGUR2 VlUAD 

VXM- 

124 

REF 

1' ' 

last 

1253 

36,3422 

■ C 2 7 w 7 u 


21 

2125 

REF 

5 . 

LAST 

1253 

36, >423 

75134 0 


R ^1o2l ,2 

iTZ^ 





3F;32f2T~ 

7/236 U 

PUSTf— 

VLO^D 

< 127 

REF 
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1=777' 

v341 

REF 

1 :t 

LAST 

1259 

301 37 \) 5 

01114 

1 



GcL 1 AX 

:34Z 

REF 

14 

LAST 

1259 

36 j 37 o 

01535" D 


STORE 

CCV ■ 

C343 





3 6 f 3 / w9 7 

53375 

0 

F AZa62 

wLoAD 

VAD 

r344 

REF 

12 

LAST 

922 

3 6 1 37 i L 

Cl 543 

1 



vcv 

• 34- i> 

KEF 

20 

LAST 

1259 

36,3711 

Vli22 

1 



CEL I AX +o 

0346" 

■ "REF" 

~TT 

'LAST 

1259 

36 f 3 f i-i 

"1:17543 

1 


3 1 URt 

v<.V 

«.34 7 





36f 3 71 3 

45134 

i 


SXA, 2 

CALL 

■X34& 

REF 

3 

LAST 

274 

36,3714 

C215 

1 



PBODY 

1349 

KEF 

1 



36,0/15 

2342 

t' 



K tCT IFY 

C3491 

- 




36,3716 

77624 

1 

FAZABS 

CALL 


'.3492 

REF 

24 

LAST 

1258 

3 6 f 37 17 

22327 

1 



GRPZPC 

X35^:~ 





3 b f 37^ ^ 

47C 14 

1 


dUil 

K f 3 

C35i 

REF 

11 

LAST 

1258 

36,3721 

C j7.j7 

1 



VcriJPFLG 

352 

REF 

i 



36,3722 

75746 

' J 



D uu S i 

: 353 

REF 

i 



36,3723 

27'j'+7 

1 



ROVLALcM 

'354 



— _ — 


36, 3724 

77624 

1 


CALL 


'.355 

REF 

2 

L AST 

274 

36, 3725 

2m 2 64 

0 



SVuWNZ 

=*7 3 j-si 





3 6 1 3 7 2 6 

1 /629^ 1 

T AZ A6 4 

CALL 


’35 7 

REF 

25 

LAST 

1259 

36, 3727 

22^2 7 

1 



GRP2Rm 

i.358 

_ - — 



. — 

36,373 

77214 

- J 


3UFF 

V L D A D 

C35 9 

REF 

11 

LAST 

1258 

36 f 3 7-> i 

c2746 




CMtNFLC 

C3o^ 

REF 

1 

- 


36f 3732 

75735 

1 



F AZAb5 

c3o 1 

REF 

3 

LAST 

1253 

36,3733 

:.345i- 

» 



1 </a9 

' 6362 

irEF~ 

—g 

"TTSTST 

~T75W 

3673X34" 

L • 1 ? U 1 



s r jRt: 

XTS? 

0363 





36f 3735 

6t? iz> 

tL. 

F^ZAbS 

L Xa t 1 

S f 1 

T364 

REF 

13 

LAST 

1256 

3 6 f j» 7 36 

0231 - 

1 



EG*v L So# 

^ 365 

REF 

B 

LAST 

1196 

36,3737 

uC :. 52 

Lf 



LPRE i 

366 





36, 

77770 

i 


EXIT 


.30 7 

REF 

55 

LAST 

10 63 

36,3741 

0 4655 

0 


TC 

FOSl JUMP 

— 



^T7*ST 

'642 

'~7^VTnf2 

“ZT^ZT 

1 


C AD ?i 

I I'jT^AfCt 

. 3 o 9 





36 ,3743 

52J34 

1 

COCSrt 

H i u 

GOTO 

'37^ 

RFF 

1 



36,3744 

27123 

J 



RJVEPCjM 

371 

KEF 

1 



30,3745 

7 5 o j 5 

■V* 



FAZAd 

'372 





36 ,3746 

45 V 34 

1 

DOCSMl 

RT3 

CALL 
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Li27 IF MGGR UR6IT, b29 IF EARTH 


d5 IF hUON UR6IT, B7 IF EARTH 


0 



STJhE downlink state vector 


PHASE CHANGE 


6 OIMENSICKAL 
9 IJIMENSIONAL 


EXIT 
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I 


L HFASUREMtM I NCU'^FL/RAT I Ui'i U6ER*S PAGE NO* ^ t5 S3 


■ J 7 

3 / ->■ 

3 

REF 

KEF 

2 

2 

EAST 

LAST 

35 

274 

3oi 374/ 
JO » 37 3L 

36,3751 

26774 

20240. 

7765u, 

1 

1 


(jU T U 

KC7EACSM 

SVDW;U 

STORE DOWNLINK STATE VECTOR 


, J7ti 

RfF~ 

1 



36V 3750 J” 

7 57^0 




PAZA ti4 



^3761 





36,3753 

7i.l24 

( 

FAZA2 

XLrlX,2 

L<C,2 



03762 

KEF 

2u 

LAST 

123 7 

36,375't 

CC C J 1 

1 , 



S2 



3763 

REF 

31 

LAST 

1254 

36, 3755 

C004 7 

1 



X2 



\ 3764 





36 1 j756 

536 74 

1 


X A 0 1 2 

V 


- 

3765 

KEF 

3 

LAST 

1254 

36,37j7 

02214 

1 



f>;ORMc»AM 



3 7 616 





3 6 f 3 7 6 L 

57'575“ 

r 



t2 



3767 





36,3761 

43524 

0 


X C HX f 2 

KVw 



'3768 

K EF 

21 

LAST 

I26>j 

36,3762 

V O'Cjl 

1 



S2 

■ 


377 

REF 

38 

LAST 

1253 

2o,3335 



2ERau 

— 

ZERUVcLS 



< 3 7 8 





36,3763 

V' W ■*7 

1 

54l)D 

DEC" 

5^ 

...... 


379 





36,3764 

777/1 


6UU 

DEC 

-6 



tOJST' 





36,3765 

..14 1 

12DD 

IjEC 

12 



ft L 40. 

- - 

- - 



- 





- 

— - -- 














Q 

04; 5 

REF 

1 



31, 2yc.^ 




3c:TL OL 

REA SING 3 


t 

ir 

\ 4'j 1 





31, 37^-5 




bAr4K 




■:;4.''2 

RE?" 

i 







TIDunT^ 

XV7TfdJT< 



4 3 


- 



31, 37. 5 

51575 

1 

NEriZCUi^P 

VLOAD 

AaVAL 

_ , _ . _ _ 

- 

4 4 

REF 

16 

LAST 

1257 

31, 3706 

02 7^7 

li 



Z1 



. 405 ^ 

REF 

1 



31,3707 

24045 

L* 


T u V L 

NCRMZl 



_ 4 6 

REF 

17 

LAST 

126 J 

J if J7 i 

1.2715 

\ 



11 +0 



04 T" 





3T, 37ir 

?r?46 

"I 


AbVAt 

PUSH 



A 3 





31,3712 

5’^ u 2 6 

w F 


DSU 

6MN 



.9 

REF 

2 

LAST 

1^0 ] 

3i,j7i3 

Cl .45 




iVUKt^Z I 



V 41 





31,3714 

63717 

u 



+ 3 


X 

0411 





3ir3715 

45545 

1 


iIl/E i-i a 0 

0 T AD K 



412 

REF 

3 

LAST 

126 f 

31,3716 

77732 

1 


SfORc 

NGK.Ui 



■ ^‘4T3 





^173717 

5i5TT 

i 


srrjszr~ 

kail AL 



.414 

REF 

18 

LAST 

126^ 

31,372 J 

02723 




21 + 12 J 



41 5 





31, j721 

45206 

I 


PUSK 

DSU 



416 

REF 

4 

LAST 

i26u 

31,3722 

0C\>45 

♦ f 



ftCRMZI 



417 





31,3723 

71240 

1 


8MN 

DLJAD 



418 

REF 

1 



31,^724 

732 

0 



hEWZCHPi 



.4i<3b 





37. , 3725 

7T&Zo 



s tadk 




. 419 

REF 

i> 

LAST 

126 J 

J1 1 J7 2 6 

437 32 

V 


Si CALL 

NCK.MZi 

LARGEST ABVAL 


,42^ 

REF 

2 

LAST 

126 8 

3x f ^7 2 7 

6 3 7 J 0 

L' 



KO»#ZCHPi 



v423 




- 

31,373 

6ol45 

1 

KEWZCMPl 

ULOAD 

S X A f i. 

- 

- ^-4 

0 424 

REF 

6 

LAST 

1260 

31,3731 

UOO 45 




NuKH Z1 



0423 


7 

LAST' 

iTSTT" 

31,3732 

OC ■'’^4 

1 



NDiVRZl 

5AVT X r ‘ 


v426 





31, 3733 

62 1-1 

f ' 



i f‘»C K , 1 



o4?7 

REF 

53 

LAST 

1254 

J 1 , 3734 

C 04 7 

1 



XI 


• 

.42 3 





31, 3735 

J.'.-'-'82 

L. 


JtC 

2 



.'429 





3 1 ,373 6 

537/3 

1 


V L 0 A 0 

V jL O 
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. 43 

REF 

19 

LAST 

1200 

3ii j737 

L 2 7 7 u 


Zl 

431 





31,374 

2'':2ij1 ‘ 


• , 1 

432 

REF 

2i 

LAST 

1261 

31,3741 

267u7 u 

ST UVL 

Zi 

• 433 

PEF 

21 

Tl AST 

r26X~^ 

31,3T^2r 

C' 271 3 0 


Z 1 +6 

.434 





31,3743 

776j7 

VSL'? 


■ 435 





31,3744 

20231 0~ 


f 1 

>436 

REF 

22 

LAST 

1261 

31,3745 

26715 0 

STQVL 

ZI +6 

.43 7 

REF 

23 

LAST 

1261 

31,3746 

02723 0 


ZI ^-12D 

r43 8 





31,3747 

66 ',5 7 1) 

VSL’S* 

SKA,1 

n43^ 





31, 375'- 

ZlZOI'O 


f f i 

^44> 

REF 

a 

LAST 

I26u 

31,3751 

L ♦ b 3 


NURMZI '♦'1 

441 

llEF 

24 

LA ST 

1261* 

31,3752 

02723 □ 

STORE 

ZI +12D 

442 





31,3753 

541j0 1 

LXA, 1 

A .Ji iji f 1 

443 

REF 

4 

LAST 

1266 

31, 3754 

02214 1 


NCRMGAFl 

. 444 

REF 


LAST 

1261 

31,3755 

6'J0 43 0 


NCRrtZI +1 

r445 





31,3756 

?7bbL I 

~ X30H 


446 

REF 

l‘J 

LAST 

1261 

31, 1757 

61045 0 


NdRrtZl +1 

447 





3 1 f ^ 7 ii 

Ti} 13'; 1 

5X4,1 

L XC , 1 

i 448 

REF 

5 

LAST 

1261 

31,3761 

i2214 1 


AURMGAH 

C449 

REF 

11 

L A ST 

1261 

31,3762 

“(F;Q45 X> 


NCRrlZI +l 

.45 





31,3763 

4C270 0 

XAt> f 1 

SETPO 

\ 45T~ 

— 

12 

last 

IZfiX ■ 

il , 3 764 

44 i 


N URT-I Z 1 

1.452 





31,^765 

\ut;u3 1 


20 

''453 





3 1 f J766 

77u5C 1 

LjCiT G 


' 454 

KEF 

2 

LAST 

1254 

3 i 1 3 7 o 7 

75416 L 


iAojR2 -3 

• 455 





GO 44 


NQRMZI 

360 
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P ( '1 PPCGRAM CtSCKlPTlGN - ENFlKt CG/^IC SUBROUTiNL LUu SLCTiCN GATE - I SEPTEMbER 1967 

Rl:L 3 PLG NC. - .. LOG SECTION - CONIC SUBROUTINES 

R.'.vtJ MCD BY KRAUSl ASSEMBLY - COLOSSUS REVISION 88 

T< rr ' T — 


k /i8 FLNCriONAL DESCKIPTXCN - 


K ii 
R- 13 

R vli IS 

R L17 
RC019 
HC 021 
TTcTZJ 

RC(.2!; 

RC- 2 ti 
RfxJZb 
.■ C3C 


THE FOLLGhING SET OF SUBROUTINES SOLVE VARIOUS PROBLEM^ INVGLVINb THE TRAJECTORY PKUDUCEO BY A CENTRAL 
INVERSE-SQUARE FORCE ACTING ON A" Pul NT MASSt ASOUTLINEU IN THE CMC ANU Lj^LUhlAk LANblNG HISSiOn GSCiP, S ECU UN 


5*5.i»2<, A GENERAL USAGE PUlNT-OF-VlL W RAS TAKEN IN FokPULATING, MLCHANUlNUf ANO SCALING THE SUBROUTINES, 
RATHER THAN OPTIMIZING EACH FOR A PARTICULAR USE. THEKEHOKn, MtILIIPLE USAGE CAN BE MAUE OF THE SUBROUTINES 
INVOLVING ANY REALISTIC j£T GF CONSTRAINTS. IT SHGULO BE NGTtU THAT ONLY ONE SET OF COOING IS USED, WHETHER THE 
EARTH, rtCON, OR ANY OTHER "CE LEST I AL BODY IS SPECIFIED AS fHE CENTRAL BODYQF THE PROaLETM, PRGVIJED ONE OESERVES 
THE INHERENT SCALE CHAiMGc kEiJUlRED IN POSITION, VELuCITY, MU, AND TIME, AS OUTLINED IN MISSION PROGRAMMING 
UFFTNTTrCiT HE HIS ' NG.' Tj; — TFT S C AN ' SHHT bY~ST^ ADOT Nu "TO THE HU I AbL E ' ' AND 1 N 1 TTTSTl'Zn'TG" TKF ■SUBrCDU- — 

TINES APPROPRIATELY. 

CUE TO THE UNIFCRTITY Ur THE EQUATIONS INVOLVED, CODING GAS MINIMIZEO BY I .EATING INDI VI DUAL EQUAT IONS AND 

BLOCKS OF Equations as subroutines of lower rank whenevcR possible, as a result, three by-products subroutines, 

DIRECTLY USABLE As'“iNDEPENDENT SUBKOUTiNES, WERE bENERATEO. 


J ‘ 3i RESTRICT iuNS - 

Kt(32 THE ONLY LIMITATION IN_THE SCOPE OF PROBLEM WHICH CAN BE SOLVED BY A PARI ICULAR SUBROUTINE IS THE SCALING 

Ri(;34 LIMIT OF tACH PARAMETER AS SPECIFIED IN THE GSOP. THEbE SCALING lIMIIS WERE CHOSEN SO THAT ALL FEASIBLE TRAJEC- 

fttC36 TCRIbS CCULD 8E HANDLED. 

Rv;.37 SINCE THE SUSROUflNES (EXCEPT KEPLER ) USE COMMON bUEHJUTlNES OF LOW^ER kANk hPTCH USE EKaSABLE OTHER THAN 

KC..39 THE PLSHLiST (DUE TO ITS LIMITED SIZt) AND COj-WUN INTlRPREUVE SWITCHES, THE CONIC SUBROUTINES CANNOT DE ALLOWED 

KiL4i TC INTERRUPT EACH OThcK. IT Is UP TO THE USER 10 GUARA.JTcE ThI S CGNDITIUNo 

Ri C4 3 


1 


bAP: 
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L 

CCNIl :.U8K0U1IN£S USER'S PAGE NU. 2 t S:i 

P* t.4A 

Ri. '■ 4 6 

i - 1 i '41' 

\ "j 

PROGRAM CiibtRlPTlGN - KEPLER SuaHGUriNt LATE - 11 OCTOBER 1967 

ROD NC« -1 ' LOG StCTIOM - Cu.HC SUDROU T i i^JES 

MOO BY KRAUSE ASSEMBLY - COLOSSUS 1 )3 AND SUNDANCE 222 

MCD TiaV - 2 1 AUGUST “l'963T TTyRUBERTSORr TO PtRMrr“BACKirATT77G~BY^ MOKE T HAN’ ONE ORBITAL' PcRlUUa 

N Si 2 

MCO NL^ - 3 (DEC 1966) BY ROBERTSON: SUPPRESSION OF X-MCOULU-I NG 

Ka ’53 

MOO^ NU^ “ 4 (JAN 1969) BY ROBERTSON: CLEAR OVFIND AT KEPLcR cNTRY 

RO.Sl 
RC052 
RCf 54 
" "RTnSU ' 

P Cl 5£ 

* Rrc6r 

62 

■ I<rt63 

K' t.65 

FLT4CTiLNAL UE SCRIPT I CN - 

THIS SUBROUTINE, Gll/EN AN INITIAL STATE VECTOR AND THE DESIRED TRANSFER TIME TWvOUGH HHIOH THE STATE IS TO ^ 

BE LPEATED ALONG A CONIC TKAJECVURY, COMPUTES THE NEW, UPDATED SIATE VECIUk* THC TRAJECTORY MAY BE ANY CONIC 

SECTICTi - CIRCULAR,' ELL IPTIU,' FARA'aDETC, HTPEKITOrTCl' UiT^REC T I LI NEAR WTTH RESPECT — TO THE^EARTIT'UTr' ) HE MUUN* nTE 

USE OF THE SUBROUTINE CAN BE EXTENJED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WiTHDUl 

INTRODUCING A'NY CODING CHAITGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES HI POSITION AND VELCCITYo AN I TERA- 
TION ItCHNlOUE IS UTILIZED IN THE CCMPUT AT I ON« 

IF A NEGATIVE TIHE-GF-FLIGHT IS ItxPUT, THE PROGRAM kTLL jOLVE FOR THE STATE WHICH WOULD PRODUCED ^Y^" 

LXTRAPuLATINb THE POSITION BACKWARD IN TXMEc 

";rms-5T“ 

Kt c 6 53 

Kt -66 

IF iHt ABSOLOilc VALUt OF 1 Ht dESIREL TRANSFER I IME tXuEEUS iHe UKBllAL P tHiuU, iHt suBROUl iNt , through a 

MODULAR TECHNIQUE, WILL COMPUTL THE STATE CORKESPONDI NG TO THL DES IKED TIME (WHETHER POSITIVE OR NEGATIVE), 

kCt67 

RCfba 

■Rum — 

R C C 7 3 
RCC75 

THE RESTRICTIONS AKt “ 

lo (PREVIOUS RESTRICTION ON THE NEGATlVt. DESIRcU TRANSFER TIME IS NOW DELETED,) 

2D THE PARAHEi ERs' TNf I HE'"FkDiiLTfrC?rN^TTXi:EED THTTr TTALING LlMilS AS SPELITlEinN IHt CSJPa TF ■“ ^ 

ANY OF THESE LIMITS ARE EXCEEDED, THE RESULTING SOLUTION -iiILL BE MLANINoLESS, 

R t ■" 7 6 

R r>c 7 6 
“RTTBr 

R cC 8 1 

THE NUMBER OF iTERAflGNS AND, THERtFGKE, THE COMPUTATIuN bPLED IS DEPENDENT ON THE ACCURACY OF THL 

GUESS, XKtPNEW, THE AGC COMPUTATI^jN TIME IS APPRUXIMAI ELY ,61 SECONDS FOR INIT I ALIZ AT luN, , /65 SECONDS FOR THF 

FINAL CDFHUIATILHTS, PLUS' ^CBJ ScCONDi FDTT EACH I TER AT lOiC 

Rccez 

R 1 183 

~“RTrOTr5“ 

RvC 86 

f 

* 

RLFERLNCtS - 

R-4 79, MISSION FKQGRAMMING DEFIMTILN MEMO NO, 1*., LUNAR LANDING MISSION OSOP, SECTION 5,5, SGA 

K( c b7 

INPUi - ERASABLE INITIALIZATION REwOrRfcD 

R V « 8 £ 

R L .. 8 9 

R 9 1 
R~C92 

^ SCALE FACTOR ♦ 

VAklABLL^IN POWERS Of 2* DESCRiPilON AUU kLMAKKS 

PRECT ^ +29 FOR EARTH^uP INI UAL PCS IT ION VECTOR IN MLKrs:, 

♦ +27 FOR MOON + 
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vjAP; as 

> t M li t 

t REVISION 

72 OF 

A kjC 

L 

CCNIC 

SU6R0UT INL3 



K .. 

VRECT 


+ 7 FUrx 

EARTH 

♦UP 

("C { i V ^ 



+5 FCR 

MOON 


R^ . .. V5 

XI { 3 8 J ) * 

N OM £ 


♦ 1 NO 

RV.L97 


4 



t S 

Ri-l. 93 

T AU a 

4 

+ 28 


’'DOS 

RCb9E7 


4 



4 

RC099 

XKEPNfcW ♦ 

+17 FOR 

EARTH^DP 

RClv^C 


4 

+16 roR 

MOCN 

4 

RGlb'l 


4 






4 



-w~ 

k^ iu2 

TC 

4 

+ 2B 


♦ DP 

R *. 10*3 

XPREV 

4 

+17 FuR 

EARTH=f=JP 

;s 1U5 


4 

+l5 FuK 

MOON 

4 

R - 1 0 6 







bF A^ C PKUGRAH AKTEH IS bY HASa 2 2 1 i l4^ . li 


USER*S PAGE NO, 


S3 


2U uR -i-, G ACCaRDliNiG TO WHtTHEK THE EARTH OR MOOH, 


^ktsp ect I vel Y 1 is The gehtkal boov 

5JESIREO TRAHSFCR TIME I.T CE-'nioECUHOS I DPI 

HAY BE HGS Ok NEG AND A6SGLUTE VALJl HAY BE GREATER OR LESS THAN ONE ORBITAL PERIOD^ 
GJcSS OF ROOT X OF KEPLERS i: ON IN SwRT( METERS) , SIGN SHOULD AGREE WITH THAT OF TAU^ 
AND ABS VALUE SHOULD BE LtSS THAlM THAI CURRESPONDING TO A PEKlUD,VIZf 2F'I SUftTtSEMI- 
HAJGR AXIS), FOR SPEcD OF CuNv ERGENCE, BUT IF EITHER CONDITION FAILS, XKEPNEW IS kbSEt 
■'by ■ RERL tft TO'nS“p™<~BIJT“VAi. I C^oUEsS e 

PRtV« VALUE OF T iMt IN CEvTlScCS^ HUsT BE LESS THAN ONE URBITAL PERIOD, 

PREV.’ value of X IN SukTIMETERS) o MUST BE LESS THAN AN X CORRESPONDING' TO ONE 
ORBITAL PERIOD, VIZ, 2P1 SORT! SEMI-MAJOR AXIS) 


Rsl’ 7 SLQROUTINES CALLED - 
KOU'B DEL TIME 

Rw li 9 


Rill 

.-s v 1 1 1 

113 
Ri il4 


CALLING SEUUENCE AND NORMAL EXIT MODES - 

KePRTN-2 GOTO MUsT BE IN iNTEKPRElIVc MOJE BUT OVFIND ARBITRAkY* 

KEPRTN-i KEPLER RETURNS hITH XPRcv IN MPAuo PL IS AT So 

KEPRTN CONTINUE 


K> 115 KEPLER MUST NOT BE CALLED DlKECTLY SINCE AN INTERRUPTION Cf IT WOULD DESTROY THE ERASA6LES IT NEEDS TO 
RL117 TFE INTtRRUPTED JOB. THEREbORE THE USER MUST CALL CSMCUNiu Ok LEMCOMC WHICH GUARANTEES NO INTERRUPTS 
FOlig ALSC CALLS KEPPREP TO COMPUTE A GUESS UF XKEPNEW* 

K 12i 


COMPLETE 
AND WHICH 


R‘.121 AECPT EXIT MODES - 

R 1,122 NONE 

K''123 


K 124 


k 12 5 

k; 12s 
k- 127 
F '.128 
k< 129 

k. 

Rul31 
K"'152 
k<-134 
Ri 136 


CLTPO T - 


^ SCALE FACTOR * 

VARIABLE'^ IN POwERS OF 2 * DcSURlPllON aND REMARKS 

RCV * +29 FUR EA'RTH^UP TERMINAL PuSlTlUN VECTOR IN METtRS 

^ +27 FOR MOON * 

VTV ^~r7~F0A EARTH ^oP T fc*RimAL'‘VEi:OClTY"'YECTOft IN RfmCSZCENTrSLC 

+ +5 FOR MOON ♦ 

TC ♦ +23 TKANSFEn TIME IN CENTISECS 10 WHICH KEPLER CONVERGED. ALWAYS LESS THAN ONE PERIOD, 

XPREV ♦ +17 FOR EARTH+UP VALUE OF X IN SwKTtMcTEKS) TO wHUin KEPLcK CDNVERuED, ALWAYS LESS THAN TriF X 

* +16 FUR MOUN * CORRESPONU livG TO Ui^i. PERIuu« 
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L ClML SueRLUT ikes USER ' S PAGE NO. 4 Et SJ 

K‘ 137 FCR uTHER OUTPUT WHICH MAY 8'c OF USE, SEE DEBRIS. 

13 d 

I- V 139 DEBRIS - 

KCIA'J PAKAabTERS WHICH MAY BE OF USt - 

K' 141 ^ SCALE FACTOR * 

Tm42 V7aaAHLb*lN PUWE’RS "0f "2^ 0 1 SCKlTTrOT^ ' A^fU “REMARKS" ’ 

R 144 URRtCT~* i^l “ =^UP UNIT VECTOR OF INITIAL POSITION - _ _ 

R» 145 R1 ♦ +29 FOR EAKTH*OP MAGNITUDE OF INITIAL POSITION IN METERS 

R':i46 ^ +27 'FOR MGCN ^ 

Kt,147 ALPHA ^ “22 FOR EARTH^UP INVERSE OF SEMIMAJOR AXIS IN 1/METEKS 


“Trrr'FS 

Hi 1481 

— * -20 FDR MGCN”» 

TMCCULD ♦ +28 *DP INTEGRAL NUMBER OF 

PERIUOS IN CENT IS ECS* 

WHICH WAS SUETRACTE!) FROM TAU. TO PKuOUCE A 



RT.14&3 

^ 

Ui" 

THAN uHl 

P t K1 OUo 




-sCi^G 

Kcisr 

PARAMETERS 
OP PARAMETERS “ 

CF NC CS^^ 
EPSILONT, DELX, 

DELT, RCNGRM, 

Xi^UUULOf PLlS PUbHLlSI 

REGISTERS . THROUGH 390^, 



TTTl'52 

- - - 

- 

' 

- — . — 

_ _ . - _ _ _ — — _ . _ - _ — — 
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» 4fcj HAGb L266 


y AP : ASS t M i S I CN uK a v: .C PKDGRAM AKl fcHlS 3Y J'iA SA„2-_ 2 J.jL.i^_ i i 

L UCNIC SUdKUUtlNIj 

i‘ 1^3 PROGRAM CcSCRIPTIOiM ~ LAMStHT iUBROUTlNt 
R Ibj PCD NQ* - ‘J 
K - 1*1 / PCD BY KSmUSE 

K.iSS ‘ ■ — — — - ^ 


USER'S PAGE NO, 5 E S3 

DATE - 1 SEPTEflBEK i9o7 

LOG SECTION - CLINIC SUBRuUnNES 

ASSEMBLY - COLOSSUS REVISION BB 


RHo. FUNCTIONAL DESCRIPTiCN - 


r’i t 1 6 i 

RC165 
R vi67 
K-.a69 
R itx 
R^ 172 


THIS SUBROUTINE CALCULAItS IHc INITIAL VELOCITY RcaUlAcO TO TRANSFER A POINT-MASS ALONG A CONIC TRAJECTORY 


fAom an Ini ti al PoSi 1 1 on 


lu A TERMINAL PCSITIUN’IN A PKEsCRlaeu TIME iNTERVAL,> 


rHin^FSUrr'TO'TKAJEClOHY H?3V be 


A SECTION OF A CIRCLE, uLLiPSE, PARABOLA, UK HYPERBOLA WifH KEsPbCT TO THt EAHIH OR THE \QONa THE USE OF TH: 
SL3ROCTINE CAN Bt EXTEroEJ USING OTHER PHIMAKY BODIES BY SiHPLt ADDITIONS rc THE PUTABLE WITHOUT 1 NTRODUCl NG ANY 
CODING CHANGES, ACCEPTINo THE INHERENT SCALE FACTOR CHANGE^ IN POSIIIQN AND VlLUCITYo AN ITERATION TECHMwOL IS 
LTILiZcD IN THE COMPUTAriONx 


KC17 J 

R L 1 74 
R ITS 
R,i77 
Ri 179 
K ■' 16‘ 
R . i '3 2 
K V 184 
K C 1 6 5 
R':iB7 
Rile 9 
K .191 


THE RESTRICTIONS AKt — 

1 « RECTILINEAR TRAJeCICkIeS CANNOT OE COMPUTtO^ 

Zo m ACCURACY DEGRAOATIUN OCCURS AS THt COSINL CE I TRUE _ANUMALY DIFFERENCE APPRuACHcS +lo .. 

3 » THE angle BETWEEN^ANY POSinoN VECTOR AND ITS VELCCl TY VECTOR MUST BE bKEATEK THAN 1 DEGREE 47oS MINUTES 
AND LESS IHAN 178 DEGREES l2,5 MiiiUTESfl 

4. NEGATIVE tRANSFEk i IME Is AMLilGUCUS AND WILL K £S UL f ITTnO SOLUTIOIT; 

5, THE PARAMETERS IN THE PROBLEM MUST NOT EXCEED IHtlR SCALING LIMItS SPECIFIED IN Trit GSOP^ IF THE 
limits ARE EXCEEDED, IhE kcSULt ING SQLUT ION WILL BE MEANINOllSS. 

THl NUMBER OF ITERATICNS AND, IHEREFORE, THE CQMPUTAtlONS SPEED IS CEP INDENT CN THE ACCURACY OF THE FIRST 
GUESS UP THE INDEPENDENT VAiUAoLc, CUGA.. THE AGC COMPUIATION TIME IS APPROXIMATE- 

LY oiiS SECONDS FOR INIT I AL IZAT lOf^, ,069 ScCUNOS FOR FINAL COMPU 1 A T luNS, PLUS ,205 SECONDS FOR EACH iTtKATION. 


'j 


Rtl92 REFERENCtS — 

RC193 R-479, MISSION PRUbRAfTMlNG UEFINITICN MEMO Nu. 

K* 195 SGA MEMC a7— 4» 

TTTT^S 


f1 

,, lunar LANdINo mission GSoP-SECTlON 5„5, SGA MEMO 67-6, 


19 7 


INPUT 


erasable INIT i AL IZ mTION REDUlKEO 


rz 


R 19>? 


♦ SCALE FACTCK ^ 


k . 199 
kCEL' 
RD2L1 
R ZjZ 
R''2i3 
R ' 2 4 


kv2 5 
R •- 2 ) 6 
K , 2l cl 

RC209 

k 021 1 


VAPIABLE^'IN POWERS OF Z* 


DtSCRiPTlOi< AND REMARKS 


R i V E C 


R2VEC 


* +29' FOR 

* +27 FOR 

* +29 FOR 
» +2T F Ok 

ciT^ +‘2'§ 


TC 

<1 I3BDU NONE 

GEGMSGN * NONE 
bUESsW ^ iJCjME 


EARTH^DP INITIAL POSITION VlcTOk IN MET-Rj> 

MQCN ^ 

EARTH^DH rARGEl UK TERMINAL POSITION VECrOR IN METERS 
MOON * 

ro? uESlKEo’Tl^AI^SfSr 1 Irtr In CENT XsTrORUS ^ 

^‘iNUEX REGI^rER SET TO -20 OR -I D ACCURDING TO KHeTHEk THE EARl h OR MOON, 

^RESPECTI VELY , IS THE CENTRAL BODY 

=»SP +»5 IF Jc:>IREC TRANSFER ANGlE 1 8 LcSS THAN IBL DEGREES, IF Gf.EATER THAN IbU 

'J'aN lNTcKPREr;;K SWITCH IJ t>E SET IF NO GUESS OF CCGA IS AVAILABLE, Cl FAR IF A GUESS 


DEG 

OF 


ll: 4 y FEBo 26 , 1^71 ZEUS 


ii /»P; 


fiS ■ > EMBLb _R y 1 1. 1 UN 72 QF A PKUGRAM A KTbMiS BY iNASA 2 .21114- 11 


o 46 PAGE 1267 


L CLl'vIC SUbjiUUTINtS 


USL-R*S PAGE NU, 6 t' S 3 


H 213 
K 214 
H 216 

Rr 2 ‘I 7 


Hx.2l9 

k^' 2 ^ 


K 

K 

Vs 

K' 


L. 

22 2 
224 
226 
22T 


4 

CCGA 4 +£> 

N 0 P!HSH'‘"=r 7 >iCNr 

♦ 

UN * + 1 

VTAkGTAG^ NONE 

4 


'-CuGA TD BE USED BY LAKBtRT 

^JP GUESS UF CUTANGNT Qf FLlbHT PaTh ANGLE IMEASUPbU PROM VEKTICALJ* THIS WILL BE 
i GindRED IF bUtSSW IS SET » 

a:T ini tRPRcT ER: "Slil rcfl TD' 'BTT'SFr'TF'UN' T STTO 1T^“7ITrTRPUT ' 1 L 1 Hb" ‘ SUBROU INF,’ XL h Ak~n=" — 

: Lambert is tu compute its uhn nqrmaL iun), 

-DP unit normal to the DESIkEC QPBIT PLANE IN THE DIRECTION OF THE RESULTING "ANGULak 
^momentum vector* this WILL 36 IGNUREu IF NOKMSW IS CLilAk* 

-A S,P. TAG TO BE ScT Tu ZERO IF LA^'^BERT IS TC COMPUTE THE VELOCITY AT R 2 VHC AS WELL AS 
•^•Ai RlVECo 


R < 226 SC 3 RUUTINES CALLLU - 

FCZZS GEOM, GETX, DELTIM 7 , ITERATOk, LAMENTER (PART OF mEWSTaTE) 

k' 23 7 


Kv 231 CALLINb StUUENCt ANU i'iOR.MAL EXIT HUJcS - 

R. 232 L CALL - - INTERPRETIVE ROUE BUT UVFMO ARBITkAKY* 

Kr 234 L + 1 LAMBERT RtTURNS WITH PL AT AND «ITH VVEC IN MPAC IF VTARGT 7 \G WAS NUN-ZERO OR VTARGET 

— FrC 23 ^ riTTTPSmF" VTARGTAG TiFS ■ ZERO ■ 

kt '237 L +2 BUN CONTINUE IF SULNSW CLEAR SINCE SOLUTION IS ACCEPTABLE 

Rt 239 L +3 SOLNSW 

R’' 24 ' L 14 LArtABURf 

■Rv 2 Al IF A LAMBERT RESULT IS TO BE A FIRST GUESS FOR THE NlaT LAMBEKT CALCULATIONi COGA MUST BE FRESERVFC' aND 

R ^243 GLESSW KLoT BE CLEAR FOR EACH SUCCtEClNG LAMBERT CALL, 

~R 7 I 27 r 4 ■ 


K 1.243 
RC 246 
K- 24 8 


ABORT cXiT MOOES - 

IF SOLNSTi WAS SEF UPON tXITluy, 
WAS TGU SMALL TO PRODUCE A RcALisTic 


Rr25-.~ - 

'ACCDRDT7J5 TCTTTTF'TTEECS OF 

R* 232 

LAMABQRT JLOAO 

A3S 

Rl253 


i-CSTH 

R t 254 

U 

BMN 

RC253 


ONcBTT 

R : 256 


CHANGER2 

■R '257 

■DLCTAD 

CATJ 

R' 258 


1 OESIREU 

R’:259 


SOMETIME 

K L 26^ 

dTCALL 

TD6SIRED 

Rv261 

R< 262 


LAMBERT 

R - 263 

Output - 


RC264 

4 SCALE 

FACTCR * 

R‘' 265 

VAR I ABLE ^IN POWERS OF 2- 


EITHER LAMBERT WAS ASKED TU COMPUTE A TRANSFER TOO NEAR C 

R 2 VEC<, IN EITHER CASE THE FIX 

MOD'E'lTanr BF coded as 

ICS OR 


Transfer between kivec 

TSOR'T'c'XTT 


OR 36 r DEG, OR 
hUST BE MADE 


T 


m ^ f* 


A MEASURE OF 
36 y OEGRcEi>.j 


PROXIMITY 


CHANGE R 2 V EC 01 R.-CT ION SLIGHTL Y 


INCREASE TuESIkcL 


UESCRIP T 10.1 AND REMARKS 


|£,AP ; ASi eMdL£ is i LN v 7^ CF A uo PiiJGRAH MtUErtJS BY NASA 2 21114- 11 ll;4' FEB, 26tlS7L ZEUS o 46 PAGF. 126b 

L CCNiC :>UriKbiJT INES USER'J PAGE Nu. 7 S3 

kC267 VVtC * +7 FOR EARTH *DP INITIAL VuLUCITY VtCTUR IN M£T£KS/Cchjl i SECOND HEOUIKLU TO SATISFY THe " “BOUNDARY VALUE 

RC26V ^ FOR NOUN *PRQDLEN> 

TTTTP vT7rRm“*~+7 FOft EARTH' *Di5n^OTT^>rr“Tn:i:xfrr ve'ciu^ i!rr~"2vtc i h ■MrrcAS/CERn sfconc, 

Rt,272 +5 FOR NOUN ^ 

KC273 SOLNSw ♦ NONE '♦InT LRPRE T Ea SWiTtH WHICH iS S£1 IF THc SUBROUTINE CANNCT SOLVE THE' PR 03L EM, CLEAR IF THE 

Rl27S * *SOLUTIlIN EXISTS, 

1^t276 FCR CTHER OUTPUT WHICH NAY bb UF' USc, SEE DEBRIS* 

R‘^'277 


A 278 DEBPiS - 

R <-2 7 S PARAMETERS WHICH MAY BE OF Uoc - 


A 28 ) * SCALE FACTOR ^ 


R )282 

R ^263 

K 1 28 4 
RC 28 B 

K 286 

- VAITPiFLl'^l 

'A' •At 

D'ESCRTPi lar^" AN"U 

ktHARKS ' 

VERTICAL 

- — 


.V 

f 

SMH 

CSTH 

1 -CSTH 

CC 6 A 


+1 
+1 
+2 
+ B 

s^OP 

^UP 

^uP 

SIN CF angle Between' RivEC anl R 2 V£C 

COSI.Nt or ANGLE 
i-CsTH 

COTAN UF IiiJlTIAL REDUlRED FLIGHT PaIH 

ANGLE MEASURED FROM 

~ki 23 ^ 

P 


+4 

* 0 P' 

ITSTTj — uF' T L H TLTi T inSTiEC T UM rCI 'nniTAT 

lairrur 





R 2 «E 

RI A 


+6 

* 0 P 

RATIO Ge initial RADIUS TO SEMIHAJOa 

AXI s 





K - 2^1 

K 1 ( 320 J^ 

-»-29 

"FOR EARTH-^OP 

INITIAL RADIUS IN METERS 






R .,292 


* 

+ 27 

FGR ^ 







Av ,293 

URl 

♦ 

+1 

^-+uP 

unit vector of klVtC 






R 4 

02 


+ 1 

« 0 P 

UNIT VEcIOR OF R 2 VEC 







A 1 2^B PA1<Aj4ETFRS OF R^O USE _ _ ^ . 

K 2^6 CP PARAKETtHS - EPSILQNL, CSTH-E.HO, TPkEV, TbRKLA.it,, K^, RINLAKb tSP), PLUS PUSHLIST RBGISTEK THROUGH 410 

.<■.298 ACDITIONAl interpretive switches 0:>£C - INFINFLG, 36.SW, SLuPESW, QRDERSW 

R V 3 < L 


OMP; 


L 


P-3 1 

RC303 

KC30b 

“R T 


Ab 3 1 MB^L fc_ V i^lOH '^7Z CF AuC PROGRAM A xT fcMIS B Y N A SA 211lH- jll 


CtMC iUBKUUriNCS 


PROGRAM CESCkIPTIOi'J - TiMb'-THtfA bJdKUUTINu 
PC.0 NG, - L 
PCD BY KRAUSt 


11:4 F£B. ;>6,19?l j fc US u^4q PAGE 1Z6 9 

USER'S PAGE NO. 8 E* S3 

DATE - 1 SEPTEMBER 1967 

LUG SECTION -"CONIC SUBROUTINES 

ASSEMBLY - COLOSSUS KEVIjIjN 88 




Rij' 8 FCNCTIGNAL OESCRIPTICN - 


R . 3 9 
"“RT^T 

R ' 313 
Ri 315 
Kv.^i7 
Ri 319 
K' 3^- 


THIS SUBROUTINE f GIVEN AN INITIAL STATE VEp-TOk AND A DEsikED I RUE-ANOMALY-Dl EEERENCL THROUGH WHICH THE 
"STATE IS TO UPDATED Along A CONlITTKA^a'ECTaRY , ’ CALCUCATlS THE COKRESPONOI NG T'lME-QF-FLI GHT ' ANDf IN ADDITION, 

PROVIDES THE OPTION LF COMPUTING THE NEW UPDATED STATE Vt^T^R, IHc RESULTING TRAJECTORY MAY bE A SECTION UF A 


CIRCLEf ELLIPSEf PARABOLAi OR HYPERBOLA WITH RESPcCT TO THE EARTH UR THE MOON, THE USE OF THE SUBROUTINE CAM BE 

extended using uther primary Bodies by simple additions to the mutable without introducing any cooing changes, 

ACCEPTING THE inherent SCALE factor CHANGES IN POSinCN AND VELOCITY. -- 


R 321 THE KESTBICTIDNS ARE - 

h 322 THE ANGLE BETWEEN ANY PuSI El CN VECTOR AND ITS VELOCITY VtuTOR MUST BE GREATER THAN 1 DEGREE "47,5 MINUTES 

K 324 AND LE^S THAN 178 OfcGRELS 12,5 HlNUIcSo 

R 325 2, THE PARAMETERS IiT THE PROBLEM MUST NOT EXCEED THEIR SCALING LIMITS SPECIFIED TN THE ’GSOP, IF "ITIE" LIMITS 

k 327 APE EXCEEDED, THE RESULT ING SOLUTION WILL BE MEANI NGLESSo 


Kf323 THE AGC CCMPUTATlON TlMc lo APPRUXI MAIELY ,292 SECONDS, 

R - 329 


RC33f'' REFERENCES — 

RT^st R-4 i i , HT'S^Tl JN~PTTUG:<fiHHTNG ■ DE'F INI TTCTr7TE^D'TIJo~T ' , 

Rt333 


rONAtT landing m SSIW G3UP=1,ECI IUN 5,5, SGA KbriLT ’57=B': 


K '..-334 


INPUT 


EKASAELE InIT lAL IA/^T ion kEwuIKED 




R - 33 5 
Rv33b 
T<*:337 
RL338 
RC33^ 
R i 34' 
FT 34 1 
K ' 342 


K^,344 
k 345 
H C347 
R C34 6 
RL3br 

Rv 351 


□ ciCHlPlIO.k AND REMARKS 


4 SCALE FACTOR * 

VARlASL£4iN POWERS UF 2* 

RVEC * +29 FUR EARTH^GP INIIIAL POSITION VECTOR IN METtkj 

4 *27 FOR MOON ♦ 

VVEC + +7 FOR EARTH ^^UP INITIAL VELOCITY VECTOR IN ME TckS/CtNTi SECOND 
4^~T5~FDR''RTjlF — ^ * " "" 


SNTH 4 +1 

CSTh 4 +1 

kVSk 4s NONE 

* 

Xi (38D)*N0NE 


★DP SINE OF IRUE-ANOMALY- difference TURuUdH WHICH THE STATE IS TO BE UPDATED 
★DP COSINE OF THE ANGLE 

★ AN INTERPRcTlVE SWITCH TO BE SET Ir ONLY T IME IS fu BE AN OUTPUT, CLEAR IF THE NtW bTATci 
★IS TO St CQMPUTEC ALSO. 

★INDEX REGISTER TC BE SET TU -2D ^R -1 D ACCuROING TO wHETHEh Tdv EhRTH 3k MOON, 
■?FrSPFCTTVELY ,~rS'THFXEN I RAL BODY'; "" ~~ 


KC352 SUBROUTINES CALLED - 


PAGf IZli . 


(i AP ; ASS.£HBt b Ki^Vl SIUfj f ^ Gh AuC HROb R AH AKTb M lG_§y .NIASA_2 211 14-11 . iJ..L4;_. F£ B, 26,1971 ZhUS 

L CLNIC SUaKUUT INtS UStR ' S _P_AGE NU* 

K 3i>3 PAKA«, GEUM, GETXf aCLTIMt, NEWSTATE 

*334 


* * 


S o 


£ ' j 33 CALLiKia ScQUbNCt ANL NORMAL cXlT HGuES ~ 


K*.Jb6 IF LiNL/ TIME IS DESIRED A3 UUTPUT - 

R* 337 L SET CALL MUST BE IN INI uRPKt 1 1 VE MUUE aUT GVFINO ARliirKARY. 

H ^ L.'^i RV^SW 

- ■ -E+^ ~ nrarmn return rttft fc ' at ~ r^NLrT~iN mp at 

R;36i L*3 CONTINUE 

R 362 


R 363 IF JHE UPDATE STATE VECTCR IS DESIRED AS WELL - 

R3b4 L CLEAR CALL MUST 31 IN iNTERPRtTIVE MODE BUT OVFIND ARBilKARY, 


ir^ 3 b 6 

1 + 1 “ 


RVSw 

R 367 

L +2 


timethet 

Ra 369 




KC 3 7 i_ 

L + 3 

jTCVL 

NEWVVEC 

Rf 371 

L +4 

^ T AD h 


Kv 3 72 

L +5 

j>TORE 

NEWkVEC 

K ■ , 3 7 + 
kL 373 

L 'fr 6 

• on 


Ri ^76 

ABORT 

EXIT MODES 

- 


kLIURNS with PL AT o. TFC INITIAL POSITION ECTOR IS IN D OF THE PUSHLl STRAND 
THE INITIAL VELOCiTF VEClQK IN MPAC« 


NEWVVEC AND NEukVEC AKE SYHbCLIC REPRESENTATIONS OF THE USERS LOCATIONS 

(!un‘tinu“e 


It 37 7 
RT 379 


IF COGAFLAG and/UK infinflg is set at the exit Ts time-theta, timl-theta 

mN alarm COGB (0KT6'INALLY c 6. 71, AND NOT KETURN TL rHE“I.ALU7?G PRCTSTrAiSL 


WILL transfer ru POODOU WITH 
rpXN AND' 721 ) . ' 


1 

• 1 


a 


R ' 3 E 6 


R<387 OLTPUT - 

Rt388 « scale factor ^ 

'k’ 3 BT VAfOTOniE n '1 P 0 w’FR'S "C F' 2^^ ETESUFIPTTON'ANU' REMARK S 


K j- 9 f 

a ^371 
R 3 *5* 2 
1C394 
Rr 396 
K^. 39 e 




T (s Cl =» +23 

INFlilFLG* NONE 

♦ 

C LGA F L A_G_+_ fvlOij E 


^DP TRANSFER TIME In CeNTISECUNDS 

INTERPRETIVE SwITCH WHICH IS StT IF THE TRANSFER ANGLE REUUikES CLOSURE THROUGH 
* INFINITY {\iLi SULLTIONI, CLEAR IF A PHYSICAL SOLUTION IS PlTSSIBLE., 

*AN INTERPRlIIVE SWITCH WHICH IS Sl'T IF RtSTKlCTlUN 1 HAS BEEN VIOLATED (NO SOLUTION) 

*IXeak if nut» ■ 


I 


k« 399 IN ADDiriuN, IF KVSW CLLAK, ThE FGLLQrtiNG ARE OUTPUT 


K ' 4 f 
R * 4 1 


4 2 

R - 4. 3 


MPaC - * +7 FOR EARTH ’^DP TERMINAL VELOCITY VECTOR IN M t rcKS/CtO * I ^eCo 

MPAG +5* +5 FOR MOON ^ 

T C - 5 D 4 + 2 *? FOR cArTH^OP T^rtMlNAL PcTslTIUN VEXlOft IN METCKT^rPL “AT 60 V 

* +27 FOR MDLN * 


K 4 4 FCK OTFitH OUTPUl WHICH MmY EE OF USt, SEE DEBRIS^ 
k'^ 4 i 5 




* 


tjf- - -=" 


1 


UAP : 

L 

K ' *t - t / 

K ' H 7 

k < 4 L; 
(■'.V 4 1 1. 

h 411 
K ' 413 
“*Rr:Ai4 

K i 410 
" R:417 
K' 419 
pv -42r 
K« 421 
~"T(T4ZZ 

K A. 42 3 
ft- 424 
■ R^426 
K .427 


^ IrMbL fc ftEVl SlUN [? 72 OF AbC PKUGftA H AftT E MlS BY N ASA 2- 211 14-' 11 lli4v F b iia 26,1971 ZfcUS « 46 PAG£ 1271 

CCNIC oUilKOUTiNLS USER'S PAGE NO* 1 El- S3 

CEBRIS - 

PARAMETERS wHl CH MA Y BE QE USE - 


T SCALE EACTCR * 
VAftlABLe*IiT POWERS OF 2* 


JESCftlPUUN AND kEMARKS 


R1 J32D)* +29 FOR EAPTH*DP MAGFllTUDE OF INITIAL PUSITIGN VECTOR, RVEC,"* IN MEIERo 

♦ +27 FOk MGCN * 


RTff “ 

P 

CCGA 

LRl 

L 2 

UN 


+6 
4 +4 
♦ +5 
4 + 1 
4 +1 

4 +1 


4JP KATIU OF Ki IL SfcMIHS:3air~AXiy~iNkG.' FUR-HYFtRBULlC rKAJEClURltS) 
4JP RATIO OF SEMILATOS kECTUM TU ri 

4DP COTAN OF ANGLE BETWEEN RVEC AND VVEl ' 

*DP UNIT VECTOR Of RVEC 
4JP UNIT VECTCR OF VVEC 
4DP UNIT VECTOR CF UR14U2 


PARAMETERS OF NO'uSc _ 

SP PARAMETERS - RTNTT , ^EOMSGN, RfNPRM, MAUVEC2=R2 tuPi, PLUS PUSHLIST LUCATiUNS L-ilU, 14D-21D, 24D-39D, 4iD 
ADDITIONAL INTERPRETIVE ^WITCHES USED - NORMSw, 3oySW ‘ 


t^ L yiSl OM .71 liF AoC HRGUKAH /^KTbMIS t5Y KASA 2,211iA- 11 


^ li:4.' FEB. 4i:6«197i ZEU:> 


46 i^AGE 1272 


i 


lCNIo ^GdRGUTlNLi 


USER'S PAGE NO* 11 


h 




t 426 
. 4 '3 ‘ ' 
•" ■;432 

-»?r4T4 


PRUGHAM CcSCRIPliuN 
PCD NOo. -1 
MOD bY KRAUSE 


TIMt-KAOlUS SUBkUUlINE 


DATE - ii CCTGbER 196? 

LUG SECTION - CONIC SUDKOUlINbi. 
ASSEHtiLY - COLOSSUS E^EVISION 88 


R‘43S PUNCTIuNAL DESCRIPTION - 


K. 436 

R V.44 
H. 4^2 
R '■ 444 
R 446 

R ■ 447 
ir'44^ 
Ro451 


THIS SUBROUlIiNE* GIVEN AiM INITIAL STATE VECTOR AND A JcSlREu RADIUS TO WHICH THE 

■StA fc"TS' to BE UPDAIEd AlONg A CCl^trrkAJECTuKT", calculates The COftkESPONDIWniTTE-irr-^n'CTiT'TiTliD’r iN'''3r0DlTTaN' 


PROVIDES THE UP I ION COMPUTING THE NEW UPDATED STaIE Vt^TCR* THE RESULTING TRAJECTORY MAY BC A SECTION OF A 
CIRCLEt ELLIPSE, PARABOLA, UR HYPERBOLA hlTH RESPECT TO THE lARTH UK THE MOON, THE USE OF THE SjBKUUTlNE CA^4 BE 
EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE AQOITION5 Id THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES, 
ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN PUSiriCN AND VELuCITYo - 


IF THE 


DESIRED RADIUS IS BEYOND THE KAuiUS OF APUCENTcK UF THE CONIC OR BELOW THE RADIUS OF PERICENTER, 
BTT sET AKS" THE SffgRDGTiNFlilTrnTtTuRN THt APOCOTeR OR" P ER ICEK I tR SOLUTION, RESPtC 11 VtLV^ 


KRAS 2 
R{453 
R 456 
R * 4S6 
Rv. 46 6 
R \ 4 6 6 1 
R v 43 8 3 
RL45d5 
R< 4687 


TFE REbTRiCTlONS ARE - _ 

1* THE ANGLE BETWEEN aNY PUSXTICN VECTOR AND ITS VcLOCHV VECTOR MUST BE GP^ATbP TH/N 1 UbGREc, 47*5 MINUTES 
AiND LESS THAN 178 DEGREES 12*5 MINUTES-, 

2 * THE PARA ME I TrTTn “ThT" PRO B LEM ■■ WO S T N of “TxcFEiri HITr'sCA CrNTo L rMIT S ‘ 'SPEC IT I ED' I'N "(TSITP; 1” rFFE" 1 I^RTIT 

ARE bXCEEJED, THE RESULTING SOLUliON WILL BE MEANINGLESS. 

3. A I ACCURACY DEGRauATION OCCoRS AS THE SENS I T 1 V I T 1 tS OF' TIME ANg UPdATED STATl VtCTUR TO CHANGES IN 
RDESIRED INCREASE* THIS WILL OCCUR NEAR EITHER APSIS uF THE CONIC AND WHEN THE CC;7IC IS NEARLY CIRCULAR* IN 

Particular, if the conic is an exact circle, the prlbLem unuefinec anc the suBRxuiiNt will abort- 


K-43':> THE AGC CCFPUTAUGN TIME IS APPROXIMATELY *363 SELUNCS 

R u46( 


Ri461 REFERENCES - 

TT^rSS row programming dEKITH TTT nsTKEMa'NDTTr, 

R< 464 


L ON mCTTWDT TTiTTiTs cj I ON' G'SUP-StC 1 lUN 5 '5 , SGA 'PtMU 1S7^ 


rv.465 INPLT - erasable I Nl T I AL UAT ION REQUIRED 


RC466 * SCALE FACTOR * 

ki467 VARIABLE^IN POWERS OF 2* OESCRIPIIOU AND l.EMARKS 

R ;469 RVEC * +2? FOR EAftTH«^dP INIMAL PGSITIO-^ VECTOR IN McIEHo 

' RC47^ > +27 FOR MCCN ♦ 

RC471 VVEC ^ +7 FOR EARTH -DP INITIAL VELOCITY VECTOR JN MET bK'j/Cbf I 1 S LLO.^id 

“Rr:4T2 

Rb473 KCESIkED^ +29 FOR EAkTH'»=DP TERMINAL RADIAL DISlANCt UN Cg U u (kAJcCIGRY Fuk hHlCH TRANSFER TIMt IS TO BE 
Ri475 * +Z7 FOR MuCN ^^COMPUTtO* 

Ki,476 SGNPDQI * NONE *SP TAG SET TO +*S UR -* S ACCUKjIN'j id rtHLTHLi IH . »%ADIAL VELOCITY AT RDESIRED IS TO BE 

R.476 + *PuairiVE OH NEGATIVE, RESPtCTI y-'EL f , T-IS TAGRbLdCtS THE DOUBLE-VALUED PROBLEM TO A 
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k 148 '.; 

K f Ad 1 
R >. AB3 
R TARA 
K A S 6 
RCAST 


Ai t3ao)*NatsrE 

3» 

RVSh 

4 


♦SINGLE-VALUED PRCflLEM, 

♦INDEX RtGIoTEK TC BE SET TU 

♦KtSPECTlVELY, IS THE CENTRAL 
'♦ATT IT3T E R P R ETTVF“S1? ITC H TQ'BF 
♦IS TU dL CUMPUTEC ALSO. 


lu -R 

buUV . 

^E^rr 


-1 G mCCORuING 10 VyHXTHER THE EARTH UR MUON, 




TNirr-TIKt' IS lU BL ATT'-CTjTPirr , CLEAR IF T H E' NEW SfAIE 


RC488 SLaRUUTlNcS CALLED - 

V 89 PAR AN, ' GHjH , TJh U , DbLTlHb , NEWSTATE 

RC49i 


RfASi CALLING SEQUENCE AND NCR HAL EXIT MQDE^ - 


r; 492 IP* ONLY' TIME IS DLSIfttU AS OUTPUT - 

H 493 L SET CALL MU^iT BE IN iNTtRPRcTlVc MQjE bUT uVPIniO ARBITRARY. 

RC495 L+1 “RVSW ' 


RC496 L+2 TIMERAD RETURN WITH PL AT > AND 1 IN MPaL 

RC497 L+3 ... CONTINOF 


RE 49 b 



R(499 


IP iPE UPDATE STATE VECTOR 


RC513 
Rv 315 
RC522 


R t 500 

R v5u 2 
RC5. 3 
RC5- 5 

L 

L4l 

L+2 

CLEARS 

CALL 

RVSW 

TIMERAD 

TrC5T6'‘ 

LT3 

s r Dvx 

N'EwVVEC 

KL5D7 

L + 4 

oT ADR 


KCSCS 

L+S 

oTCR t 

NEWRVEC 

RL510 

RC511 

L+6 

« ta a 


RC512 

AEORT 

EXIT MODES 



IS ObSIRLO AS WELL — 

MUST BE IN INTERPRETIVl NJJE bUi J VF I NO ARa ITRAR Yo 


RtTuRNS WITH" PL AT 6. THE INITIAL PCSITIUN VECTOR IS IN ilS'DF THE PUSHLIST / 
THE INITIAL VELOCITY VECTOR IN HPAC 


NEWVVcC AND .jEWkVEC ARE^SyMBCLIC REPRESENTATIONS OF THE USERS LOCATIONS 
CgNTINUl 


IF SQLNSW AND/un CGGAFLAG aKD/UR INFlNFLo IS ScT aT THE ^XTl TJ TIME-RADIUS, TIME-PAOIUS WILL TRANSFER 
TO PCODCO WITH AN ALARM CODE IORIGINaLLY 6.7), AND .^UT KLIURN T) THE CALLING PKOGRAMa ( PCR 692 C 721) 


Ki 523 
RL524 
Rv 525 
R;526 
R ' 527 
R g528 

Ri 53 p 
' Rt532 
R ..534 
RC535 


CLTPUT - 

♦ SCALE FACTCR ♦ 

VARIABLtXiN POWERS OF Z* uESCRIPriON AND KEMAiG.:^ 


T ODD) ♦ +28 ♦OP TRANSFER TIME IN CENT iSECCNOS 

TNFINFL G^ ' NORT N I N 1 c RP R c T I YE—SWI TC H WHrCH-Tr 3FT' TF*TX>E3TTECr^ro" S ON KDUT "K E 00 IKE " CT OSaR E T HRUU GH - 

♦ ♦INFINITY (NO SULUTIUN), CLEAR IF A PHYSICAL SULUIIU.. IS POSSIBLE. 

CCGAFLAG^ NONE ♦AN INTERPRETIVE SWITCH WHICH IS SuT IF P. tST.. I C I i CN i HAS BT^N VIOLATED ( NU SOLUTION), 


♦ 

APSESW ♦ NONL 


♦CLEAR IF NUT,. 

♦AN INTERPRETIVE SWITCH WFICH IS S^f 


IF FfESUED WA:. GrfcATER 


THAN RADIUS OF APOCENTER UR 
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K b J 7 

R‘biS > 

S41 ♦ 

~,s . 5'4iT ■■ scnrs^w-'-^n^c 

). ,3413 

rl'' 5415 

Kf 542 


'^LEsS THA.4 kADIUS OF P EKlCbivlcR. Irit APLLE^TlR OR PEPlLtNTER jULUTlUNt KcSPtCT I VhJ_Y , 
*WILL THEN 3t HbTUKNfcO, THE SWITCH ii LLtAK IF RDcSlRED WAS GETWEEN PERICE/MTER AND 
4'APuCENTtR^ 

T3TrTNTckFRFriV E"3wITCH'wfiICri ■I'S 'SET^Tf THE rai'^lC~TS^“^trrLOSt“TiJ A ClRC'Lt THAT THE I'ERMIN 
^PUINT IS ArtBlbUQUS, VIOLATING RcbTRlCTIUN 3. IF ECCENTnlCITY IS GREATER THAN 2-Tlj“THE- 
■^4^INUS~i6* THE SWITCH IS CLEARa 


f 

J 

t 

I 


k. 543 IN AUDI I ION, IF RVSw IS CLEAR, THE FCLLOWINO ARE OUTPUi- 

' ■ . . I - ~ ‘ ' » ' ' I 


k(544 MPAC - ♦ +7 FOR EARTH *JP TERMINAL VELOCITY VECTOR IN MEIER^/CENTISEC 

Kt545 RPAC +5« +5 FOR MCON ^ 

Ki.54fc :C - 5C ♦ +29 FOR EARTH^^'OP TERMINAL POSITION VECTOR IN He TERS t PL AT oLJ 
R-547 * +27 FOR' MOON * 


RC54y FCR OTHER OUTPUT WHICH MAY BE OF UsE, SEE DEBRIS^ 
Kl54Q 


KCSS-: DEeRIS - 


k*-55i PARAMETERS WHICH MAY BE GF USE - 

K’-552 * SCALE FACTCK ^ 

R' 553 VARIABLE-J'IN POWERS OF 2^ OcSCRlPf iON AMD REMARKS 


R(555 Ri 1320) =» +29 FCR EARTH*DP MA&NITJuE OF INITIAL POSITION VeCTUK, RVEC, IN METERS 


RC557 

R 558 

R C 56 

R . 561 
RC563 
Re 56 4 

RIA 

P 

CCGA 

URl 

U2 

^ +27 T LR 
* +6 
* +4 
+5 

4 +1 

4 +1 

MUCN ^ 

♦ up 
»DP 
♦uP 

-^^DP 

♦ UP 

RATlu OF Rl TC SEHlMAJUt\ AXIS (NEG, FOR HVPcKbOLlC 
HATIU OF SEMILATUS KECTOH TO Kl 

COTAN OF ANGLE BETWEEN RVEC ANu WtC 

UNIT VECTUR OF RVEC 

UNIT VtCTQK CF 4VEC 

T RAJ uCl UaI t:S ) 

- - — 

RtbSS' 

~UTr 

— 

^XJF“ 

UNII VEXlluR tJF“URT*OZ' 



kC566 

CSTH 

4 +1 

♦ UP 

COSINE OF TRUE ANOMALY DIFFERENCE BEIWEEN RVEC AND 

ROESlRED^i 


In 56 S 

SNTH 

T 41 

‘ - UP 

SINE OF TRUE ANOMALY DIFFERENCE. 



RC5oQ 
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R<5? 

PARAMETERS CF 

NC USE - 


"Z. -1. . ’ " h. 



R-571 SP parameters - RTNTT , ^ECMSGi^T RTNPRM, MAGV EC2=k2 ( DP), PLUS PUSHLlJr LOCATIONS -llD, 140-210, 24D-59D, 41D 

K.573 ACOITICNAL INTERPRETIVE SWITCHES USED - NORMSW, 36oSW 
R 1 574 
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LUG SECflUN- CONIC SUBROUTINES 
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RC582 FUNCTIONAL DESCRiPTlLN - 


K v583 

Hi. 587 
R'.:589 
R ;591 
“RC592 


THIS SUORuUTINEf GIVEN AN INITIAL STaTL VECTOR CALCULATES THE RADIUS UP PERICENTEK 
EcCbNiKlCi lY liE THE'RtSPLlING CDTHU TRA;i'ETrrDRTr~ffRTCH~~RAT~B'F~ A S T RAIGH I LlNc i 

CIRCLEf ELLIPSEf PARABOLAi OK HYPCkBOLA WITH KESPECI Tu THE EARTH OR fHE MOON* THE USE uF THE 
EXTENDED USING OTHER PkIMARY dOOlES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY 
accepting the inherent scale factor changes In POSiriDN AiNO VELOCITY, 


AND OF APUCLNTFK AND THE 


SUBROUTINE CAN b£ 
CODING CHATJGES, 


kC593 THE RESTRICTIONS ARE - 

RC594 1, IF APOCENTER IS BEYOND THE SCALING OF POSITION, THE SCALE FACTOR LIMIT (536,87(,9i{ METERS WITH RESPECT 

R>"596 To THE E^RTH OR 134,217,727,5 METERS WITH RESPECT TO Trie MOON) WILL BE RETURNED-. 

R'^1>S6 2, Trie PARAMETERS IN THt PROBLEM MUST NUT EXCEED THLIK SCALING LIMITS SPECIFIED IN THE GSUP, IF THE LlMITci 

ARE EXCEEaED, THE RESULTING SOLUTION WILL BE MEANiNGLE:»s. - 


kC6 I THE AGC COMPUTATICN TIME IS APPROXIMATELY '•iJT'SEC'ONDSo 

R ■- 6i,2 


K^6r3 REFERENCES - - - . 

R^6r4 MISSION PROGRAMMING DLFINITIUN MEMO NO# 1., LUNAR LANDING MISSION GSOP-SECTION 5,5 

■RT-6i:7 


Ke6U7 I^PUT - EKmSABLE INIT IAL IZAT 1 CN KEGOIRED 


R<.6C8 

irrrsoF 

K ( 6 1 L: 

R veil 
Rc612 
R vG! 3 
RC614 
T<T615 
RC617 
RC613 


^ SCALE FACTOR * 

VARmBCT"^ IN POWERS OF 2* TrE:SCT;TFTTLN"aND REHARTCS 

R\EC * +29 FOR EARTPr*DP INITIAL POSITION VECTOR IN METERS 

♦ +27 FOR MQCN ^ 

VVEC * +7 TOR EARTH ^OP INITIAL VELOCITY VECTOR IN Me TE kS/CENTI SECOND 

♦ +5 FOR MOON ^ 

71 ' Ti^ID iNONE GTNDEXniFGrrS I bk IL’ Bh SET'TO' ^ZT"CR’- i ~ d“ AC COkOlNG'TU KHE l hER 

♦ ^RESPECTIVELY, IS THE CENTRAL GUDY> 


I HE EAKIH UKTiODin 


Kr619 SUBROUTINES CALLtU - 
RLFSre ~ 'TOR ATTr^G ECTT ' ' 

Rw621 


CALLING, StDOENCe AND NORMAL EXIT rlQueS - 



k V622 


a I 40 FaGE 1 «i76 


G M : 

^ . - - 

ASSEMBLE KtVlSlON 

'72 CF AoC 

L 

CCNIC SUeROUTlNE 

S 

R‘.623 

IF uNLY TIME 

IS DESIRED 

K ^ 6Z4 

L CALL 


RC626 

L + 1 

APSIDES 

K LoZ 8 

L + 2 c»TOOL 

APUAPSE 

K » 62 9 

L + 3 

cO 

R! 63' 

L+4 jIURE 

PERIAPSE 

R 632 

C 5 m m 9 
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AS OUTPUT - 

MUST JL IN interpretive HuDE GUT JVFINU ARBITRAHV. 

RETURNS RITH PL AT , KAGlJo UP APOCENTER IN MPAC AND RADIUS OF PERICENTER IN 0 


APUAPSE AND PcRIAPib ARE SYMBOLIC REPRESENT AT I ONS OF THE USERS LOCATION^ 


CONTINUE 



Rt.04L 

KC 641 
K S642 


OUTPUT - 

* SCALE FACTOR ^ 
VARIABLE^IN POWERS Of Z* 

KPAC * +29 FOR £ARTH=^UP 

?— +27 FCR MQCN * — 


OEsCRAPTiON AND REMARKS 


RADIUS OF APOGENTER IN METERS 


t C~liJ 


ECC 


^ +29 FOR EARTH’S^DP 

* +27 FCR MCCN 

* +3 ’i'DP 


RADIUS OF PERICtNTEP IN HFIERS 


ECCENTRICITY CF CONIC TRAJtCTCRT 


RCoNi FCR OTHER OUTPUT WHICH MAY b£ UF USEt SEE DEBRiSa 


K C644 


Rl 645 


CEBRIg 


Ri 646 


PARAMETERS WHICH MAT 8E OF USE 


K C 64 7 
RLtj4 8 

K 6 4 9 

RC65 - 
RC.652 

VAiUABLE^IN P 

_ _ __ * 

Rl liZOi* 

+ 

+29 

+27 

R 1 6 5 3 

KIA 

* 

+ 6 

K s 655 

P 


+4 

R > 65o 

CCGA 


+5 

R V 65 3 

CRl 


+ 1 

Ri 659 

uz 


+ 1 

K ^66 

LN 


4 1 

k.66i 

MAGVEC2 

* 

+ 7 

R 662 



+ 5 


DE ,>CRIPTIUN AND REMAkK:! 





MAGNITUDE UF INITIAL POSITION VECTOR, RVEC, IN METERS 


■^TTF 

❖up 

*DP 

❖DP 


DP 


■K'ATTIJ Or Rl I L“S"tMI/'WaLlR~AXTS ‘ tNEGr FOR"FrVPcHBiJLlC !RAJtClUKitS J 
RATIO OF SEMILATUS RECTUM TO Rl 
Cut AN OF ANGLE BETWEEN RVEC mND VVeC 
UNIT VECTOR OP RVEC 
UNIT VECTOR OF tfVEC 
UNIT VECTOR OF URi+U2 
KS(jNlTUDe OF VVTC “ 
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1367 
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1293 

12,3217 

5^^744 1 


i A 
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12,3221 

i: 0 4 J c 
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TAD 
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1 
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kU .>11 

139C 





T2,3246 

7r65i: 

1 


30 TCi 


1391 
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CVTTXCR 
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1 
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2 
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1 
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1 
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KEF 

3 
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1 
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1 


UEEi9 
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12, 3263 
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iTOf 
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\ 
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1 
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1412 
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l! 
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b 
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R2V cL 
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2 
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1 
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12 
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:0=CSTh t+1) 

PL 

AT 

2 
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5 
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63301 

L 
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4 
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72 

LAST 
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1 
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1 
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1 
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1 

ST uRE 
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1425 
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1426 
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4 
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1292 
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1427 
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2 
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12,3316 
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1 
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1428 
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1429 
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PL AT 4 

1431 

KEF 

73 
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Xi 
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0 


1433 
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1435 
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1407 
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13 
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1296 

12,332 

-2732 C 
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6 
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144 ■ — 
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3 
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12,3325 
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1441 





12,3326 
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1442 
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2 
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2 
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r 
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1 
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12^1 
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1451 
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LAST” 
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12 f ^ 7 
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1453 
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1454 
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1455 
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1 
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1 
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f 
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4 
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REF 
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1462 
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L - i V 1 
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1463 
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77745 

1 
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4” 
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74 
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4 
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1472 
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56237 1 
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1473 
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1474 
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147 5 
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1476 
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2 
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8 
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9 
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1297 
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T 
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75 
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Q 
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1484 





12,34^7 
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1486 ■ 
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3 
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12,'T4T1* 
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11 
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S lOJL 
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1 
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2 

LAST 
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1 


CbFX 
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12,3417 
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1 
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13 
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i P t\ t V 



1495 
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7 
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12,3422 
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1496 
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L. 
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4 
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1 
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A 
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3 
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1289 
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1 
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1 


dXGTIME 
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4 
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1 
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KEF 
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f 

1 
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12,3433 
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1 
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e Do u 
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2 
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12, 3434 
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u 
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1 
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1 
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i 

c 
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0 
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’ 3 
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12,3442 
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v' 
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V 
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1 
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14 
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15lS6 
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2" 
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2 
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1 
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1 
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i 
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646 
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3 
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1 
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1 
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1 
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L AHbuOUP 
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i 
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14 
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1 
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REF 
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1 
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R174 

RCV 

ERAS E 

+ 5 






2GtC"S‘ 1 o996Gv 493 t5 3-la^ 


SQRTtMUc J 


2DlC* 


67329 t-5 6+17* 


1/SCRTlMUE) 


2uEC 


4-y*3277o u8 U-J. 


MUM 


2DEC 


*2-^35oo c;~8 E+23 


1/KUH 


iX 


2DEC* ” 2a2i422l76 E4 8-13=?^ 


SORT ( MUM > 


2DlC'^' 


43132393' E-4 1+ 14^ 


i/SOKTCTim 


WUALS LJDPMAX 


GPPUSMAX" IK LOW MEMORY. 


<1 


E QUA 13 
EQUAL j 
cw JALS 


1 - #• 
HU 

luU 

ioJ 


if 
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< 1741 
ftl74E 

R 1743 

VCV 

RC 

XPREV 

ERAS E 
ERASE 

ERAS t 

+ 5 
+ 1 

+ i 

- 





- 

— 

- 

’ - - — - 

K 1744 

CEBRIS - 












17^5 




w 1 

/LPHA 

coUALS 

SD 






1746 




0012 

XMAX 

E^^JALS 

1 j 





H 

1747 




0014 

XMIN 


12U 





- - _ L ' 

1746 




0024 

X 

EQUALS 

2 D 






l74S 




0^ s % 

XI 

EQUALS 

ii4j 






17 5 




.'-32 

SIXI) 

c<yUALS 

Z6L) 






1751 




L-- L' 3’^ 

XSQL IXI J 

Equals 

200 






1752 




vy J^6 

7 

c QUALS 

■J J 






1753 




ujJ AC 

Ri 

EQUAL a 

32D 






1754 




i:^42 

K6PC1 

EmU ALS 

34U 






1755 




' AA 

REPC2 

E0UAL;> 

3o0 






R1756 

CELX 

ERAS E 

+1 










‘ R 1757 

CELT 

ERASE 

+ 1 










K 1758 

URR fcCT 

ERAS E 

+ 5 










♦<1759 

RCNCRM 

cH AS E 

i 










R 176L 

XPREV 

EQUALS 

XKEP 











kl76i 

Ki7c2 

K 1763 

LAMBERT 

INPUT 

RIVEC 

SUBROUTINE 

ERASE +5 


- 




R 1764 

R 1763 
ki766 
Ri767 
kl766 
R1769 

R2VEC 

TDESIREJ 

GEOMSoI^l 

GOE S^ 

COGA 

NCRMSW 

ERASE 
ERAS E 

Eras e 

ERAS £ 

+5 

+ 1 
+ 

+1 

l IF COGA GUESS AVAILABLE, 1 IF NUT 

Input only if gjessw is 2eRo« 

0 IF UN TU Be COMPUTED, 1 IF UN INPUT 




% 

rs 

"TUTT- 

~DTf 

7:KA^ E 


D?5tY USTC TF' NORRSW IS T 





P. 1771 

vtargtag 

ERASE 

+ L 






' K1772 

ThEEKIT 

cUUA LS 

4jD 

only USEC if oUcSoV^ iS 





R 17 73 

CUTPUl - 

— 





— - 

KX774 

VTARCET 

ERASE 

45 

AVAILABLE ONLY IF VIARGTAG 1 cr ZERO, 





K1775 

VIVEC 

EQUALS 

MPAC 






K 1776 

UEdRlS “ 







Ri777 

kTNLAKB 

ERASE 

+ 0 





' #■ 

k1778 

02 

ERASE 

+5 






R1779 

MAGVEC2 

ERASE 

+ 1 






RlTm^ 

“OKI 


+5 






Ri731 

Rl 

EQUALS 

31D 






R1782 

ON 

ERASE 

+ 5 






K17a3 

SMH 

ERAS E 

+ 1 






R 1764 

CSTH 

ERAS E 

+ 1 







I 


.1 


jAP: assemble REVISI ON ^72 CF AbC PROGRAM AKTEMlS BY NAS A ^211 14- li 


L CCNIC SLeROUTINES 


R 17d5 

l-CSTH 

ERAS E 

+1 




^17 36 

CSIH-KHG 

£R AS £ 

+1 




i7d7 




u 1 6 

CQGAMAX 

EwUAL:> 140 

1788 




CTTHT 

CUGAFl ll^ 

EQUALS QD 

1789 




v) 1 

LGOU'A 

EQUALS 120 

R 179(; 

TWEEMl 

EUOaLS 

400 




K1791 

P 

ERAS E 

+ 1 




k17S2 

C OGfi^ 

ERASE 

+ 1 




R179'3 

RIA 

ER AS E 

+ 1 





X' 

EQDATS 20 D 




A 179 5 

xsy 

EQUALS 

220 




K 1T96 

XI 

HQUALS 

240 ' 




R17S7 

StXIi 

EQUALS 

260 




R1796 

xsQcixn 

EQUALS 

280 




R1799 

T 

EQUALS 

300 




— R 16 "C ' 

KTFtn 

irQUAfS 

:J^U 




R18'. 1 

KEPC2 

EQUALS 

36U 




Ri802 

^LCFESV* 






R 18t 3 

SGLNSW 






R 18 >4 

CTHERS - 


A 




R18v5 

RVEC 

e wUA L s' 

RIVEC 




R 1806 

V V£ C 

ERASE 

+ 5 




K18L7 

CCGJFLAG 






RieC'B 

ftVSR 






■ R18u9 

IKFINFLG 






R181: 

AFSFSW 






ft 1811 

j6Trs^3 






ft 1812 

RTNTT 

£QUA LS 

RTNLAMS 




i<1813 

ECC 

ERASE 

+ 1 ' 




R 1614 

RTNIR 

£<2UA LS 

KTISiL AMB 




R1815 

RTNAPSE 

EQUALS 

RTNLAHtr 




R1816 

R2 

E wUALS 

MAGVEC2 




— rarr 




Ou 3 ' 

CC^ £ 

zQUAlS 

R1318 

RTNFRM 

ERASE 

♦ U 




R 1819 

SGNRDCT 

ERASE 

♦0 




R 182-: 

RCESIREO 

ERAS £ 

+ 1 

— — 



R1821 

I TEPATGR 

oUBRCUTiNE 




R 1622 

CPDERS W 



- - 



1823 




Uu 16 

RAX 

LqUAL^ 

1824 


' 


UC IL 

HIK 

EQUALS ED 

Ri825 

INOEP 

cRASE 

+ 1 




IFZ6~ 




wr4 

OELlNOtP 


1827 




UL26 

1 T cRCTK 

i.QUAlj 22J 

1826 



— 

UG3 6 

CEP 

EQUAL^ 3 k '0 

R 162Q 

CELCEP 

ERASE 

+ 1 




R183w 

DEPREV 

ERAS E 

+ 1 
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USER'S PAGE NUc 46 c5 S3 

1 

CLOBBERS i/MU 





CLQbBEKS 1/MU 


G/iP: 1 

^SStMBL£ REi/lSiCN v. 72 LF AbC PROGRArt ARTtMIS 37 NASA 2 21114- ii li:4 FlG. 26,1971 ZbUS .., 46 PAGE l3-''a 

L 

CCNIL SieKOUTINES USfcH ' 5 PAGE NOc _47 _ t5 S3 

Ib^ 1 

oG5C TWctKIT EQUALS 4-3 

R 1832 

HERE KEPLER 

R 1633 

EPSILON! ERASE +1 

Rlfa34 

MERE LAMBtRT 

R 1835 
Ri836 

TERRLAMB EQUALS OELDEP 

TPREV EQUALS DEPRfcV 

J 

R 1837 

EPSILONL EQUALS EPSILQNT +2 DGU3LE PRECISION WORD 


L, .ip: /ASSEMBLE t^tVlSICN i;72 LF AoC PRUt7KAM ARTtMIS BY .NASA 


I 211 It- i.i 


A F;.dc 2cjl97i ZEUS 


*14 6 


A' 


3 f: 


13 


I IMEGRATIUN INITIAL IZAT I uN 


U.j 'S PAGi NOc 1 cl> Sa 


^ 6 

P ^ ‘ ? 

Ka yft 

■R '■.r .,9 

K *, I' L I 
k '.A 13 
K'.' 15 
R CC 1 7 

R ! I 1 8 

~TrG. 7 I 9 
ki/ 21 
R Tv 2 3 
k ' jw 2 5 

R'wC26 

k€G27 

k^ • 31 

k ''''az 

P. ^ ' 34 
pa ' 35 
K<\;3C 


k A 42 
PA 4 3 
R V I 4 4 
k -145 

— RT:r4Z,' 
K )1 4 7 
R.:.r45 
k L 5 . 
RT C5i 
R .v52 

— RT~~53 
i\ VA 55 

■ RCC 57 
ktC55 
k - I 61 
kvC63 
R<..0&5' 
k uC o 7 
RCC 6 9 
Rvl.71 
RCC 71 
kt,C73 

— RCC 7 5 
RCC 76 
RCC 7 7 
R r I 7 5 
RO'.'Bl 


1*0 IMRGJUCTILN 


FRO»*rA USarS'PUINT TrF''VrFh\, ORBrna* TNILGRATTOR" is ES’ScRiTrSirLT^Pt'ic ST^FTV S TriEFTTB’nri I ^GKATIUN ' 

PKOCRAH. THE SAME EMKrt.^ufci TO THE PRUGRAM WILL Gt .MAlNJ AliVCUt I PiL SA*iE ^TaLc-INo ROUTi.Nu WILL 3E UiED AND 
CLTPUT WILL STILL BE YIA THE PUShLlST, THE PRIMARY DIFFEkEHcES fu A UjEt ilNVGLvE THF ADDEu GAPAOILITY DF 
ItRMNATlNo INTEGRATION AT A SPECIFIC FINAL RAUIUS AND Tht uifFEhtNCL IN STaFE VLCTOk iCALIHG INSI JE ALU OUf- 
SIDE THE LUNAR SPHERE uF INFLUENCE, 


IN LRUE R T C r"W HX rT HE ' CSW TLF MJPKEC AND CSP ( L E M ) CO NIC EN TRA NCES "S T HILAP. T U F. I' SKT 2 
WILL irSELF SET THE FINAL KAUluS (KFINALJ Tu L SU THAI RtACtllNu IHE LESI..EJ i IM 
IKTEGRATIUN. THE DP REGISTER RFINAL MUST 3£ SET BY USERS QF iNTEoRVS AND DTICRV, 
CALL TC iMTSTALLo 


7 81 ~'TFr: I TIGRA T I D N PROGRAM 

LklY will TcRMINATE 

-laST PE DONE AFTER THE 


I 


WHEN THL lM IS ON THE LUNAR SURFACE tlNDlCATED BY LUNAR SURFACE FLAG SET) CALLS 10 L^FCUNIC, LEMPREC, AND 

ITTTEGR T T VrT R~V17TFrTC~~ = ' : W I LL R E 5 UE T ~ 1 N T H E ' CSr^T F TH E F IANE T ARY INcR T I A F UK 1 LfT.'T TDN SU^RnUlINES TU PROVIDE 

BOTH THE LMS PGSXTlON AND VELOCITY IN THE REFERENCE CCuRLINATE SYSTtM, 

THE PRUGhAH will PRGVIDE OUTPUT AS IF INTEGRATION rAS USED, THAT ISf THE PUSH LIST RTLL3E SET AS TIUTED RELOVT AND’ 
THE PERRAWENT SIATE VcCTOR UPDATED WHEN SPECIFIED BY AN IM EGRV CALL. 


USERS UF INTEGRVS DESIRING INTtGRAflUN (INTYPFLG = ) SiiJULD NOTE THAT THE UBLATENESc. p^KTURBATIDN COMPUTATIUN 
IN LUNAR v lF E l TTT TiHTT j E P ENDEN f p I HfcR EHLRL, THE USuR oHLULD SUPPLT“ArT“rNl I 1 AL~’ ST’AFE ' V tCTDirTALlD A1 SOME ■RTFAr" 
TIME AND THE DESIRED TIME tFDECl) ALSO AT SOME RLAl TIMt. FOR CONIC f , I NT EGkAT I ON , , IHc USER HAY STILL USE ZERO 
AS THE INITIAL TIME AND DELTa TIME AS Ihf DESTREO TIMco 

2,C GENERAL DESCRIPTION 


THE INTEGrATICN PRGoRAM OPERATES AS A CLOSED InTEkPkL 1 I Vt sUdkOUTINE 
1) 1NTEGR1VTE5 iPRECTsION OR CONIC) LITHER CSM UR LP STATE VECTOR 


A.SiD PEFFOK iS TH:ME EUNCTIQNS- 


2) INTEGRATES IHE W-MATRIX 

3) PERMANENT OR TEMPORARY UPDATE OF THE STATE VECTGk 


T HER E AR E SIX' ENTRANCES — TO THE I NT EGRA T nTN'T^TKTRAFiV " FuUKs"TJF“Th - Si. tCSHPKECT LEPPKCC , GSKCONICt LEMCOnIC) Sbl 
ALL THE FLAGS REUUIRED IN THE INTEGRATION PROGRAM ITSELF TU CAUSE THE PRECISION uK LUMC INTEGRATION (KEPLER) 
THE L.M CR C5H STATE VECTOR, AS THE NAMES SUGGcST. UNE ENTRANCE (INTEGRVS) PERITTS IdL CALLING PROGRA.'; TO 
PROVIDE A STATE VECTCR TO d c INTEGRATEDo THE CALLING PKJukAM MUST SET THE FLAGS INDICATING (1) PkECISiOM OR 
CONIC INTEGRATION, (2) I i.. OR OUT OF LUNAR SPHERE, 13) HIDCOURSt OR NOT, AND THE ITyr^GkAriON PROGRAM COMPLETES 
THE FLAG SETTING TO BYPASS W-HATRIX INTtGRATIJN* THc LAST EMfsANCE (INTEGRV, USED li CCNLKAL BY THE 

mV I ^riTC i^' P REU K m sr P ERHITS the caller" T iJ"SET“FT7c'TIAGT‘TTlJT"7I0DTIFi:AT;~DK“m (T'X;;Gl" ;ui NUI" I U'lTIPUT* A^TTiTF" 

VECTUR. ANY PRJGHAM WHICH CALLS INTCGRVS OR INTEGRV MUsf CALL INTSTALL BEFURC 11 StlS iHt INTEGRATION FLAGS 
AND/OR STATE VECTOR, 


OF 


THREE SETS OF 42 REGISTERS AND 2 FLAGS ARE USED FOR THE STAft VECTuivS, 
USED for THE PERMANENT STATE VcCTDRS FOR THE CSM AND LMj THl ThlRD SET 
TS" NOT BE17TG “ DCNF, ’ TSTrS'ED"’! TTMTIE' CirRPUTATlLlf i 72' " ^ 


TWO SITS, WHlcH KAY iiO T BE QVtRLAYEO, ARE 
, WHICH FAY EE ^VERLAYuU WHEN INTEGRATION 


THE PEKMA.TENT STATE VECTORS WILL Be PERlCUiCALLY UPLATEC SO THAT THE VECTOkS WILL KCT OE OLDER THAN 4 TI.MESTEPS, 
TnE PEKHA;«cNT STATE VECTORS wlLL ALsC bC oPDATLD riHCNEVcK (hi a-KAVrIX IS IMEGkAfEU uR rtHEN A CALLEk OF INIEGKV 
SETS STATEFLG (THE NAVlGATICN PROGRAiMS P2 , P22o) 
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O 
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1 : 


1 C 


!■; 


1 1 




Ret 83 
H * < o4 


Rvt- 
K'u''. 66 

R' 38 
Ki .,9C 
ROe92 
R jv S 4 
R'.vVb 
K i. L c. 7 
R a Vb 
Rex' 99 
R.:'lc' = . 
R 1 j1 


kITITT 

ROIC 5 
R oliy 7 
K C. 1 0 9 
K I 11 . 
Rv ill 
R V 1 1 e 

R 113 
RG114 
R 1 1 5 
R- 117 
K - 119 


R V- 


121 
R9i22 
8 9123 
R< 124 
R I - 1 2 1> 

RC126 

R012T 

R 128 
K 9129 

RG 139 

an 31 
Ri>132 
fTTlsJ 
k 9134 
kC13!j 
k' 136 
K 2137 
tvC138 


ft*. 139 
RCIV 

rj:i41 

R 142 

Ry 143 


IMEGRiflUN INITIALIZAT 

APPENOIX d OF THE USERS GUIGE LISTS THE STArE VtCTUK vjUAMlTIbS 
2 • 1 REST ARTS 


USbK*S PAul NOci 


S3 


PhASe LhA^GES WILL bE MADE IN THE INrEtiRATIUN PROditAM L ILY FOR THE INTEGRV ENTRANCE I I . c. , WHEN THE H-MATRIX IS 
INTEGRATED UR PERMANENT dTATE VeCTUR IS UPDATED.! THE i^RCGP NDMfaER USED Wl LL b£ T HA f FUR THE P2' -25 PROGRAMS 

GRQUP2I SINCE THE INTEGRV ENTRANCE WILL ONLY 3E USED BY THESE PRuGRAMSo IF A Rc START OCCURS DURING AN 
INrEGRATIJN O'F THc STATE" VECrOK ONLYt THE RECOVERY hILL tit VG THE LAdT PHASE iN Tht CALLING PRUGRAMo CALLING 
PROGRAMS WHICH USE T F,£ INTtGRV OR INTEGKVS CNTRANCt OF IMEGRATIGN SHOULD ENSUkL TFAT IF PHASE CHANGING IS GONE 

T fiaT” 1 1 I G TRtuft ru setttnu rHTTNxrGRTrroirTKtpin s^iitt H r“p u s hl tst- 

TUS 1 5 BECAUSE THE PUSHLIST IS LUST DUHINij A RESTARTS, 

2.2 SCALING 

THE liMcGKATIGN HGUlINE WILL MAINTmIN THE PERMANENT MEMORY STATE VECTORS IN THE SCALING AND UNITS DEFINED IN 
APPEt^T)C~o~1JF~THE"l<SERS GUrDE. THE SCALTNG' OF FTTE OUTPUT PaSTTTUN' v TCl UR DEPENDS ' UN lK F’T;R IG ' lTi’ '' UF " T HE uUUKDlNA T E 
SYSTEM AT THE GESIkEU INTEGRATION TIME* THE CUGKUINATE SYiTLM TRANSFORMATION WILL BE DONE AUTOMAT ICALLY UN 


MULTIPLE TIMESTEP LNLKE INTEGRATIuN ONLY. THUS IT IS PUSSlbLE TU HAVE OUTPUT FROM SUCCESSIVE INTEGRATIONS IN 
DIFFERENT SCALING. 

HCWEVER, RATT, VATT WILL ALiiAYS BE SCALED THE SAME. - _ _ _ , . 


i.*' 1 N P lTTJHJTFCT 


PROGRAM INPUTS ARE THE FLAoS DESCRIBED IN APPENDIX A AND THc PEKMANENT STATE VECTOR wUAitTITIES IJtSCRIdEU IN AP 
PENCIX a JF THE UStRS 'GUIDL, PLUS THE DESIRED TIME TO iNlLuRATE TO IN TDECi (A PUSH LIST LOCATION), 

FCR iNTEGKVSt THE RCViVCV, T ET OF THE TEMPORARY STAIE VECTuR MUST BE SET, PLUS MOONFLAG AND MIDFLAG 


FOR SIMULmTIuN THE FCELUnING QUANTITIES MUST BE PkeSET 


RkECTCSMI LEM) 


RECTIFIED POSITION VECfCK 


_ EARTH MCCN 
29 27 

METERS 2 


f 

rt 


9 ) 


T 

i 


VfECTC^MT lemj 


RECTIFIED VELOCITY VECTOk 


M/CSeC 2 


2b 


28 


TETCS ML£M ) 


TIME STATE VECTOK IS VALlu CSEC 

CUSTjMARILT V , BUT' NCTE LUNAR 
LRBII DEPENDENCE ON REAL TIME. 


22 


18 


GELTAVeSMi LEM) 


POSITION deviation 
IF Tee SMILE 


M E 1 E H S 


NUVeSMI LCM ) 


VELOCITY DEVIATICN 
■ Ir TCCSMiLtM) = 


1/C 


d c 


2 


r% 


1 


gap: ASiEMELt HEVISI 
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INTEGRATION I Ml T I ALiZAT ION 


USER'S PAGE NO. 


S3 


Rl 144 
K ,145 
KL146 
Tiri47 
K c 1 4 8 
Rt 14 V 
KG 15', 
RG151 
K‘,152 
ir:i5T 
R-' 154 


155 

156 

157 


15« 


K 
K 

R 

R ' A J o 

RE lOi. 
R C 16 1 
Rtl62 
R V 163 
K 1 64 
■RTTGy 
R ‘ 16o 
RC167 

Rvl6o 
k:169 
K " 1 7 ‘ 


29 


27 


RGVCsMLtMl 


CONIC POSITION 

egUALS KKECTCSMI LEM) IF 

TCCSTTI Lr7T)~^~i: — 


METERS 2 


2 


7 


VCVL;>MLEM ) 


CONIC VELOCITY 

EQUALS VRECrCSM(LEH) IF 

TCCSMtLEM) = C 


M/GSEC 


TCCSMILEW) 


TIME SINCE RECflFI CATION 
CUSTOMARILY L 


2o 28 

CSECS 2 2 


TfKEPCSMTLFJn 


CMGCNFLG 
CM I DF LAG 
LMCCNFLG 
LHIDFLG" 

SURFFLAG 


■ROOr'CF TLtPLERS EClUATTaN 

L IF rCCSMlLEM) = C 

PERMANENT FLAGS CORRESPONDING 
To MOONFLAG ATiC MIDFLAG 
C = CSM, L = LM 


Ti 


1/2 17 16 

2 T— 


-j 1 1 


V , 


» ■ 1 


lunar surface flag 


f J- 


"ETT 


» 1 


IN AUDIT ION, If (DCMiOFLAG IS SET, THE TNlllAL INPUT VALUES 
SCLAK EPHEMERIDES SUBROUTINE AND PLANt VARY INcRTIAL OKlcNTAT 


FoR LUNAR 
ION SUd- 


Rvl72 
R<:i73 
RE 174 
^ RC175 
R''176 

— RCUTTRE'TUST BE 

OUTPUT 

AFTER EVERY CALL 

— R"1T7 

R 1 7 b 

GO 

KAl 1 

K C 1 7 9 

IB'- 

6D 

VATT 

RflBl 

12D 

TAT 

RCT82 



— RTTB3“ 

RC184 

I4G 

RATTI 

RCia5 

RC186 

200 

VATTl 

Ti< 187 

26C 

MOtP ) 

RC188 



— RUIW 
R ic>' 

XI 


H. 1 9 1 

X2 


k L 19 2 
RC193 

X2 



POSITl OTJ- 


VELOCITY 


METERS 


EARTH MOON 

2V 

? 


7 


M/CScC 2 


2d 


TIME 


T) ■ 


29 


27 


pusmw 


MU 


HUTAETT^^TFY 

COORCINT 

COUKOINATE SYSTEM OKIGEN 
(THIS, NOT MOuNFLAG, SHCCLU BE 


HETCRS 2 

7 

M/CSEC 2 
3 2 36 

M /CS 2 




if 


■~z 


TUT)' 


- 1 
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IMcbHAIlON 1 NIT 1 AL IZAT luN 


USER*S PAGE NUw 




1 ; 


^! 


10 


K 194 

K ~196 
ktl 96 
Rvi97 
K( 196 
Rf 199 
R C 2i ■; 
kv2i; 1 
RC 2v 2 
■RT^rrj- 

k- 2 4 
K 2 

H, u 2 ^ 6 

K^297 
8 
ij ^ 


USED TQ uETERMiNE URIGIN>) 

IN AUDIT UN TO THE AtGVE, THE PLkMANcNT STATE VELTUft IS UPDATED WHENEVER 


bTATcFLG WAS SET AiiO WHENEVER A W'MATRIX IS TO BE iNTcuKArtD. THE PUSH 
ULUNTCk U set to AND uVERFLbW IS CLEARED BEFORE RcTURMNi^ Tu THE 
CALLING PrtQGRAM* 

4 wL CALL INb SEQUENCES AND S A' iPLL CODE 


R < 2 


■RTZl 
K :2i 
ki211 
RL212 
RC 213 
KC 214 


A) 


PRECISION ORBITAL INTt GR AT lUNe CSMPkEG,LEMPkEC cdTinA’^CES 
L-X SrORE time to 95T3791T5 T 95 PUS L9S1 114331) 

L CALL 

L+1 ‘ CsNPKbC luK LLMPRtC) 

L+2 return 

invm 


2^ 


rUECi (PU 32 D) TIME To INTEGRATE Tu*«*CENTI SECONDS SCALED 2 
OUTPUT 

THE CAT A LISTED IN SECTION 3 o C PLUS 

RQVV PUSITION VECTQk OF VEHULE WITH RESPECT Tu SECUNDAKY 
3 UUY«*o METERS B -29 ONLY IF MIDFLAG = OIMUFLAG = i 


nC215 

216 

R<_217 

RR2i8 

80217 

Rl 22^ 

fc) CONIC INTEGRATION. CSMCO^JIC, LEMCCMC ENlKANCcS 
L-X STORE TIME IN PUSH LIST irDECl) 

L CALL 

L+1 CSMCDNIC UR LtMCCNIC) 

UPUT/OUTPUT 

SAME AS PKtCiSIQN INTEGftAflON, EXCEPT RQVV NuT 

R^22i 

R' 222 

R. 223 

R' 224 
Ku225 
RC226 

C) INTcGkATE 

G I V ET4 
CALL 

VLOAG 

^ ruvL 

STATE VECTOR. INTEGKVS ENTHANCc 

I i^T STALL 

POSITION VECTOR 

RCV 

■x:227 



VcLUCiTV VECrDL 


R‘'2Zii 


stodl 

VCV 


R'-.229 
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13,3132 

0 <.} 002 



2 

V i)4 8 

kEF 

t 

L ASl 

“1315 

i3t 3l33 

#215%, 

T 


■ P3DU V 

t 54 9 

REF 

6 

LAST 

1259 

13,31.34 

35527 

1 

S TCALL 

TNJV 


11:4 FEBo 26tl97I ZEUS 


USbR'S PAGfc MU* 


£3 S3 


NctUfcD FOR SETTING XI ON EXIT 


r55C, 


REF 


27252 1 




t-551 

(551 
( 552 

REF 

i 



13.3136 

13.3137 
13, 314 :. 

07112 
“0'662 ; 

3 3 144 

1 

1* V 

CMtGMOON 

Set bank 

2DcC* 

OAF 

169947 

lT>il 3Ar4K 

(553 

kEF 

28 

"Tirsrr 


137*3 14 1 

~54“('“.76" 



TS 

■ BBA'MC 

<"554 

REF 

1 



13, 3142 

3 3553 

1 


CAF 

r CR TYJf^E 

V 555 

REF 

275 

LAST 

12 34 

1 3 1 3 i 4 ji 

0 Ci j2 

f* 


TC 

< 

556 

REF 

11 

LAST 

1315 

E3, 1554 




t B aNK= 

HR tCT CSM 

C557 

REF 

9 

LAST 

633 

13,3144 

26063 

J 

I fTT Sank 

83C0N 

INTfCRV 


e-a b +23 


R 538 SPECIAL PURPOSE ENTRIES TO CRBiTAL INT t GR AT ION# THESE ROUHhES PkuVIDE ENTRANCES TO INTEGRATION WITH 
RC56r APPROPRIATE SWITCHES SET OR CLEARED FOR THE OES IREO INi cGRAT ION* 


RE56i CS*'.PREC ^ND L EHPKEC PERFORM JRblT INTEGRATION 0/ THE ENCKE METHOD 10 THE TIME INOlCAIcu IN TDECl 

RC563 ACCELERATIONS CUE TO OBLATENESS ARE INCLUDED. NO R-MATkIX INT- IS (JUNE. 

FFF P^RKATTErrr 'STATt ' T/EC 1 UiT TS ' NOT~UFDATEr; “ 

Rl5o 5 CSMCGNIC AND LEMCUNIC PERFCRH uKBlT INTEG^ EY KEPLERS Mt:THUD Tu THt TIME INDICATbf; Ih TDECl 
RC567 nC DISTURBING ACCCLERATI uNS ARc INCLJDEO. IN THE PROGRAM FLOW THE GlVtN 

RC56a STATE VECTOR IS RECTIFIED GEFUkE SOLUTION OF KbPLcRS EwUATiDN 


RC :>6Si 
K" 57 
k .571 
z' : 57 2 
k 573 
RC574 


THE routines assume THAT THE CSM (LEMI STATE VECTOR IN P-MEM IS VALlUo 
— S U I TCFrES~StT PWnJR TC~EfiTR7' romrc RArR 1 NTEG.^l^oo ARE" AS TULTD WS 


VINTFLAG 

INTYPFLG 

CIMCFLAG 


CSMPREC CSMCUNJC 
SET SET 

CLEAR ScT 

CLEAR CLEAR 


LEMPREC 

CLEAR 

CLEAR 

Cl e ak 


LEM CON 1C 
CLEAR 
SET 
CL EAR 




- ASS£WeL£ fteVI SlON , 7 ^ CF AuC PRUbRAM AKT fc HIi QY .MASA ^ 21114- 11 
L INTEGRATIUN i M T I AL 1 ZAT ION 

K- 1>75 calling Sequence 


RLb76 L-X STORE TCtCi 

H^S77 L CALL ISTCaLL TDECl ) 

Rt!>7a L+1 * CSMPREC ICSMCONICi LEMPREC, LE^GMUl 


R:t»79 NuRHAL EXIT TO L+2 


Rf :5B subrultines called 

?r~581 INTEGxVi 

Hi 3bZ PftcCOuT FOR CSMPREC ANu LEMPREC 

K 58J CONICOLT FOR CSMCGNIC AND LEKCQNIC 


R ^ 5 34 

OUTPUT - 

iEE 

PAGE 2 

CF THIS LQi: 

i StCTlQN 




■ R '5F5 

INPUT 









RcSatj 

TDECl 

TIME 

TC INTEGRATE TO . 

CStCS B- 

23 



Cb37 





13,3i45' 

45020 

1 

CSMPREC 

STy 

CALL 

€588 

REF 

79 

LAST 

i3C3 

13,3146 

0 u ' j 4 6 

0 



XL 

t539 

REF 

22 

LAST 

13 14 

13,3147 

27516 

0 



INTSTALL 

f 590 





13,3150 

4313C 

1 


S X A f X 

SET 

c591 

REF 

2 

LAST 

93 

13,3151 

v*22i3 

Lt 



IRcIURN 

^ ^ 2 

REF 

9 

LAST 

583 

13,3152 

ui474 

1 



VINIFLAG 

59 3 





13,3153 

43014 


IFLAGP 

SET 

CLEAR 

^-594 

REF 

3 

LAST 

228 

13,3154 

01457 




PRECIFLG 

l595 

REF 

iz 

LAST 

1314 

i3,ii55 

01676 

1 



DIM FLAG 

rF96 





13,315T 

77614 

1 


CLRGC' 


v596i 

REF 

15 

LAST 

1314 

13,3157 

01633 

N, 



IRTVPFLG 

'.596 2 

REF 

1 



13,3160 

'2724ti 

1 



ITTlOrVI 

C597 





13,3161 

450 2 w 

1 

LEMPREC 

STg 

CALL 

Z59 8 

■REF 

3 0 

LAST 

1318 

i3,;>i62 ' 

"<R)C^6 

5 



XI 

C59 9 

REF 

23 

LAST 

1318 

13,3163 

27516 

u 



INTjTALL 

r ^ r ’ C. 





13f 316^ 

43130^ 

1 


"SXATI 

xtotgh 

C6k 1 

REF 

3 

LAST 

1313 

13,3165 

i.22i3 

V 



i HE 1 UR 5 

,6.2 

REF 

lu 

LAST 

1313 

13 1 ^ X 66 

' 1634 

i 



V i init flag 

r 60 3 

REF 

1 



13,3167 

27153 




IFLAGP 

v6C 4 





13, 31 7 o 

4502^ 

1 

CSMCUNIC 

STO 

CALL 

L 6u 5 

REF 

81 

LAST 

1318 

13,3171 

i)Ci045 

a 



Ai 

V fe06 

REF 

24 

LAST 

1318 

13,3172 

27516 

0 



1 N T ^ r A L L 

'6^7 





1 3 1 3 1 7 3 

43136 

1 


3 A A t 1 

Sc 7 

u 6 'J 8 

REF 

4 

LAST 

1318 

13,3174 

62213 




I RE TORN 

C60 9 

REF 

ii 

LAST 

1318 

13, ^1 1 5 

11474 

1 



ViiUFLAG 

C61' 





13,3176 

43^/14 

— 

I FLAGG 

CLEAR 

SGTGU 

'611 

""RTF 

13 

LAS^T 

"T31T 

V57JI 71 

0 jrrT 

1 



EIm flag 

tol2 

REF 

16 

LAST 

1318 

13, J2t C 

1. 1433 

i 



inttpflg 

'613 

REF 

2 

LAST 

1318 

X3,32*/l 

2724: 

1 



iNTEGRV 1 

• 614 





13,32-2 

4502 U 

1 

LEMCUNIC 

6 1 y 

CALL 

V.615 

REF 


LAST 

1318 

13,32 . 

0 i C 4 6 

L- 



Xl 


5 _'_- 


A6 PAGE 131b 


11^4> FEB, 2b. 1971 ZEUS 

USER'S PAGE NO, 1. E3 Si 


f-EB* 26,197i ZEUS 


o'. 46 PAGE 131;# 


^ P J A SS E MbL £ REVISION v72 GE AGt PKObKAM ARTEMIS BY NASA 2 2i^l 1 4- . i 1 


I IMEGKATIUN 1 M TI ALiZATION 


'^6l6 

017 

REF 

25 

LAST 1313 

13»32G4 

13,3205 

27516 C 
431Jv 1 

INTjTALL 
bXAfl CLKGU 

i6ia 

REF 

b 

LAST 1318 

13,321 6 

U' Z 2. k 3 0 

I RET URN 

REF 

12 

LAST XTI3 

13t 32.L 7 

nXoTTT 


.62' 

REF 

1 


13,3210 

27176 1 

1 FLA oC 


USER'S PAGE NO. 11 £3 S3 


\ 


621 





13,3211 

66214 2 

INTEGKVS SET 

SSP 



< 622 

REF 

4 

LAST 

1318 

13,3212 

C 146? 0 


PRELIFLG 

- 


^623 

REF 

7 

LAST 

1317 

13,3213 

2151 0 


F80DY 



6^4 





13,3214 

o U C D cj 1 





1625 





13,3215 

66214 V, 

80 F 

SSP 



: 62 6 

REF 

19 

L A ST 

1317 

13,321^ 

00343 C‘ ■ 

. 

MQGiYFLAG 

----- - . 

- — 1 

627 





13,3217 

27222 0 


+ 5 



‘628 

REF 

6 

LAST 

1319 

13 , 322 ^ 

02151 

*• “* — - — - 

P30DY . . - . 

- 

1 1 
- 7 

' 6281 





13,3221 

JCUQ2 0 


2 



^629 





1 3 T 322 ^ 

7722C 1 

sT^r — 

iiTiiQ^n} 


■ I ■■ 

163'; 

REF 

6 

LAST 

1319 

13,3223 

w 2 2 1 3 u 


liTi= r URN 



C631 

REF 

19 

LAST 

1317 

13, 3224 

11762 1 

' * — — _ _ - - . 

ZEROVEC 

- 


0632 

REF 

7 

LAST 

1317 

13f 3225 

GX521 (. 

S I OH t 

toll TAV 



<:633 

REF 

7 

LAST 

1317 

13,3226 

35527 1" 

STCALL 

TNUV 



0634 

-* *■ - ■ ^ ■ 

REF 

2 

LAST 

1259 

13, 3227 

23420 0 


RECTIFY 



63 5 





■ 1373230” 

43 '.,14 0 

CLEATT^^ET 



0636 

REF 

14 

LAST 

1318 

13,3231 

01676 1 


DIM.- FLAG 



C637 

REF 

1 



13,3232 

04062 1 


NErtIFLG 

- 

- 

"6371 





13,3233 

776x4 1 

SETGU 



] « 

6372 

REF 

1 



13,3234 

04020 1 


RPQFLAG 

- • 


. 633 

REF 

1 



13,3235 

22320 0 


ALOAOtD 



K £ J? 

INTEGRV 1 

S AN 

EN 1 RY 

1 U URBl [ 

~1 N 1 GiXAlX 0 N 

WHTCH J^RM IT XT Fic XAXLEir , 



f< ^64-, 

NORMALLY 

IHL 

navigation PROGRAM ,T0 SET 

THc iNTEG^ FLAuS 

- THE ROUTINE 



l. 0641 

IS 

ENTERED AT 

INTEGRVl EY CSMPREC £T,AL. 

AND AT ALQADED 

BY INTEGKVS. 

_ 

• 

Pa. 642 

THE 

RCLllNE SETS UP 

A- MEMORY 

IF ENTERED 

AT iNTEGRVti mo 

StTS THE INTEG. 




Rr643 PROGRAM FOR PRECISION OR CONIC 


K V 6 44 
Rr645 
' Kr646 

Rr647 
' RC648 

RC649 
k C65~ 
R '6 5 1 
RC652 
R' 65 3 
R 7/654 
R'. 655 

' — Kr656^ 
R 657 
R‘65B 
Ri 65S 
' RC66'; 


THE CALLER HUSTF1kST~ CALL iNfSTALL TU CHECK IF INTeG, Is fU TjSIT aEfOAE 
SETTING ANY FLAGS, 

THE FLAGS WHICH SHOULD BE SET DR CLEARED ARE 

VINTFLAG (IGNORED WHEN ENTERED FROM lNTEGki(S) 

INTYPFLG — 

DIMOFLAG 

LTBOKBFrcr — = 

CALLING SEQUENCE 

L-X CALL --- 

L-Y INTSTALL 

L-1 SET OR CLEAR ALL FOUR FLAGS. ALSO CAN SEI GTAf^FLG IF DESlKEU 

AND DIMLFLAG IS CLEAR, 

L“ CATL" - — 

L+i INTEGKY 

INITIALIZATION 
FLAGS AS ABOVE 

STORE TIME TO INTEGRATc TO IN TOcCl 


« 




(i I . E MBL l: REVIS ION . CF AviC PKUi^RA M >^kT£MIS BY Z 21114- jj 

L IMEGftATlUJ'J I NITI ALIZATUm 


R . 661 

R V 66 Z 

R< 663 

OUTPUT 
RAT r 
VAi r 

AS 

DEFINED 







k C664 

nr a t 



UEFO^E 






• 6o5 





i3f 3236 

7 7 62 ■ 

4 . 

u 

INTcbRV 

STW 


4, 666 

REE 

7 

LAST 

1319 

13,3237 

- 2213 

0 



IRE r URN 

667 





1 3f 3^-4^ 

43014 


INTEGRVi 

3£T 

ShT 

«/66L' 

REF 

2 

LAST 

1319 

13,3241 

64^6 > 




KP^F L AG 

669 

REF 

2 

LAST 

1319 

13,3242 

04062 

1 



New 1 FL G 

c 7 ) 





13,3243 

77731 

1 

1NTEGRV2 

SSP 


C671 

REF 

9 

LAST 

1259 

13 , 3244 

OC 053 

1 



CiPRET 

6 7 Z 

K EF 


LAST 

1319 

13,3245 

2232c 

U 



ALOAUhU 

673 





13,3246 

52C14 

O 


BON 

GOTO 

C674 

KEF 

13 

Ll^T 

1319 

13,3247 

31 

1 



“VINTrLAG 

675 

REF 

2 

LAST 

274 

13,3250 

27005 

1 



PT JACGrt 

♦,676 

REF 

1 



13 f 325 1 

27b 60 

1 



PTuALEM 

V 67 6 5 

REF 

1 



li,20i.G 




ctETLOC 

INTI Ni 11 

6/66 





ll,232w 




BANK 


6767 

KEF 

1 







COUNT* 

t$/ I NT I N 

‘STl 





11,2320 

77745' 

i 

aloAded 

ULO^AC 


v678 

KEF 

43 

LAST 

1316 

11,2321 

OGC^l 

1 



TDEoi 

r6 79 

REF 

2 

LAST 

77 

11,2322 

'Ol 745 

1 


STORE 

I DEC 

06 33 





11,2323 

52 J14 

c 


oJFF 

00 ru 

0681 

REF 

17 

LAST 

1318 

11,2324 

'.j1753 

1 



iNTyPrLG 

3632 

REF 

1 



11,2325 

273o4 




TEcTLOUP 

683 

REF 

1 



111 232u 

27 35o 

1 



K V C U N 

b6035 

REF 

3 

LAST 

1313 

13,20b , 




SfcTLOC 

INTI NIT 

V 6836 





13,3252 




BANK 


C6637 

r4EF 

i 

LAST 

1313 TO 

1320: 

232 262* 


w U U N T 

ii/ 1 IT IN 

C684 





13,3252 

45 1 14 

C 

A-PCHK 

BUF 

call 

"665 

REF 

1 



13,3253 

C 0342 

1 



W i 0 F L A G 

C686 

REF 

i 



1 3 f 3 2 

TfZ^ 

j 



■TOJQTJT ■" 

'637 

REF 

i 



13, 3255 

23317 

b 



CririG'WT uH 

C68e 





13,3256 

45b44 

0 


6PL 

CALL 

-689 

REF 

2 

LAST 


1 3 f 3237 

27263 

0 



AND jUT 

069^ 

REF 

1 



13, 326l 

2336c 

0 



UHl GCrii'i G 

^ 690 5 





13,3261 

77 734 

1 


L X A t 2 


- 6y C 6 

REF 

9 

LA^T 

1319 

13, 3262 

i (2150 

1 



PBUUV 

1 69 1 





13,3263 

77414 

u 

ANOUU T 

dOFCLR 


'692 

REF 

4 

LAST 

1314 

13,3264 

b 1652 

1 



\ aT EFl 0 

6 ':?3 

REF 

1 



13,3265 

273‘ 4 

k-I 



RECTQUT 

0 694 

REF 

99 

LAST 

1314 

13 f 3266 

0 54'.. 2 

1 


TO 

PHAi^CHNC 

■695 





13, 3267 

w4.j22 

U 


UC 1 

.4,; 2 2 

0.696 

REF 

6b 

LA^ 

T2’5 7 

137527: 

$347 

1 


TC 

OPF Lag 

t697 

REF 

3 

LAST 

1257 

13,3271 

CU250 

1 

V ( 


ADkES 

Rf Ir.TrLb 

c698 

REF 

234 

LAST 

1313 

13, 3272 

b 6 w ^ o 

1 


TC 

iktpret 

C699 





i 3 f 32 7 3 

77731 

1 


S3P 


i7b0> 

REF 

i-j 

- LAST 

i32y 

13,3274 

C/t i-53 

1 



CPrtiiT 


X l;4^: FEB. Z6»1971 ZEUS PAGE 132 

USER'S PAbE NO, IZ t.3 S3 


CCITr~RffKt ORIOIN CHAMGt CT-fECK 


NO ORIGIN CHANGE 

MAKE THf Switch 

S£1 \z PGR MOON GK EARIH SCAL ING 


THA^F' CIWGr ■ BAS'" OTCU R'R ttJ" "'Bl T WEt N 
INTSIALL AKU INTWAKL 


26,1971 ZEUS 


*<^46 PAGE 132i 


I? AP L _K E y 1 SI CN ^11 GF A^C PKQGRAW A KTEMtS BY NAS A 2C2 11 11. 


L INTEGkATUN INITI ALIZATIUN 


USER’S PAGE NG^ 13 13 S5 


7 1 

KFF 

1 


13,3275 

Z 7 3kjZ j 



PHLXIT 


'I" 

7,2 




13,3276 

52U14 C 


6QN 

b cr 0 


- - ----- _ _ _ 

7 3 

REF 

14 

LAST 132C 

13,3277 

'1714 1 



V 1 NT FLAG 



7 A 

R EF 

iL 

lAST 34^ 

13 t 331 

^.6761 C 



AT0PC6H 


1 

7.3 

REF 

2 

LAST 34 

13, 33..! 

27034 0 



ATUPLt^ 



' 7 6 




13 I 33o2 

77624 1 

PHfcXl T 

cAlL 



" 1 

' It. l 

REF 

26 

LAST 1259 

1 j f 33 L 3 

22327 1 



GkP2PC 



i 7 : 8 




13,3304 

45GG1 1 

R EC TOUT 

SETPD 

CALL 


■ ■ - i 

* 7^9 

— — ^ ~ i f 1 m‘ ~ “ — 


— 


13,33L5 

OCtvi L 






< ( LL 

REF 


XAS'f 13X9 

1 3 f 3 3 'w 6 

"H342mi 



ITECTTFT" 


... ^ 

• 711 




13, 33C 7 

53775 1 


VLUAD 

V ^L-*^ 



7712 

kEF 

9 

LAST 1316 

13,33iC 

01533 D 


' - 

RRECT 

- - - 


C7i3 




13,3311 

57576 1 



- wZ 


1 

■ ' C714 




13,3312 

53715 1 

' 

PDYL 

V aL^ 

KATT TO PDO 

1 

'715 

REF 

a 

LAST 1282 

13, 3313 

1511 t 



vRcc r 



mtr 




13,3314 

5737'6~1 



^ fZ 



i 717 




13, j3i5 

633^:5 U 


POOL 

POVL 

VaTT to PD6 

TAT TO PL<12 

r718 

REF 

17 

LAST 1317 

13,3316 

J1517 D 


■' ~ 

TET 




C719 

REF 

V 

LAST 1321 

13,3317 

0 1 5v3 u 



RRECT 



1 72G 




13, 332 G 

64715 0 


POVL ' 

PDDL f' 

■ 

- - - - 

C721 

REF 

f 

LAST 1321 

13,3321 

.1511 



VRECr 



''7Z2 

ft cl" 

2 

XA31 491 

"TTr33Z2 

“FCwlfTT 



f" U b A KT H # 2 



S.723 




13,3323 

76UIj6 -3 


PUSH 

Axr , 1 



C724 




13,3324 

777o5 L 


ucC 

-1.. 



• 725 




13, 3325 

76014 . 


30N 

AX r , 1 


1 

i726 

REF 

2: 

LAST 1319 

1 J f 33Z6 

0g3'.3 1 



KOOiNiFLA b 


•* 

'727 




13,3327 

27331 w 



^Z 



CTZ'E 




■I3V333U 

'77X^5 1 


lit L 

^2 



1.729 




13,3331 

4^ 1 1 

lIMTtXiT 

SETPD 

BOV 



C73^ 




13,3332 

w 0 1 ^ ^ 



• ■ T~ - - ■ 



7. 73 1 




33, 3333 

27334 i. 



+ 1 



"7311 



• — — - - - 

13,3334 

43014 V 


CL EAK 

CLEAR 



t.7312 

REF 

1 


13,3335 

04675 1 



MDmVFLG 



rT3T3 

RTF~ 

5 

LAST — t32D 

"~r3T33j^ 




STATEFXTJ' 



..732 




13,3337 

43.ii4 L 


CLEAR 

CLEAR 



' G733 

REF 


LAST 3C1 

13,3340 

o,4q76 1 



AVENIDSW 

ALLOrJ UPDATE 

OF OCR NL INK STATE VECTOR 

C734 

REF 

5 

LAST 1319 

13, 3341 

7l6d7 1 



PREt IFLG 


1 

X735 




13,3342 

77535 1 


SLOAD 

EXIT 


- 

e;736 

REF 

3 

LAi>T 

13f 

v22i4 1 



1 Kc T UKi'< 



; 73 7 ^ 

^F 1547^ 

Lxsrxzxa — 

T3,334Pn^ 0T54 1 


CA 

M P M C 



,738 

REF 

35 

LAST 1286 

13,3345 

iZu i 


INDEX 

L 1 iL QL 



C739 

REF 

11 

LAST 132G 

13# 3346 

54 052 1 


TS 

CPRtT 



1 74C 

REF 

3 

LAST 1259 

13,3347 

V 3327 1 


TC 

li\l rt AKc, 



P'74l 

KVCON 

1 SETS UP ORBIT 

GNTEgRATIOn Tu do a 

CONIC SOLUTION 

FCR POoiTiuN ANC 



RC742 

VELCCITY 

FOR THE IHTEhVAL tTET 

— t dec j 






1743 




13,335' 

45345 1 

RVCUN 

ULUAC 

csu 



^ 744 

REF 

3 

LAST 132i. 

13,3351 

U.-745 1 



TDcC 



' 745 

REF 

1 6 

(.AST 1321 

13,3352 

; 1517 C 



Tnl 



"746 

REF 


last 123. 

13# 33 5 J 

36393 1 


STCALL 

TAU 




ASStMBLfc REVISION CF AGO PRQbRAf^ ART£MI:> BY NASA 2vi21li4— li 


O 



11S4>> FbBo 26,1971 ZEUS 

y I — ■ - ■ — p j. I a 


46 PAGE 1322 


I IMEGRAriJN INIT 1 ALiZAnUN USER'S PAGE NO. 14 E 3 S3 


7^7 
’ . 7 4 fc 
74^ 

REf 

REF 

4 

1 

LAST 

1321 

1 j 1 

i 3 I 33^^ 

1 3 f 333 

2342i, 

77624 

22336 

1 

1 

CALL 

RECTIFY 

KEPPftfcP 


t’7s* 





13 f 3 J5 1 

4334i> 

1 

OLUAD 

1^15 


C7SI 

REF 

6 

LAST 

1282 

13 » 336' 

1551 

1 


TC 


i 752 

REF 

ly 

LAST 

1321 

13,3361 

01517 

0 


TET 


Ibi 

REF 

2U 

LAST 

1322 

13,3362 

35517 

1 

S T CALL 

TET 

1 
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Pli'.'. MIDTUAVI 

Kl'. L This RubTlNt INTcGkATES tPRE CIS IONJ TG ThE TIME SPECIFltJ IN TUEClo 

hi* £1 IFf AT TK£ END OF AN iNThUkATlGN TIKE STtPi CURRENT flHc PLUS A DELTA 
Rlt .3 TIME (SEE TIMEDELT, BASED UN THE CQMPUTATUQN TIME FUR UNE TIKE STEP) 

RiC^ 4 IS GREATER THAN THE DESIRtD TIHE, ALARM 17U3 IS SET AND IHL INI LDKAT IQN 
Klu 5 IS OGNL AS IT IS FOR MiDTaAV2, 

RK. 6 RETURN IS IN BASIC TO THE RETURN ADDRESS PLUS ONEo 

R lUC 7" lT~rhE TrTEGRATIQN IS FINISHED TG THE" DESIREU^Ti ME , RETURN I ^ 1 N B ASTc 

P.U03 TC The RETURN ADDRESS 


Rlt ‘9 IN EilHER CASE t BEFCRE RETURNING, THE EXTRAPOLATED STATE VECTUR IS TRAN 
Rl.-i: FERRED FROM R,VATT TC R, VNl-PIPl I MEl IS SET TO THE FINISHING INTEGRA- 

Rl^ll TION TIKE AND MPAC IS SET TC THE DELTA TIME 

rrrr2 “ — “ tat minus curptent timEo 


RK:i3 MiylUAV2 


K1^14 T HIS RDUTINE INTEGRATES IHe CSM STATE VECTOR TO CURRENT TIME PLUS 

Kins INCREMENTS OF TIMCDELT SUCH THAT THE DIFFERENCE BETWEEN CURRENT TIME 

RU16 AND ThE STATE VECTOR TIME AT THE E.JU UF THE LAST STEP IS AT LEAST 5*6 
Klv 17 SECS* 

R1C16 NC INPUTS ARE HEDUIRED OH THE CALLER. RETURN IS IN BAilC TO THE RETURN 

Rlv l9 ACDRES:> WITH THE ABCVE TRANSFERS Tu R, VNl-P IPT IMEl-ANO MPAC DUNE 


1^- 2. - 

REF 

4 

LAST 

132C 

13, 2UCC 




SETLCC 

INTINIT 


1 21 





13,3566 




BANK 



1. 215 

REF 

1 







COUNT* 

$4/k41 


lt22 

REF 

1 



- 773 




E6ANK= 

I RETURN! 


H.23 





13,35ti6 

450 2U 

1 

Mi0T0AV2 

Slj 

CALL 


1. 24 

REF 

2 

LAST 

1328 

13,3567 

<,y773 

1 



I RET URN 1 


rTzs 

REF 

~ZT 

LAS I 

1327 

1 3 , 3 5 / C 

2/516" 

vy 



TNTSTAnr 


It 26 





13,3571 

43 1 4 D 

k 


DLUAD 

CLEAR 


U27 

REF 

1 



13 ,3572 

13771 

1 



T fMEDELT 


1U28 

REF 

1 



i 3 f J 7 3 

u4674 




MDlFLAG 


1C 29 

REF 

1 



i 3 1 3 5 7 4 

374DO 

1 


STCALL 

T-rU-ADD 


1C 3'- 

REF 

1 



13,3575 

27612 

1 



ENTMIU2 


li 31 





13, j57o 

4502D 

i 

MID I D AVI 

S f D 

CALL 


1^ 32 

KEF 

3 

LAST 

1323 

13,3577 

o: 773 

1 



ikfcrUKNl 


1C 3 3 

REF 

3'' 

LAST 

132S 

13, <> 

27516 




i wT j Tall 


1. 34 





13,36wl 

47014 

1 


OIL I 

K( 6 


1l35 

REF 

2 

LAST 

1328 

X 3 f 3 6 L. 2 

,4474 

1 



MlDlFLAb 


IC 36 

Rer" 

27 

~L^\~ 

1513 “ 

i3 f 6 - 5 

$1751 

u 



"LcADTTciE 


103 7 





13, JoC‘4 

44215 

1 



BDSU 

INITIAL CHECK, IS TDECl 

K38 

REF 

2 

LAST 

1328 

13,3 ot 5 

13771 

1 



T 1 M EOEL T 


1C3Q 

REF 

4cj 

LAST 

1327 

13, 36u6 

G 0 1 

1 



I a: Cl 



IN THE FUTURE. 


1( 4 



4Su44 


BPL Call 


GAi’i ASSbHBLE REVISIOM ’ 7^ ^ CF AGL PROGKArt ARTEMIS dY N ASA ^ III 
I iMtoi<Aria.\ 1 NITI All ZATIuH 


Iv A1 

REF 

i 



13.361 , 

27616 




1042 

KEF 

1 



13 1 J61 X 

13750 

1 



li43 





13 f 3612 

43234 


£NTMiD2 

RTa 

IL 44 

REF 

2B 

LAST 

1328 

13,3613 

51751 




1' 45 

REF 

2 

LAST 

1328 

13 t _»ol4 

\ 3466 




46 

REF 

47 

LAST 

1326 

13,3615 

■j'J041 

1 


STORE 

lt47 





13,3616 

45ul4 

0 

ENTMI D1 

CLEAR 

F^TB 

TTEF" 

“ITT 

L A^i^rrzT^ 

13,3617 

01676 

1 



U 49 

REF 

1 



13,3520 

261j34 

1 



If 5 ' 





13,3621 

43014 

G 


CLEAR 

1’ 51 

REF 

1 d 

LAST 

13 2 G 

13, 3622 

1. 1673 

1 



1 52 

PEF 

2 

LAST 

1321 

1 3 f d o2 3 

'~f 44 7 5 

0 



1< 53 





13,3624 

77624 

1 


CALL 

— ir54“ 

TTEF" 


“L7rST“ 

T3^27~ 

1 3 1 J62 5 

TTZSh 




1. 54 1 





13, 3626 

&6l13^ 

1 


^ X A f 2 

ir 5415 

REF 

16 

LAST 

84C 

13,3627 

133740 

1 



542 

REF 

14 

LAST 

716 

13,3630 


i 



It 5425 





13,3o31^ 

67214 

1 


C L w A K 

1 543 

KEF 


LAST 

1326 

13,3632 

J ^Zf 5 

1 



ITaOS "RTF” 

IT 

US3T 

I32^~ 

13i 3633 

u 3 7 4 7 

\J 



Iv 544 





13,3634 

43 V.54 

I 


dZE 

K 5445 





i3f Jo35 

27637 

0 



It 54 5 

REF 

6 

LAST 

1329 

13,3636 

Ut t 75 




K 55 





13 f 3 u3 7 

77775 

1 


VLUAO 

IT 56 

REF 


LAST 

940 

13,364f 

0 L L L 1 

L 



IfFT 

REF" 

“ -r 

LAST 

64 1 

13, 364 1 

250/1 

♦ . 


^ 1 U V L 

U 58 

REF 

26 

LAST 

923 

13f 3o42 

C 7 




1C59 

REF 

4 

LAST 

B41 

13 1 3643 

15077 



6 T iiOL 

If 6C 

REF 


LAST 

940 

1 f 3b44 

6C015 

Q 



1C 61 

REF 

g 

LAST 

837 

1 i ,3645 

C11J5 

1 


STORE 

It. 71 





13,3646 

77?7o 

1 


EXIT 

1L72 





13 f 3a47 

0 OtiL’4 

w 


ii^HlNT 

1073 





13,3650 

u CT/u 6 

1 


EXTEND 

Ic 74 

KEF 

34 

LAST 

1C97 

1 3 f 3 6 3 1 

4 jC/Jb 

1 


DCS 

ir 75 

REF 

649 

LAST 

1323 

13VT652 

2.: 155 

1 


DAS 

1 76 

REF 

5 

last 

1157 

13,3653 

J 7226 

L. 


TC 

1 77 

REF 

4 

LAST 

1323 

13 f 

3 o7 73 

1 


LA 

1< 7 e 

REF 

7 

LAST 

572 

f 3o53 

0 46 6 r 



TC 

1L79 





13 f 3656 

47o i4 

1 

CKMIDZ 

duF 

1C-8C 

REF 

3 

LAST 

1328 

13 # 365 7 

w4754 

1. 



1-81 

REF 

1 



13 1 366C 

27675 

> 



^ - ■ T^ra'2 



C'A'ST 

1329 

13, j66T~ 

51751 

th,' 



3 





1 3 f 3u62 

442 i 3 

1 


DAO 

1084 

REF 

3 

LAST 

132d 

13,0663 

13771 

1 



1G85 

REF 

u 

last 

1324 

1 3 1 3 664 

ij '^'745 

1 



U 86 





13,0665 

45^44 

a 
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tNTt^lIOi 

NjTIME no set alarm* switch to MlOtdAVZ 


cAo 

LGAuTlME 

T-TO-AUO 

TOECi 


CALL 

irrfTTFtAT^ “.'^U W-MAIRIX ^ ^ 

THl SViNT 
SET 

iMTTPFLG 

MluAVFLG LET INTEG, KNOW THE CALL IS FOR HIDTOAV* 

ii\I EGRV ~ GD~Tm EtrRATE ' " 

SXA f 1 

RTX2 

KTXi 

SlOAD 

AMQONFLG 

mx2 

StT 

^■2 

APGONFLG _ 

KATT 

■RTO 

VATT 

VNl ' - -- 

lAT 

PIPTIGcl 


TiHc2 
HFAC 
i PAGREfc 


I RE T UKHl 
GAi'^KJoRP 
f ’ T B 

PiuiFLAG 
K 102 

LOA^DTIHE 

bcso 

1 iMcJLLT 

ID-L 

CALL 
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iv 6 / 

K£F 


last 

132u 

13f 36(>b 

27364 

0 



7ESTLGUP 

TES 

i', cid 

REF 

2 

LAST 

1329 

13 f 3067 

13756 

i 



Nan ME 


li r,G 





1 3 f 3a7 ^ 

43234 


TIME I NO 

RT6 

LAO 



REF 

39 

LAST 

1329 

i3 f 367 1 

51751 

u 



Load TIME 


l"v, ’-5^' 1 

REF 

j 

LAST 

132 5 

13,3672 

w34o6 

0 



1 — r u— Aob 


1* 9 2 

REF 

7 

LAST 

1329 

13, 3o7 3 

34745 

✓ 


STCALL 

IDEC 


1. 93 

REF 

3 

LAST 

133' 

1 j,3674 

27364 

0 



TtSTLOuP 


: 4 





367 D 

4534 5 

1 

^<102 

□LOAD 

c .>u 


1C 9 3 

REF 

8 

LAST 

1330 

13 f 367 u 

uL 74^ 

1 



T DEC 


1' 9 6 

REF 

24 

LAST 

1326 

13,3o77 

OlblY 

u 



TcT 


10 9 7 





1 3 f 3 7 ' 

45246 

V 


A6S 

DSU 


K 03 

REF 

1 



13,37v1 

13755 

1 



iCSECS 


U 99 





13,37l2 

7 / 644 

1 


6FL 




“RTF“ 

1 



13,3703 ■ 

^rrsTv 

n 



f 7 IT'IC 


11 L 



- - 


1 3 1 3 7 w 4 

44234 

1 


RT6 

bUjU 

SEE IF 5:.6 SECS» AVAILABLE TO CALLER. 

11 2 

RcF 

31 

LAST 

13 36 

13 j 3 7 l 3 

51731 




LJADTIME 


llv.3 

REF 

2b 

LAST 

133^^ 

13, 37l6 

L 1 51 7 

1 



TET 


11 4 





13,37c7 

51u25 

1 


DSU 

bPL 


li 5 

REF 

i 



13,371. 

13773 

, 1 



^ cj 6 S ti 6 ^ 


lie 6 

REF 

4 

LAST 

1324 

13,3711 

llZol 

1 


- 

A-HCHR 

YES, GET CUT. 

11 7 





13,3712 

43345 

1 


OLuAU 

CAU 

NC,ADD TIREDELT 1C T-TO-AUO AND THY 

lies 

REF 

4 

LAST 

1330 

13, 3713 

3466 

tj 



T-fO-AuD 

A G A I N 0 

11 9 

REF 

4 

LAST 

1329 

13,3714 

13771 

1 



1 I HE J fc L 1 


111 

TFT" 


LAST 

13J(i 

“TiT^TI?" 

3^466" 

1 


:>! CALL 

T-ru^oD 


1111 

REF 

2 

LAST 

133 ^ 

13,3716 

27670 

J 



i 1 Mel 44 C 


A1H14 












111141 

REF 

1 



G 5 , 2 'J t C 




SEI LGL 

IMT ilMl f 3 

— - - - - * - - - 

111142 





u 5, 3 754 




BANK 



111143 

REF 

1 







COUNTS 

J-5/K.4i 


11115 





L 5 , 3 7 5 4 

0 J . 

1 

3CSECS 

ZijEC 

3 


11115 





0 5, 3755 

,3 9 ^ J ^ 

1 





1112 





,5,3756 

77414 

u 

KOTIME 

CLEAR 

EXIT 

TOO LAIc 

1113 

REF 

4 

LAST 

1329 

5,3757 

4ti74 

0 



H i Ul fl a g 


1114 

REF 

0 

LAST 

1329 

3 f 3 7 6 V 

24 7 73 

1 


I NCR 

IK:, 1 UP 41 

oFT EkKOh EXIT { CALLQC +2) 

1115 

REF 

^2 

LAST 

1191 

V ^ f 3 7 6 1 

„ 5671 

1 


TC 

ALAR’^i 

INSUFFICIENT TIME FOR ' iTlT EoKA T 1 ON — 

1116 





. 5 , 3762 

1 7 J 3 

1 


OCT 

17 3 

11 G WILL EE SLIPPEDu.^ 

1117 

REF 

T, 

^ 0 

LAST 

1325 

J ^ 7 6 3 

u D^yL‘6 

1 


TC 

1 n r H KG 1 


1118 





i> f j7 6 4 

777^b 

1 


ULOAD 



iii^ 

RFF 


~L K^r 

i337r~ 

vv D f 3 7 6 5 

~r577l 

1 



n^fturcT 


112t 

REF 

6 

LAST 

133 : 

^ 6 t 3 / b 6 

J 3466 

u 


Si LiHiL- 

r-I U-AUD 


1121 





.5,37o7 

77oi6 

u 





1123 





Jb, j77< 

(J V 3 

1 

TlMEutLT 

2QEC 

125^ 


1123 





5,3/71 

‘-.2342 
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L INTtGRAlIJN IKITIALIZATIJN 


1124 

1124 

1126 

RGF 

1 



J3,3772 

V. 3 f 3773 

2 7 f 2 •vfG C 

^ jl 

'.■li;o' C 

5» 6 

2 L)b C 

5 E T L Gl 

5oij 

'jPiJaTE2 

1127 





^ f 1 3ij T 2 



B A!^K 


112 i 

REF 

1 



_ 

- 


COUNT*" 

li/lNTlN 

1131 

kef 

12 

LAST 

79u 

E3, i7F 6 



ESANK= 

TdPHEM 

1134 

REF 

237 

LAST 

133; 

'27, 30 72 

U 6 J o 1 

INIUAKEU 

TC 

INTPRET 


1135 ' 2 7,j»C73 53135 -J ' SLQAD BZE 


llaG 

KEF 

4 

LAST 

194 

27,3074 

vl5w2 1 



CPSVFLAG 

1137 

REF 

1 



27,3 75 

57141 1 



INTkAKUP 

113S 





2 7 f J J 7 6 

77775 1 

— - --- — 

VLuAD 


113Y 

REF 

12 

LAST 

1326 

27,3077 

U15^3 0 



RRtCT 

GIT4T^ — 

REF“ 

7C 

last 

1326 

^7 , 5 luC 

“25535^7' 


uVl 

~RUV 

1141 

REF 

8 

LAST 

1321 

27,3101 

J151i 



VKtCT 

1142 





27,3102 

77624 1 


CALL 


1143 

REF 

1 



27,iiv3 

23435 1 



1 XNIRECT 

1144 





27,31l4 

51535 l 


SLOAO 

ABa 

1145 

REF 

5 

LAST 

1331 

27, j»i‘. 5 

U15S2 1 



GPiVFLAG 

" 11«“ 





2 / f 3 1 v/ 6 

" 5304^3 u 


UBU 

DZb 

1147 

REF 

1 



27,31.., 7 

17150 . 



UPMNjVCD 

1148 

REF 

1 



27, jIIL 

57115 . 



iHlWAKtM 

11A5 





27,3111 

43174 1 


AX 1 f ^ 

CLKGO 

' 115-: 





27,3112 

V,' ^ 0 V 1 


DEC 


1151 

REF 

21 

LAST 

1321 

27,3113 

.. 223 1 



R DON FLAG 

1152 

RTF 

^ 



"27731X4 

5fl2t V 



IM WAKl.C 

1153 





27,3115 

43174 1 

INTHAKLH 

AX T f z- 

SET 

1154 





27,3116 

. J2 w 


□ EC 

■ 

4L 

1155 

REF 

Z2 

LAST 

1331 

27,3117 

DtCo3 1 



R GUN FLAG 

1156 


_ 



27,3120 ■ 

"50 13 5 

INT RAKtC 

SLQAD 

BNN 

A1157 










1158’ 

“3REF 

G~ 

LAST' 

1331 

2 T f 3 1 2 1 

'Si 5 32 '1 



LPSVFL'AG 

115S 

REF 

1 



27 f 3 12 2 

57130 1 



I4TMAKLM 

116: 





27,3123 

77624 1 


CALL 


1161 

REF 

3 

LAST 

1321 

27 , 3124 

26761 u 



AfUPCSH 

1162 





27 , 3125 

52U4 C 


CLEAR 

Gl T 0 

’TT63 ■ 

“TTF 

14 

LAST 

13To 

2T;3IZ6‘~ 

v TgTX TT 



CT4B W FL AG 

1164 

REF 

1 



27,3127 

57132 c 



1 fvT Vi AKb X 

1163 





27,3130 

77624 1 

INTWAKLM 

CALL 


1166 

REF 

3 

LAST 

1321 

27,3131 

27034 0 



; T JPLbH 

1167 





27,3132 

77414 S 

iNrRAKbX 

CLEAR 

EXI T 

116 F. 

REF 

10 

LAST 

1326 

2 7 1 3 13 3 

^ ^ o 7 6 1 



r t '■’» □ F L G 

11681 

REF 

G47 

LAST 

1256 

27, 3134 

3 4772 i 


CAF 

ZERO 

11662 





27,3135 

0 GO 6 1 


uXTEND 
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IS THIS A CSrt/LEM STATE VECTOR UPDATE 
KEwUtST, IF NOT GC TO INTWAKUP, 


1 

MOVE RRECTt6t AND VkECT(6) INTO 

RCVtb) AND VCV (b) RESPECT I VELY> 


NUrt GO TO 'RECTIFY +130* TO 
STORE Vt^'ECT INTO VCV AND ZERO OUT 


TDELTAV(6) ,TNUV16) ,TC 12) AND XKCP(2) 
COMPARE AESaLUTE VALjE OF 'UPSVFLAG' 
TO 'UPDATE MOON STATE VECTOR CODE' 
lU ULIEKHINE WHEfHER’ 1 HL SIAIE VEClUR 

BE UPDATED IS IN THE EARTH OR LUNAR 


sphere uF I NFLUENCE j C l 4 o. • . o « 

EARTH SPHERE OF INfLUENCE. 


TO 




LUNAR SPHERE UF INFLUENCE, 


COMHON COOING AFTER X2 INITIALIZED AND 
MOONFLAG SET (OK CLEAREU), 

■“IS 'THTS 7^- REDDEST FOR" A' LErrXR'XSH 

STATE VECTOR UPDATE. , 4*. . 

UPuATF CSK STATE VECTOR 


UPUATt LM STATE VECTOR 
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1160 3 

REF 

2 

LAST 

194 

27,3136 

Cl C7 7 

u 


WRITE 

CHAN77 

ZERO CHAN^EL 77 


ll6y 

REF 

t 

LAST 

1331 

27,3137 

55* 5bi 

c 


TS 

upsVflag 



11 7l 

REF 

238 

LAST 

1331 

27, 3140 

0 6CC ^ 

1 


TL 

IMPKET 



1171 





27,3141 

77624 

1 

INTWAKJP 

CALL 




11/2 

REF 

4 

LAST 

643 

27,3142 

27525 




1 IX r ifli <^K t ' 

RELEASE :GRA6: OF ORBIT IN TEG 

jft 

1173 





27,3143 

77776 

1 


tXIT 



1174 

REF 

101 

LAST 

1325 

27,3144 

0 5 40 2 

1 


TC 

PhASCHilG 




1175 





27, 3145 

o4l*26 

1 


□ CT 



- — — - - -- ^ 

1176 

REF 

1 

- 


27,3146 

0 3 7U6 

0 


TC 

UPGUT +1 

- - — — - — — — 

1177 





27,3147 

OOOQ2 

0 

UPMWSVCD 

acT 

2 


1178 





27, 31 5 C 

uOOOO 

1 


OCT 



\ ■ r ' * 

11785 

REF 

1 



li,2':QC} 




SETLOC 

CK6ITAL 


* i . 

■ ,1 

t 

• * ■ o ' 

il76t 





11,252 7 




BANK 



• 

' V , 

11787 














'ref 

1 







COUNTS 

1$/0R3IT 


f 

117«^ 





11,2327 

7742U 

1 

GKP2HC 

STQ 

EXi T 



liB« 

“REF 

3 

LAST 

126 

11,233J 

C3536 

1 



UrFTS VO 



1161 

REF 

1C 2 

LAST 

1332 

11,2331 

U 5 4 j 2 

1 


TC 

PHASCHi'iG 



1162 





11,2332 

C4 <22 

0 


OCT 

' 4C22 



1183 

REF 

239 

LAST 

1332 

11, 233 3 

b 6c0 6 

1 


TC 

INTPRET 


» 

1134 





11,2334 

776:Jb 

1 


bOlO 




1185 

REF 

4 

LAST 

1332 

11,2335 

L 3 5 3 6 

1 



CRP2SVW 
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L 

URblT AL 

liJTEGRAT ION 




B \ -i A 1 i 



UELETE 





REF 

2 

LAST 

1332 

1 i f ZV‘ * 



A 4 





11,2336 



C f ’ ; ^ 

REF 


l332^JrT333 ; 

7 " 

^ 

RtL06 



DELETE 




CC07 





11,2336 

4C354 

1 KEPPhEP 

CC3. B 
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PUSH 


VSR3 

T¥ 

PHIV 

61 Fc wCOM 
V^Ki 
FV 
V AO 
"PHTV 
P>iV 
VAO 
PHi\/ 
STCALL PHIY 

OlFE ^CuiM 
UWFK 

H 

lpz/b 

PUSH VXSC 

PrilV 

VSLl 


j>TUVL 
V Sk 1 


zv 


vxsc 


STOVE 


VS iCT ' 

VXSC 

VAO 

STORE 

GOFF- 


LXA,2 


VSLS 

STORE 

VLOAO 

^ iL3 

S T Li R t 

CALL 


H 

YV 

YV 

FV 

yad 

PSIV 
VSLi ' 

ZV 

ZV 

CAn 

J :> R i r C H 

ENDSTATL 

GRP2PC 

VLQA-O 

COLREG 

TV 

it +340f2 

YV 

BCV 

Ilk f 2 


ADJUST U-PoSlTlUN F 


Si JRAGE 
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URBI FAL 
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11,3324 

6633*t ^ 

LXA,2 

S:jP 

'636 

KEF 2 

LASF 

134 7 

11,33^5 

:.L77.,^ 1 


COLKEG 

6 37 

REF 32 

LAST 

1339 

11, 332 o 



S2 

' oJO 




11,3327 

1 



> 6 J 




1 1 f 353 c 

67 ii4 i 

1NCR,2 

S<A,2 

! f 




a1,3331 

■wL0J6 1 


6 


REF 7 

LAST 

1347 

ii,3D32 

.734 1 


YV 

i6A2 




11,3333 

431 ;4 6 

TIX,2 

CALL 

^ 643 

REF 1 



11,3334 

23621 j 


i<iiL OAuS V 

644 


LAST 134T 

11,3333 

22327 1 


GkP2PL 

6^3 




11,33^6 

67134 C 

LX A f 2. 

SXAtZ 

6-4’6 

REF 6 

LAST 

134b 

1 1 ,3337 

0u75^ 1 


VV 

64 7 

KEF 3 

LAST 

134b 

11, 334 

L-C77:- 1 

- 

COLRLG 

1 t>48 




11,3341 

77624 1 

NtXTCQL Call 


t 64^5 

REF 3 u 

"TXST 

04b 

11735472 

"2232 r 1 


■gkP2PC — 

C65': 




11, 3543 

767 34 J 

L X A I ^ 

V LOA 0^ 

'■ 631 

REF 4 

LAST 

1346 

11,3344 

C 7 7 V 1 


C OCR EG 

E632 

KEF 61 

LAST 

134 7 

11,334>3 

7537u 1 


W,2 

V--633 




11, j346 

77722 V, 

V6N3 


■: 634 

REF 9 

LAST 

1348 

11,3547 

t.t-7!>3 

STORE 

YV 

!.653 




1 1 , 3d5 u 

76173 ; 

VLOaO’' 

"AXT, 1 

' 656 

REF 6 

LAST 

1348 

11,333 1 

7531. 1 


ift f34Uf2 

6:>7 




11,3332 

L J' ^ ' 1 


_ 

< 65 8 




11,3533 

77722 0 

VSR3 


',65^ 

REF 7 

LAST 

1347 

11,3334 

3^7 63 1 

^ TCALL 

zv 

C66'' 

KEF 1 



11,3335 

233v,4 1 


D 1 F c tw 


• 661 





11, 3536 

772vju y END6TATt 

BOV 

VLOAO 

.662 

REF 

3 

LAST 

1343 

11,35^7 

22726 1 


GlJBA iUL 

!' 6 5 3 

REF 

3 

LAST 

134b 

Ilf 35 6 9 

UL763 u 


zv 

v664 

REF 

12 

LAST 

134o 

Jl 1 f 5 5 1 

25527 ' 

STUVL 

Tnuv 

L663 

REF 

lo 

LAST 

1348 

11,3362 

Ol 7 j3 V 


YV 

- rs66 

'RTF 

— 

i^Abl 1346 

lit 5563 

UT5Z1 3 

3 Tu8l£ 

TO E r T"a¥~ 

.667 





11, j364 

43 14 « 

jON 

tiuF F 

<668 

REF 

J 

LAST 

1329 

11, 33o3 

U47i3 0 


H I DA VFL 0 

C669 

REF 

1 



1 1 , j>366 

27636 i 


CKMID2 

C67A 

REF 

19 

LAST 

1337 

11, 3567 

vi756 1 


Dirt.. FLAG 

^^6?! 

KEF 

13 

LAST 

1339 

i 1 ,337 L 

27364 1 


TESTLOUP 

:672 





11,3571' 

77 77‘6 1 

TX1T“ 


r673 

EF 

1 >3 

LAST 

1332 

Ilf <5 5 7 xd 

6 34^2 1 

rc 

PHASCriNG 

1674 





11,3373 

4 2 2 ^ 

OLT 

4.. 22 

>673 

REF 

69 

LAST 

132 J 

11, 3574 

u 5347 1 

TL 

UPFLAG 

1.6 76 

REF 

4 

LAST 

132'; 

1 1 # J 7 5 

y y 2 3 1) 

ADR E ^ 

R £ I N 1 FL G 

16 77 

KEF 

240 

LAST 

1332 

11, J3 76 

U 6366 I 

rc 

I M RKlir 

■~r&78 





' IT, 3577“ 

77731 1 

3 3P 


V 6 79 

REF 

15 

LAST 

1345 

11, 36k. 

. . >.‘33 1 


wPRl T 

• f68C 

REF 

1 



11,36-1 

236 - 6 w 


AH' J V £0 

^631 





111 3 0 f 2. 

32Ji4 

b u Tyi 

GOTO 

c682 

REF 

17 

LAST 

1327 

1 1 , 6 . 3 

.1714 1 


VINT FLAG 
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3 1 1 AL 

INT EgEiaT lUi'i 




USER'S PAgc no, 17 to S3 

i 6 ^ i 

A tF 

4 

last 133i 

ii, 36 . 4 

<.6761 u 


ATUPCSM 

6 f ^ 

H£F 

4 

LAST 1331 

i 1 f 30w 3 

27)wi4 ^ 


AluPLEM - ^ 

\.6SJ 




111 i6C 6 

66214 0 AMQVhU 

SET 

S:>R 

^ rcBe 

BEF 

4 

XAST 1347 

11,3627 

'TvT’mr" 


JSWITCri 

0687 

REF 

5 

LAST 1349 

11,^610 

. 771 0 


CGLREG 

0688 




1 1 1 J 6 1 1 

77 741 V 

L)cC 

-3.; ■ " ■ ' ■ “ 

'639 




11, iol2 

66214 t 

GOFF 

SSR 

^ 69' 

REF 

D 

LAST 1327 

11,3613 

El 755 1 


CbJHlFLG 

C691 

REF 

1 


11, 3o 14 

23541 U 


iN c XT COL 

~rF92“ 

TTEF 

b 

LAS! 1349 

TT ,161 5 

OC / / 1 'J 


CULREG 

res 3 




i 1 ,3616 

77717 3 

DEC 

-48 





11,3617 

7765'; 1 

GOTO 

_____ __ _ _ . ^ 

» 

'. o9 5 

BEF 


LAST 1349 

11,362'- 

23541 t 


NEXTguL ' 







TI ,~J6Z1 77T4Srr" 

"REL'GADS V "JLQAD 


RETDAu TEFfPURAKY S'! Al fc VECTOR 

0697 

REF 

9 

LAST 

133j 

11 » 3 62 2 

. ! 745 1 


fOEG 

FROM PLRNANENT IN CASE OF 

r. 6 9 E 

REF 

48 

LAST 

1329" 

~ 11,3623 

34.41 j 

STCALL 

T DEC 1 


; (joo 

REF 

1 



11, 3q24 

27243 1 


liMT c;GKV2 

BY STARTING AT INTtCRV2. 

C7Cr 





11,3625 

43345 1 

CIFEwCGrt DLOAD 

DAO 

INCREMENT Fi AND OIFFutCNT, 

7 Cl 

REF 

1. 

LAST 

1335 

11, 3626 

C'23^5 o 


01/2 


17722“ 

"R EF" 

6 

L“ATr 

I347~ 

1 1 1 3 62 7 

02212 1 


R 


0 7.3 





11,363. 

66 il.. 1 

i.NCK, 1 

SXA, 1 


T7C4 





il, io31 

77763 0 

DEC 

-12 


7 >5 

REF 

2i> 

LAST 

1344 

11,3632 

; 1 5*^ L 


0 1 F t vJL h T 

DlPEwCNT SlT fur NEXT ENTRYo 

■^7^ 6 

REF 

7 

LAST 

1349 

lit 3633 

:2212 1 

STORE 

H 


^ 7C 7 





il,-»634 

74561 . 

vxsc 

VSkI 


nzs^ 


T2~ 

LAST" 

1347 

1X73 SB'S" 

"1TZZ7? ^ 


pV 


7 : 9 





1 1 1 3 63 6 

74255 0 

VAO 

vxsc 


C7ir 

REF 

9 

last 

1348 

11,g637 

: 763 cr^ 


zv 


0711 

REF 

a 

LAST 

1349 

il,364v 

. 2212 1 


H 


€712 


• 



11,3641 

77655 1 

VAD 



1713 

KEF 

11 

LAST 

1343 

11 , 3642 

V. .735 c 


vv 


-rrpr 

- KEF 

'4^ 

CTTST* 

1344 

-"-TTVT643 

~FZr5X - 

ST ORE 

ALP H A V 


( 715 





11,3644 

5201 4 0 

6uN 

GQl C 


C716 

REF 

5 

CAST 

1349 

ir,3645 

CC3ul V 


J SW 1 1 uH 


' 717 

REF 

2 

LAST 

1344 

11,3646 

23664 1 


L Lirl 4 


C718 

“REF 

1 



11, 3647 

22436 o 


F3iU 



C719 
t..72C 
1721 
722 
i 723 

REF 

BEF 

REF 

20 

15 

11 

LAST 

LAST 

last 

1348 

1331 

1331 

11,3650 
ii,3i)3 1 

11.3652 

11.3653 

11.3654 

43-14 
’ 1 b 7 o 
01671 
77614 
02676 

L WMAlcNP 

1 

( 

w • 

1 

1 

CLEAR 

Clear 

CLEAR 

Cl F A u 

LK J A f LAG 

thO WFL G 

OGNT INTEGRATr U THIS 
INVALIDATE W 

riHC 

4 724 





IT, 3655" 

'77414 

t 

SFT ■ 

"TTTT 




{ 725 

REF 

7 

CAST 

132 3 

11,3656 

1472 

i 


OTlT EFlG 

PICK 

UP :> f ^ i t: V L C T Uk 

UPDATE 

C72c 

REF 

33 

LAST 

1330 

11,3657 

0 5o7 1 

1 

TC 

ALARM 




^727 





Ilf ja6‘^ 

■ ^421 


JoT 

^21 




072 3 

REF 

241 

LAST 

1343 

11,3661 

J 6 C u 6 

1 

I C 

INTPREI 
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S3 


tXl k aPoLA T ION UF 1 HE W MATRIX 
CALLS THIE NYSTRGM INTkGK 



IT CU .PUT ES THE SECOND uERiVATIVE OF EACH 


R 735 

— - - - --T 

USES 

A 

TA3LL 

OF VEHICLE POSiriON VELTOKS COMPUTED DURING THE IN 

r 7^7 





1 it JOo4 

7C 754 

U 

LCW«7 “TTCA'f'Z" 

xrLOTCtjr- 

C738 

REF 

1 8 

last 

1346 

Ilf 36 o5 

^ 2 1 b n 

1 


P3 JUY 

7 3^' 

^ RFF 

7 

LAST 

1339 

11,366^6 

50C37 

c 

- 

PUEaRTH 

7 AC 

kEF 

4 

LAST 

1336 

X i f Job / 

3621 J 

1 

S TCALL 

BETAM 

i 741 

REF 

1 



11 f J b 7 

23712 

1 


C QW » « 1 

\.742 

REF 

13 

LAST 

1349 

1 1 f J 6 7 1 

022 ,.2 

w 

sruRE 

FV 

743^ 





irrsGTz — 

62014 

L- 

— — -BtTF 

TNCR, 1 

l744 

REF 

0 

LAST 

1343 

11,3673 

00342 

1 


^ lUFL Ab 

17745 

REF 

3 

LAST 

1342 

11, 3674 

23212 

1 


KBRAT^CH 

5 746 





11, 3675 

7177 L 

- 1 

U EL 

-6 

(7747 





1 1 1 J b7 b 

7 : 744 

1 

LXC,2 

L'LOaQ* 

0748 

REF 

17 

LAST 

1331 

11,3677 

V 213 . 

1 


PGODY 


REF 

d 

LAST 

Tzrsi 

ir,37CT 

5 ‘ i 

1 


"'MUEARTH 

(75'.. 

REF 

5 

LAST 

1351 

11, 37'^ 1 

3621C 

1 

STCALL 

SETaM 

■751 

REF 

2 

LAST 

1351 

il,37C2 

23712 

1 


DO^o •, 1 

< 15Z 





lL,37o3 

5 J4i4 

lJ 

JON 

V S 

’ 753 

REF 

32 

last 

13^3 

11,3704' 

0C3U3 

1 


FuCNFLAi 

■754 





11,3765 

237ij 6 

1 


+1 

r755 





1 i , 3 70 6 

7 7635 

1 

l/MT ' 


. 756 

REF 

i4 

LAST 

1351 

1 1 , 37u 7 

>22.2 

V' 


rV 

.'757 

REF 

15 

t_ast 

1351 

11,371': 

362^2 

1 

STCALL 

FV 

C758 

REF 

4 

LAST 

1351 

11,371 1 

23212 

1 


(VdKAjJCii 

C759 





il, 3712 

6C575 

n 

COWci VLOAO 

VSR4 

» 76^. 

REF 

4!> 

LAST 

1347 

11,3713 

0 2152 

Ik.* 


L P H A V 

L /6 i 





1 1 , 3 / 14 

53513 

J 

■ ■ PDVL- — TJTTTT” 

' 7 64 ^ 

REF 

B 

LAST 

1337 

11, 3715 

■2216 

c 


V Eu 1 4D f ! 

C763 





11,3710^ 

46315 

1 

PDVL 

VPRUJ 

4. 764 

REF 


LAST 

1351 

11,3717 

1 2152 



aLPHAV 

’:76 5 





11, 372x 

52361 

1 

VX5C 


766 

— ■ — M . 

REF 

5 

LAST 

1344 

11,3721 

23761 

t: 


2 /^ 

T67 





ll',3722 

O" J^£i 

v» 

' — FDDt ' 

' KORM*- 

^763 





11, 372j 

.0.>45 

1 


-I 6 J 

C769 

REF 

35 

LAST 

1343 

11,3724 

C'. :;52 


— - - 

S2 

v7T^' 





11,^725 

634 J6 

L 

PUSH 

L s 

1 771 





11, 3 726 

7 76 >5 

1 

jmp 


' 772 





11,3727 

65 1 

- 

NGHH 

PDuL 

W f 3 





1173 7 jr ' 

C7343’ 



34U“ 

» 774 

REF 

6 

LAST 

1351 

11, 3731 

>22 1'^ 

4 

V- 


b £ T A M 

v775 





11,3732 

56342 

1 

Ski 

CQV 

V 77o 





11,3733 

77761 

1 

VXSL 


r 77 7 





11,3734 

57154 

0 

‘l. 

1. X A f ^ 

XAD,2 

»: 77B 

REF 

34 

LAST 

1351 

11,3735 

Oud51 

U 


S2 

C7T9“ 

"■"REF" 

3 

"LAS 1 

Tin 

rr,7?736 

00051 

4 


~zz 

^73.. 





1 1 f J7 j I 

57C74 


X .4 0 f z 

X A U f Z 

C781 

REF 

36 

LAST 

13 5 1 

11,374C 

DC051 

J 


S2 

f 7B2 





il,-.741 

•. ::42 

1 


3 4iJ 

C783 





11, 3742 

4345 7 

'J 
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^704 




ii» 3743 

576w 6 

u 


L -80,2 

^ 7 ri S 

REF 

1 


11*2961 




oElLOC CRBIEALI 

1 786 




11,3744 




BANK 

^7865 

REF 

i 

LAbkT 1->JJ TU 

1352: 

774 781* 


COUNT* $4/URblT 

< 7 87 




11,3744 

^^4t>3 1 

1 

3/3 

2dEc 3—2 

^ 78 7 




11,3743 

23140 

1: 



■,'788 




11,3746 

14l L . 

1 

T HRfc C / 3 

ZUfcC a375 

0788 




11,3747 


1 



T78« 




11, 37^v 

■2'314 


p 3u 

^ZOHC '^3 3-2 

’ 7 89 




11,3751 

31463 

1 



0 79' 




11 , 3 75 2 

.145 

1 

3/64 

20EC 3 6-6 

o79-. 




11,3753 


1 



<791 

REF 

7 

LAST 13.1 

15,3411 



CPi/^ 

= Li/4 1 8-2 

0792 

RFF 

2 

LAST 13 2 

15,3411 



L itiUtiH, IEK 

EQUALS CPI/ 4 

TT'Pf 




“IT, 3734 

3 C-' V 

“1 

3/32“ 

20EC 3 8-^^ 

0 794 




1 1 , 3 75 5 

O O 0 L/’ V. 

1 



i 7^ j 




11, 3756 

36C00 

1 

15/16 

20EC 153 8 —4 

079f> 




11,3757 

OLOQQ 

1 



< /96 




11, 376 . 

"BOZJidd 

1 

3/4 

ZQbC b *2 

796 




11,3761 

CCC3CI 

1 



797 




'1 1, iTST” 

— 22 52 S' 

v) 

T7I2 

2DEC 35333333353 

0797 




li,37o3 

12525 

0 



0^798 




ill ^764 

3oi 

i 

9/16 

2DEC 9 3 —4 

C798 




11,3765 


1 



0 799 




11,3766 

W 1 2 J V 

1 

5/123 

2UeC 5 6-7 

i,7QO 




11,3767 

C* VJ ‘.J 0' 

1 



^80*. 

KEF 

23 

LAST 1346 

'v4, 3 761 



DP/£kG 

EQUALS /ERjVlC 

8 1 




11,37 7.. 

25252 

r 

V- 

CP^/3 

20EC 96666666607 

C8.' 1 




11,3771 

25253 

1 



'■ 8 V 2 

REF 

3 

last 1347 

11,3772 



2/3 

EQUALS CP2/3 

Rf804 

LK504 

IS 

TEMPORARY 





- 

Bk 6 

REF 

1 


1 3 , 2000 




stlLOC CR8I rAL2 





1 j f j 71 i 




bank 

- Bi 75 

REF 

1 






COUNT* *^/0R3I T 

:o 

-0 

1 

IT IS 

^^1}AL THAT THE 

FOLLOHING CONSTANTS 

, NOT BE 

Shuffled 

" 8« 9 




13,3717 

77764 

1 


DEC -11 

V 6 i ’ 




13,3720. 

77775 

1 


OEC -2 

!.■ bll 




13,3721 

77766 



DEC -> 

■^612“ 




13,3 72 2 

■ -77 7 7 i 

L 


DEC -6 

813 




1 3 f J 7^3 

77 7 75 

1 


del -2 

0 8 1 4 




13,3724 

77 775 

1 


DEC -2 

0 815 




15,3 725 

Vi 

1 


DEl 

' bib 




13,3726 

77763 

L 


DEC -12 

617 




13,37l7 

77766 

f J 


DEC -9 

' aiH 




1 3 i ^ 7 3 

777/3 

1' 


DEC -4 

C619 




1 3 f ^ / 3 1 

7777u 

1 

/SCALE 

DEC -7 

■ C82i: 




1 3 f 3 7 ^ 

77771 

r 

W 


U bC “*6 

0821 




13,37j3 

27446 

1 

1 

2DtC4 1.32/15445 tlb 6—54* S 

0 82 1 




i 3 f 3 7 3 4 

1462 .. 

w 


✓ 


3 
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13 » 373 5 

16471 

1 


2DtC^‘ 

4c 9; 277 8 .’ £6 8-3 .* M 

^82 2 



1 3 f 3 7 J 6 

..1352 

1 



l/ 

•. B2 3 



13,3737 

22437 

1 

rtUEAKTH 

2DEC^ 

3c9Q6i.32 Eli. B-36* 

C82 3 



13, 3 f4i' 

i b U 6 / 

1” 




t 82 A 



13,3741 

ii'O ■ 

1 


2UEC 


C 824 



13 1 3 742 

OCOuo 

1 




\ 823 



13,3743 

G 23 J 2 

1 

J4REiiii/J 3 

2DEC* 

.49916.7391 E7 b-26* 

v82 5 



13,3744 

24736 

0 




C620 



13,3745 

77651 

'J 


20EC 

-176236c' 2 6-25 

TWZ^ 



1 3 I 3 7 4 6 

/ 623 / 





( d^7 



13,3747 

77776 

1 

2J3Kb/J2 

2D£C« 

-.1353426363 £5 8-27^ 

0827 



13,3751 

5313Z 

0 




0828 



13,j>751 

1: 4.5 7 

0 


2UEC + 
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1354 

23f3Ji 6 

47311 1 


ARC I Rl t; 

t>.53 

REF 19 

LAST 

756 

23 f 33 \ 7 

J6 760 - 

STCALL 

CoC 

C 54 

REF 3S 

LAST 

1354 

23,33 it 

OD051 L 


S2 


11; 4, FEB. 26,1971 ZEU6 


*.‘-46 PAGE 1355 

' ~ r 

USER'S PAGE NU, 2 E5 S3 


UgnD ' Gt) = ZH . ZUL 


tr 


SiriOGCl = ZP YDC 


01 


X GYRO TOkQUiNG ANGLE FRACTION OF REV* 

^ ■ i 



FEBa 26il97X ZEUS 


46 PAGE 1356 
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I INPLIGHI ALlGNMcNl RuUTiNLS U3 lk*S PAGE NOa 3 [:5 S3 

K 55 ARCTKito COMPUTES AN ARGLt GIVEN THt SINE. AND COSINE UE THIS ANGLE.. _ 

Rye 56 THE INPUTS ARE S iN/4 AND COS/4 STORED DP AT S iNTH AN D CJSTH. 

RCt57 TEE OUTPUT IS THE CALCULATED ANGLE BETWEEN +*5 AND -c 5 REVOLUTIGNS AND STORED Al THETA. THE uUTPUl IS ALSO 
RCc55 A VA I LADLE AT MPAC. 
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THE INPUIG ARE 1) 1 HE iNiAV 1 oATi ON EASE CCQKUlWATES REFEKKEO TQ ANY COUKDINATE SYSTEM*. IHF THREE HALF-UNIT 
■^(.■■'5^ VECTORS ARE STORED Al /<NG»yNb» AND ZNba ITTHi: oesTlTED 3 TABLE MEHB'ER COaROlOTF ES ""REFERrCl. TO 
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Kt.097 THE OUTPLTS ARE THE ttiALc cDJ DRIVING ANGLES AND AKt STUKEJ SP AT THETADt THETAD +1# AND THETAD *2, 







23,3344 

77601 

■1 

C AL C G A 

6ETPD 


PUSHDOk^N 

OC-05, 16C-21D, 340-370 

vl.;'.; 





Z3, j345 

UCDDl 

L,.' 



K 



11 





J f Ji46 

47375 



VLOAU ' 

vxv 



12 

REF 

11 

LAST 

822 

23, jj347 

-2714 

1 



XNB 

XNB = UGA 

ICUTER GIMBAL AXIS) 

.1:3 

KEF 

6 

LAST 

822 

23,335 

2? Jv- 

1 



Y SM 

YSM = IGA 

(INNER GIMBAL .AXIS) 

11.4 





2 J »33i:>l 

41436 

Vj 


UNIT 

PUSH 

PDJ = UNITIGGA X IGA) = HGA 

1 S 





23,3352 

44.41 

1 


DgI 

ITA 



1* 6 

KEF 

7 

LAST 

o22 

23,3353 

0273'. 

1 



Z^'6 



Civ. 7 

REF 

39 

LAST 

13 55 

23,3354 

i.C-v5i 

1 r- 

> 



S2 



G 1 a 

REF 

16 

LAST 

1356 

23,3355 

24021 

1 


S 1 uVL 

COSTH 

C 0 S ( U b ) “ 

MGA 5 ZNfa 

t Ic^^ 





23, j356 

J 13 1 

1 






-r-YY< 





2373357 

77o41 

1 


DuT 




ill 

kef 

f 

LAST 

822 

23,336C 

‘2722 

1 



VN6 



112 

REF 

19 

LAST 

1356 

23,3361 

34323 

1 


STCALL 

S 1 'i f H 

SINIJG) = 

MG A a YnB 

113 

REF 

1- 

LAST 

1355 

23, 3362 

47311 

1 



A KL TH i G 



vil4 

REF 

2', 

LAST 

1355 

23,3363 

Z6 

1 


STuVL 

uGC 



^ 115 





23, j364 

OODUl 

1 

4 ' 






116 





Z 3 f J 0 

50235 

U 


VXV 

ool 

PRO Vi SION 

FOR MG ANGLE OF 90 OLGREOS 

ai7 

REF 

12 

last 

1350 

23 » 3^06 

0271 4 

1 



XN8 



11 a 

REF 

7 

LAST 

1358 

23,33o7 

327go 

1 



YSM 



M19 





23,3370 

insz 

1 


iLi 




12 

REF 

17 

LAST 

1358 

23,3371 

24u2i 

1 


0 T UV L 

COSTH 

COS (MG) == 

IGA (MGA X UGA) 

ri2i 

REF ■ 

~8 

'XTSTT 

■1T513 — 

2i 3 f 3 3 / Z 

UZTUU 




YSM 



<. 122 





23,3373 

77641 

1 


OUT 




1123 

REF 

13 

LAST 

1358 

23,3374 

027 l4 

1 



aiSd 



<:i24 

REF 

20 

L AST 

1353 

23,3375 

34 23 

1 


SiCALL 

S 1 »N T H 

SINtMG) = 

IGA ., UGA 

< 125 

REF 

11 

LAST 

1358 

23,3376 

47311 

1 



AkCTRIu 



126 

REF 

5 

LAST 

1354 

23,337 7 

w2 764 

a 


STukt 

KGC 



^ 127 





Z3f >4,7 ‘-i 

45246 

i * 


AUS 

CSU 



<-12a 

REF 

2 

LAST 

6' 3 

23,34. 1 

^-5 T 3 Z 7 

1 

' > 



'5 ItiO 



C129 





23, 34'. 2 

77644 

1 


SPL 




C13g 

REF 

1 



23,3433 

47422 




(j I MLOC K i 

IF angle 

greater than 6^ ;O.GREFS 

13 1 





Z3f 2#4w 4 

3', 375 

U 

CALLGAl 

VLOAO 

COT 


D 

. 132 

REF 

7 

LAST 

322 

2 3 , 3 4 W 5 

JcL 7 t> 

1 



ZSH 



13? 

■ 




Z3 » J4^ 6 

CO *.’3 1 







• 134 

REF 

18 

LAST 

13 3 0 

Z 3 f 34. T 

24L2i 

1 


STUVL 

ll>t h 

CUS(iG) ^ 

ZSH . MGA 

' 135 

KEF 

32 

LAST 

1354 

23, 341 . 

02672 

f 



X;j;1 




1.46 PAGE i35V 


A A c.vi SiuN * 72 op a ^c progkah art e h is gv n as a 2 i zi i i 4 -. ii 11 14; feb^ 26,1971 zeds 

L INFLIGHT ALIGNMENT ROUT INcS USER'S PAGE NO. 6 E5 S3 


ijfc 
' 137 

13d 

KEF 

KEF 

21 

12 

LAST 

LAST 

1353 

1338 

23.3411 

23.3412 

23 . 341 3 

45441 1 

43734 0 

47311 1 

DOT 

S TC Al L II 

STADR 

SINTH SINdGJ = XSM~, M'GA 

ARCT K I G 

< 13 :> 

REF 

6 

LAST 

1354 

23,3414 

267o2 U 

srovL 

I Gu 

Li4. 

KEF 

21 

LAST 

135a 

23 ,3415 

L^lb'i 1 


UGC 

141 





2j,3416 

77634 .! 

KT d 


1415 

REF 

6 

LAST 

67 

23,3417 

45644 U 


V1ST02S 

.143 

REF 

23 

LAST 

774 

23, 34^. 

35310 0 

S ICALL 

THETAO 


T44 EEF 4n L AST ‘ITS 8 Z3T342T OU'iSl U 37 


' 145 




23,3422 

77776 

1 

GIMLOLKl EXIT 



; 146 

PEF 

34 

LAST 1349 

23 , 3423 

u Soil 

1 

TC 

ALARM 


ri47 




23,3424 

(rc4oi 

1 

UCT 

CG4JI 

- 

<146 

REF 

70 

LAST 1343 

23, 3*t25 

u 5547 

1 

T C 

- — - — — ' —.'t # ^ i*. ■ 

UPF LAG 

GIMbAL LOCK HAS OCCUREO 


rrr? rtf 7 cast- "478 Z3V34Zo Ju336 1 ADR73 — mroKFATTr- 


115- 

REF 

242 LAST 1349 

23,3427 

G 6''\,6 

I 

TC 

INTPRET 

:.151 



2 3, 343 »- 

7766 : 

1 

GOTO 


" L152 

REF 

1 

23,3431 

474^4 

1 


CALCGAl 


tAP 


A6S £W6L£ R trtfi :>10N uF P RU^iRAM AK i EMIi bY NASA 2 ^111^- II 


IX: 4C’ FEB. 26,1971 ZEUS 


.'46 PAijE 136 


L INFLloHi ALIo^^M£^JT RUUTlNcS 


USER'S PAGE NOo 7 £5 S3 


R ISi 


AMSGuN CUMPUTuS FHt CObKUlNATtS 


□P GuL CaORplNArt SYSl EH KEFtKKEp TO ANOTHER COuRDINATE SYSTEM. 
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213 





23,35 r2 

777U4 1 

AX1SGEN3 TiX,2 


- •- 

— — - - — -- — =■' 


' 214 

KEF 

1 



23,3513 

47467 1 


Ax is G en 2 




. 215 





23,3514 

77775 1 

VLGAD 





CZlb 

REF 

12 

LAST 

1361 

23,3515 

02714 1 


XOC 



_ - . - - .V - - - - 

217 

REF 

22 

LAST 

1361 

23,3516 

26736 1 

STUVL 

S T Ak AU 




'218 

REF 

a 

XAST 

1355 

■23,3517 

62722 i 


y Dcr 

- - 


. V 

1219 

REF 

23 

last 

i3o 1 

23,332 

26744 1 

STuYL 

STARAU +6 




rzzrr 

ref 

6 

LAST 

13 1>5 

^3 f 3b2 1 

02T30 1 


Zuc 




<221 

REF 

24 

LAST 

1361 

23,3522 

32752 o 

STORE 

o f ARAD l^D 




' 222 

- 


-- 


23 ,3523 

7 7616 

RVi4 

. - - - . _ . 

■ - - 

- - - 

- 

- 





- 




- 

- - 



$ 


1 


b AP : A^S&MBLt: Kl VlSiON v; OP AbC PRUbRAM ART tMIS BY NASA 2u ^ I JH4- J X I 


1I;4C FEB, 26tl97l ZEUS 



INFLIGHT ALloNHENr ROUriNti 

- 

-■ ■ 

^ 

. — ^ . 

_ _ . - -- — - - 

USER'S PAGE MO. 9 

* 

1 281 

Z3i3524 

23 y 352 5 

0552y 

26075 

0 

1 

QTSN45 

2DEC . 

«».lT6d _ 


QZaz 

23,3526 

05232 

1 

loo « e ^ 

2DtC 

1666066667 



rZ52 ^T75527 ZS2 53 1 




»A 






- ■ 


>/'r ■ .-r 


»vl 




' 4 <^^ 










, s 


/.» V 

^••^' V 



gap: ASbEMBLc KEViSION u OF Av^C PROGRAM ARTEMIS BY NASA ZC211i4-oll 


li:4fJ FE6o 26,1974 Z 


>46 PAGE 1363 


V' 

V- p <^r 




l»- 




L INFLIGHT ALIGNMENT RGUTINtS 


^ __ ;, ^ . "v 


^—n ■ ■ — -r 


k 




>. 


« •■ 



» 

T 





I 






i 








■# .* 


I 



* 






* • I 





1 






■ ■■ M, mp- .M.. 

‘ I - « ' . ' 



‘ -.t » 


« 






♦ » 


i “■ ^ TT 










r 




k. 








f ■ ^ 

-V • - « • 



V 





V 


’ w ' 


OT;- 




4 .*.♦ 


46 PAGt 1364 


G jt' P • 

L 


j 

J 


A6 6 fcMaLfe RlVlSlON .7^ UF r\vjC PKUGKAH ARTEMIS BY NASA 2i2ili4-.ll 

PCk^tKtU FLIGHT SUbKULlTlNLs 

KEF 1 ^3,lOL‘ StTLCC PCWFLll E 

23»333i bank 


ili4 FhB. 26,1971 ZEUS 

USER* 5 PAGE NU. 



— ^ j 

S3 


'. ,'4 KfcF i " Ui42 ' ’ EUANK= CfcXUcX 

< ' 6 REF 1 GUUNT’? SS/PJWFL 


K 'V 6 

R' V. 7 


H i-l. w E 


cOUTRIG, CDUTkIGI, LUUlKlG-.i, AND GD*TR*GS ALL LUMPUTL THL SiNcS AND 
CCSINES CF THREE 2*S CGHPLtK^NT ANoLtS AND PLACE Trit RtbOLT, DUUBLE 

PRECIS lONt IN THE SAME ORDER AS THE INPUT Sf mT SINCDU AND CJSCuU, AN 

TTOmTI CN AL OUTPXJ T I’S'TfTiTT^^ncUI^PL £HEf>rr"^JITS'^Tnr0lJ5F'jr; THesc 


u 


1/ 


KCfli RCUTlNcS GO OUT CF THEIR ^AY TU LcAVl THc MPAC AREA AS THEY FIND IT, 

Rt II EXCEPT FLR THE GENERALLY UNliPURTANi i4PAC +2o THEY DIFFER ONLY IN 


K^i 12 WHERE THEY GET THE ANGLLS, AND IN HETHUD OF CALLING, 


RC0i3 

luT'T? 

R Cl 1 5 
Rt- 16 


CDUTRIG (AND CDUTRIGI, WHICH CAN 6E CALLED IN BASIC) LOMPUTE THE 
S I N ES' ATs'C^TrUSTT^FS’ F R CH E CUKR E NT C ON TTKT5~TlT^THF XDLrRE'G 1 S T ERT; 


IFE CONTENTS OF CuUTEMP, ETC,, ARE NUT TCUCHED SO THAT TKEY HAY 
CCNTINCl TG FORM A CCNSI^TeNT SET WITH THE LATEST PIPA READINGS, 


Ri'M7 CDUTKIGI IS LIKECDUTRIG EXCEPT THAT IT CAN BE CALLED In BASIC, 
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RLuiS 

KCL19 

R •- c2 .. 
kOlLI 

RC<.2L 
ROt. 23 
R' i. 24 
R C v 2 5 
R7< 26 
K 2 7 


CD*TR^'GS FINDS CDU VALUES IN CDUSPUT RATHeR THAN IN CDUTEMP, THIS 
ALLOWS UStRS TO MAKE TRANSFORMATIONS USING AKdlTRAKV ANGLcS, OR REAL 
ANGLES IN AN ORDER OTHER THAN X Y Z, A CALL TO THIS KJOFINE IS 
NECESSARY IN PREPARATION FUK A CALL TO AX^SK^T IN EITHER JF ITS TWO 
MODES TSMNB or N3SH), ' SINCE AX*SR7T EXPECTS TU FIND THE ilNtS AND 
CCSINES IN THE ORdER Y Z X THE ANGLES MUST HAVE BEEN PLACED IN CDUSPCT 

In this CrdeR. CD’i'TR^i^Gs NEED N6T BE kepeaTeu when ax^Sr^T is Called 

MERE THAN ONCE, PROVIDED THE ANGLES HAVE NUT CHANGED, -.DTE THAT SINCE 
IT CLOBBERS BUF2 (IN IHE ^IT'iE AND CuSiNE ROUTINES) CU^TR'^GS CaNNCT bE 
CALLED USING EANKCALL, SORRY, 
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QUlCTK J&t INTEFJDED F-JK GUIUArgCE CYCLE USE WHtRE TIME iS CRlTlCALt IS A MUCH FASTER VERSION QF CO^TR^GS. 
i-UMPUTE? 


QUlCTRli, i-UMPUfES AND STuRES THE SiUtS ANU CQSINE 5 uF THE 2*S COHPLbMENT ANGLES AT COUSPUT, COUSPUT +2i 
AND CUCSPJT +4a UNLIKE CG*TK*GS, gUICTRlG DOES NUT LEAVE THE I'S C0.3PLEMENT VERSIONS OF THE ANbLtS IN 
CCUSPOr, QUICTRIG'S EXECUTION TIME IS 4=1 M5; THIS Is 1. TIMES AS FAST AS CO*TR*GSo‘ wUICTRlG MAY 3E 
CALLED FROM INTERPRETIVE AS AN RTB GP-COCEf OR FROM BA;iIC VIA BANKCALL OR IBNKCALL, 
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+4 MASK 

SIX 

Cl 93 

REF 

12 

LAST 

224 

23 f Jo u / 

54 

^ 62 

1 

ts 

1TEMP2 

0* Q4 

REF 

13 

CAST 

1366 

23 1 36 1 L 

5U 

C62 

u 

I NOEX 

1 rEMP2 
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THESE INTERFACE RGUTINLS WAKL iT POSSIBLE TO CALL AX^SkiT, ETC«*f IN 
iNTERPRtllVE^i LAThRf wHOKt POSSIBLE, THEY WILL j£ ELlMlMAlcD* 


kdl 

u' 123 


wnrsT 


THESE INTERFACE HUUTlNtS ARE PERMANENT, ALL RESTORE UitR*i. EBANR 
SETTING. ALL ARE 3TR I C T TNTERPRET I VE SUBRaUTlNES, CALLED USING "CALL»^, 
RETURNING VIA CPRET^ ALL EXPECT AND RETURN THE VECTOR TO BE TRANSFCR- 
{TEO~INTFRFRFTE'R-STYL'E IN PiPAC; COHPON£74 Tb ~ A| HPAC, MPAC~^ F3, ' A ? ^D ~ MFAC ' +S, 


RtlBl 
R' 132 

R''I33 

R ' 1d4 


TRG=i>SMNB AND TKG=«=NBSH BOTH EXPECT TO ^£E 
AT ODCSPCT (ORDER Y Z X, AT CDUSPuT, CDUSPuT 

LOCATIONS NEED NOT BE ZEROED). TRG*N'BSM 

PAT ION; TRb+SMNB, VICE VtKSA^ 


THE 2'S COMFLeMENT ANGLES 
+2, AND CUUSPOT +4; UDD 
rHE" NB TO SH TRANSFQR- 


R* 135 


CDU* NBSM 

DOES 

ITS TkANbFURHATlUN 

USING THE PRESENT 

CQsSTENfS Or 

P^136 

T FE 

CDU 

CJUKTORS." 


IT IS 

LIKE 

TRG^NBSH. 
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COU^SMNB 

IS THE COiMKEMENT OF CJU*NBSH. 
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23, 3aj4 
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1 
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TC 
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: 14' 
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44 
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23 f j63 3 
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O' 

1 Hi\ c c 
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u 
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TC 

AX^SR*T 
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REF 
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C 6 r. ^ ^ 
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TC 
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143 



- 


23 f 3o42 
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1 
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TC 
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' CISC 

R EF 

4 
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TC 
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45 
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23 f 3o43 

3 6214 

L 


CA 

THREE 

0 132 ■ 

REF 

“1 



23 r ->64 6 

' r 3636 

- 

J 


TCF 


' R 153 

- 

^NBSP> AND expect 

TO SEE 

THE 

SINES AiiD COSINES (AT SiNSDU 

RT154 

AND 

CG SC DO) R 

ATHER 

THAN THE ANGLES THEMSELVES. 

□ THbKinlSE THcV AKt 

R^155 

LIK^ TRG^NBSM 

AND 

TRG^SMNB. 






R i iSo 


f'iUTt 

THAT 

BUST 

AS CD^^TK^GS NEED 

BE CALLED ONLY ONCE 

FdR cADH ^E«xltS 

R*‘157 

OF 

TRANS 

FORMATION;* 

USING THE 

SAME ANGLES 

f SOT 00 

ONLY ONE OF rKC<^NbSM 

k-' 158: 

~AND 

TRG^SMNO 

NEED 

DC CALLED fiSR EACii 

^ Eh 

lES. FOR SUBSEQUENT TRANSFER- 

R‘ 159 

MATICNS 

USE ♦NBSM« 

AND ♦SHNB* 

0 





0162 





23,3647 

77776 

1 

4NaSM* 

EXIT 


— - 

“RTF' 





23,3o5‘T 

T 25644 0 


TCF 


RL164 


AX 


COPBINES THE OLD SPNB 

AND 

N dSM* 

Fur 1 Ht 

NH T J Jih 

R P 1 b 5 

TRANSFOKPrtTiON, ENTER WITH +3 

IN A -O' 

F 6 K r U 

N 3 1 c iN 1 

ck ^3« 

RTlbB 

THE 

VECTCR TO 

BE TRANSFCKHED 

ARRIVES 

f ANC IS KETUKN^..nf 

I N V B UF 


AX^SR^T EXPECTS V ELI OR IN V6UF 
SIGNAL FOR SS TO NB“TR:aNSFORT4ATION 


FOR AX^SR^H 

SIGNAL FJk NB TO SM TKANSFuRP.AT I LN 


^ , 

/ 


Ji At' i _ A S ^ EMBLE I blON 72 UF 


ARTEHIS BY JU ^ ^l xi4- .11 


Il:4 ' FHB« 2b«197l ZLUS A6 PAGE 1368 


L PCWtRtO FLibHT SUdKUUT iNeS 


USER'S P_AGE NO, 5 c S3 


Rvl67 AX*Sk*T expects TO FIND THc SiMtS aNO COSiNtS OF iH£ ANbLti OF ROTATION 

Rtl68 AT SINCOU AND CUSCUU, IN THE OROFR V Z X, A bALL fU CO + TR^GSt “WI TH 

F.169 THE 2'S COMPLEMENT ANGLES tOROER T Z XT AT CDUSPUli WILL TAKE bARE OF 

R TFT3^r“'lHEK~r~lT^ '"SAMPLE CALLING SEouENCIH^ 


R ( 1 a 
R .17z 
H 173 


TC CDUTKIGS 

CS THREE t«CA THREE*' FOR NBSMT 

fC AX’i^SR^T 


k^'l74 THE CALL TO bCnK=<^bS NEED NCT BE RtPEATEE, WHEN AX*SR=«'T U CALLED MOKE 
K<-17d TFAN UHbEi UNLESS THE ANGLES HAVE CHANGED, 

K^i/6 AX-SR=»=T is GUAkANTEeD SAFE ONLY FUR VECTORS UF MAGNITUDE LESS THAN 

K*177 UNITY, A LOOK AT T HE CASE IN WHICH A VECTUK UF GRtAl EK KAuNlTUOE 

R.'178 HAPPENS TO LIE ALONG AN AXIS OF THE SYSTEM TO WHICH IT IS Tu BE TRANS- 

TTrrn rnTMFirinrjvi'NC'Es ' one t hat ■ t Hi'S" i s "a RE^TRirrrroN ~ hht cn" HUbT~s'F~T;rcFP'rEiT; 


' 1 h ' 

181 

■-la 2 

REF 

REF 

{L 

i 

LAST 

1364 

23.3651 

23.3652 

23 ,->653 

54 142 
G U0b6 

22 145 

1 

1 

1 

AX*SR<=T 

TS 

EXTEND 

,jXCH 

C £ X 0 EX 

iTTNS'AVER 

WHERE 

IT BECOMES THE 

INDEX OF INDEXES 

':)183 

REF 

3 

LAST 

1 369 

23, 3654 

1- 142 

1 

RX^TL^^P 

CCS 

b tXDcX 


+ 3 — > D 

-3 — > 2 

0184 

REF 

4 

LAST 

1363 

23, 3655 

4 t 142 

1 


GS 

ucXbEX 

THUS; 

+ 2 — > 1 

-2 — > 1 

eras 

KEF 

46 

LAST 

1367 

36^6 

6 62 i 4 

0 


AD 

I HR E E 


+ 1 — > 2 

-1 — 3 , 

i 186 





23, 36 5 7 

U 00 ^ b 

1 


EXTEND 





-;i0 7 

REF 

326 

i-AST 

1366 

23 j Jy6 

5 OuCb 

1 


T NUEX 

A 




0188 

REF 

1 



23,3661 

3 3 74 

1 


dca 

INDEX I 





reF i S2 14^1 oXCTi dFXI 


'■ -• i 9 ^ 

RtF 

148 

LAST 

1286 

23,3o63 

3 477- 

U 


C A 



^191 

REF 

121 

LAST 

1219 

23 f 3b 6 4 

54 I3i. 

1 


TS 

EOF 


< 192 





23,3665 

0 L L. J o 

1 


EXTEND 



0193 

REF 

2 

LAST 

72 

23f 36o6 

5 ■- 143 

i 


INDEX 

DEXl 


rT‘^4 

'irrr 

55 ■ 

L^T^ 1367 

3667 

4 -123 

0 


DCS 

TBDF 


1 0 5 

REF 

1 



23 1 3b 7 E 

1 3672 

v' 


iCF 

LOQPi 

REALLY BE A SUBTRACT, AND VICE VERSA 

-196 

REF 

122 

LAST 

1368 

23, 3671 

52 131 

W ' 

L0UP2 

DXCH 

1 JF 

LOADING VECTOR COMPONENT, STOkING INDEX 

-197 

REF 

656 

LAST 

1365 

23 f -3b 7 2 

52 155 

1 

LOOPl 

DXCH 

KH AC 


.19 8 

REF 

i 



23, j,673 

3 3/36 



CA 

SINE jLuL 


C 1 9 Q 

KEF 

3 

LAST 

1363 

2 3 1 3o 7 4 

6 -143 

I 


Ad 

DcXl 


20'^ 

KEF 

76 

LAST 

1131 

23,3675 

54 lio 

b 


I a 

ADDkWd 


20 1 

REF 

21 

LAST 

119: 

23, JO 7 6 

0 7. 356 

I* 


Tb 

L MP jUB 

MULTIPLY BY S I N ( COUANGLE 1 

*J2()2 

REF 

3 

LAST 

1366 

2 3 f 0 7 7 

lb 142 

i 


CCS 

DEXDEX 


<Z - 3 

■REF ^57“ 

“xrar 

"TJiTS" 

2 f 3 7 i 

“3ZT55 

1 


DXCF 

“MTOT" 

ff35M“CS5 E 

';2 ‘4 





23, J /l i 

1 37w4 

0 


TbF 

+ 3 


^2 5 





23, 5 7* 2 

^ 0 ^ b 

1 


L X T E NU 


SMNB CASE 

« 2 6 

KEF 

6 56 

LAST 

1366 

23,3 7'- 3 

4 bias 

1 


DCS 

M PAG 


:Z. 1 

REF 

1 



23, 3 7i>. 4 

52 134 

D 


dxch 

TcRMl f HP 
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PCW 

ERtO 

FLIGHT 

SUbRUUTINES 




USER'S PAGE MU« 6 ET 

S3 

.ifiv 

kef 

33 

LAST 

1366 

23# 37 5 

3 uZLi \J 

CA 

b 1 K 

SINCOU AND CUSCUU (EACH 6 WORDS) 

MUST 


HEF 

79 

LAST 

1366 

Z3f J /i lb 

2o 116D 

AOS 

AO Ok HD 

3 E CO NS E C U T 1 V r a 1^ D 1 1 J T H A T ‘ u k D E K 

411 





23,^73/7 

w L b 1 

EXTENO 




4;11 

KEF 

123 

LAST 

1366 

^ f ^ 7 i. ^ . 

3 V 1 3 ^ 

INDEX 

BUF 



.212 

REF 

4 

LAST 

1368 

Z3f ^7 1 1 

5 5 l‘*3 1 

I NDE X ~ 

OF XI 



‘ 213 

REF 

56 

LAST 

13ob 

23,3712 

3 123 1 

DLA 

VJUF 



'214 

REF 

659 

LAST 

1368 

23 1 3713 

52 155 1 ■ 

DXCH 

f'iPAC 



21b 

KEF 

22 

LAST 

1366. 

23,3714 

u 7 056 (.' 

Tl 

uMPSUb 

PJLTIPLV BY COS (COU ANGLE) 



“’21 o 

TTEF“ 

"BcCr-- 

“OTsrr 

13F9~ 

23, 37 1"5' 

"52 155 

T 

DXrH 

■^TFAC 


• 217 

REF 

2 

LAST 

1368 

^3 f j 7i 6 

2u 134 

C 

DAS 

TERMITMP 


216 

REF 

3 

LAST 

1369 

23,3717 

52 134 

C 

DXCH 

TER7-I1 TMP 


' 2 1 '.i 





23,3720 

^ L' sJ i 

1 

UDOUaL 


) 

f 


REF 

124 

LAST 

1369 

23,3721 

5t 13C 

f- 

INDEX 

BUF 


l221 

REF 

5 

LAST 

1369 

23, 3722 

5., 143 

1 

INDEX 

DEXl 


t:222 

"REF* 

57 

■■ LA'ST 

■ T569 ' ■ 

23T3T23” 

~52~T23” 


DXCH" 

"VUUF 


L223 

REF 

125 

LAST 

1369 

23, 3724 

52 131 


DXLH 

tUF 

LOADING INDEX, STORING VECTOR COMPONENT 

^224 

REF 

337 

LAST 

1363 

23,3725 

1 w U U W’ 

j 

‘*F^ 

CCS 

A 

'CAUSE THAT'S WHERE THE INDEX NOW IS 

Z225 ' 

REF 

1 



23,3726 

1 3671 

• ; 

TCF 

L CO P2 


(.226 





23,3727 

6 L0>w.6 

1 

EXTEND 



* 227 

REF 

o 

LAST 

1368 

23, J73t^ 

26 142 

1 

DIM 

CEXD tX 

DECREMENT MAGNITUDE PRESERVING SIGN 

228 

REF 

7 

LAST 

1369 

23,^731 

1' IhC 

1 

TSTPUltU CCS 

LEXOiiA 

ONLY THE eRANCHING FUNCTION IS USED 

229" 

REF 

1 



23,3732 

1 3634 

1 

TCF 

R^TL’S''!'? 

. ... ^ 

(.23t 

HEF 

2 

LAST 

1368 

23,3733 

0 (.1^3 

1 

TC 

RTNSAVER 


ITZ31 

~PTF 

02 

“TTTSr 

T:369J 

■TT,'37y4~ 

1 36 5*+ 

X 

... 

f \ ^ 1 ^ ^ P 


'..232 

REF 

3 

LAST 

1369 

23,3735 

w 1 14 j3 

1 

TL 

H T*4 b A Vt l\ 



'233 REF 

S LAST 1366 23,3736 

li-*l 

1 

SINESLOL 

ADkE S 

b i iND DU 

FGR JS£ IN SETTING AODKWD 



234 

235 

^236 

C237 

2j, 3737 
25,3740 
23, b 74 1 
2X,3742 

i' C - . ' 4 
jjZ 

ycc 

■'■■'/C' .A 

L-' 

i 

INDEX! 

DEC 

DEC 

DEC 

DEC 

4 

2 

4 

DON'T 

4 : TOULr' 

THESE 

- CONSTANTS 

5 ^ ajt :^ca^ 4 ; 4 ; ^ 

4 cj?tat ;45 4 t 4 t* 3 |£ 4 ^Jfc 

- - — 





Zj d 
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ASiiEMttLL K 

1 S I UN * - 7 <d 

UF AbC PRO 

GRAM Artemis by 

NASA 2 21114- li 11:4: FEB* 26, 

1971 ZEUS o' 46 

P A G h 1 3 7 * 

L 

PCWERtU 

FLIGHT SUBRUUTlNtS 




USER*S 

PAGE NOo . 7 

El S3 


1H1 S 

SU6KJUTINE GulMFUTcS INCREMENTAL 

CHANGES 

IN COUlGlMBALi ANoLEj FROM INCREMENTAL 

CHANGES ABOUT SM AXES. IT 


R£QU J H t b 

6M increments Aj a op 

VELIUR 

. SCALED 

AT CUE REVDLuTIGN(UTHtTASM,+2,+4)« S IN, C'JSI CDUY , Z, X ) ARE 

‘ IN 

K ^,.c44 

SINCD^J, + 2,“^4 AND COSLDUt+2,+4 

RESPECTIVELY, SCALED TU ONc 

HALF. CUU INCrEENTS ARE PLACED IN DCuU,+2,+4 

SCALED TO 

H 1,246 

UNt 

Kt Vu 

L0JIUK» 








K^247 



COS I lGA) SEC(MbAI 



“ E>1 N 1 1 b A ) b t G ( MtrA J ^ 

- ■ 

- 

R> 248 











KC249 



-CDS 1 IGA J TAMMGAJ 

1 


SlNl IGAITAN{,46AJ * 


- - - - ....... 1 ^ 

PJ.25K 











Rv2d1 


* 

SINUGA) 

1 


CDS (IGA I * 



2b J 

REF 

1 

— 

2,3 f 2. Jv ^ 



btTLCc 

PJwFLITl 

- 

• 

^ 254 




23f374S 



BANK 



- 

• 2 5 4 5 

"►REF 

2 

LAST 1364 To 

137. ; 1 

33» 13S/^ 

CUUNI ^ 

i b/ P JifliFL 



' 2 b 5 




23f j743 

41345 

0 SMLOURES OLOAD 

DKP 



.^25^6 

reF 


LAST *r9T“ 

"2 if 3744 

U32i 2 

L ' 


D1 Hfc 1 AbN 



'. 257 

REF 

4 

LAST 7 7v 

23, S745 

li i i 3 

1 


Cl b C Ou ^ 



1 i?i> c 




2 3 1 Li T 4 o 

41325 

L 

POOL 

DKP 


4 

» 25 

REF 

lo 

LAST 1370 

2u $ 3 / 4 7 

»j32l6 

1 


CTHoTASM >4 




REF 

4 

LAST 77v 

23, S75i 

<1142 

1 


SING JOY 



Zu 1 




23f 373 i 

77621 

1 

tsDSU 




2c>2 




23,3752 

77671 

1 

oov 




.263 

REr 

7 

LAST 97v 

23,3753 

1 1152 



COSCOUZ 



1 264 

RcF 

7 

last 6j2 

23, b 75 4 

32.4 

1 

b I iJRt 

DCOU 



i 265 




23,3755 

724)5 

6 

OMP 

jLi SCALE 



t 266 

REF 

4 

LAST 770 

23 f 375 6 

X 1 144 

1 


SINCOUZ 



1-267 




23,6757 

7764.1 

1 

obSU 




; 2o6 

REF 

17 

LAST 13 7U 

23 , b Vo-,- 

L 34:14 

u 

------ - - 

DPHcfASM +2 

- 


' 2 69 

REF 


LAST 137l 

23f 3 7o 1 

172*6 

0 

SIOUL 

DGUu 



■■ ■ 'CZh. 

RTFF' 

'13 

last i3t : — 

11373162 ^ 

'C32i2 



«# 


"CT HE 1 aST* 



271 


-■ 

- - 

23f 3 763 

65265 

6 

URP 

PbOL 

- 


Z7Z 

HEF 

5 

LAST 137^- 

23,3764 

01142 

1 


S I NCOU Y 



^Z13 

REF 

19 

LAST 137*. 

23,3765 

Zf32L 6 

i 


CTFETAc^M +4 



274 




23,3766 

432 3 5 

1 

DMP 

DAO 



<275 

REF 

5 

LAST 137L 

23 ,3767 

11 bo 

1 


CQSCDOY 



<2 ft 




23, 3 77 C 

7/732 

1 

SLl 




' 277 

REF 

9 

last 137j 

23, 3771 

xJ 32 i y 

1 

STORE 

DGUJ ■*■4 



'276 




23,3772 

77616 


KVw 







- 
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L 


TIME OF FREE FALL 


USER'S PAGE NO 


E'' 53 


;u.. a THE TEE jUBKQUTlNtS MAY BE USED IN EITHER EARTH UR MOON CENTERED COORDINATES-, THE TFF ROUTINES NEVER 

RCl;7'3 know UHICH ORIGIN APPLlE:>* IT IS THE USER wHU KNU^JS, AND WHO SUPPLIES ' RUNE, VDNE AND i/SURTlMU) AT THE 
RDIC5 APPRUPKIATL SCaLE LEVEL FOR THE PROPER PRIMARY BQDYa 


K Ct/< ' 6 

EARTH ORIGIN 

PUSITIUN 

-29 

h T c K S 

RCC07 


VELOCl TY 

-7 ^ 

PETLxS/ CENT 15 ECONO 

RCC. 


i/:,^,<T{iMUl 

+ 17 

S,iRTlCS SW/METEHS CUbEDl 

RtOll 

MOOj^i ORIGIN 

POSITION 

-27 

MET £Ri> 

"n^TOiz ■ ' 


VELOCITY " 


ME 1 LKS/CENT 1 SECONDS 

Rt' 14 


1/SyRT (MUl 

+ 14 

Sm*RHCo Sw/METERS COBLD) 


RL 16 ALL DATA PROVIDED TO AND RECEIVED FROM ANY TFF SUBROUTINE WILL BE AT ONE QF THE LEVELS ABOVE* IN ALL CASES, R 

RGCie THE' FREE FALL TIME IS K£ TURNED IN CENTIStCGNDS AT (-20), PROGRAM TFT/CQMC WILL GENERATE VUNE/RTMU AND 

RCC2'" LEAVE IT IN VCNE* AT t+i.,1 IF EARTH ORIGIN AND (+91 Ir HUON ORIbIN. 

-RTEZT IHE USER NDS f SiURE THE' 3T A TE' VECTCE~TN — RDNF,' “YCTTE — AKD HO TN THE FDRTTIT S U RT I HU I" I FFFZKTMU 

RL123 AT THE PROPER SCALE BEFUkE CALLING TFF/CGNIC, SINCE RONE, VONE ARE IN THE EXTENDED VERB STURAGE AREA, 

KajZ5 TFE USER MUST ALSU LCCK^OUT THE EXTENDED VERBS, AND RELEASE THEN RHEN FINISHED. 

RCC27 PROGRAMS CALC/TFF AND CALC/TPER ASSUME THAI THE TERMINAL RADIUS IS LESS THAN THE PRESENT 

RG029 RADIUS. THIS RESTRICTION C ATT BE REMOVED BY A 13 h COOING CHANGE, BUT AT PRESENT IT IS NOT DEEMED NEC ESS ARY. 

R V l3 1 

STrT32 ~TTTE FULL ' UHiNG' ~ H H rAS ' ABUE ' CUANUTlbS ARE CrSED~BY~TFrFTFF KUUT INES , 'ANU ARE LLCAl EU IN' THE" PUSH' LTS-H: 

R V ';..34 


A< 3 5 
A 1 1 3 6 


A CO 3 7 
CC3 8 
0039 
A 4<- 
^ CC41 
ALL 42 

~Dr4ir 

A 0 L 44 
CC45 
ABr)46 
CL 47 
CO 4 6 


A ' -i 5 ’ 

. 5 1 
L*. 32 

v<..53 

A L j54 
“TEF? 

L..36 
A 0057 
■ I 3':. 

' 59 


12 

S-14 

^ J 16 

C T 1 6 

..jZO 

^022 

ijC24 

■C02'E" 

V C3 L 

5032 
- u;'34 

■SUSTB 

I S4'j 

Ol,'42 

0044 



BELGH 

E: is used for 
M; IS USED for 

EARTH ORIGIN SCALE 

MOON ORIGIN SCALE 

IFF Sri 

ii9D ulTl 

9 = CALCTFF 

1 = CALCTPER 

TFFOfcLg = 

1 -O 

y2-(jl 

E: (-161 M: (-13) 

RMAGi = 

12D 

ABVAL (KNl M 

E: 1-29) H: (-27) ^ 

RPEK 

1^0 

PCklGEE RADIUS M 

E; (-29) M; (-2/1 

IFFQl 

140 

R,V / SQRTtHUE) 

E: (-16) m: (-15) 

SDELF/2 


SIHITHETAI /2 


CDELTTZ- = 

I4T> 

"COrtT HET A T~rZ ' ' ” 


RAPE = 

160 

APOGEE RADIUS M 

E: t-29) .1: (-21) 

NRTERM = 

loj 

TERMINAL RADIUS M 

E: (-29+NR) 




M: 1-27+NR) 

RTcRM 

13D 

TERMINAL RADIUS M 

EJ (-29} H:' (- 27 ) ' 

TFFVSQ 

2 J 

-(V SQUAKhU/MU) 

1/M t: (2> ) M: (U ) 

"TFFI7aLF” = 

11 J 

Strti fiAj Ax]rs fi 

"TT (-22-Z Na) 




M; i-Z'-Z NA) 

TFF»\TALF - 

Ika 

SgRTlALFA) L: 11 

► + HA 1 Mi ( ^ + N A ) 

TFFALFA = 

26o 

ALFA i/M E: (26-NR) M: t24-Nkl 

fFFNP 

230 

SEMI LATUS RECTUM 

M ts (“3F+A TiK) 




M: (-36+2 NKl 

TFF/RTaU ^ ■ ■ 


l/SilKTTHDT“ 

EmriTT MT n4T 

NRMAij ^ 

320 

pAuStoa RADIUS M 

t; (-29+iMRl 


- 


H: (-2T+NR} 

I F F X — 

■* ''^U 



[FFTEM 

'io J 

TL^POP'ARY 



> »* 


L 


-b , 

Aw- t»l 



A >1 i 64 
A* ’ t>5 


ASSEMBLE RtVlSIGtN OF AUC P R J6RAH ART E MIS BY N AS A Z 21114- li. 11 ;4. FbB« 26»1971 ZEUS » '46 PAGE 131 ^ 

riMb OF FREE FALL USER’S PAGE NOo 2 E S3 

REGISTERS Slf S2 ARE U.MT0UCH60 BY ANY TFF SU8 kOUTINE_ 

INDEX REGISTERS Xl, X2 ARE USED BY ALL TFF SUBROUTINES. THEY ARE ESTAB- 
LiSHED IN TFF/uUMC AND MUST BE PRESERVED BETWEEN CALLS TO SU8SECUENT 
SUdKOUtlNES, ■■ ‘ 

“NR 
-NA 


C(X1) = NORM COUNT OF RHAG 

L{X2J= NORM COUNT OF SORT ( ABS I AL FA M 


AP ; ASS fcHDL£ f^E>/ iSIQN i7^ DF AliC PKOGkA H ARTEMIS BY NA SA Z^Zll 14- ill 11; FEBa 26,1971 ZLUS #<‘46 PAGl 1373 

L I iMt OF FRte FALL USER'S PAGE NO* 3 S3 

P( i.66 


R1’C67 SLBKOUTINE NAME; TFFCONIC DATE: 01*29.67 

■'RTJr69 MGD IviC; J ” CaG 'STCTTUTJT TIML Uh'TRtfc FALL 

K^071 MCO by: RR 6 AIKNS rAThtis 

“ kCM72 MOD no: i MOD BY; Rr BaIRNSFATHER aATt:' ' 11 ApR o7 

R0L73 MCO NC; 2 MUJ OY: RR BAlRNSFATritK DATE: 21 NQV 6? AOD MOON MUo 

RCA75 MCD NC: 3 MUD BY: RR BAIRNSFATHER DATLi 21 MAR 66 ACCEPT DIFFERENT EARTH/HOON SCALES 

RCt77 FUNCIIUNAL DESCRIPTION: THIS SUBROUTINE Is CALLED TO COMPUTE THOSE CONIC PARAMETERS REQUIRED BY THE TFF 

~TC(X7 9 SUBRUUIINLS AND lU ESiABLlSH I HEM IN THE PUSH L TSi 'AKEA * THE PAKAME I EKS A - RC L T 5 T ED uNOER C fU T PUT^ 

kClBI the EQUATIONS ARE 


R0UB2 - _ _ 

RCC83 H = KN*VN ANGULAR MOMENTUM 

locoes - * - - _ - 

R0?.‘a6 LCP = y MU SEMI LATUS RECTUM 

■R C»C 8 8 = = 

RCC89 ALFA = 2/kN - VN« VN / MU RECIPROCAL SEMI MAJ AXIS, SIGNcD 


R;‘ SI AND ALFA IS PCS FUR ELLIPTIC ORBIfS 

R l 92 ' : FOR PARABOLIC GRaiTS ----- 

R :o93 N£G for HYPEKbULIC CRBITS* 

o U BK UU I 1 N b At SD LU MPUTE S AND' "SAVES RHAO. 

R‘X9 5 CALLING SEQUENCE: 

R7t96 TFFCONIC EXPECTS CALLER TO ENTER WITH CDRRECV GRAVITATIONAL CONSTANT I?vi MPAC» IN THE FORM 

RCC98 i/SDRTtMJJ= PRugKAM WILL SAVE IN TFF/kTMU . THE SCALE IS DETERMINED BY ViHETHEft EARTH OR MOON 

ROITD ORIGIN IS vseor' THE CALLER 'MUST LOCK OUT THE EXTENDED VERBS BEFORE PROVIDING STaTE VECTOR IN RONE, 

KC1.:2 VONE AT PROPER SCALEc THE EXTENDED VERBS MUST EE KESTOKED WHEN THE CALLER IS FINISHED USING THE 

R-.^ rr '4 ■ " 'TFF ■RDUTI RES C 

RLi> 5 cNTRY POINT TFFCONMU EXPECT^ THAI TFF/RTMU !:> ALREADY LOADED. 

ROlOT TO SPECIFY MU: DLDAD CaLL IF MU ALREADY STORED: CALL 

RL1-. 9 YOURMU I/kTMU lZ ti7) M: 114) TFFCONMU 

RClll TFFCCNIC 

RG112 PUSHLCC = PDL+D, ARBITRARY IF LEQ IbD 


Rt 113 


'.12 5 

12 7 
P.tlZC 
Rul29 
R 7 13 " 


SUBROUTINES CALLED: Nuuc 


Rcil 4 

NCRKAL EXIT MODES: 

RVw 


RC 115 

ALARMS: NONE 




R C 1 1 6 

OUTPUT; THE FOLLOWING ARE STORED 

IN THE PUSH LISl AREA,. 

Rf 117 

RMAGi 

E: 

(- 29 J M:l- 27 ) M 

KN, PKEjLnT radius LENuTH* 

R i ITE“ 

NkITATT" 

~wr 

"T- 29 +'NRT R 

'PMATCT RURTTAI 1 ZED 

RCil 9 


M; 

( -2 7 + NR J 


RC 12 ^' 

Xi 


— 

N.R, NORM COUNT 

RC 121 

TFFNP 

E: 

t- 38 + 2 Nk) M 

lCP» SEMI LATUS KECTUR, 

R{ 123 


M; 



Rf 124 

TFF/RTMU 

E:U 7 ) M;tl 4 I 

1 /SqKT( MU) 


Nk 


FOR VGAMCac 


TFFTTSCTETrZ ) ~7r;Tr8T 
TFFALFA E: t26-NK) 

N: I 24 -NR) 

TFF.iTALF E: Ilj+iA) 

M: O + NA) 


T/M 

1/M 


- i V 5 y / MU ) : 7R E sTNT “V EE OCTTY , NURHL U EU 
ALFA, WEIGHTED oY NH 


TUK"17GANCATr* 


SukTIALFa), NURMALIZED 


l l:4 t-£:6. 26tl971 ZEUS 


46 PAbI 1374 


■| 1 




Ai. jEMt-iLfc 


JJjM JrJ^ UF AbC PROGRAM ARTEMIS BY NASA ^ £:lli4- ii 


L TlKc UF Frich FALL 


USER’S PAbE MO. 4 E^ Sj 


K 13 i 

kvi32 
K<' 133 
'“'RTI34 
RC135 
R 'Ji36 
Hi 137 
Rtl36 
R Cl 4 ’ 
~i^:i4Z 
144 
R' 145 


X2 -NA, NuRP CUUMT 

TFFi/ALF t: 1-22-2NAJ SlGNEu SEMI MAJ AXiSi WtlSHThu BY MA 

M: t-2b-2MA) 

FHrsniujc ' AT'Pcsrr; 

THE FOLLOWING IS STORED IN GENERAL ERASABLE 
VOIME • E:il.;» M:l9l V/KT(MU)f NUKKALiZEQ VELOCITY 

ERASABLE INIT lALIZAT lUN fsLWUlRED: 

RONE M:(-27) M STATE VECTOR LEFT BY CALLER 

VONt £:(-7) M/Cs STATE VE 1 .TOR LEFT BY CALLER 

FTFTTff^U Eit lTT RTTT^n “ i /jrTftrS'^^TTrrOBEl IF'ENTEFTTS — I FHCUNrtU. 

DEBRIS: jPI^Tf PDL+; ... PUL+3 


C147 


^T4^ 


PEP 



2 7 1 2 G 0 (j 

27,3151 


ccTLGC lUF-FF 
BANK 


0149 

REF 

1 







COUNTS 

ii >/ IFF 


1 1 

1 

- 

REF 

4 

LAST 

S18 

27,3151 

uL‘037 

u 

TFFCUNIC 

STOKE 

TFF/RtMU ^ 

1/SGRUMU) E: (17> M: (14) 

w 151 





27,3152 

53575 

1' 

. J 

TFFCONMU 

VLOAD 

UNIT 

COME HERE WITH TFFRTMU LuAOED. 

V 152 

REF 

16 

LAST 

793 

27,3153 

•>232 1 

1 



ROfJt 

SAVED RN, M E: (-29) M: (-27) 

^153 





27,3154 

77 725 

1 


P DDL 


UR7 2 TO PUL+l , +5 

tl54 





27,3155 

C*. ‘.?45 

kJ 



36l} 

MAGNITUDE 

7 155 

HEF 

1 



27 , 3156 

0< ■ lz> 

\ 


3 1 ORE 

K M A 0 1 

M E: (-29) M: (-27) 

€156 





27,3157 

777 Ji 

1 


NORM 



15 7 

REF 

6/ 

LAST 

1341 

27, 316 C 

0014 7 

1 



Xi 

-NR 

C 15 8 

REF 

4 

LAST 

819 

27,3161 

24>4i 

1 


STuVL 

i\KH Ab 

RMAG M E: (-29+NRI M: (-27+RR) 

CIS 9 

REF 

12 

LAST 

793 

27,3162 

C2326 

1 




SAVED VN. M/CS t: (-7) hi (-5) 

C 160 





' 2T;3163 

T7T6 1 

1 


VXSC 



; 161 

REF 

5 

LAST 

1374 

27,3164 

00037 

% 



TFF/RTMU 

E: (17) M: (14) 

n:62 

"RTF 

■r 

L A 5 1 

^ 

2 7 f 3 i 6 


1 ■ 


STURF" 

VCfTE’ 

‘ VN75:jRTT?T0r ~Er-Tl‘^J ‘TJ- 

163 

- - 

— — 

- 


27 f jil66 

47361 

s> 


VXSC 

\K\i 


1-164 

REF 

3 

LAST 

1374 

27,3lo 7 

'^4 1 

1 



NKii AG 

E: (-29+NR) M: (-27+NK) 

A „ 1 0 5 











UR/ 2 FROM POL 

ir IO 6 





27,317l 

47572 

1 


VSLi 

VSw 

BEFORE: E:{-1^4Nk) M:(-iU+NKJ 

cr67 

'ITBF 

2 


~~HIT 


■ "PrJTD 

1 ~ 


j lOXiL TFFTTP 

OTT R ^T^TS+^TJKT TT: T=36T'2frR J 

AG 168 











SAVr ALSO FUR VGAMCALC 

<169 

REF 

1 



27,3172 

15326 

1 



TFFi./4 


(U70 





27,3173 

63271 

t 

•L * 


UOV 

POVL 

(2/ RMAG) 1/M r:126-NR) M: (24-NK 

^l7l 

REF 

0 

last 

13 74 

27,3174 

1, V 4 1 

1 



NRHAG 

RMAG M E;(-294NR) M:t-27+NR) 

172 

REF 

3 

LAST 

1374 

27,3175 

l.'23o2 

1 



VONE* 

SAVED VN. E: (!• ) M: (9) 

C173 





“^773TT^ 

5/436 

1 


vS'O 

txtjttp ' ■ 

keep MPAL + 2 FiUNESi FUK SUK f ^ 

i 174 

TsEF 

2 

last 

61B 

27,3177 


J 


STORE 

ThF V S4 

-(V SU/MU) b:(2 ) M:(iB) 

A. 175 











SAVE FOR VGAMCALC 

176 





27,3200 

43257 

t) 


SK« 

C Ab 


177 





27,32C1 

2 . 57 3 

1 



““O f 1 

‘ GET -VSg/MU ls(26-NR) M:124-NR) 


GET -VSg/HG 


L s ( 26-f\lRJ 


H: 124-NR} 


GAP: 

ASSEMBLE kl/ISION u 72 

OF AGC PROGRAM ARTE 

MIS 

BY NASA 2s 211 

1 4- 1 1 

L 

TIME 

OF FREE FALL 






'178 



27i32U2 

77626 0 


ST ADR 


A'" 179 








ISI 

KEF 

1 

27,3203 

77744 C 


STORE 

TFFALFA 

:i8i 




~4X457 1 



Fusn 

rid 2 



Z7,32i^5 

2»:173 J 



— o , i 

r 103 

— 


27,32». 6 

75446 C 


“ AbS 

SaRT 

id4 



27,32. 7 

77701 1 


NORH 


185 

REF 

38 LAST J.342 

27t32iL 

JCCSs 1 



X2 

186 

REF 

1 

27,3211 

OObii 0 


STORE 

TFFRTALF 

TTBT 



Z 7 1 3^ 3 Z 

75316 1 


u so 


As 186 








' C189 



27,32X3 

55234 1 


B2E ' 

BDOV 

C 1 9V 



27,3214 

57216 .. 



+ 2 

1191 

REF 

2 “LAST 1374 

2T,3215 

15326 1 



TFFl/4 

tl92 

R EF 

1 

27,3216 

GO 027 1 

+ 2 

STORE 

Tri-x/ALF 

CT93 



27, ^2 1 7 

7 7616 0 

TJUMPLNIL KVQ 



A ‘,194 


';A6 PAGt 1375 


i FEBo 26,1971 ZEUS 

USER'S PAGE NU 5 1 S3 

Z/KMAb FROM PDL+Z 


ALFA 

1/M 

e:(26-Nft) f- 

M t24-NRJ 

T EMP‘ 

'SAVE ■ 

AXFA E • 1 2i ^ 

MJ i 1 8 J 


E:(l J filler 

X2 = -NA - - - 

SQRTC A8S{ALFA) I E:ti‘.+NA) M:(9+NA) 
— !VCT*SO ACCURATE f BUT OK 

ALFA FkUM POL + 2 E:C2 . ) H;il8J 
SET l/ALFA'^Lf TO SHOW 54ALL ALFA 


M; (-2C-2 NA} 


1/ALFA b; 1-22-2 NA» 




r 

I 


G AP 


A s i Ejm t_;< k U-pJjyil 


7P GF AoC PRuuRAM AKTfcMlS bY N ASA ^ 211 l-tr i 


11140 FEB> 26,1971 ZfcUS a 46 PAGt^ ij76 


L Tiy.£ Cf- FREE FALL 


U5ER*S PAGE 7J0. 6 El S5 


Ki 2 3 

Kt 2 o f> 
R i 2t 7 

RV 2 oe 

wmu 



1S5 

197 

199 

-r*r — — '“-1^ = - 

SLBROLTlNc NAME: TJ'FkP/RA 

MCD NO; i? 

MCD BY: RK BAIPNSFATHER 


- - 

— 




Li .‘-t r L • ^ J. * 1 T& 6 7 

Log section: time of free fall 

— _ . 


2- 

PCD NO: i MUD BY: 

kK 

tiAl[kN SF4 THtk 

OA i c • 

"11 

APR 

S7 



K V 

2 1 

MED NO: 2 MOD BY: 

KK 

BAlRNSFATHEk 

ZiA T c • 

2x 

har 

bS 

ACCEPT DIFFERENT EARTH/MQON SCALES 



FUNCriUNAL DESCKlPTlGj: 

APOGEE RADIUS 1-uR A GENERAL CUNiC# 
PROGRAM GIVES PERIGEE RADIUS AS 

=—p " 7 1 FFE J 


ALSU IMPROVE ACCURACY UF RAPLU 
USED BY CALwlPER AND TFF DISPLAYS TO CALCULATE PERIGEE RADIUS AMD ALSO 


APUGEE RADIUS IS GIVEM BY 
TT7bl”7^~ATTA'“ 


Rt212 WHE^RE 2 

E=i“P ALFA ’ 

RC2i4 IF RA IS NEGATIVE OR SH0W:> DIVIDE OVERFLQkt, TrtEN RA - PUiMAX BECAUSE 

RC2i6 1* APObEE RADIUS IS NOT MEANINGFUL FuK HYPERBOLA “ ' “ 

RC217 2, APOGEE J<ADIUS IS NOT DEFINED FOR PARABOLA 

WCZTQ ~ ~~ 57 APUbEc RADIUS EXCEfO'S TfTE“'SCALT7IG'“F0R" tLL IPSE. 

RC219 THIS SUBROUTINE REQUIRES TEE SIGNED RECIPROCAL SEMI MaJ AXIS, ALFA, AND SEMI LATUS RECTUM AS DATA. 

KC221 calling SEQUENCE: CALL - 

Ki222 TFFRP/RA 

RC223 PUSHLOC = PDL+L , ARBITRARY IF LLQ ICD ‘ 

R'.224 CIMPACJ UNSPECIFIED 


Ri22S 

SUbHOUTlNES CALLED: 

NONE 

R‘.226 

NORMAL EXIT MODE: 

RVQ 

RC227 

IF ELLIPSE, 

WITHIN NORMAL 

RV22B 

OTHt Rwi SE , 

RAPU = PGSMAX, 

Ri 229 

ALARMS: NONE 



1 


23^ 


Rv.234 

R0236 

RT23T 


♦ ■. 


to 


imcTpun rimro^Tiv'TsosH'xiirr' 

R A DIOS 
RADIUS 


¥rrH DisrA sORPn ed to — t FTy c dnix 


M: t 
M: ( 


27) 

27) 


FRAS ABLE 


RPER EU-29J 
KAPU Eir-29> 

PUSHLOC AT PDL+ . 
INITIALIZATION REQUIRED: 


H 

/■I 


P ERi GEE 

apogee ■ 


DESIRUYED BY CALCT FF/ CAL C TPfcR , TFFTRIG, 
WILL BE destroyed BY CALCTFF/CALCTPeP 


RC23& 

TFFALFA 

E: I26-NR) 

M i/SEMI MAJ AXIS 


LtFT 

BY 

TFFCDNIC 



« : { 24-Nk) 






KC241 

TFFNP t 

: (-3B+2NK) 

M LC P, SEMI LATUb RECTUM 


LEFT 

BY 

TFFCONIC 

K‘:243 

M 

: t-36+2NR) 






k0244 

Xi 


-NR, NURM COUNT OF RMAb 


LEFT 

BY 

TFFCQNIC 

Rr246 

<2 


-NA, NORM COUNT OF ALFA 


LEFT 

BY 

TFFCONIC 

Rt248 

DEBRIS: QPRET, 

P D L ^ / a • « 

PuL + i 






7 


f 




A)' ; 

AS SE MULL 1. 

cVISIOiN .72 

QF PRGu 

RaM ARTEMIS BY NASA 2.21114- ii 

L 

1 IPt 

lF 

FKEt Fall 







Pt 24^ 










CZb' . 







rapo 

— 

16l) 

‘ 2S1 




V-' 1 6 



RPcR 

— 

140 

Ar252 














ZT f 

41345 


TFFRP/KA 

DL U A D 

CMP 

'254 

REF 

2 

LAST 1375 

27,3221 

ccro3 

1 



TFFALFA 

' 25 5 

REF 


LAST 13T4 

Zl 1 j222 

i \ J Ji) 

1 



IFFNP 

C256 




27 ,3223 

57457 

L 


SR«= 

DCOMP “ 

-257 




^/,32z4 

2k 571 

u 



* 3 L) 1 1 





27,3225 

514 1'5' 

0 


□AO 

ATS 

A :259 










E26r 

REF 

6 

LAST 938*’ 

27, 3226 

31771 

1 



CP2(-4) 

t261 




27 f 3221 

43366 



w 

GAD 

rZ62 

REF 

3 

LAST 1375 

27,J23C 

15326 

1 



TFFi/4 

L2t>3 




27,3231 

55206 

n 


PUSH 

lDOV 

C2o4 

ktP 

4 

L“AST 1377~ 

f 32^2. 

00035 

1 



T 

C265 




2.7 f 3Z33 

53657 

0 


SK=«= 

:>R* 

€266 



■ 

27,3234 

20601 

1 



,1 

'267 




27 , 32s5 

Z..512 

L 



T f i 

^268 

REF 

3 

“LAST 525 

27,3236 

14717 

1 


STOOL 

RPcK 

A( 269 










~rz~r^ 




2. ( f 


1 


DMP 

EOVo 

C271 

REF 

2 

LAST 1375 

21 t S24t 

.C 02 7 

1 



(FFi/ALF 

C272 

REF 

11 

LAST 1334 * 

27 , 324 1 

57544 

U 



T CO iZ 1 G 

'’.213 




27,3242 

53634 

J 


azE 


7*274 

REF 

1 


27,3243 

57252 

L 



FAXRA 

.215 




27 f j>^44 

5 7 6w 3 

L' 



" 3 f Z 

rZTT 




27,3245 ^ 

40037 7. 


S 

BuV“ 

C277 




27,3246 

5757t» 

1 



f 2 

C27G 

REF 

2 

LAST 1377 

27,3247 

57252 

W 



7 AXkA 

CZ19 




27,325x. 

77644 

i 


3PL 


”26C 


- - - 

• ^ * — 

27,3251 

5*72 54 

*» 

1 



4 3 

7281 




27,3252 

77745 

1 

MAXRA 

□LOAD 


"rzBzr 

REF*" 

~6r 

' LAST 5W" 

2r, .S25 J 

15344* 

* ^ 

k/ 



^ fcAROME 

^ ^33 

REF 

1 


27 , 3254 

i.t221 

1 

+ J 

STURE 

RAPd 

V 284 

— 


- 

27 f ^25 5 

77616 

#— 
f 1 

CUMPKPRA 

RVQ 



A*. Zt!> 


FEI3« ^b,l971 ZEUS 


v'-46 PAGE 137 7 


USER'S PAGE fiD, 7 t' S3 

APDGEb radius M E:l-29) M:{-27J 

PERIGEE RADIUS M E: 1-29J M: (-27) 


ALTA I/ff E: ( 26-NR I ( ZV-KR) 

LC P M E:t-33+2NRJ M:(-36+2RR) 

ALFA P (-12+NKJ 
ALFA P (-4) 

tTK:O WP GIVES VAL I D T P RESULT F OR SOR T ? 
tABS PROTECTS SORT IF E li. VERY NEAR ) 

fc Sg = (1- P ALFA) (-4) 

(i + L) (-2) TO PDL-i- 

TCP H E: {-3B-I-2NR) 2 N R ) 

(DOES SK THEN SL TO AVOID OVFL ) 

X1=-NR “ - - 

(EFFECTIVE SL) 

PERIGEE RADIUS M E: (-29) f!:{-27) 

(l+E) (-2) FROM PDL+ 


l:{- 22-2NA1 H: l-2« -ZNA) 
CLEAR GVFIND* IF ON, 

SEl PUSHAX, IF ALFA=T ' 
-S+NA 


SET POSMAX IF OVFLo 
CONTINUE WITH VALIL RAPu« 

RAPU CALC IS NUl VALlOc SET RAPQ = 
FOSWAK^AS A TAG, 

APOGEE RADIUS M £:(-27y M:(-27} 


3*.-. rt 




AP: 


IMk £ u t V l^Iu U _ _ QF AuC PKJGKAM AKTbMIS oY NA^A _2 J li:4i FEb> 26.1*J71 ZEU 


..I 46 PyiGE 1578 


IlMfc FREE FALL 


USER'S PAGE NU> 


S3 


"Trrs' 1 

R 1 3i- 3 
R<.3uS 


Pi, 2B6 
RC280 

SLBRGLIINE 
MCD NO; J 

NAMt : 

Cm LG T P Erl 

/ 

CALCTFF 


K. ;29i 

MCO BY: 

RR 

BAIRNSFAI HER 





R •. 2 9 1 

mTid no; 

1 


MOD 

ciY: 

RR 

BAIRNSFATHER 

date: 

k V ^ 9 ^ 

MCD NC; 

> 


MOO 

BY; 

RR 

BAXRNSFATHER 

OATc: 

293 

MCD no: 

3 


MUD 

by; 

RR 

BAIRNSFATHER 

DATE: 

R v 29 3 

MCD NC: 

4 


NOD 

tsY : 

RR 

BAIRNSFATHER 

jAT E : 

R 2 9 7 

RCO NC: 

5 


MOD 

BY: 

Rk 

BAIRNSFATHcK 

uA Tc: 

R’'299 

FUNCTIONAL 

description; 


PROGRAM CALCULATED 

i THE FREE 


2 1 HA K ',3 7 
14 AP I-. o 7 
dJJL 67 
2i NOV q7 
21 HAR 6B 


DATE: < 1*29^67 

LOG section: TIht OF FREE FALL 


TTruOTY rj"X "R A'l5 I'O S "C CN'G I H SPt O F! ED' BY~’RTcl<>f 

RN MAY Bb LN uITHtK SIDE OF THE cUNiC, BUT KTcRH 
THE EQUATIONS A.<t 


NEAR EARTH HUt AND NEG TFF IGONEPA^T} 
ADD VARIABLE MUo 

ACCEPT DIFFERENT EAR! H/MUON SCALES 
IME OF FLIGHT FROM PRESENT POSIUQN RN AND 

r~sup PcrEiTB'y ihe useRo 


THE 'FlJSr i lUN VEClUR 
IS CONSIOEREO ON THE INBOUND SIDE* 


R03U6 

RC30e 


-SQkKRTERM t2-RT£RM ALFAl 


LOP I 


(INBOUND SIDE)} 


QT^ “ ttn; vh" / Sort t h u i 


LEQ +- LCt/SUKT( ALFA) 


rus 


LCE/SDRHALFAJ 


Rt 311 


2 = NUM / UtN 


LEQ +- 1 /SORT (ALFA) 


a; 313 
R< 314 
R1316 


WHERE » IF INBOUND 

NUH = RTEKH - RN 


OEN = 02+01 


LEU + 

XTTT 


2 LCE/ALFA 

TTXr/WTTOl^ 


R L3ie 
RC319 

R - 321 


ANDj IF OCT BOUND 

NUM — Ub — wl 

DEN ■= 2 “ ALFA 


(RTt-RH + RN) 


LEU +- 2 LCE/SwRT { ALFA) 
LEy •• — 2 LCL 


R 323 

IF 

ALFA ZZ < 

KL325 

IHEN 

X = ALFA Z 

R< 326 

AND 

TFF = (RTt 

R 327 


EXCEPT IF 

K'- 328 


TKETN TFF 

Rv32S 

3R IF^ 

ALFA ZZ G 

“RC331 

THEN 

X = l/ALFA 

R F332 

AND 

TFF = (Pi/ 


R 1-334 
R2335 
R(-336 


RC337 


K V 
Rt3A . 
Rr342 
RC34^ 
Rr345 


1 o ■> 


IFOR ALL CCNICS EKCLPT ELLIPSES HAVING ABSIDEL ECC ANOM ) G 9, DEG) 


ZZ T(X) ) Z/SyKrtMu» 


EU 


i) /ALFA LI /ALFA SURT(KU) 


WHERE TiX) IS A POLYNOMIAL APPROXIMATION 10 THl SERltS 

2 3 2 

1/3 -X/S +X /7 -X /i •*» (X < i*.) 


CALLING SEjUENCE: 


TIME TO lERM 

nnrc 

CALCTFF 

CtHPAC) = TERhNL RAD 
FOR LlTHERr £: (~29) M: 

FOR either, PUSHLOC = PDL+ , ARBITRARY 


TlHa To PERIGEE 


(FOR ELLIPSES HAVING ABSIDEL tCC ANOH ) GEU 9C DEG) 


lALL 

CALCTPEK 

CIMPAC) = PERIGEE RAD M 


’7) 


IF LEy oU 


FEB. 26,1971 ZEUS 


.,-46 PAGE 137-* 


GAP: Abb eWBL E KE vl.^lUtvl . 7 2 UP AbC PROGRAM AkTEHIS BY N rtSA 2 211 1 4- -li 

L TIME UF FKcL fall 


USEK»S PAGE NCI V E S3 


R 346 SLbRUUTINtiS CALLED: TtX», VIA KT'i 
K* 347 NUPPAL EXIT MODE: kVy 

K‘34r HUWEVCk, PkCGRA^ 4 tXIT3 rilTH ONE UF THE FULLOWING VALUES FOR IFF t-28J CS IN MPACo USt K MUST STOREc 

7.r35' A. “TFF= 'PtTGTTrnT7TEi”TniRHAX~CA^E“TW"7nTrrWE“FLIGKr^ r^ LESS THAN ONE ORETTAl PTRTUar 

Rs 3ti2 B. (THIS upriUN IS NO LCNGER USED, i 

Rf. 353 C,' TFf = POSMAX^ THIS INDICATES THAT THE CaNiC FROM THt PRESENT PQS TTION wl LL NOT RETURN TO 

Rc 365 THE SPECIFIED ALTI TUOE. ALSO INDICATES GUT BOUND PARABOLA OR HYPcRBULA. 

RC357 CUTPUT: ulHPAC) (-28 J CS TIME OF FLIGHT, OR TIME TC PERIGEE 

,<,350 IFFX (0) X, left FOR ENTRY DISPLAY TFF ROUTINES 

TTTTDt NRT ERM Hi C-2 ?4-7iRl M K I E RH , ITrTGHT ED BTTTk LEFT FOR FNTRT“rn3PUAY -rFf RUUTINES 

RL362 M: l-Zi+NRl 

Kr'363 TFFTEH £: t-59+2NF F " LCP 2 Z SGN(S0ELF1 LEFT FOR ENTRY DISPLAY TFF ROUflMES 

Rr365 M: t-55+2NK) LCP /ALFA ;>GN(SDELF) LEFT FDR ENTRY DISPLAY IFF ROUTINES 

Rr367 NOTE: TFFTEH = POL JSCTTND WILL 3E OESTKOYED 5V .:UN1T:. 

R(368 RMAGl E:(-29I M:(-27) PUL 12 NOT TuUCHED. 

-RT3^ — TF Fqi rT-r=T^T M; (-15 ) PITT “PTD — ~ ■ 

Rt37 TFFDELD E;(-16) PuL IjC 

PP371 PUSHLDC AT PDL+ . 

KL372 ERASABLl INITIALIZATION RtwUlRED: 

Rr373 ROiTF E:I-29)' H:(-27J ‘M STATE VECTOR LEFT BY USER 

KL373 VONE' E:(+lu) VN/SURTtMUJ LEFT BY TFF/CQNiC 

PT5T7 RflAG I "ETr-PTT — HM-ZH PRESENT RAO 1037 IT^ LtM tty IFFCDNIX 

kv 379 CIMPACI E: t-29) K:(-27l RfuRM, TERMINAL RADIUS LENGTH, M LEFT BY USER 


R '.3t i 
R 382 

R» 384 
"~R r3tro 
Rt 3R7 
RC369 
Kc39i 
RC39Z 
kL3'=>4 
— RC395 

Rv397 
' RF39« 

R . 4L ^ 

' HrACZ 
Rv4U3 
' RX4T4 

Rl4D5 
■ RL4r6 


THE FOLLOW ING ARE STuREU ii-i THE PUSH LIsT AREA. 

TFF/RTMU E:(17) M;1141 1/SaRTtMU) 

NRMAG £: (~29+HRI M HMAo, NORMALIZED 

j^“X-27+NR ) 

XI -NR, NURP COUNT 

TFFNP l; t-33+2NR) LCP, SEMI LATUS RECTUM, wEIGHT NR 

M: t-36+2NK) 

rFFALFA" E: £26-NRy 1/M ALFA, WtIGHT NR 

M: t 24—NR ) 

TFFTrnVCF E : 1 1 ■ ^ NAn “SqpT rALFAl, NORMAL IZED 

M: ( 9+NAJ 

<2 ”NA, NORM COUNT 

TFFi/ALF E: t— 22— 2NAJ SIGNED SEMIMAJ AXIS, WE IGHT LD BY NA 

H; (-2U-2NA) 

DEBRIS; wPRET, PDL+ PDL+3 

Mi £-271 RTERTT^-TERmNAL iTADl’aS LTTJGTTT 

RAPO c:(-29J M:(-27) PDL lOL (=NRT£RM) 

RPER E:(-29) M: (-271 PUL 14D (=TFFgi) 


left by TFF conic. 
LEFT BY TFFCONIC 


LEFT BY TFFCONIC 
LEFT BY TFFCONIC 

LEFT BY TFFCONIC 

rCFT -^BTT T F FCONr C 

LEFT BY TFFCONIC 
LEFT BY TFFCONIC 
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ASSFMb 

L t K 

^VISION '72 

OF ACC PROG 

RAM ARTEMIS BY NaSa 2 211 

L 

TIME 

OF 

FREE 1 

FALL 






P'j4 7 










' .’4-v' 3 





27 , 3256 

77 614 

1 

CAL CT P EK 

SE f GO 

4« 9 

REF 

1 



27,3257 

03436 

C' 



41' 





1 32 6 C 

57 ZhJ 

1 



1 





27,3261 

77614 

1 

CAllTFF 

CL lAK 

' 412 

REF 

2 

LAST 

1360 

27 f ^262 

1 3o76 

L'' 



413 

REF 


L AST 

314 

27,3263 

■::lu23 


+ 3 

STORE 

-.414 





27,3204 

llh5l 

V 


Sl^ 

t4i5 





27,3265 

202 1 

^4-^' 



416 

REF' 

6 

~C7iST 

819 

27 , 3266 

D(iw21 

1 


S 1 '3RE 

417 





27,3267 

442- 5 

• 


OMP 

^ 4iB 

REF 

3 

last 

1377 

27,3276 

00033 

1 



i.41 9 

KEF 

4 

LAST 

1377 

27,3271 

15326 

1 



142^ 





27,3272 

4i2v6 

7>. 

u 


PUSH 

‘42 1 

REF 

7 

LAST 

13 o 0 

27,3273 

u ‘2 o 2 1 

1 



“C472 





2^1 32 f ^ 

■537Z5 

1 


POOL 

AC 423 










'424 

R£F 


last 

13 77 

27,3275 

- ' / 3 5 

1 



v425 





27, 3276 

2. b73 

1 



'.426 





27 f 327 7 

432 76 

1 


DCOMP 

A ‘42/ 










xcTzr 










'v42^ 





27,3300 

776b / 

L. 


SR^*' 

V.432 





27,3301' 

2 ,6 / I 

1 



’ 431 





27,3302 

71214 



3ljFF 

1432 

REF 

3 

LAST 

1380 

27, 330 3 

. 3 756 

■j 



-433 





27,33v4 

57buO 




434 

REF 

1 



— 27,3305 

15336 

j 



43b 



. 


27,33C6 

7544'. 


+ 2 


43 6 

REF 

1 



2 7,33' 7 

b 7 44 1 

i 



A 437 











043 6 





27,331c 

tli<7 6 

1 

OCOMP 

c 439 

REF 

12 

LAST 

1377 

27,3311 

57 5'^4 

-J 


•-44^^ 

REF 

J 

J 

L AST 

822 

27, 3312 

24o45 

L 

STOVL 

441 

REF 

4 

LAST 

1374 

27,3bl3 

32362 

1 


1 442 





27,3314 

52441 

1 

DOT 

1 44 3 

REF 

17 

LAST 

1374 

27, 3315 

< 232 . 

1 


j444 

REF 

r~ 



T773JIb~ 

[i 

1 

1 

1 

1 

Si Uf<t 

A 445 














27,6317 

'*424 

1 

6HN 

447 

REF 

1 



2 7 f ->320 

57341 

- 


'.448 

REF 

4 

L A,i>T 

13^" 

27, 3321 

G sj045 




^ AC449 







LuTboUNO L CALt 

4!> 

REF 


LAST 

819 

27# 3322 

i4w43 

S I U DL 

451 

REF 

4 

LAST 

138) 

27,3323 

^ 33 

1 

' 45 2 





27 ,b324 

442wb 

DMP 


14- li 


lliH FEbo 26,1Q71 ZCUb 


* . 4b PAbL 13bC' 


usep*s PAGfc t^u. 1' E ^ 


IFFSW 

+3 

IFFSW 

KTc K,'-. 


EiXTtK WITH RPER IH MP,ivC 


ENTER WITH RTERM IN MFAt 


E: (-29) P: (-27) ^ 


,1 X1=-NK 

FIRTcKH KlbkM E5~r-29 + NRJ FTT"T=7THiTn 

EOjU 

IFFALFA' ALFA £: (2b-NR) T^: [24-Na) 

TFFi/4 

JAP (2-ALFA RTERM) (-3) TO PDL+ 

NRTfcriM L: (-2g4NR) M: (-27+Ni<) 

W' RTEKH r2=‘ALFA RlhKM) ) 0 POL+2 

E: (-32+NR) M; (-3 +NKJ 
IrFNP LC H t2{-33+2NPv) H; {-B5+?NR) ■ 

— o»i XI = —NR 

CAl) due to GhIFTi, keep precision for SgRT 

RThRMi 2-ALFA RTERM) FROM PDL-t2 

— ^32+iTK ) 'R '1 -3’CTm} 

LEAVE E; (-32 1 H: (-3 ) 

,1 XI = -NR 

LLUAD CHELX TFF / TPbR SWITCH 

TFi-S'W 

+2 IF TFF, CCN7INUE 

IFhZriTO'S ■ ' — IF IPLK, SEI"^f2^"T 

Sx^KT L; (-16) M: (-15) 


MAXTFFi NU FREE FALL CONIC TO KTERM FROM HEKt 

RESET PDL, SET TFF=PDSMAX, AND EXIT, 


bova 

T CuA NZI C 
T FF I FM 


VONE ' 
SL3 
RONE 
IfFTT 


KT IS ON INBOUND SIDE-, ASSURE OVFiNO=! 

ANY PORT IN A STURM. 

t; (-16) M; (-15) 

VN/SURT(MU) E: li.) M; (9) 

SAVED KN« El (-2^^) M: (-27) 

Wl7 SAVE FUR GUNE'PAST‘TFSTr“ “ 

l; (-16) P: (-15) 


CD SO 

iNduOt'^D USc alternate I 

FFFTEH C2 L: (-16) M; (-15) 


CON UNO ES HERE 


TFF< NUM=U2-w1 E: (-16) M: (-15) 

TFFALFA ALFA F: (26-NR) M; (24-NK) 

bOSU 



A^SEMBLt K 

fcViSIUf'4 .72 

OF AGO PROGRAM ARTEMIS 6Y NASA 2 21 11 4-. 11 11: 

4 - FcBii 26 f 1971 ZtUS o . 4o 

L 

TIME 

OP 

fRtE EALL 







USER'S PAGE NO, 11 

^3 3 

H E H 

7 

LA3T 

1374 

^7 f 332 5 

' J j 4 1 

1 



NRMAG 

RMaG E: (-29+MR) M: (-27+NR) 

A L 434 











(2-RrERM' ALFA) (-3) FROM PDL+ 

■ 43 3 





27,3326 

514.6 

1 

SAVEOEN 

PUSH 

A8o 

CEN 10 PDL+' L: (-3) OR 1-16) 

AC456 











Tl t^TJ) DR T -13T 

1.437 





27,332 7 

. i 5 

1 


JAO 

bUV 

INDLTEKMINANCY TEST 

r45.3 

HEF 

1 



27,33iC 

31763 

1 



LIMI-Z2J 

=1,7-B(-22) 


REF 

1 



27,3331 

573j2 

1 



rFFXTEST 

GO IF DEN >/= 31-22) 

46'^ 



— 


27,3332 

65345 

0 


uLOAD 

POOL 

SET OEN^t* OTHERWISE 

461 

REF 

2 

LAjT 

i3Sw 

27,3333 

15336 




TFFZERUS 













XCH ZERO 'WlTH'FDL'+r 

'463 





27,3334 

57545 

1 


ULUAD 

CCOMP 


4 64 

REF 

3 

LA ST "1.3(10 

27,3335 

07 033 

1 



TEFALFA 

ALFA E: (26-NRT M: (24-NRT' 

•,' 4t] 3 





27,3j36 

7124c 

1 


3MN 

UlOAO 

FUR TPER: Z INUET AT OELE/2^., 

7 466 

REF 

1 



27, 3337 

57446 




TFFELl 

ASSUME 9r , AND LEAVE n IN PITLi 

A 46 7 











Z INUET. AT perigee FOR l^ARAB’ 

46S 





27,3343 

7 7516 

6 

CUMPTFFl 

RVQ 

- ... - - _ . 

RETURN TFF =v 

A . 469 








IN3CUND 

L CALC 

CONTINUES HERE 


r47r 





27,3341 

77745 

1 

INBDUNa 

OLOAD 


RESET PDL + C " 

f„471 





27,3342 

45345 

1 


JL JAD 

CSU 

ALTERNATE Z CALC 

^4T2- 

REF'" 


LTSTr 

138 T " 

"ZTrJJ4X“ 

~6Uv23' 

0 



K 1 h kH 

Tt (-29) Fi (-2/ ) 

>473 

REF 


LAST 

1374 

27,3344 

C c'- ‘15 

0 



A K 4 vj 1 

E: (-29) M: (-27) 

C474 

REF 

3 

LAST 

133' 

27,3345 

14' 4 3 

0 


STQDL 

IFFX 

NUM=KT EKH-RN E: (-291 M: (-2 

.475 

REF 

3 

LAST 

138 S 

27,3346 

V 46 

- 



TFFTEM 

g2 E: t-16) :m t-15) 

C476 

— „ 




27,3347 

52315 

1 


D Ail 

GOTO 


C477 

REF 

2 

last 

13 3 J 

27,335: 

^ L - 1 7 

1 



I Fe m I 

Qi L: (-16) M: (-15) 

r^rr 

HtF 

“TT 



27,'335T" 

j 7 32 6 

1 



SaV LUcN 

DEN = W2+Li F- T“16) hi* t^i 

L4 79 

- - 




27, 3352 

65215 

1 

TPFXl EST 

OAl) 

PUIJL 

lABS(OEN) TO PUL+2)) £: (-3) 

At- 4 5’ 











M: ( -3 J 

7 481 

REF 

1 



27,3353 

3l7o5 

1 



CP 1-22) 

RESTORE ABS(DEN) TO MPAC 

'.HbZ 

REF 

4 

LAST 

1331 

27 , 3354 

L'0i..'43 




IFFX 

NUM e;(-16) DK (-29) M;l-L5) 

"TABX 





— 2773355“ 

536775 

1 


“DHP 

SRTt 


1484 

REF 


last 

1375 

27,3356 

' j 0 w ^ 1 

L. 



T FT < r AL F 

S^iiT(ALFA) E: (Iv+NA) M: (9+ 

" 7483 





27,3357 

57231 




“3 t £ 

a2"-'NA 

1486 





f J36^ 

77671 

1 


JOV 


C(MPAC) =NUM SUKT (ALFA) E:(-3 

acact 










■ 

M:(-3 

A 468 











AOSIOEN) FROM P0L42 t:(-J) OR 

ATTrST 











N : (-31 uR 

C44:: 





2 7, 3361 

4’. 145 

u 


ULUAO 

SlIV 

(THE DLOAD IS SHARED WITH TEFE 

^491 

REF 

5 

LAST 

1381 

27,3362 

CC <43 

J 



TFFX 

NUM L: 1-16) OR 1-291 M:(-15 

1492 

REF 

1 



27,3363 

5 7 444 

1 



f FFELL 

USE cUN FOR DtLE GEU 9* , Ll C - 









CTHEkrtlSE, LONflKUc FUR GENERAL 

CONIC FOR TFF EQN 

1^494 





27,3364 

4547 1 

1 


JUV 

S r A U rv 


47 495 











DEN FROM PDL4 E: 1-3) DR 1- 

A ‘4^0 











M: (-1) OR (- 

‘ 49 7 

REF 

6 

LAST 

1331 

27, 3365 

77 732 

1 


STORE 

U-P TL.T 

Z SAVE rCR SIGN OF SDELF, 


PAGE 1381 


33 




UR (-16} 
OR 1-15J 


T=T37 


-‘Zl\ 





ASSEMBLE KaVISICN 372 

Lr AoC PPvUo 

Ram a.vIEMIS by NASA 2' 21114-11 11 

:4 FEB# 26,1971 2£US o 'AC PAGL 1382 

L 

TIME 

OF 

FREE FALL 





USER VS PAGE NO, 12 E ■ S3 

A ' ■it'-' f? 









E; (-13) M: (-12) 

•: 4 9 ' 





27 1 336 6 

63406 L 

RUSH 

USw 

Z TO PDL+U 

^ ; i> 1 ' ^ 





2 7 f bb o 7 

412‘>6 ; 

PUSH 

CMP 

1 SO TO PDL+2 £: (-26) M: (-24) 

1 


o 

last 

138 j 

27 f b J7 > 

Ut .;3 5 1 


TEfhP 

LC P El t-38+2NRJ RT r“36+2Nk) 






27,3371 

752ol 1 

SL 

s ioN 


■ 5( 3 





27,3372 

2^.20 6 1 


5 


.. b ' 4 

REF 

7 

LAST 

i3bl 

27,3373 

CL •.■'4 5 ■ 


IFFTtM 

AFFIX SIGN FOR SDELF (ENTRY DISPLAY) 

V i t» 

REF 

8' 

LAST 

138'2 

27,3374 

14 45 ( 

S lUDL 

TFFrEM 

P 2S4 t- (-5'9+2NTl7 M; (-55+2Nk) 

A ' Si o 









(akg is used in TFF/TRIG) 

^ 5 l T~ 









ZSw r ROM Pt;L+2 L* (—26) Mi (—24) 

b b 





27,337d 

41216 C 

PUSH 

CMP 

RESTORE PUSH LOC 


ft£F 

u 

LAST 

'1331 

27,3376 

L Q 3 3 1 


iFFALFA ■ 

ALFA E; (26-NR) Hi (24-liR) 

r 5 i : 





27,3377 

77657 l 

SL^ 



C5il 





27, 3 46 t 

1 7 


,1 

Xl=-Nk 

■-; 512 

REF 

b 

LAST 

1381 

27, 641 1 

^i>U43 0 

STURE 

TFFX 

X 

~SJT 





27,i4o2 

■4T2Tzn~ 

KTci 

lKp 


514 

REF 

1 



27,34u3 

57526 1 


T(X I 

PuLY 

A 515 

- 








ZSQ FROM PCL+2 t: (-26) Hi (-24) 

516 





27,34j4 

443u 2 6 

SR2 

fi U:, J 

2 ZSU TlX) Ei (-29) (-27) 

■ 517 

HEF 

b 

LAST 

1381' 

27,3465 

CO023 0 


K i E K M 

RTERM E; (-2*3) Mi (-27) 

: 518 





27,3406 

41215 1 

UAU 

UMP 


I5i9 

REF 

3 

last 

13b 1 

2T7b4vT 

THToITTT 


R-'^AS1 

E: (-2^1 M; (-2?) 

Af;52‘ 









Z FROM PDL+l Fi (-13) Hi (-12) 

(.52 1 


- 



27 f j 

51042 

bK3 

' 8 PL 

IFF SORT (MU) E: (-45) Mi (-42) 

522 

REF 

1 



27,3411 

blh:iZ 


ENClT FF 

(NO PUSH UP) 

*.523 

■ 




27,3412 

752 J 6 1 

PUSH 

,2) I N 

TFF SCKT(PU) TU PDL+ 

- 524 

REF 

3 

LAST 

1381 

27,3413 

u 0 1 7 i 


TFFwl 

LI FOR GQ)4£PAST TEST 

-325 





27, 3414 

7 i 2 4 '4 V. 

3PL 

CLOAD 

gone Past ? 

C526 

REF 

1 



27,3415 

57436 1 


NcG 1 FF 

YES» TFF < 

i 527 

REF 

3 

LAST 

1377 

27 , 3416 

• 2 7 1 


T FF x/ALF 

1/ALFA fc: (-22-2NA) M; (-2 -2 Na) 

C 52 8 





27 f 7 

51076 1 

□COMP 

8RL 

AL F M b ? 

52 9 

REF 


last 

1382 

27,34<: 

57436 1 


.sLG T FF 

[^0. IFF IS 

A 33!. 







correct for 

ORBITAL PERIUC. 


i 531 





27, 342 1 

77676 0 

JClJHP 


YtSv CORRtCf FOR ORB PERIOD. 

r532 





27,3422 

562^5 0 

UHP 

UUV 


(533 

REF 

i 



27,3423 

31761 0 


Pl/io 

2 Pi (-5) 

' 534 

REF 

3 

LAST 

13ol 

27,3424 

.0 ;3i . 


TFFK rALF 

Sgni(ALFA) £; (l 4NA) M: (s+NA) 

■: 535 





277342 5 

53o57 1 

SL» 



( 536 





27, 3426 

blG}d 1 


” 4 f c. 

X2=-NA 

537 





27,3427 

D 7 6 J 2 1 


. -4,2 


(538 





27 f 343-^ 

43257 , 


CAD 


. ; I^3Q 





27,3431 

57d7u 1 


i 


A* 54' 









TFF SaRT(MU) FROM PDL+ ii;(-45) M:(-42) 

' 541 





27,3432 

4C-M3 3 w 

ENUTFF 3 HP 

'u J J 

f F r S M( ' i I J I AC L; • 1 ""45 ) M - 1 4^ 1 

1542 

RtF 

o 

wAST 

1374 

27,3433 

ul037 0 


f h f / . L ] A U 

bi (1?) M: (14) 

'.. 543 

REF 

1 



27,3434 

5744 i I 


HAXTPF 

SET P05MAX IF LfVrL. 

'544 



■ 


27 |343 5 

7 7 6 i u J 

DUHPTFF2 KVU 


RETURN TFF (-28) CS IN MPAC. 


li;4.. hrB. 26,1971 ZEUS 
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L 

A i>46 
547 

’ -'547r 

54 y 

55i 

551 

R f 552 


TIME UE PKtc FALL 


FEF'- 


Z LAST~I3^S2” 


REP 


LAST 1S77 


27, 34S 6 

77745 

1 

NEGTFF 

DLUAU 

27,3437 

7 765U 

1 


oU 1 u 

27 , 344^ 

57432 




2 7 f 1 

11 M 

1 

MAXTFFi 

jLOAU 


43545 

1 

MAXTFF 

OLOAO 

2r7, 3443 ~ 

1 5344 




E WHEN DEL 

(ECCLMTHIC ANOM) 

be j 9 


rW D TF F' 


RVU 

IVE AR ONE 


46 PAGE 138S 


USEf<*S PAGE NO 


L Sj 


IFF SwRTIMUJ FROM PDL+ , UEGATIVE«. 


RESET POL 


ArJU Lta< — 9(' 


A 553 

A *■ 554 
' 755 5 
< 556 



- 


27.3444 

27.3445 

77712 D 
4146b 

TFFcLL 

6L2 
dDU V 

PUSH 

NUM FROM TFFX, b; 1-16) OR (-29) 

M: t-15) UR (-27) 

TvUM E:(-14) UR (-27) M:(-13) DR (-25) 

TEMP SAVE D/N IN PDL-»- 

A •" 55B 
■7559 
<.5 6.' 

C561 

7562 

^ r g lz~T 

KEF 

REF 

REF 

9 

4 

1 

LAST 

LAST 

1332 

13B2 

27.3446 

27.3447 
27,345' 
27,3451 

45345 1 
vlu 45 G 
C‘DGT7 1 
14- 1 3 j 

TFFEL 1 

OLOAO 

STOOL 

DSU 

1 FFTEM 
TFF^l 

rFFDELG 

’~DtTi FRurrpDL+' e: t-3j7T~i^T'nirr t -^r/r-is) 

N/0 TO P‘ L+' E: (11) M; (1* ) 

(ENTER TiITH D/N= l?v P0L+ J 

Q2 E: (-16) MT (-15) 

Ui Et (-161 M: (-15) 

Q2-Q1 E: (-16) M: (-15) 

A L 36-5 










' ' L7N FROM PUL+ — 

0564 





27,3452 

77626 U 


stadk 



“565 

REF 

10 

LAST 

1383 

27,3453 

7773Z 1 


STORE 

TFFTEM 

D/N E: ( 11) m: d" ) 

i 566 





27 , 3454 

536 ;5 1 


OMP 

SL? 


'567 

REF 

4 

LAST 

1332 

27,3455 

CFO 2 7 1 



TFFIMLF 

1/ALFA E: [-22-2NA) R: (-2 -2NA) 

.Sob 

— f^VZ *L CT^ ”” 





27,3456 

5757o 1 



f 2 

1/ALFA Z E: (-11-NA) Mi 1-1 -NA) 

T ijov 





^ 1 1 3 A'5 / 

■^1206 c 


PUSH 

“TJMP 

rtTT'DrTT * ’ ' 

-57' 

REF 

11 

LAST 

1383 

27 f 346L 

CU^45 6 



TFFTcM 

1/Z E: (11) M; (1 ) 

571 





27,3461 

41057 r. 


SL 

3JVB 

- - - - 

'.572 





21,J^<iZ 

57576 1 



f 2 

X2= -NA 

573 

REF 

16 

LAST 

1324 

27,3463 

^6 761 L 



SlGNMPAC 

10 CASE x= 1 ^:, CDmiNUE 

0 574 



KEF 

7 

LAST 

1362 

27,34^4 

. .'43 . 


STwRE 

TFFX 

X-l/ALFA Z5Q 

% U 1 J 





2 f f J465 

^1234 1 


K TB 

“ UMP ■' 


* 576 

REF 

2 

LAST 

1382 

27 f j 46 b 

57526 1 



T( XJ 

POLY 

'.5 77 

REF 

d 

LAST 

1333 

2 7 f _i4£> 7 

(06 043 



TFFX 

. 

• 573 





27, 347C 

46242 1 


SK3 

DSU 


0 5 79 

REF 

2 

LAST 

933 

27,3471 

31767 



DP2t-3) 
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SELF-CHECK 


USER*S PAGE NL. 


EJ S3 


R.v'l PRUGKAH OESCRIPTIQN 

Ki ' '-3 PRdGKAM NAME “ SELF-CHECK 

; 5 MCO NO - 1 

HUU "ETY"^" GAUN I I 


DATE Z UCc EMBER 1967 

LOG SECTlUN AGC BLOCK TWO 'SELF-CHECK 

ASSEMBLY SUBROUTINE UTILITYM KEY 25 


Rfi <B FUNCTIONAL DESCRIPTION 


l\ V V ' ' ' ’ 

RTF II 
R'. 13 
R . 1 ^ 
REv 16 
RCr2 
RtC22 
RCCZ4 

Kt C26 
RCC28 
R L .32 
R ( u33 
ROC 34 
R">:r56 

RCC37 


PROGRAM HAS T riO MAIN PARTG« THE FIRST IS SELF-CHECK WHICH RUNS AS A ZERO PRIORITY JOB WITH NO CORE SET* AS 

FART OF IhE back-up lOTE TDtlPa tHE sbCUNU iS SHuW-BATiiRSTI?^~''«IFrrCri "RUNS AS A "RtGUL WHyEtU T l VE JOB Wi m ' lTS ' UWN 

STARTING VERB« 

THE PURPOSE OF SET F -CHECK IS TO CHECK OoT VARIOUS PARTS uF THE COMPUTi^R AS OUTLINED'BFLOW IN THE 'OPT IONS, 

THE PURPOSE UF SHOW-BANKSUM IS lU DISPLAY THE SUM UP EACH BANK , ONE AT A TIME^ 

IN ALL THERE ARE 7 POSSIBLE OPTIONS IN THIS BLOCK II VcKSION OF ■SELF-CHFCK, MORE CETAIL DESCRIPTION MAY BE 
FOUND IN E-2C65 BLOCK II AGC SELF-CHECK AND uHUW BANKSUM BY EDnXN D» SMALLY DECEMBER iQ66, AND ADDENDA 2 AND 3. 

” nb JlFFERbNl UPl lOfTST ARE-Xn/TTfrOLTED BY -PDTTiNG 01 FFEkENT NUN BVkS I N 1 rib S MUt J E ' KE ' C 1 S T EK t NUJ N 2 / ) <. BEL UW TS~ 
A DESCKIPTIGN OF WHAT PARTS OF THE COMPUTER THAT ARE CHECKED BY THE OPTIDNSt AND THE CORRESPOND! NG NUMBER, IN 

OCTAL, TO LOAD INTO SMDDE, 

+-4 ERASABLE MEMORY 

+-5 FIXED memory 

+-1 ,2,3,6,7, 1(! EVERYTHING IN OPTIONS 4 AND 5, 

SA'ME AS +-iO "UNITL AN hRRUK iS UbTECI ED, 

+C NO CHECK, PUTS CCMPUTER INTO IHE BACKUP IDLE LOOP. 


RCcse warnings 


RCL39 USE OF E MEMORY RESERVED FOR SELF-CHECK (EVEN IN IDLE LOOPJ AS lEMP Sfu^AGE BY OTHtR PROGRAMS IS UANGERUUSJ 

kCi.41 SMODE SET GREATER THAN OCT Iv PUTS COMPUTER INTO BaCKUP IDLc LUOP. 


RCC42 CALLING SEQUENCE 

;TcC43 TiT^AIl SELF-CHECK KEY IN 

RTf 44 V 21 N 27 E OPTION NUMBER E 

RCC47 TO CALL SH0W-BANK3UM KEY IN 

RLC48 V 91 E displays Flr^ST BANK 

R<:r4a V 33 E PROCEEDS DISPLAYS NEXT BANK 


RCt 5 


EXIT MODES, NORMAL AND ALARM 


R 0^51 
RC. 53 
R CC54 


^ V- 5 7 
RCi .59 


SELF-CHECK NORMALLY CUNTINuES INDEFINHELY UNLESS THERE lo AN ERR JR DETECTED, IF SO + 
CCMPUIER INTO BACKUP rDLE COOP, - uPFIUN NUMBERS RESTART The UPTISN.-. 

THE -u OPTION PRUCEEDS FROM THE LINE FOLLOWING iHc Lint WHEtt IHE nRRUK WAS UETECVEl-, 
SHOW- BSNKSUH VRlfCFEUS" Ui\l i 1 L A^TERMINAT t TS'^KEYED I IV '34~TrrTFIE CUMPU TEH IS 


OPTION NUKDLRS PUT 


PDT“TNnTTHE BACRUP'TOLC LUUH 
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SfcLF-ChECK UPON DETECTING AN eRkUk LOADS THE SELF-CHECK ALARM CONSTANT (^11^2) INTU THE FAlLKEb SET AND 
TURNS ON THE ALARM LIGHT* THE QPEfTATGR NAY THEN DISPLAY THE THREE FAILREGS BY KEYING IN Y C5 N OQ E* FOR FURTHER 

INFORMATION HE MAY KEY IN Y ..5 N C3 E, THE DSKY DISPLAY IN Ki MILL Gt AODRESS+i OF WHERE THE ERROR WAS DETECTEDf 

rFr~RZ~ tHE BaCLN OF SELF-CHECKr'AND’ IN R3~THE~T0TAr NUWBEH~ JF'cRT.OR'S UE ( bt T n r~ BY SEL F -CHECK SINCE T H E LAST ' NA N 

INITIATED FRESH START tSLAPlI* 

SHGW-BANKSUM STARTING WITH BANK J DISPLAYS IN Kl THE BANK SUM TA T-TWMBER EQUAL TO THE BANK NUHBERI , IN R2 
THE BANK NUMBER* AND IN R3 THE BUGGER WOROj 


7<xr 76 nrsia Bm'RTT I a L'T rATTaNn<E5IITR ED 

K 77 ACCOMPLISHED BY FRESH START 

Rt' 76 SMODE SET TO +C 


RTTf 7 9^ " GT'arPfTS 


RCTSC ALL EXITS FROM THE CHECK OF ERASABLE lEKASCHKl RESTORE UkIGINAL COM TNTS TO REGISTERS UNDER CHECKt 

RTCaa EXCEPTION IS A RESTART, RESTART THAT OCCURS DURING ERASuHK REsTckES EkASABLE, UNLESS THERE IS EYiOENCE TO DOUBT 

Rt?C84 E MEMORY* IM^HICH CAS^ PROGRAM THEN DOES A FRESH START tUaFSTAKT). 
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~U~UUUB~ 

T 

L A J t ’vD 





'..024 

KEF 

7 

LAST 

1219 

536' 

1 671 


BZF 

^*2 




:025 

REF 

H- 

LAST 

42C 

3361 

1 67v‘0 

1 

TCF 

0+1 

TJO' HATCH 



Ci 28 

REF 

1 


— 

1 Uf 2 v; 

- 


^ L T L UG 

PH A b G r A b 

- - — 

- 


Cl 29 





lu t 2463 



BAi^K 





i, L 3 c ’ 

REF 

i 






CUUNI •* 

$$/PHA3 E 

. 



ro3i 





rO,2463 

w ■: ' 4 

V- 

StTUPDSP INHINT 





32 

REF 

3 j 

LAST 

iJ96 

I w f 24to4 

D 2 Li 7 i 

i 

DXCH 

.-tUP f RcGl 

SAVE CALLER-S KEIURN 

*_CAD\ 


■ 0034 

KEF 

4 

LAST 

740 

10,2465 

0 ‘512-; 

1 

TC 

NGVAC30. 

EITHER A TASK OR JOB 

CAN CUM^ 

TO NEWHODEX' 

0035 

KEF 

18 

LAST 

14 .2 

1214 



EBANK^ 

MGDKtG 




0035 — 

-RFF’ 

2” 

-TAST- 

" 3Tr 

■ -lurz^s^ 

"3377 

nr 

2UAUK 

C5PMHJ3B 




Gi 3 b 





i'v , 246 7 

'w T 

1 






' 0.37 

KEF 

31 

LAST 

14:2 

l.,247- 

32 071 

c ■ 

DXCH 

RUP TREol 




1' 3« 





19,2471 

U CO: 3 

1 

RELINT 





J 

REF 

14 

LAST 

833 

1. ,2472 

52 vG6 

0 

DXCH 

Z 

kcTURN 



0C4: 

REF 

1 



4 ,i377 



DSPHMJU8 EQUALS 

GSPMMJB 




42 

REF 

7 

LAST 

14u2 

A- J 'L' i ‘ 



5 El LUC 

FFThoI 




■ .■ 43 





5362 



BANK 






c* ^ i • 
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I 


PHASE TABLE MAINrENANCE 


USER'S PAGE NO. 


S 3 


P'A A 4 

R C I 46 


PhASCHNG IS THE MAIN WAY OF MARING PHASE CHANGES FOR REST ARTS 
A, TYPu 0 , AND TYPE THEY ARC ALL CALLED AS FOLLOWS, WHERE 


IHERE ARE THREE FURHS OF PHASCHNG, KNOWN AS TYPt 
XXXXX CONTAINS THL PHASE INFORMATIOH, 


AlC 4 ¥ 
ALL 49 


I C 

OCT 


PHAo CHN G 
XXXXX 


H < V 

K 52 


TYPE A IS CONCERNED WITH FIXED PHASE CHANGES, THAT IS, PHA^t 1 NFUKMATI ONTHaT IS STQRfcD PERMANENTLY. 
OPTIONo ARE, WHERE G STANDS FOR A GROUP AND «X FOR THt PHASE, 


THFS 


'kUSJ 
RCr 55 
R f;t 5 7 
RIT 54 
H L' 6 ' 


G • ^ 

1 

G.EVE-N- 
G^ ODD NOT . 1 


iNACrr v'EV WlLLNuT PEkMl T X oROUP G TTESTWr 

WILL CAUSE THE LAiT DISPLAY TO bE REACTIVATED, UjfD MAINLY IN MANNED FLloHTo 
A DOUBLE table RESTART, CAN CAUSE ANY COMB IT A 1 lOn OF TWO JOBS, TASKS, AND/UK 
LONGCALL TO BE RESTAR FED. 

A SINGLE^ Table restart, can cause EITHEirA JJP, } ask,- cm- LONGCALL RFSTAkI 


TWr'€2 TFrs INFORMATION TS'PD T 1NTD' THF^QulXC WORD aFTEK' Tc " ?Wi SCPlNG AS FOLLOW^ 


RCc 60 


TLu uOP PPP PPP GGo 


RtT 65 
RH 6 / 

Rr '^'9 

K‘ L 71 


AlC 72 

Arr;T 3 


WHERE EACH LETTER OR NUMBER STANDS^ 
OCTAL c - 127 . C:S MUST BE v . 

T IS S E T TO 1 , OT H ER W ISE I T IS S ET 

IT IS SET TO L. SOME EXAMPLES, 


FOR A BIT. THE 

IF ONE 

T O S IMtARLY 


G:S uTANO Fur THE GROUP, UCIAL 1 - 7 , THE P;S HOK THE PHASE, 
rtlShcS TO HAVE THii TBASc Jr GROUP G TO BE SET AT THIS T I Mt , 

IF ON E WISHES T u SET' L G NGGASEi T H E N L ' lS SET T D 1 , DTH E RW I' S C 


TC 

QCV 


PHAo CriNu 

cau' G 


This WILL CAUSt GKUUP 3 TOBE SET Tu 
MAKING G 1 KOUP 3 INACTIVE 


AC<. 74 
A LE V 5 

A CT 7 6 
ACr 77 

ACF 7 6 
A rc- ? ? 

A T ’3 
Atcai 
ACC 8 2 
A CCB 3 
ACF 34 
TaHTB’S" 
ACC 86 


ROC 8 7 
RCr 39 


R 1 4 9 1 

H r, 9 2 
R t f 94 

96 


TC 

PhA b 

OCT 

12 

TC 

PriMa ChnG 

OCT 

^ . .64 

TC 

PHri J UH ii? 

UCf 

2 -J 13 5 

TC 

PHmbC.InG 

Titrr 

■ ■ 6 ^ 1 ' 24 ' ~ 


IF A KHSTARl OCCURS THIS WOULD tAUSh 
□UP 2 TO RE:>TART THE LAST DISPLAY 




THIS SETS THc TBASE OF GROUP 4 AND IN 
CASE OF A RESTART -WOULD START UP THE TWO 

THINGS LOCATED IN THE DOUBLE 4.6 RESTART 

ttftrArT ftJN~ 


THIS SETS LONGBASE AND UPON A RESTART 
CAUSES 5 a 13 " TO BE RtSTARTE-O t SINCE 
LONGSASE WAS SET THIS SINGLE ENTRY 
SHuULD BE A LONGCALL! 

SINCE BOTH TBASE 4 AND LONGBASE ARE SET, 

^ IZ S HO ULD C O N T AIN ~ 3 aTT 1 A T ASK ~A'nD A 

LONGCALL TO BE KESTARIEU 

TYPE C PHASCHNG CONTAINS THE VARIABLE TYPE OF PHAoGHNG i l\F JKMAI I ON. INSTEAD OF THE INFORMATION BEING IN A 
PERMANENT FORM, ONE STORES THE DESIRED RESTART IHFDRMATIGN i i A VARIABKE LOCATION. THE BITS ARE AS FOLLOWS, 


rtH ERE 
BE BY 

T HE S E 


TEC lAO XXX CJW GGG 

EACH LETTER OR NUMBER STANDo FOR A BIT. 
WAITLIST, W IS SET TU 1 , IF IT IS A JOB, 

THREE BIT S MAY 3 E SET. X:S ARE IGNORED 


THE G»S i"Jk 

J IS Sui 1 u 1 , iF 

1 MUST gE 1 , 


THL GROUP, OCTAL 1 - 7 . I F 1 Ht REST 
U IS A LONGCALL, C IS SET TO 1 * ONLY 

.. MUST nt . AGAIN ( STANDS FOR THE 


U. 
ONL Ur 

rSASE, 


V 


L' AH : . AS s eM3L t RE>/i Sl O N .72 OF AGC PROGRAM AKlEMlS jjV iMASA 2> 21114-11 li:4 hLb^ 26, 1^71 ZEUS a.46 PAG£ 14 4 

L PHASE TABLE MAINTfchANCE USER'S PAUL NU. S t 

KtC9a AND L PUR LONGBASto _THE BITS A AND D ARE CONCERNED iJiTH THc VaKIAGLE INFOKMATiON- IF 0 IS SET TU 1, ^PRIURIfr 
Ri luC CR DELTA TIME rtILL BE READ' FROM “THE NEXT LOCArrON AFTER TPiE OLl AL INFURMATIUNi IF THIS IS TO BE INDIRECT, THAI 

R.i';2 IS, THE NAME OF A LUCATIUN COMT+INING THE INFURMATIUN (DELTA TIRE ONLY), THEN THIS IS GIVEN AS THE -CENADH -r 

fPTf j-XUL A 1 1 UN WHICH' COITT A lHS T'Rl"'TJt rnTHTTHH^ FF T HE TTl D ' P R'TD IH I V UR DEL IA f lME iS TO' BE' tJSE'D ,”THAT iHTCTTTS 

RL1E6 ALREADY IN THE VARIABLE STORAGE, THEN D IS Sb I TO Oo NuXT THE A BIT IS USEDo IF IT IS SET TO , THE ADDRESS 

T 108 THAT WOULD BE RESTARTED OUkING A RESTART IS THc NEAT LUCAflON AFTEk THE PHASE INFORMATION, THAT IS, “EITHER 

K 11 ? (TC PHASCriiNG) +2 UR +3, DEPEt'IDING UN WHETHER D HAD BEEN SET OR NOT* IF A IS SET TO 1, THEN THE ADDRESS THAI 

F- 112 WCULD BE RESTARTED IS THE 2CAT>R THAT IS READ FROM THE NEXT TWO LOCATIDWS* EXAMPLES, 


A< llA 
A C 1 1 B 
AC116 
ACT17 


AC iin 
ATIF5 

ACiZi 
AL121 
A -.122 
ACT23 
A 0124 


AD 

TC 

PHASCHNG 

AD+1 

ocr 

.5 23 

AD+2 

OCT 

2310” 

AD+3 


- 

AO 

TC 

PHASCHNG 

AD+1 

“TJCl 

2 Y 44 i 

AD+2 

~GEN ADR 

DELI IME 

AD+3 

2C ADR 

call Call 

AD+4 



AD+5 




THIS WOULD CAUSE LOCATION AD +3 TU lic 
RESTARTED BY GROUP THREE WITHA PRIORITY 

'OF 23^. NDTiT UPON RETURNING^ 11“ KliULC ■ 

ALSU GO TO AO+3 

GROUP 1 WOULD CAUSE CAUSE CALLCALL TO 
EE • 5TAKT Etr " AS ~ ' X raWGCATTT FRUH T HE I I TTE — 

stored in LONoBASE (LONGBASE was StT) BY 

A DtLTATIRE STDRED“IN DELT IME , THE “ 

BBCON CiF THE 2CADR SHOULD CONTAIN I HE t 

BANK OF TJELTIMEo PHASCHNG RE TURNS iri 

LQCATluN AU+5 


KL12S NCTE THAT IF A VARIABLE PRIORITY IS GIVEN FOR A JOB, THE JOB WILL BE RESTARTED AS A NOVAC It THE PRiURiTY IS 

ft(I27 NEGATIVE, AS A FINDVAC IF THE PRlORirY IS POSITIVE, 



Kri28 (VPE b PHASCHNG IS A CEHBiNATIUN OF VARIABLE AND FIXED PHASE CHANGES* IT WILL START UP A JOB Ao INDICATED 
im 3 T — BELOW AND AL'Sir3TART"ap ONE l-IJTED RESl ARI , 1 RTA'inrs EII'Her AN A G • u do Uk l H t i RST E NTR Y u F G ^TEVLT: 

f‘C132 DCUBLc ENTRY* THE BIT INFORMATION IS AS FOLLOWS, 


kl 133 


TLi DAP PPP PPP GGG 


\ i 


R 134 

R ' 138 
RC14 
R 142 


WHERE EACH LETTER OR NUMbER STANDS FOR A BIT, 

1 MUSI BE i; 


FPASE -mFORMaTTUN, ULIAL : - 12T* 

TIME STANDS ONLY FOR PRIORITY SINCE THIS WILL at GuNbiutKtJ m 
AGAIN A STANDS FDR THE ADDRESS OF THE LOCALI ON TO BE RESTAR I ED, 
THE NEXT LOCATION* (THE RETURN L3CAT ION OF PHASCHNG) cXAMPLtS, 


THE Gib ^lAND FDR THE GROUP, OCTAL 1-7* THE P:S FDR THE FIXED 
ANU AGAT ' N~T ^S 1 aNU'S FUK )HE ( BASE AND ^ r ' FDR L0 r TCBA3 F::~T7 T Ti TS 

WILL BE CuNSiDEREO A JOB, AND IT '1UST BE GIVEN DIRECTLY IF GIVEN:. 


1 IF THE 2CA0R IS GIVEN 


OR 


IF IT IS TO BIT 


-xri4"4 

A »' 145 
AC 146 


Ari47 

Ari 4 a 


AD 

TC 

PHASCHNG 

AD+1 

“OCT 

^6343 

AO+2 

OCT 

3i 

AD+3 

2CaDR 

A JuBAJub 

AD+4 



AD+5 




TBASE IS SET aND AKESTaRT CAUSE GROUP 3 
TD' START THE JUii'“AJCTBA3UB WllH PRI'JKIJY^ 

31 AND THE FIRST ENTRY OF 3 ^SPOKWE CAN 

ASSUME IT IS A TASK SINCE WE SET T6ASE3) 

UPON RETURN PRUM PHASCHNG CONTROL WOULD 

GO TO AD+5 


A ' 14 ^ 
AC 15‘ 

A < 151 
A‘ 152 


AD TC FhAjbHNu' 

AD+1 OCT i T> 

AD+2 


Upon a restart The last display would be 
restarted and a job with THE PREVIOUSLY 

STORED PRIUkITY WLTJLD BE BEGUM AT AD+2 
ev MEANS CF GROUP 5 


4 


i 


L 

Rt 153 

K~I53 
R( 156 
R(;157 
R.i5'8 


1C 
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PHASfc TABLE H A INT ENAtslCE _ USER* S PAGE ^ E 

THE iMOVAC-FliMDVAC LHOICE FUR JOBS HOLDS HERE ALSO - NEGATIVE PRIORITY CAUSES A NUVACCALLt POSITIVE A FI NO VAC 

S^UM MA^Y~ QFTI IT'S 

TYPE A TL!; vTP PPP PPP GGG - 

TYPE B TLi DAPPPP PPP GGG 

f V P eT ^TTC lAO XXX CJw GGG 






o. 


CO 


b AF : 


11:^ Ftbc 26»1971 ZtUS 


o t '•<f6 PAGE, 6 


P- lt>SJ 
16 i 
P ' 1 6 J 

A . A 
A\ lc>5 
A ; io6 

R 167 
-irrT.6^'5' 

R 171 

I 

A 17-i 
A 174 

A L176 
■■71T1T6 
At 177 

173 

■;i7o 

.16- 

CTBT 

>182 

C183 


C184 

1.165 


.187 

'.18b 

‘^169 

lO' 


<.192 

193 


1.194 


t 195 
Cl 96 
8197 


(198 

199 

'■2R( 

2' 1 
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PHASE lABLE MAINTENANCE 


USER'S PAGE NUo 


SJ 


2PHSCHNG IS USED WHEN uNt WISHES TU START 
GROUP. FOR EXAMPLE# CHANGE THE PHASE UF 
CALLS ARE MADE IN THE FULLOWiNo MANNER, 


UP A GROUP OR GHAN^C A oKOUP WHILE UNDEP THE CONTROL OF A DIFFERENT 
UP J WHILE THL P.JKf i UN GF 1 HE PROGRAM IS UNUER GROUP 5. ALL 


2PHSCHNG 


TC 2PHj..jH^b 

UCT \XXXX 

OCT TTYYY 


/iHERE UGT XXXXX HOST Be UF TYPE A AND UCT YYYYY MAY BE OF LllHeK J t i't A OK TYPE B OR TYPEX^ THERE IS ONE 
riTFFRERCL --- IvlOJE- IF L'ONGBASt IS ?U BE'^SET’ THrsTFLFaKHATro:rTS Xi'VTN IN' J HE LX't YYVYY INFURHAJIUN, 11 WILL 

BE DISREGARDED IF GIVEN WITH THE UCT XXXXX INFORMATION, A COUPLE JF EXAMPLES MAY HELP, 





- 

- ■ 

- 


AD 

AD+i 

ALH-2 

TC 
uC I 
ogt 

2 : V^dNb 

H J o3 

5 iZ5 

SET 

THE 

THIS 

rBASE3 AND IF A RESTART OCCURS START 
TWO ENTRIES IN 3.6 TaSLE LOCATION 

IS Of TYPE C, SET THE JOB TG oE 

- - — - — — - - 









OCT 

i 3 J 0 , 

iU bL LUbAl lUri AU + WIIH A FKiUKlIT Xbf 









AD+4 



FJR 

GROUP 5 PHASE INFORMATIDN 


REF 

J 

LAST 

1402 TO 

14 2i 

14 33=^ 


COUNT => 

$ S/ PriAb h 









Li A. "T 

0 

2PHSGHNG INHINT 


th c 

ENTRY FOR A ‘DOUBLE PHASE CHANGE 

¥ 

REF 

282 

LAST 

1402 

8363 

8 -8 t \j 2 



NDX 










'3 C/OuO 

1 


ca 

> 




REF 

283 

LAST 

14 .6 

5365 

24 002 



INGK 





REF 

“1“ 



5366 

54 .72 

--r~ - - 


TS 

TEHPP2 




REF 

1 



5367 

7 4774 

L' 

- 

Mask 

CCf7 

- 

- — — - - 

- - 





8371 

6 040 . 

1 


DOUBLE 





RTF' 

1 



:> J ( i 

54 ' /I 



1 3 

I Eh P G2 




REF 

2 

LAST 

14^6 

53 72 

3 c "<72 

1 


CA 

lt.’lPP2 


— - - — - — - - - 


REF 

1 



5373 

7 i>‘j 8 a 

w 


MASK 

OCT i 777 

NEED 

ONLY 177. , dUT WHY GET A NEW CONST., 

- 

- - 



- 

53 74 

0 i : . 6 

1 


LXTENu 


■ 

.... . . . . - . 


REF 


last 

1393 

53 73 

7 4785 



MP 

B1T12 





RFF~ " "a nrST — r4To 537X7’ 56 GT2 1 — XCH TcFTPPZ 


REF 

4 a 

last 

i3«3 

5377 

7 4752 

1 

MASK 

D I i LU 


HEF 

1 



84v '■ 

54 . 66 


is 

TLMPSrtl iiODICATES WHlTHLK TG SET TBASE 0 

R I'J 1- i T 

REF 

184 

LAST 

1348 

54l 1 

1 5 40 5 

1 

TCF 

PHASGHNG +3 



REF 

149 

LAST 

1368 

54c 2 
54v 3 

’'.4 
3 47 7 j 

k- 

PHAsCHNG 

1 wri 1 N T 

CA gNl 

INDICATE-SWE CAMt FROM A PHASCHNG iNTSY 

REF 

2 

LAST 

14 6 

540 4 

54 ' 66 

0 


T S T ilrtP S<ii2 


REF 

284 

LAST 

14' 6 

84'. 5 
54i 6 

3 ■'G 2 

3 L ■ < ' '.i •. 

i 

+ 3 

l4D X G 

C A 


REF 

285 

LAST 

14 . 6 

54C 7 


1 r 


1 NCR 1 


REF 

i 



841. 

j>4 065 

W-* 


T y yn 
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PHASE TAl3Lb MAlNfENANCt 


^ 2. ■ Z 

■ 2,3 

2 4 

REF 

i 



541 1 

5412 

5413 

u G t . V 6 1 

3 5415 1 
52 5u6 U 

* 

cXTEKD 
DC A 

DTCB 

ADRPCriNZ 

2 '■ S 
^ 2'X 

• 2e6 

RfcF 

REF 

REF 

4 5 

1 

1 

LAST 

1394 

E 3 1 1 “+ «- 1 

5414 

5415 

J2473 0 
21S,63 0 

ADRPCHN2 

£BANK= 

2CA0R 

LSTi 

PHSCrlNGZ 


TTFF 

1 

»» — T* » ■ ■' y.: 


5416 

22 "073~0 ■ 

QNEUKIWU LXGM 

\ thF tJc^u iM 

e208 

REF 

31 

last 

14 '2 

5417 

22 006 1 


LXCH 

BBANK 


REF 

2 

LAST 

14 J 7 

542'. 

22 CTO J 


LXCH 

1 EMPtidEISi 

21 C 

KEF 

I 



542 1 

7 5^53 < 

- -- 

HA SK 

DC T 1 4 J V ' 

211 

REF 

345 

LAST 

1399 

5422 

1 Q 3 J L' w' 


CCS 

— - 

A 

f' i-l C’f*' If* 14 

— 

~ — 1TET' 

“1“ 



!>42^3 

■“t 54134 . 


1 L r 

E H E ^ A D 

’ 213 

REF 

1 

- - 


5424 

3 '''‘vO/d c' 


Ca 

TEHPP 

,214 

REF 

39 

LAST 

1393 

5425 

7 47d2 1 


MASK 

BIT? 

215 

REF 

346 

LAST 

14-"7 

5426 

1 ; O-jC 


CCS 

A ■ 

216 

REF 

i 



54^.7 

1 5451 , 


TCF 

GEiPRiu 

217 

KEF 

4 

LAST 

238 

5 43 

5 - 6 1 3 

CLUPKIU 

NDX 

ItMHO 

.'218 

REF 

1 



5431 

3 125d 1 


CA 

h’H2>FKDTl ~2 

219 

REF 

i 



5432 

54 C 7 , 1 

-1 

15 

I tHPPK 

'.22': 

KEF 

2 

LAST 

14 J 7 

54J3 

3 f <- o2 

CJNl 

CA 

TcHPP 

13 ^ *r □ — 

r22T 

RTI^ 

32” 

LAST 

“1393 

5434“' 

/ 4761^ 


PI A ilV 

dI i d 

<222 

REF 

347 

LAST 

14; 7 

5^35 

ii: 


OLo 

A 

■'223 

REF 

1 



5436 

1 5455 1 


TCF 

GETNtrtNH 

C224 

REF 

286 

LAST 


5437 

3 


G A 

1 

^225 

REF 

1 



j44U 

54 '-03 D 


T S 

-f^-h — — “ 

1 cMPNM 

— H 4 

'-226 

frt-p- 




544 1 

3 1 


U. M 

DD 

.227 





5442 

u ^ Li 6 1 


EX I ENU 


■ 228 

REF 

2i 

LAST 

1232 

5443 

w 4 J 7 1 


RUR 

SUPCK'BNK 

229 

» * 

REF 

1 



5444 

34 j 64 i 


To 

I-MPSB 

23E 

REF 

1 



3445 

3 545C D 

TUC0N2 

C A 

CUN 2 ADR 

^~T V WIT3 T" FT" 

— *"231 

RTF 

J~ 

LAST 

14i7T 

54*»0 

073 u 


E X LkO 

1 CL Pi r O l 5 b N 

232 





5447 

52 CJ6 0 


D1 CB 


A 1 - '* • 

REF 

1 



^45; 

2 5 1 1 

CUW2ACR 

GENADK 


‘ - . 

'.,234 

REF 

267 

LAST 

14 ‘7 

545 1 

> . <jijZ 0 

GETPRIQ 

NDX 

C 

^r23'5 





dh:>Z ^ vuuu i 


LA 


236 

REF 

26S 

last 

14 , J 

:>43 3 

24 h>>2 ^ 


INCR 


237 

REF 

i 



5455 

1 5432 


TCF 

CCNJ. -1 

. 2 J d 





545 5 

L L; O 1 

GET NLHrilH 

uXI fcNO 



f-EB. 2o,197l ZEUS 


a At PAGE 14 7 


USER'S ^ 

XFF TO SWITCHED BANK 


SEt WHAT KIND UF PHASE CHANGE IT IS 
—TT— IS CE TYPE T r r : 


SHALL WE USE THE OLD PRIORITY 
NO GET A NEW PRIORITY (JR DELTA T) 


USE THE OLD PRIORITY (OR DELTA 1) 


SEE IF A ZCADR IS GIVEN 


PICK UP USERS SUPERBANK 


BACK TO SWITCHED BANK 


DGN:T care if DIRECT OR INOiPECT 
rrATF- T HA T DEC TS ION T D RT STARTS" 

OBTAIN RETURN ADDRESS 


46 PA&L 14 ''6 


A p : AS fc W6LE Kt:> /1 _Si.UjM . , 7 Z UF A bC PHUGRAH A KT EHIS 6Y NAS a ^21114-. 11 


11:4. FEBo Z6il971 ^bUS 


L PFASl lAHie MAINrENANCc 


UStk'S PAbE hu,. 7 t> S3 



REF 

269 

LAST 

14 .7 

5456 

5 €o02 

L 


f f^U c X 

W 






5457 

3 moi 



OCA 


’ i 

REF 

2 

LAST 

14^7 

546 L 

5 d 0 54 

1 


DXCH 

TEMPNM 

' :2AZ ■ 

RTEF' 

62“ 

■L‘7T5T“ 

1234“ 

5WI 

j ^ f f 

L 


LA 

1 wu 

243 

REF 

29< 

LAST 

14 : 8 

j462 

26 J 2 

1 


AJS 

c 

244 

REF 

1 



5463 

i 5445 

T 


TCF 

TCC_PN2_. _ 

>. 245 

REF 

5 

LAST 

7*J u 

5u53 



CCT 14 jO j 

EOU ALS 

PRIU14 

r74 5 ^ 

■R EF 

'~LV~ 

LAST' 

13 56 

\i\f6 1 



1 hMPb 

t U uAls 

1 1 trtPl 

247 

REF 

18 

LAST 

1366 

tC62 



TEMPP 

dt^UALS 

I TEMP 2 

<'24S 

R^F 

3 

LAST 

63 

0063 



T £MPtM^5 

EQUALS 

rTcHP3 

24<^ 

REF 

3 

LAST 

69 

0064 



TEMPBd 

EQUALS 

I TcMPA 

25 

REF 

2 

LAST 

69 

■ 0065 ' 



TEMPSW 

EQUALS 

I TEMPS 

251 

REF 

3 

LAST 

16 7 

UL 66 



TEMPSW 2 

EQUALS 

ITiiHPo 



HbF 


“last 

'T7P~Z 

007 U 



lETIPPR 

"EQ UAL S 

KUP 1 Kbo i 

253 

KEF 

d 

LAST 

592 

0071 



T£MP&2 

Equals 

RUPTREu2 

^254 

REF 

5 

LAST 

11* '6 ” 

Ou72 



TEMPP2 

Equals 

PUPTREGS 

2255 

REF 

5 

LAST 

il 6 

vJ73 

- - 


TEMPbdON 

EQUALS 

RUPTREG4 

25 0 

REF 

31 

LAST 

14 7 

00('6 



ei3 

Equals 

EBANK 


258 

REF 

2 

LAST 

14 2 

IQ r 4^Uv 6 


SETLOC PHA.3L1AB 

■w259 





10,2473 


BANK 

^ 2 6; 

REF 


LAST 

223 

E3#i436 


E6ANK- PHSNAMLl 

" 7:261 

"RTF“ 

TT 

XA51 

1432 " TIT 

14'... 61 

— g gir 

CbUNl^ 

.262 

REF 

4 

LAST 

14 7 

i : ,2473 

22 073 . 

PHSCHNG2 LXCH icKPdijLN 

726 3 

REF 

2 

LAST 

14:6 

i..,2474 

3 C065 1 

CA TEriPSQ 

'4^64 

REF 

2 

LAST 

1406 

1 ,2475 

7 4774 0 

magk got i 

'265 



— 


1 } f 2 4 7 6 

6 00 3 j 1 

DOUBLE 

t 266 

HEF 

5 

LAST 

14 7 

10,2477 

54 J6i 1 

TS TcMPG 

267 

REF 

3 

LAST 

1 4 > 6 

1 , f ^ V ^ 

3 .-0 65 1 

CA lEMPSw 

^268 “ 

REF 

2 

LAST 

14 : 0 

1 \ j t 2^ 1 

7 5C56 0 

MASK 00717771 

26 





lu , 25'.j2 

kj ^^UJo 1 

EXTEND 

' ~27r 

REF 

29 

LAST 

14 : 6 

10,25:3 

7 4755 3 

HP BIT12 

^ 271 

REF 

3 

LAST 

14 '■ 7 

H ,2504 

54 062 1 

rs TfcMPP 

272 

KEF 

4 

last 

140 8 

1 j, <i5C 5 

J 00 6 p 1 

LA TfcHPbrt 

:273 

REF 

2 

LAST 

1:7 

1 i, 250 6 

7 4"7o 0 

MASK CCT6 'L ..' 

-274 

REF 

3 

last 

14 . 3 

10, 2507 

36 .^o5 1 

XCH 

'■,275 

REF 

2 

last 

14', 7 

iL ,251*. 

7 5053 0 

MASK 001141.. 

:276 

REF 

348 

LAST 

14 7 

10,2511 

1 Lrf J 0 J 

CCS A 

C277 

REF 

1 



i - , 2512 

1 i>41b 0 

TCF LNtaRTRL 

i.27 8 

REF 

4 

LAST 

14- , B 

i' ,2513 

J O”**- q2 

CA TEMPP 

0279 

REF 

6 

LAST 

14 ;8 

10,2514 

50 Cul 

NDX TcMPG 


OBTAIN RETUHN ADDRESS 


START STOKING THE PHASE INFORMATION 


oAP: ;\>SfeM8LE REVISION 


OF AGC PKOSRAM AKTEMIS 8V NASA Z ^21114- il 


li:4 FEB* 26,1971 ZfcUS 


At> PAGc i4i. 


PHASE I ABLE MAINTENANCE 


USER'S PAGE NU 


fc3 S3 


' Ic 

KEF 

3 

LAST 

223 

i'J ,2515 

55*154 1 

- - 

T^ 

PHASEl -2 

1^23 1 

HEF 

3 

LAST 

14 6 

1 J, 25 16 

i U ;> 66 0 

5EL0W1 

CCS 


■ ■ 

— RTEX" 

1 



1 L f 2 5 1 T 

1 2533’ 1 


-JCF 

TTETTIjHZ 


- 




1 . ,2520 

1 2521 1 “ 


TCF 

+ 1 

‘ 28 A 

REF 

4 

LAST 

i4u 6 

iv,2521 

4 0072 0 


CS 

Tb.MPP2 

1285 

REF 

5 

LAST 

14G9 

1C ,2522 

22 V f 2 1 “ 

■ • 

LXCH 

TENPP2 

' 2 86 

REF 

2 

last 

14X6 

10,2523 

5 w7i 1 


NDX 

TEMPG2 

'"ZUT 

" Tt^ 


LAST 

23S — 

— tTrrzt>'24 

53^154 1 


u XC H 


^-283 

REF 


LAST 

14C9 

10,^52 5 

1 0 0 1 ' 


CCS 

TEMPSWA 

(289 





10,2526 

12 527 1 


NUUP 


229<» 

HEF 

2 

LAST 

1409^ 

iTy f Z3Z 7 

1 2533 1 


TcF 

BtLX»W2^ 

291 

KEF 

23 

LAST 

11:2 

1% , 253l 

4 '025 1 


CS 

TIME! 

1292 

KEF 

3 

LAST 

14l9 

1,2531 

5 .71 1 


NUX 

T LMPG2 

C293 

KEI" 

4 

last 

396“ 

1 0,2532 

55'255 ^ 


TS 

T BASEL -2 

( 294 

REF 

6 

LAST 

1408 

10 1 2533 

IG 065 0 

BELGW2 

CC 3 

TEMPS w 

(295 

REF 

1 



10,2534 

1 2547 1 


TCF 



REF 

or 



— it; , 253'5“ 

1 2552' c 


TCF 

3 1:LGW4 

> 297 

REF 

24 

last 

14u9 

Iv t 2^36 

4 L J25 1 


CS 

tTmeI 

C298 

REF 

7 

LAST 

140 8 

1 ,2537 

5 C 0 0 1 0 


N0X 

TEMPO 

0299 

REF 

5 

XAST 

140 9 

13,254'^ 

55*255 0 


TS 

TBASEl “2 


REF 

7 

LAST 

14G9 

10,2541 

3 COGS 1 


CA 

TEMPSW 

3 1 

REF 

1 



1?^ ,2542 

6 2545 1 


AD 

BIT14CUM 

■: 3 - 2 

REF 

349 

XAST 

14 . 6 

10,2543 

10 00 c. 0 


CCS 

A ■ 

{*Sl3 





10,2544 

12 545 0 


NOUP 


Xr3C 4 





10,2545 

17777 0 

BlTi4CUM 

OCT 

17777 

^.305 

REF 

z 

LAST 

14l9 

lo , 2546 

1 2552 V. 


TCF 

lEuGWA 

C506 





1 ,2547 

0 C 6 i 

BeL0W3 

EXTEND 


’ 3^ 7 

REF 

35 

LAST 

1329 

10, 255'.: 

3 X :25 L 


DC A 

1 IME2 

- 3‘ b 

REF 

1 



1. ,2551 

5 3 * 3 - J 1 


DXCH 

LGNuBAoE 

' 30 9 

REF 

5 

LAST 

14' 3 

lo , 2552 

4 CD 62 1 

eELUW4 

C6 

TEHPP 

F ' -i 1. ^ 

- REF 

8" 

LAST 

14X9 

10 ,2553“ 

^61 b 


“TTUX 

( trtPu 

311 

REF 

6 

LAST 

14 99 

1 ,25d4 

55 * 153 . 


Ti 

-PHASE! -2 

G312 

REF 

291 

LAST 

14o3 

lo ,2555 

3 


CA 

Q 

r3I3 

REF 

5 

LAST 

14v:3 

10, 2556 

22 C73 0 


LXCH 

TEHPB3CN 

314 





10,2557 

U r ^ 1 


KcLlNI 


— 3T5' 





10,256“ 

52 0 


urcti 


316 

REF 


LAST 

14X9 

10,2561 

22 }73 0 

CON 2 

LXCH 

I EMP BdlN 

(, 317 

KEF 

4> 

LAST 

1409 

1' ,2362 

j U062 C 


CA 

TEMPP 

^‘31 8 

REF 

9 

LAST 

14:9 

1 : ,2563 

3 J 061 0 


NDX 

1 EM P G 


IS IT A PHASCHNG OR A 2PHSCHN& 
tT:S A"PHASCmt; 


iT:S A 2PHSCHNG 


Can:t get here 


SEE IF WE SHOULD SET 
SET LUNGBASE ONLY 

SET ' N r iTH EK — 


XBASE OR LONGBASe 


SET XBASE TO BEGIN WITH 


SHALL WE 


SET LONGBASE 


laNT get HEKt 
LANT GET HEIRE 
NO WE NEED ONLY SET TBaSE 


SET LUNGBASE 


AND STOKE THt FINAL PART OF THE PHASE 


46 PAGv- 14i 




* 

« 


A S SE MBLb REVISION m 7^ OF AGO PROGRA M ARTEMIS BY 


r>t ASA I 21 11 4- /11 


11:4. r-E8. Z6,197l ZtUS 


I P'hASfc 1A6LE MAINTENANCE U6 Ck»S PACE NO-. 9 13 Sj 


31 -) 

Rt F 

4 

LAST 

14o9 

li 1 25t> 4 

!j1> • 1^>4 

1 

TS 

PHASE! -2 

- - - _ _ . 

--- - - - - -- - 

- — 

1 3 Z ’ 

REF 

2 

LAST 

14 ' 7 

lLf2565 

3 CC76 

0 

CA 

1 EMPPR 




'I 3 2 1 

H tF 

1. . 

LAsl 

“prr9 " ■ 

lC>,2b66“ 

5r rzrr 

0 

flux 

1 eMpu 





REF 

2 

LAST 

14 7 

1 U f / 

55*256 

0 

TS 

PHSPKUTI -2 

__ _ . _ 


. 

323 

^324 

REF 

3 

LAST 

14C'8 

1^ ' f zif 7 •• 

1 - ,2571 

0 6 0 ■ J 6 

3' CO 64 

1 

0 

EXT E NU 
DC A 

TEHPNM 

- 


. 

1325 

REF 

11 

LAST 

14i'l 

1^,2572 

ti 4. V 6 L 

L 

NUX 

T EM P G 




13'Z5 

RTF 

-TT 

L A5 1 

i4Vi d 

I T f / 3 


D 

UXCH 

FHSTvTArlOr 




327 

REF 

1 



!• ,2374 

l 25 lo 

U 

TCF 

bcLUi^l 




r 32 4 
33 

" REF 


LAST 

14v2 

4iJUV.' 

5464 



oETLOC 

3ANK 

FFTAGi~ 




' 331 

KfcF 

4 

LAST 

14<jo TD 

14 6; 

o6 99 + 

COUNT* 

i >/ P HAS E 



IT ShuULO 

■332 

REF 

3v 

LAST 

14 OB 

5464 

7 4755 

L CHECKd 

MASK 

LI T12 

SINCE THIS IS 

OF TYPE 6f THIS . 

^ 333 

REF 

35- 

LAST 

140 9 

5465 

jL ^ *. .* -w 


CCS 

A 

BE HERE IF WE 

ARE TO GET A NEW 

PRIUKiTY 

:334 

REF 

2 

LAST 

14C7 ' 

3466 

1 5451 

' 

TCF 

G 6TP R I u 

IT IS", SD GET 

NEW PRIDRITY 


3 

REF 

1 

i. 



j'4o 7 

i 543 l 

1 

TCF 

CLDPRIU 

IT ISN:T, USE 

THE OLD PRIORITY 



G4P: ASitHBLB REVISION i 72 OF AuC PkiiORA'I AkTEMIS BY 


SA 2 


11:4 FEb. 26,lv7l ZEUS 


46 RAGE 1411 


/RESTARTS ROUTINE 


UiEK*S PAbc r.G 


S 


VI -2 

KEF 

2 

LAST 

23vj 

C i f 200^ 



S c T L CC 

Kt !;? T AkT 


Cv.' ;; 3 





'1 r 34 o 7 



BANK 



< '* 4 

REF 

5 

LAST 

i"4ro 

E3,i436 



fcBANK= 

PHSNAMtl 

GOP RUG Must SwilCH TO THI _> EBANK 


REF 

i 

- 

- 

- 

_ . ^ ... 

- 

c ij oN r ^ 

$$/KSRUU 

- - _ 

r 6 

KEF 

o6 i 

LAST 

136 9 

G 1 f 3 ^ O T 

3 0161 

1 

RESTAkTS ca 

FPAC -1-5 

GET GROUP NUMBER -1 

rr v,y 





01,347.. 

6 COIR) 

1 

D0U3LE 

- 

SAVE FOR INDFXINO - 

cd 

REF 

1 



jlf 3471 

54 155 

1 

TS 

T EMP26 


i * : 9 

KEF 

1 



1 1 3 *^72 

3 3127 

3 

OA 

FH62CAUK 

SET UP EXIT IH CaSL IT 1:, AM EVEN 

r. 1'- 

KEF 

1 



Cl, 3473 

54 Is? 

1 

J 

TS 

TEMPSi^CH 

TABLE PHASE " ' 

til 

REF 

1 



j1 , 3474 

3 352o 


LA 

RT RimCAUK 

TO SAVE TIME ASSUME“1T WILL GETmMT 

12 

REF 

1 



1,3475 

54 7C7 


TS 

GOLOC +2 

GROUP AFTER THIS 

. f 13 

REF 

1 



01, 347 6 

j V 154 

1 

LA 

1CMPPHS 


rc 1 4 

REF 

10 

LAST 

13S4 

01,3477 

7 5024 

L 

MASK 

GCT14U. 


0015 

REF 

351 

LAST 

141^ 

0i,3 3< '! 

X * - ■ 0 ^ , 

1 

CCS 

A 

IS IT A VARIABLE OR TABLE RESTAhI 


REF 

1 



01,350 i 

1 3512 

-f* 

TCF 

ITSAVAR ' 

IT:S A VARIABLE RESTART 

GUI 7 

REF 

2 

LAST 

1411 

OX f 3 5 o Z 

1 •' 154 

u 

GLrPART2 CCS 

TEMPPHS 

IS IT mN X^l RESTART 

tL18 

REF 

352 

LAST 

1411 

Oil J 5 j 3 

iv .’..v; 


CCS 

A 


t:ci9 

REF 

1 




i 3612 

' J 

TCF 

I TSATBL 

NU, ns A TABLE RESTART - 

V 2 

REF 

6 

LAST 

14ti3 

UT , 35o 5 

3 5 > 53 

1 

CA 

PRi 014 

IT IS AN X.l KtbTAPTf IrtEREpL’ki w>TA I 

• ‘21 

REF 

37 

LAST 

1313 

01,35^6 

J 5135 

»y 

FVACCAUR TC 

F 1 1 JU VAl* 

THE OlSPLAY KtSTAKl RUJllNE t^GENADKj 

' A .122 

~RFF" 


CAST- 

14T37 — 

E3 , r4r r 



E3ANK^ 

rsT-i 


tl23 

REF 

1 



0 1 1 35:^ 7 

U3263 

0 

2CADR 

liU l Dop 


Tv 23 

REF 

1 



J 1,3511 

"20163 

0 • 




V... 24 

REF 

2 

LAST 

1411 

X T i 

j 3526 

u 

TC 

R f K < Cr A iJ K 

hlNlSHtL WITH THIS GRUUP, Gi l .‘EXT OME 

1 . 25 

REF 

Ti 

last 

1411 

T, T 35 1 2 

7^024 

'o' 

ITSAVAK MASK 

CL»T X^'J - 

Is IT Type 

If 26 

BEF 

j53 

LAST 

1411 

. 1,3513 



CCS 

A 


’ C 2 7 

H EF 

1 



1,3514 

1 3563 

r. 

fCF 

1 rSLlKcB 

YES, IT IS TYPE d 

O(t20 





X f ^ 5 X 3 

u 'w d ' J 6 

1 

cXTENO 


STORE THE JOB t GR TASM ZCAOR PuK iMT 

29 

REF 


LAST 

1411 

0 1 , J> 5 1 6 

5 155 



TCMPZG 


00 30 ' 

■ RFF 

G 

LAST- 

ot^rrr 

-ut73^Tr~ 

3-T:43T 

-or- 

— T3C71 

-PHSNTVMcl 


if;31 

KEF 

2 

LAST 

1411 

0 if 

i> 2 7 » . b 

1 

JXCH 

GJLUC 


(:32 

REF 

3 

LAST 

1411 

01,3521 

3 oi54 

1 

CA 

I CMPPHj 

SEE IF THIS is A JOB, TASK, UK A LuNGCAL 

1 33 

REF 

3 

LAST 

1 40 3 

:i, 3522 

7 4774 


MASK 

GCT7 


134 

REF 

2 

last 

1253 

oi,3523 

6 7 7 0^ 1 

f 

_| 

AO 

F1.JUS2 


Tr33~ 

RFF“ 

- T54 - 

“LOrST 

r4Tr“ 

01.T35T4" 

-itr-jOT^ 


CC>5 

A 


-1 36 

REF 

1 



1, 3525 

1 3675 

1 

TCF 

1 JoLNGCL 

ITS A LONGCALL 

‘2^3 7 

REF 

4 

LAST 

32 9 

-if 3 1-* Z o 

, 4o 5 1 

i 

KTRNCAJK To 

r URh 

CAN) uLT HlE.t 

■:(. 33 

REF 

1 



1, 3527 

1 3531 

1 

TCF 

n aAWAl T 



r 




l 






r 




i ■M 




t 


G 

AbStMPLE REVISION 72 

uF AGl PRU 

SRAM AKTlM15 by NASA 2- 21114-^11 

11:40 FEB. 26,1^71 ZEUS , 46 

t-MGE 1412 

L 

RESTARTS 

ROUT INE 






USER'S PAGE NO. 2 1. 

3 Si 


REF 

1 


- ■ 

' 

3 ! 

1 

1 3ti76 1 


rcF 

IT6 aJQB 

ITS A JOB 



REF 

1 



01, 3531 

3 3463 iJ 

I ToAWAl T 

LA 

WfLi CAUR 

SET UP WAITLIST CALL 


- I 

KEF 

3 

LAST 

1411 

irL,353r2 

54 /'>4 V 


TS 

GOLDC -1 ' 



(42 

REF 

3 

LAST 

1411 

1 , 353 3 

5L 1>5 0 


NOX 

TEMP2G 

CIRECTLY stored" 

- 

Lr43 

REF 

i 

LAST 

141 

.( 1 , J534 

3 126< 1 

TIHETEST 

CA 

PHaPROTl 



-v 4 4 

REF 

Z55 

LAST 

1411 

>1,3535 

1>. Ej., C' 

CCS 

A 

IS IT AN' IMHEGXATF RESTART" 


':i 45 

REF 

356 

LAST 

1412 

(.1,3536 

24 w 1 


INCR 


NU f 


G(’46 

Rl: F 

1 



■ i , J5"37 

I 35^ 2 " 


TC F ■ 

h 1»MU 1 i Me 

find uU f WHtTJ IT SHUDLD obGlN 


, . 47 

REF 

1 

~ 

- 

1,354 

1 54 7 


rcF 

n S I NDIR 

SrORED INDIRECTLY 

‘ — ^ ^ ___ .. _ 

Ui 43 

REF 

i 



"01,3541 

1 35ol i 


1 Cj- 

iMEUIArE 

IT WANTS AN IMMEDIATE RESTA'rT 


K‘i€49 

THIS MUST BE 

IN FIXED FIXED 






^ ^ t) 1 

REF 


LAST 

643 

43 w . 



Setloc 

F F T A 



1 52 





547 C 



BANK 




5J 

REF 

i 






COUNTS 

$ $/ RSkUU 



.TT4“ 

RTF 

— 3r 

"CAST 

"1417" 

54 7 3 

22 T35 7'^ 

u 

A 

LXCTF 

6 >jjLLiC + i 

GhI ! Hl GOkKfcCl t BANK CASb 

1 hi S i : 

< : 55 

REF 

2 

last 

14 . 7 

5471 

22 <JJ6 1 

- 

LXCH 

BB 

SWnCHED ERRASIBLE 


U 56 

REF 

357 

LAST 

1412 

5472 

5 L lo ^ C 1 


NOX 

A 

GET THE TIME INDIRECILY 


(57 





5473 

3 L- W k-- i 7 


CA 

1 



(‘58 

REF 

3 

LAST 

1412 

547 4 

1^ w b Jb 


LXCH 

BB 

RESTORE THE BB AND GOLOC 


‘ < 59 

REF 

5 

last 

1412 

5475 

22 7 '6 


LXLH 

GQLU6 1 

.... . _ , _ — ,. 

- , _ 

• ! b-' 

REF 

2 

LAST 

1412 

5476 

1 3542 j 


TCF 

FIiJJ riME 

FIND OUT WHEN IT SHOULD BEGIN _ 

- ----- - - ■ / 

R 6 1 

YOU MAY RETURN TO SWITCHED FIXED 






REF 

3 

LAST 

1411 

01,2000 



SETLOC 

REST ART 



1^64 





01,3342 



BANK 




GG65 

REF 

2 

LAST 

1411 tJ 1412: 

43 43* 

— — 

COUNT ^ 

i$/RSRUU 

MAKE NEGITIVE SINCE IT .ULL > c 

- 

. f 6 6 





.. 1,3542 

4 OOC C 0 

FINOTIME 

COM 


iUlT .'XT D 

TT^T 

REF 

iB5 

LAST 

■■ 

""717354^3 

"54"0:0 11 


TT"”' 

L 

ANU sate 


G68 

REF 

4 

LAST 

1412 

‘ If 3544 

50 155 


NOX 

TEMP2G 



Ct6'9 

REF 

o 

LAST 

14 . 7 

J 1, 3545 

4 1257 1 


uS 

fJTSEi 



i-t7v 





ji, 3546 

C -Cwo 1 


extend 




71 

REF 

25 

LAST 

14G9 

01,3547 

a L 0 


b u 

ri Me 1 



(.'.72 

REF 

358 

LAST 

1412 

u 1 ,5550 

10 jiJG 


CCS 

A 



^^T3“ 





0773557" ■ 

■7' T3F37 0‘ 


xnw 




, V 74 

REF 

o 

LAST 

10 39 

1 ,3552 

6 7663 ' 


aU 

LCr.>77/6 



Cr75 

REF 

150 

LAST 

14 " 6 

i , 3:>5 3 

6 477'- : 


AO 

ONE 



' 76 

REF 

186 

LAST 

1412 

1 , 5554 

6 E 1 * 


AD 

L 



77 

REF 

359 

LAST 

1412 

.1,3555 

10 OJ'- 0 


CCS 

A 




4 


ASbEMBLE Xh^lSlUN IZ OF AGC PROGRAM AKTEMii aY NASA 2 2iii4-.ii 


A. /b 

-(79 
P*. 8( ' 

crtjr 

i < til 

:.L 63 
c' 4 


<85 


u L 


87 
Ot 68 

008 ? 


RESTARTS KOUTINt 


KEF 249 LAST 1393 


TTEF 

REF 

REF 

REF 

REF 

TTET 

REF 

REF 

REF 


15 T 

u 

3 

2 

1 

T 


4 
1 

5 


LArST^ 
last 1412 
LAST 1411 
LAS I 1411 


L A ST- t 4r3 

LAST 1411 
last 1413 


>li 3556 
U If 3557 

j 1 1 35 6C 

? 

- it 35o2 
-1,3563 
V 1 1 3 5 o 4 


If 35 u 5 
56 6 


,j i, f 

if ->5 7 
3if 357 1 


3 47 72 

1 

-3 

CAF 

ZERO 

1 3^ 6 i 

1 


TCF 

+ 2 

1 35ol 

1 


TCP 

+ I 

tr ■4'TT’r^ 

-f* --- 

1rrtt tXi 


•CTTE 

j 7 G 4 

1 


TC 

GQLOC ~1 

3 3526 

C 

ITSLIKEB 

uA 

RTRNCADR 

54 13? 

0 


rs 

i 

3 3133 

u 


CA 

PKT2CADK 

5^ 7j7 



To 

““GOttlC'"?- 2 

3 < 154 

1 


LA 

TtPiPPHS 

7 6043 

1 


MA^K 

GCri 77 

54 154 

0 


TS 

TEMPPHS 







“0T735T2 

6 U0vr6 

1 


£ X t E NU 


O‘L‘9 1 

REF 

5 

LAST 

1412 

01,3573 

5 0155 

u 


NuX 

TEMP2G 

fC<32 

REF 

7 

LAST 

1411 

r 1,35 74 

3 1437 

o 


UCA 

PHSTsAMEl 

^-C93 

REF 

8 

LAST 

1413 

1,3575 

52 7^-0 

1 


DXCri 

GOLUC 

0<-94 

KEF 

6 

LAST 

1413 

31,3576 

5 1 . 155 

0 

ITS A3 08 

J'i \j X 

T i::MP2G 

rT'95' ■ 

REF 

4~ 

L AS f 

1412 

j 1,35 7 7 

3 1260 
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07,2712 

7 133^ 

1 


MASK 

1 MODE S3 i 


- 

r 0 7 1 

REF 

52 

LAST 

1419 
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u 
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11 
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1 


C7,^773 

0 306 3 

1 

TC 

119 

REF 

1 


j 7, 2774 " 
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C 

TC 
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REF 

2 
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J7,2775 
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1 

TC 
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REF 
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6 3663 

1 

CUMPUS 

AU 
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C 7, 2777 

u 

1 


cXTEND 
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12 3 

KEF 

1 



.7,30l ‘ 

O 3653 

1 


tSZMF 

CUMZcRu 


• 124 

REF 

14 

LAST 

1421! 

w7f 3i-< , 1 
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1 


1 NOEX 

CJUINU 
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REF 

4 

LAST 

1420 
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55 ' 47 1 



rs 
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' 12t> 


1 - 
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cs 


AtfOWtO 
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KEF 

22 

last 
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7 i 3 U L 4 
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u 
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1 TEMPI 
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128 

REF 

16 

LAST 

1394 
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6 47 7 1 

1 

1 

AD 
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' 129 

REF 

15 

LAST 

1421 
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51*474 

1- 

- 
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— 
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REF 

4 
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0 


TS 
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SET UP command RFGISTcH, 
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REF 

la 

LAST 

1421 

0 7 f 3 L> 1 ' . 
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’ 
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0 


TC 
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REF 

23 
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16 .61 

1 
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REF 
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1 
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REF 

li 
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.j 7, 3.14 
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ii 


TC 
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1 
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CAP 

Two 

r 138 
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^T7, 3114 

7 4763 

tr 


MASK 

NOTMUOAP 



^2'U„ 

REF 

39 

LAST 

1423 

07,3115 

£7 • 334 

L 


AOS 

1 MUDES33 



. 2, 1 

REF 

53 

LAST 

1419 

^7,3116 

4 133^3 

1 


CS 

1 rtOU t:S3 

bi S A& L E 

IHUFAIL 

€202 

REF 

4 

LAST 

1419 

07,3117 

7 4765 

L' 


MASK 

lyUrlNHT 



; 20 3 

REF 


LAST 

1423 

C7,312 

27 ' 333 

1 


ADS 

IMuOESSt 




2 j 4 
Z' 6 


REF 

R-ef- 

REF 



LAST 



LAST 1423 


07,3121 4 4764 1 

0 7, 3 - I -r2 T-rtrTS- 1 

j7,3123 54 073 1 


rnorefdr 


cs 

MArSK: 

To 


TkACKBII 

■--f'trrGiNKtrlr 

|-LA6rti\ 01 


KNOCK UUf;N TRACK FLAG 


I I 


1 f' 


\ 


C2’ 7 
■_ 20B 

2 r 9 


REF 4 
REF 2b 

REF 27 


LAST 1223 
LAST 1223 

LAST 1423 


C7,3i^4 

07.3125 

07.3126 


4 473*: 1 
7 i . 761 

54 w76 1 


CS 

MA.:>K 

TS 


LHr f GIT 
FLA;3WKD2 

FLAGWROZ 


t'210 

REF 

5 

LAST 

5b7 

V 7, 3127 

4 a764 1 

cs 

KErSHSi 1 

0211 

REF 

7 

LAST 

567 

C7 , 313T 

7 '£77 L 

MA SK 

FLAG WRD3 

'212 

REF 

8 

LAST 

1423 

u7 f 31.3 1 

54 .:77 b 

1 S 

t- L AijWliiid 

'.213 

REF 

2°4 

last 

1423 

C7,3132 


TC 


214 

REF 

2 

LAST 

168 

7 664 


LCT 4u’/l ^ £_ 3UAL 3 

CT4- 1- 


KNOCK DOWN OKI FT FLAG 


KNuCK DOWN REFjMMAT FLAG 
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L 

IKU 

MODE 

^WITCHING 

KOU FINES 





USEK*S PAGE NO, 8 

E3_ S3 

P<,21!> 



1 MU FI N t AL 1 GN MUU b 

Sw 1 TCri* 


. 


. 


216 




u 7 f J iJ 3 

0 u0u4 

I \ 

IMUFINL INHINF 




77X7 

RTF' 

4 

LAbr T.42'j 

07,^134 

t 3£>1 6 

It ' 

1 L 

C aG c TiT J 

■ STF I F IMU BEING CAUbUa 


‘ 2ia 

REF 

i 

- 

n » 3135 

4 it 

1 

oS 

rU 1^4-3 

RESET ZERO AND COARSE 

- — 

v219 




07f3i36 

V ^ ^ 

1 

EXTEND 



1 

7 i' 

REF 

53 

LAST 1423 

^7,3137 

L3 ‘ 12 

1 

RANO 

CHAN12 



v22 i 

RtF 

ii 

LAST 1423 

7,3141 

4 47 ij3 

k 

cs 

NOl iMJOAP 

INSURE DAP AUTO AND HOLD 

MOOES ENABLED 

'.222 

REF 

4u 

LAST 1423 

■7,3141 

7 1334 

V 

Kj 

MA5K 

1 MU U 1 5 3 3 



•'223 

REF 

41 

'LAST 1424 

:7,3142 

35 ' 334 


TS 

IMGOE S33 



7224 

KEF 


LAST 141 a 

; 7, 3 143 

B 3207 

1 

TG 

KJaTTQF F 

- - 

... . _ — 


1 225 
226 

REF 

REF 

31 

25 

LAST 

LAST 

1423 

1418 

07, 3144 
w7,3145 

3 4737 
C 5223 

0 

1 

lAF 

rc 

dlTlO 

Ti^lODLE 

IMU FAIL WAS INHIBITED DURING THE 
PRESUMABLY PRECEDING COARSE ALIGN- 

LEAVE 


^ 22 6 

TEF 

1 



07,3146 

33155 

0 

A DREG 

IFAlt-OK: 

IT ON FOR THE FIRST 5 SECS OF FIVE 

ALIGN 


v229 

REF 

6 

LAST 

829 

7 f 3 147 

3 5 a7 

i 

C aF 

2SECS 




, ■*' 'T nr * - 

21 S> 

REF 

26 

LUST 

1424 

.7,313c 

u 5223 

I 

TC 

TrtlDOLb 

" 



0232 

BEF 

1 



^7,3151 

• 3153 

6 

ADkES 

IMUFINtD 




r'* ^ 

2. _3 D 

K 6F 

3 

^ AST 

142D 

V f f 3ii>2 

1 267 5 

V' 

ICF 

■ FODE'tXi f 




234 

0235 

REF 

REF 

5 

3 

LAST 

LAST 

142') 

1422 

.7,3153 
. 7 , 3l54 

V 36!.; 6 

1 3563 

1 

C 

IMUFlNtU rc 

I c^ 

CAbEl caT 

c-fJui mu 

SEE THAT NO ONE HAS CAGED THE IMU- 








»■ 1 





I 






• ^ J 

61 Jf A n BA Cla 



4 


7 " 


■ 
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; 46 PAGE 142S 


L 

IPU 

MUOE 

SWITCHING 

KOUTIiSlLS 






USER'S PAGE NO. 9 

V 2 3 6 

kfcp 

1 



07,3155 

0 3613 


IFAILUR 

TO 

0 AbE T 6 1 w 

ENABLE IMU FIAL UNLESS IMU 

‘23 7 

REF 

59 

LAST 

1422 

C7 f 3156 

1 5314 

P. 

Cr 


TCF 

7 A jKiJVOR 

IT IS« 

238 

nrer* 

39 

' L^'St 

I 4 Z 3 " 

,7,3157 

3 4?S5 

1 


OAF 

^114 

DGNT RfcSEt IMU Fa 1 L INHIFT 

239 





■ 7, 316 s. 

W D006 

1 


h X i E fslD 


HAS GONE INTO COARSE ALIGN 

^24" 

REF 

in 

LAST 

1424 

: 7, 3161 

02 G12 

'0~ 


Rai^D ^ 

CHAN! 2 


241 

KEF 

376 

LAST 

1423 

ill ,3162 

lu 

■J 


CCS 

A 


242 

KEF 

6C 

LAST 

1425 

C7,3163 

1 5314 

u 


ToF 

I ASKUVER 


.243 

KEF 

5b 

LAST 

1423 

^ ■ 7 1 3 164 

4 1333 

1 


cs 

IMUDeS3i 

RESET IMUFAIL. 

^ 244 

REF 

2 

LAST 

391 

v7,3l65 

7 47 54 

1 


MASK 

IMUFLdlT 


r245 

REF 

-JO 

1-AST 

1425 

7 f J X 6 6 

27*333 

1 


AOS 

IM'JuESSi 


7246 

REF 

5 

LAST 

1423 

* - 7 f 3 1 6 7 

4 4765 

■V ' 


CS 

IMJFINHT 


C247 

REF 

57 

LAST 

1425 

6 7,317^ 

7 133 3 

1 

PFA1LOK2 

MASK 

IMOtirESSt 

— .. — • - ~ ■” --- 

'248 

REF 

58 

LAST 

1425 

j7, 3171 

55* 333 

1 


TS 

1 MOD £3 3* 


r249' 

Itg-F'- 

38 ■ 

"rA'si jwirr 

3TT2^ 

U 47 14 

1 


tl 

■ 1 BrilKCALL 

I Ht WARiHiNij Llbrii nAi 

25 

REF 

6 

LAST 

1419 

J 7,3173 

14706 

0 


CADR 

SicT i SS W 

THAT THE INHIBIT HAS BEEN 

^251 

REF 

61 

LAST 

l‘V25 

C7,3174 

1 5314 

G 


T IrE 

TASKJVEK 


252 

REF 

2 

LAST 

1425 

0 7,3175 

U 3oi3 

J 

PFAILGK 

TO 

CAGETST C 

ENABLE PIP FAIL PROG ALARM 

253 

REF 

oZ 

LAST 

1425 

7,3176 

1 3314 

C 


TCF 

TA;>KOV£P 


^54 

REF 

5b 

LAST 

1425 

07,3177 

4 1333 

1 


CS 

i MUD Ess 1 

RESET IMU AND PIP A FAIL B1 

'25 5 

REF 

4 

LAST 

392 

' J 7, 3209 

7 4757 

1 


MASK 

PIPAFL3T 


'-256 

KEF 

6 > 

LAST 

1425 

07,3201 

27*333 

1 


ADS 

i Moots J( 


257 

KEF 

42 

LAST 

1424 

07,32-2 

4 1334 



CS 

iM0D£S33 


725' K" 

—RTF' 

— - 3 - 

“inrsT- 

— 39X 

07, 32C3 

7 4754 

TT 


MASK 

PIPZFLBT 


25 5 

REF 

43 

LAST 

1425 

.;7 , 32^’ 4 

27*334 



AOS 

lM0DfcS33 


• .26i 

REF 

1 



,7,32o5 

4 47 64 

1 


CS 

NCACCALM 


; 261 

REF 

1 



67,3206 

1 31 7v 

1 


TC E 

PFAi LUK2 


1 ZbZ 

“RFF 


LaST“ 1425 

~^J7732TT 

4 7664 

J 

NQAfTOFF OS 

oci 4 jw i L 

SUDROUTnTE”TirTURN OFF No 

l Zij3 

REF 

42 

LAST 

1423 

■j7,^21-: 

7 1241 

U 


MASK 

LSPIAB +110 


264 

REF 

47 

LAST 

14L 6 

J7,3211 

0 4752 

U 


AO - 

81115 


■ 265 

REF 

43 

LAST 

1425 

J7, 3212 

55*241 



TS 

OSP 1 A 6 +110 


V 266 

KEF 

295 

LAST 

1423 

; 7, 3213 

’J - . ^ - 2 



TC 

4 



E3 S3 
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L 

1 

MODE 

SrilTCHING 

ROUTINES 






USER'S PAGE NG. 1 E3 S3 

P 26/ 

■ T 


ROUITNES Tu INITIATE 

AND TERMINATE PRuGRAM USE 

OF THE PIP AS 

> NQ IMUSTALL REQUIREDIN EITHER CASE? 

272 

REF 

253 

LAST 

1423 

J 7, 3214 

4 4772 


FIPUSE 

US 

ZEkU 


•- Z 7 3 

REF 

I ‘ 

L AS 1 

~335 

u7 f 32 IS 

“54“ 03 7 

i 


TS 

^IPAX 


27<i 

REF 

5 

LAST 

433 

. 7 1 32 1 6 

S4 

1 


TS 

PIPAY 


275 

REF 

7 

LAST 

839 

j 7 1 32 1 7 

S'* v4l 

t . 


TS 

PIPAZ 


Zl^Z 

KEF 

3 

LAST 

1425 

a 7, 32 2 a 

J 3613 

c 

PIPUSEl 

TC 

C AGfcTS i U/ 

00 NOT ENABLE Pi PA FAIL IF IMU IS CAGEj 

2754 

REF 

6 

LAST 

1419 

a 7 1 322 1 

1 4651 

u 


TCF 

SwKLTURN 


i 2756 





07,3222 

a 0004 

w- 


INHINT 



’ Zlb 

REF 

2 

LAST 

164 

U7,3223 

4 “477 r; 

1 


C5 

ACCFINHT 

IF PIPA FAILS FROM NO Sr ON (UNTIL 

V271 

REF 

61 

LAST 

1425 

^ ' 7 f 3Z24 

7 1333 

1 


MASK 

I AQU E S J V 

PIPFREEI, LIGHT ISS WARNING, 

<273 

REF 

62 

LAST 

142?. 

C7,3225 

55' 333 

1 


T S 

IM0DES31 


(279 

REF 

39 

LAST 

1425 

w 7, 3226 

U 4714 

1 

PIPFk££2 

TC 

leNKCALL 

ISS WARNING MIGHT COME ON MOWo 

i 28- . 

REF 

7 

LAST 

1425 

w 7 f 7 

147 Vi 6 

1 

_ 

CADR 

SE Ti .>SH 

(Ok GC OFF ON PIPFKEE)^ 

<26 1 

REF 

4 

LAST 

1424 

07, 323'.' 

1 2675 

u 

_ . 

rcF 

MODE EX I T 


.282 





(V 7, 3231 

u ECU 4 


PI PFR££ 

INHINT 


PROGRAM DUNE WITH PIP AS. UONT LIGHT 

(2d3 

iwr 

6 3 

TTTST' 


uT f 3Z3 Z 

4 liST 

0[~ 


cs 

1 AO U tS3 ' 

I SS NG® 

<264 

REF 

3 

LAST 

1426 

,7,3233 

7 477.; 

1 


MASK 

ACCFINHT 


rZ35 

REF 

64 

LAST 

1426 

W.7 ,3234 

Z7'333 

i 


AOS 

I MODE S3 V 


<236 

REF 

5 

LAST 

1425 

07 , 3235 

7 4757 

1 

- - 

MASK 

PlPAlLdl 

IF PIP FAIL~ON, UO PROG ALARM AND RESET 

6237 

REF 

371 

LAST 

1425 

07,3236 

1 L OO L 

0 


CCS 

A 

ISS WAR^aNGo 

— ZZWW~ 

TTFF' 


“LAST' 

^4Z6“ 

■"7,''iZ37' 

1 2o 7 5 

0 


i LF 

RUutirZIT 


t289 

kEF 

33 

LAST 

1422 

G 7, 324c 

j 56 71 

1 


TC 

ALARM 

— - ' - 

C29v 





0 7, 324 1 

■',w212 

"L^ 


□ uT 

212 

■ - - - - - 

(291 





.7,3242 




INHINT 




07 t 3^43 i 32^6 u ICF 


yX'iZ REF 


i 


P I PF Ktt2 
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L IMU MUOE :>WiTCHlNG ROUTINES USER* S PAGE NO^ 11 SI 

P 293 THE FOLLOWING ROUTINE TORQUES THE IRlbS ACCORUlNG iU DOUBLE PRECISION INPUTS IN THE SIX REGISTERS 

RC29d aEGINNlNG AT THE ECADR ARRIVING IN A., THE HUaMUH SILE OF ANY PULSE TRAIN IS 16 PULSES L>25 ODU COUNTS) THE 

R‘2'>? UNSENT PCRTION OF THE COHMANU IS LEFT INTACT IN THE INPUT COMMAND KEGISTERSo 


':.3> 

REF 663 

LAST 

1416 

07,3244 

54 lol 

• > 

IrtUPULSb TS 

MPAC +5 

SAVE arriving ECADR* 

3 1 

REF 5 

LAST 

1424 

*07,3245 

G 3o 1 6 


TC 

CAGETSTJ 

DCMT PRDCEEIT IF IMU BEING CAGED 

w3L2 

H£F 3 

LAST 

446 

07,3246 

11' 324 

1 

CCS 

LGYRO 

SEE IF GYROS 'BUSY, 

C3'3 

REF 1 



07, 3247 

0 33c 7 

J 

rc 

GYRO BUSY 

SLEEP > 


‘'3 5 

REF 

33 

LAST 

1423 

"j 7 , 325' 

3 47 63 

1 

CAF 

BITS 

ENABLE THE POWER SUPPLY^ 

. 3 "6 



- - - 


7,3251 

O 0006 

1 

EXTEND 



3' 7 

REF 

13 

LAST 

1423 

67,3252 

C5 14 

1 

rtUR 

CH Ai'ii4 



v7*S253 3 4766 1 CAF FOUR _ 

TrTy3ZtWE g- 5 233 ' T3 — TS»^AKc2 TC WAlTt.rS'T — (■I'P'TT'Utl B WAS POT TO” StttP, ’ TH1f “PCJMEtT 

c3,i474 EBANK- CUUIND SUPPLY IS LEFT ON BY THE RAKING JOB). 

07,3255 3324 1 2CADR SlKTuYRO 

0 7 , 32 56 i 6 C 6 3 li 



'.311 KEF 
r312 REF 
‘312 REF 


21 LAST 1393 
T9 — tTrSI — l^fTT 

19 LAST 1422 

1 

1 


313 

REF 

667 

LAST 

1427 

07,3237 

3 L 1 61 

1 

CA 

MPAC +3 

737^ 

"REF" 

■ "42“ 

"tZTST" 

1397 

C7 f 

“5B CTT3 

a 

X CH 

t d AhJK 

« 315 

REF 

66 3 

LAST 

1427 

C7 , 326 1 

5o 161 

1 

XCH 

H A C 3 

"316 

REF 

4 

LAST 

1427 

07,3262 

55i ’ 3Z4 

1 

TS 

LGYRO 

C317 

REF 

14 

LAST 

1394 

07,3263 

7 436 

1 

MASK 

LOWS 

318 

REF 

27 

LAST 

V422 

07 f 3Z6 H 

54 061 

1 

TS 

I TEMPI 










• 31'v 

REF 

67 

LAST 

1421 

■ 67,6265 

J 476 7 


CAF 

TWO 

> 32 

REF 

669 

LAST 

1427 

L7,3266 

54 15 7 

1 

V- 

CYKOAGRE TS 

MPAC +3 

: 321 





-07,3267 

o h 000 

1 

DOUBLE 


322 

REF 

2d 

LAST 

1427 

07,327' 

o C L 6 1 

6 

AD 

IT EH Pi 

^32 3 

REF 

67 J 

LAST 

142 7 

€7,3271 

54 16.; 

1 

TS 

PPAC Yh 

1324 





7,62 72 

JO 

^ ~ at i ' 

1 

EXTEND 

• mfk:r . 

" — 

— 72-“ 


0 7 f 32^3— 

D j 

i 

1 NDcX 


c 3^6 





7 f -^2 , 7 4 

3 14u 1 


OCA 

14 

'32 7 

REF 

671 

LAST 

1427 

.7,32/5 

52 155 

1 

DXCH 

RPAC 

'328 

REF 

a 

lAST 

733 

u7,3276 

V. 7224 

1 

TC 

uPAGRtE 

f329 

REF 

672 

LAST 

1427 

07,3277 

52 155 

1 

DXCH 

MPAC 

'1 33‘ 

REF 

673 

LAST 

1427 

u 7 f 33v 

50 1 Q J 

\ 

INDEX 

("SPaC +4 

r331 





0 7 f 3 J 0 1 

■■5T*'4"GT 

1 

D aCH 


>332 

R EF 

674 

LAST 

1427 

C 7, 33g2 

i 157 

0 

CCS 

MPAC +3 

^333 

REF 

1 



7 f 3 3 c 3 

1 3266 

1 

TCP 

GY KU AOK 

.334 

REF 

675 

LAST 

1427 

7 f 3 3 C 

3 0161 

1 

CA 

MPAC +5 

C335 

REF 

— 4^ 

EAST 

142T 

TIT f 33u 5 

>4 u-33 

u 

T S 

LBANK 

>.336 

REF 

6 

LAST 

1426 

u7, 33L 6 

i 2675 

G 

TgF 

MGDEcXl 


SET UP EBANK, SAVING CALLER'S EBANK FOR 
FTESTCmATTOIsr ON’ RETimTT; 

RESERVES GYROS^ 

■FOR'CrE“sTGN AGREEMENT ON TNP UTS^ ' 


RESTORE CALLER'S LBANK> 
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L MCOE iW ITCHING KCUTINES 


USER'S PAGE NO. 12 L3 S3 


PC337 



ROUTINES TO 

ALLuW TORQUING 1 

BY 

ONLY ONE 

JUo AT 

A riMt, 



33<.^ 





07, jJ07 

0 0006 

1 

GYRUBUSY 

t \ T E M> 


SAVE RETURN 2FCADKo 


j3 

H fc h 

20 

XA3T 


0 1 f J J 1 

3 0134 

1 

U CA 

"BUFZ 



C.34'. 

REF 

676 

LAST 

142 7 

07, JJl 1 

52 155 

1 


DXgH 

PPmL 



:34i 

REF 

i 



-7,3312 

3 33^13 

3 

RcGSLEEP 

C AF 

LGw AKt 



342 

REF 


LAST 

1324 

j7 t 33 13 

1 5163 

1 


TCF 

JGBSLEEP 



3** 3 

REF 

5 

LAST 

142 7 

07,3314 

11*324 

1 

G WAKE 

CCS 

LGVRO 

WHEN AWAKENED, SEE IF GYRUS STILL oUSY 


1 : 34^4 

~~RTF^‘ 

' T~ 



"777733X5“ 

1 3312 



1 CrF 

R tb 3 Lt fc P 

IF "SO, SLEEP SLIME HURbo 


■ 34o 



- 

- -- - 

C 7 f 3 3 1 6 

u 0 0 6 

1 


EXTEND 

— - — 

— - - - - - - - — -- _ - _ - - - - 

— 

347 

REF 

677 

LAST 

1428 

G7,33i7 

3 Cl 5 5 

J 


DCA 

P.PAC 



33 4 e 

TtEF 

21 

LAST 

1428 

07 f 33 

52 134 

r- 

w 


OXCH 

BUF2 

RESTORE SwRETURN INFO^ 


v349 

REF 

152 

LAST 

1413 

l7,3321 

3 4 7 7 ‘ j 

r'\ 


CAP 

Ct\ t 




REF 

1 



0 7 f 33 2 ^ 

1 32!>4 

• -» 


fCh 

GttAKEZ 



^ 0351 

REF 

i 

■ ■ 


j7 , 3323 

17314 

1 

LGW AKE 

CAOk 

Gri AK E 


- — - ‘ 


1 
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L 

INU 

.MCOE 

;>W ITCHir4G 

ROUTli-^ES 






USER'S PACE NL'^ 13 

r3 S3 

P ^ 



bYRO‘ 

-TGRwUiNG WAITLIST TASKS 

19 



— — ^ 




j^Ei- 

L 



7 f 33 2 4 

4 35 ov 

-I V 

STRTGYRU 

CS 

OQESELOT 

CE-SELECT LAST GYROa 







57^33^5 

U U ' J L 






v355 

KEF 


LAST 

1427 

j7,3J26 

S3 S' 14 

1 


WAND 

CHAN 14 

_ 


- 31>6 

KEF 

i 



u 7 r 3;>2 7 

G 3575 

M 


TC 

CAb t r 3 1 G 



V3bl 

KEF 

6 

LAST 

142 3 

C7 f 333^.r 

3 1324 


STRTGYK2 

uA 

LGYRO 

JUMP ON PHASE COUNTER IN BITS 

13-14 

r333 ■ 





07 f 333 1 

v“ LJ b 

1 


"EXtcTSHT' 




1359 

REP 

4u 

LAST 

1425 

w 7 1 3ji3^ 

7 4765 



MP 

6i f4 



V36<! 

REF 

3 l3 

LAST 

1427 

■ 7f3333 

5r O' 6'-' 

1 


INDEX 

A 

^ - — 


«:361 





; 7, 3334 

1 3335 

1 

Ik. 


TCF 




362 

R EF' 

1 



01,3333 

J 3352 



TC 

CSELcCl 

DO Y GYROi^ 


C363 





J 7 p 3 3 3 D 

iJv'2 J2 

1 


UCT 

.. 02 -,'2 



'/3b^ 

REF 

2 

LAST 

1429 

: 7, 3337 

3 3352 



T^, 

C-ScL EOT 

= 1., DC Z GYRO, 


C365 





' 7,334'. 

CC302 

c 


OCT 

Cc3t:2 



^ 3 6 b 

REF 

3 

LASt 

1429 

j 7, 334 1" 

0 335v 

1 


TO 

bSLLECT ~2 

=2, DU X GYRUc 

— — - - — — _ 

.367 





C'7 f 3342 

ICiJL 

L 


OCT 

^ V 1 J ■ 



366 

KEF 

254 

LAST 

1426 

07 , ->343 

3 4772 

1 


OAF 

ZERO 

=3.. DONE 


' '.'369 

RFF 

7 

LAST 

1429 

07,3344 

55* 324 

1 


TS 

LGTRH 



1.37. 

REF 

2 

LAST 

1426 

^ 7 1 334^ 

3 3323 



CAF 

LGWAKE 

WAKE A POSSIBLE SLEEPING JOB. 


' C371 

REF 

6 

LAST 

1325 

l’7,3346 

^ 5167 

1 


IC 

J jSWAKc 



<372 

REF 

2 

LAST 

1424 

u7, 3347 

i 3153 

1 

NORESET 

TCF 

IMOFINED 

DO NOT RESET POWER SUPPLY 



k 





GflP: 

ASbtMBLt K 

LVISION o72 

OF AOC PRDkjRArt AL 

OfEMlS bY NASA 2^ 21114- 11 

11:4- FEBp 26,1971 ZEUS u 46 PAGE L43 

1, 

I«U 

MODE 

5WITCH1KG 

KOUTlJ'JES 





USER*S PAGE NO. 14 t3 S3 

' 373 

K tP 

22 

LAST 

1427 

ip 7 f J35 '» 

4 4 766 


GS 

FOUR 

SPECIAL ENTRY TO RfGRtSS LGYHD FDR \ 

374 

KEF 

8 

LAST 

1429 

-j7 1 335 1 

2 7 ' 324 

1 

AUs 

LbYRU 


3 7^3 

RFF 

296 

LAST 

1425 

„ 7 1 3352 

5- UDZ 

0 6SELLCT 

iNUfcX 

C 

SELECT GYKOc 

■67b 





57, 3353 

3 i-COw 

1 

GAF 


PACKED WORD CONTAINS GYRO SELECT 5 1 TS 

1377 

REF 

4 

LAST 

1 H n 8 

- 7,3354 

54 - 64 

1 

T6 

i lb MP4 

AND INCREMENT TO LGYRU. 

378 

REF 

19 

LAST 

14^ 1 

07,3355 

7 4774 

0 

iTASK 

S tV til 


0379 

REF 

42 

L AST 

142 0 

o7, 3356 

6 4754 

0 

AD 

0IT13 


0380 

REF 

9 

LAST 

1430 

V 7, 3357 

27 ' 324 

i 

ADS 

LGYKU 


— cB'fnr 

RFF^ 

w" 

LASl" 

142 7 

E7V33Tr" 

“54 O'JJ’ 

u 

rs 

EBANK 


1382 

REF 

15 

LAST 

142 7 

07,336 1 

7 435v 

1 

MASK 

LOWS 


0383 

R'EF 

29 

LAST 

1427 

37,3362 

54 Ovil 

1 

TS 

ITEM Pi 


0334 

REF 

20 

LAST 

1430 

07,3363 

4 4774 

0^ 

GS 

SEVEN 

... - • - 

0385 

REF 

5 

LAST 

1430 

o7, 3364 

7 -^'064 

1 

MASK 

I TbMP4 


■ T3W 

RTF" 

6 

LAST" 

T43r" 

V / f ii 

•54“062r 

"I 

rs ■ 

1 1 t.'^K4 


0387 




- 

j 1 f 3 J66 

3 0006 

1 

tXl END 

- •- 

MOVE DP COMMAND TD RUPTP.EGS FilR TESTING 

0388 

REF 

3t; 

LAST 

1430 

0 7,336 7 

5 006 1 

Li 

INDEX 

1 ItMPl 


L 38 9 

* 




<37,3370 

3 I4>i 

'O' 

DCA 

14i^ I 


:39i 

REF 

33 

LAST 

1408 

07,3371 

52 671 


DXCH 

RUP FREbi 


r391 

REF 

3h 

LAST 

1430 

o7,3372 

10 0 70 

1 

CCS 

KUPTRCbl 


-:392 

RTF 

i 



V 7,3373 

i 3406 

1 

TCF 

.''AJ + 


C393 





0 7,3374 

i 337 6 

1 

TCF 

+ 2 


- 094 

REF 

1 



0 7,3375 

1 3541 

• m 

TCF 

KAJ- 


l3Q5 

REF 

Q 

LAST 

14 8 

0 7,337 6 

iu C7i 

J 

CCS 

RUPTRtbZ 


C396 

REF 

i 



C7,3377 

1 34w3 

1 

TCF 

MiN+ 


C397 

REF 

1 



L 7 f 3 4 C vo 

1 333a 

0 

TCF 

STRl GY k2 


039 6 

R EF 

i 



7 j 34i> 1 

i 3 3 J Q 

0 

fCF 

K 1 1 4- 


0399 

REF 

2 

LAST 

1430 

07 1 340 2 

1 3330 

n ‘ ‘ 

TCF 

STRl GYR2 



41 


A P : ASS B MbL L V I SION 07Z OF MhL PROGRAM ARTEM IS jjV 


NAi 


IKU MOut SwirCHINO ROUTINES 

4('’ KEF 1 C7f34u3 o 3437 1 HIN+ 

f, 401 07,341:4 ■ ^ D0:.6 i 

.,4 12 REF 3 LAST 143u 07,3405 6 33J0 I 


14'. 3 
40 4 

4« 5 


u 7,34' 6 U 0006 1 
REF 1 ■ vl7,34 7 3 35^»Z D 

REF 35 LAST 1430 l7,o41 20 071 G 


MAJ + 


‘ 4j 6 REF 7 LAST 1430 c7,3411 3 wiOc»4 U 

^-rr »rtir34t:2 — n retro "l 

; 4( e REF 13 LAST 1429 S7,j413 ^5 f 14 1 


V 9 

REF 

1 

LAST 

1416 

'.4i: 

REF 

IC 

LAST 

14 3 L 

:4il 

REF 

11 

LAST 

1431 

—412 — 





413 

REF 

33 

LAST 

14 j7 

1 414 

REF 

19 

LAST 

14'^8 

'415 

REF 

36 

LAST 

1431 

416 

- - - - 



- 

4X7 

REF 

27 

LAST 

1417 

'r4TC“ 

— REF 

— 37” 

LAST 

14 3T 

C419 

REF 

ld9 

LAST 

142.. 

’ 42 * 





'421 

REF 

64 

LAST 

1393 

7422 

REF 

2 <7 

LAST 

1431 


7, 3414 3 6'v'43 0 

07.3415 7 tC7i 0 

0 7 . 34 16 56 0 7 1 1 

: 7,34i7 — g — GintmrE 

07, 342 7 47ol 1 

I 7 ,342 1 54 C 62 1 

^■7,3422 3 C.j7v i' 

^7,3423 0 CO 06 1 

07,3424 7 4761 

w 7, 3426 3 ..'1 j 

0 7,3427 j r,;}.6 1 * 

07,3450 7 4733 O 

07,3431 26 Co 2 I 


423 

C424 

425 

-.426 

427 

'428 

REF 

REF 

REF 

REF 

36 

1 

3 ? 4 

1 

LAST 

L AST 

1431 

1429 

J7,34:)2 
v,7 f 3433 

C 7, 3434 

w 7 , j433 

07 , 343 6 

C7,3437 

0 0006 1 

3 Ow71 1 

6 7rc2 V ^ — 

ID C’Jv J 

1 35 J 3 9 

776 a - -GYHOMIN 

42* 







X 

■ 43'J 

kEF 

65 

LAST 

1431 

07,3441 

3 4753 

1 

431 

REF 

21 

LAST 

1431 

07,3442 

Z6 Uo2 

1 

432 

PEF 

255 

LAST 

1429 

U 7, 3443 

3 4772 

1 

.433 

REF 

31 

LAST 

1430 

j 7 , 3444 

J I o 1 

^ +4 

434 





J7 , 3^*4 5 

35 * H J 1 

1 


+4 


2v2ill4- 11 


il:4 FbBo 26,1971 ZEUS 


AD -OrftDMlN 

EXTEND 

3ZMF STRTGYR2 


a:^46 PA M 1431 

UShK*S PAGE ND= 15 c3 S.-. 

SMALL POSITIVE CUMMANOo SEE IF AT L. 

16 GYRO PULSES 


tXTENo DEFINITE POSITIVE OUTPUT. 

DCf4 GYROFRAC - - - 

DAS RUPT REw>l 

LA IfcMP.* SELECT POSITIVE TORQUING FOR bYKO. 

-exTO^tr ' — ~ — - — 

XUR LriANi4 

CAF La«7 LEAVE NUM6ER OF POSSIBLE 8192 AUGMENTS 

MASK RUPTRGO^e. TQ INITIAL COMMANt) IN MAJOR PART OF LONG^ 

XLH RUPIREGZ TERM STORAGE AND TRUNCATED FKAC^ lUO 

- EXTE N D IN - m N DR PAkT : T W g " 'MAd U R PART W ILL S£ 

MP 8IT3 COUNTED DOWN TO ZERO IN THE COURSE Or 

TS i:*.3P2 PUTTING OUT THE ENTIRE COMMAND., 

C A RUP r KEol 

EXTEND ■ 

MP tlTv 

TS ~ -RUPT RcGl ■ 

CA L 

EXTEND “ 

MP 61114 

ADS ITETfPZ I N1 ri AL COMMAND. 


cXfFND ’ ' ' SEE IF MORE THAN ONE PULSE TRAIN NEEDED 

DCA RUPfREGl (MORE THAN 16303 PULSES) 

AD MINUSl 

CCS A 

TCF LurrGGVRL 

□Cl -176 NAY BE ADJUSTED TO SPECIFY MINIMUM CMD 

^ — — — — 

CAF d1 T1 4 

ADS 1 T L.rtP2 

CAF ZERO 


I NuEX 1 i EMPi 
DXCH 14'./- 


G AF 


3 * 


rt^icMBLfc Revision ^iz cf aoc program akTiiMi^ by nasa ^ zhi^-.ll 


ii:4t FEB. 26il97i ZEUS 


46 RaOe 143 


L 

I MU 

MODE 

SHiTi 

CH I N G 

KOUTINES 






U3ER*S PA&t NtJo It 

tl 0 -y 

433 

REF 

22 

LAST 

1431 

,7f 3446 

3 ‘..^02 



CA 

11 6MP2 

ENTIRE CDMMANOa 


436 

REF 

3 

LAST 

1423 

*. 7 1 3447 

54 .47 

0 

L aS I iciG 

i S 

t YRDCMD 



4361 

REF 

1 



7,345 

0 35 

0 

+1 

r c 

CuARSTST 



4367 

REF 

4 

LAST 

1432 

07, 5451 

3 l 0*47 

1 


CA 

GYRuCMO 



4i7 





uT t 34*6^ 

0 3 ‘ o 

1 


EXTEND 




43:- 

REF 

32 

LAST 

1424 

U7 1 3453 

7 475 7 

1 


MP 

eiTl J 

WAITLIST DT 


■439 

REF 

49 

LAST 

1416 

CTT, 3454 

6 6214 

4.- 


AD 

THREE ' 

TRUNCATION AND PHASE UNCERTAiNTir.': 

' 44 ' 

REF 

27 

LAST 

1424 

07,^455 


1 


TC 

Twiddle 



'.442 

■RTF 

1 



07,3456 

L 346 / 

1 


ADRES '■ 

TwOPULS E 



■ 44 75 

REF 

1 



07,5457 

O' 34o3 

L 

EXi TGYKO 

TC 

GYRDEXl T 



.4476 

REF 

63 

LAST 

1425 

07,34or 

1 5314 



TCF 

TASrlOVER 

— 1 - *— " 


"44 7 7 

REF 

4v'- 

LAST 

1393 

07, J461 

3 47o7 


QUTPULSE 

CA 

EIT2 



: 4478 ■ 

REF 

3 

LAST 

1432 

37,3462 

54 047 

» -• 

/■ 

' 


TS 

"GTRULMD 



,448 

REF 

33 

LAST 

1432 

OT t 3463 

3 4757 


GYRubXlT 

CAF 

bin ■ 



44v 





C / , 34oh 

t. J J 5 

r ■ 


EXTENIT 




’v45' 

REF 

16 

last 

1431 

g7, 3465 

3 5 014 

1 


wOK 

CriAM4 



v,451 

REF 

297 

LAST 

1430 

iJT f 3466 

' 'D' 0T}c2 



TC 

u 



4511 

REF 

2li 

LAST 

1431 

07, 3467 

4 47o"j 

* • 

4 

TwUPULSE 

GS 

ei T4 



•:4512 





j7, J47. 

0 to .6 

1 


EXTENj 




.4513 

REF 

17 

LAST 

1432 

0 7 f 3 4 7 1 

03 014 

1 


hAND 

Chan 14 



^45^1 

TTEF* 

T 



V / 1 34 

0 3461 

I 


it 

GUl PJLSL 



4515 

REF 

64 

LAST 

1393 

C7, 3473 

3 477. 

u 


CA 

tilX L 



•4516 

REF 

“ 23 

LAST 

1432 

r7,3474 

u 5223 

1 


TC 

T rt 1 D OL E 



- 4517 

REF 

2 

LAST 

1427 

u 7 f J»47 5 

03324 

1 


ADRL6 

STRTGYKC 



‘■4518 

REF 

29 

LAST 

1432 

27,3476 

3 47 60 

1 


CA 

^r9 



45 1C 





C7,3477 

0 CO. 6 

1 


t X T t ND 




“^45Z' 

"RTF' 

~TB~~ 


1432 

sj (, 55tU 

j5 14 

1 ■ 


T?OR 

LHAf^ i 4 



-4521 

REF 

2 

LAST 

1432 

C 7,35Ci 

J 34<ji 

1 


1 C 

CUTPULSE 



^■4522 

REF 

64 

LAST 

1432 

CT,3502 

1 5314 

«■ 

* y 


TCF 

1 ASK OVER 



'145 3 

REF 

32 

LAST 

1431 

u7 , 35c 3 

5. 061 

i 

Or* 

LUWoGYRU 

1 HDc X 

ITErtPi 



r4531 


— 

— 

— 

07,3504 

53*4^J1 

1 


DXCH 

140 

INITIAL CCMHANO + N AUGMENTS 

OF 

• 4S4 

REF 

66 

LAST 

1431 

'.7, 35c 5 

3 47 53 

1 


CAr 

b I 1 i 4 

■■ y 1 ^ ■■ i*'* ■■ ■ " ■■ — " — = — ■ 

6192, INITIAL COMMAND IS AT 

LEAST blOc 


r455 RTF Z3 LAS T ”1432' C7i j5r6 6 00623“ ~ ^ ATT ""TTE'MPZ” 

.436 REF 6 LAST l-*i32 u7,35>.7 34 C47 6 IS oYKOCMD 


r457 

■^458 

V 459 

REF 

REF 

34 

5 

LAST 

LAST 

1432 

1394 

0 7,351'. 
GT,35ir 

07, 3512 

0 OGjO 
7 4757 

6 770 V 

1 

1 

1 

AUG3 

EXTEND 

HP 

AD 

ciTi 
iv Eb3 

46^ 

REF 


~L1SST 

1432^ 

d 7f J5i3 

5223 

1 



1 rt i. U UL b 

462 

REF 

1 



j7,35i4 

.. 3516 

u 


ADR£3 

61 ^*2 AUG 

'463 

REF 

i 



07,3515 

1 3457 

D 


TCF 

EXI (GTRC 

0 464 

REF 

2 

L ASt 

1432 

07,3516 

D 35/0 

V 

8192AUt 

TC 

CUAKST j 1 

465 

REF 

1- 

LAST 

143vi 

07,3517 

3 132^t 

J 


CA 

LGYRU 

u466 

REF 

45 

LAST 

1430 

^ 7 jf ^ ^ ^ 

54 003 

d 


TS 

EBANK 

'467 

REF 

16 

LAST 

143C 

_T7,3>21 

1 435“ 

L ' 


MASK 

L0R8 

‘ 466 

REF 

33 

last 

1432 

.7,3522 

54 -ol 

i 


TS 

ITEMPi 


GEl RAITLIST DT TO TIMfc WHEN TRAIN 
ALMOST OUT, 


ADD 8192 PULShS TO GYRUCMO 


Ap; 

ASStMBLE KEVISION i 72 

CF AGC PRu 

GRAM ARTEMIS BY 

NASA 2» 21114- 11 

11 s 4u FE B» 

26,1071 

ZEUS 


I^U 

MCUE 

oWlT CHIRG 

RDUTI^^itS 





s page 

NOo 17 


REF 

34 

LAST 

1432 

J 7, 3323 

L/ul 


INDEX 

ITEMPl 

SEE IF 

THIS IS THE LAST AU 

'♦7 . 





07,3524 

11*402 


CCS 

14 '^2 




4 71 

REF 

1 



07,3525 

1 3531 

1 

TCF 

AUb2 

MORE TO 

COME« 


All 

REF 

6 / 

LAST 

1432 

C7 , 3526 

3 47 53 

1 

CAP 

cITi4 




47 3 

REF 

7 

LAST 

1432 

T37, 3527 

Z6 v47 


ADS 

(i y Ruc <'iu 




'4 74 

REF 

i 



C7,353 

1 345’ 

1 

TCF 

LASTSEG +1 




v475 

REF 


last 

1433 

07, 3531 

51 ;6l 

0 AUG2 

INDEX 

1 TEMPI 




r4T5' 





07,3532 — 

35* 4vw 

-V' ~ ” ■ 

TS 

T4(Tr~ 




w47 7 

REF 

68 

LAST 

1433 

0 7 f 333 J 

3 4753 

1 

CAF 

BH 14 




r 478 

REF 

8 

LAST 

1433 

::7,3534 

26 u4 7 

4 * , - - 

■’ t 

ADS 

oTRUCMD 

— - - • * 



4 74 

KEF 

1 



V 7, 3535 

1 3510 

1 

TCF 

AUG3 

COMPU TE 

DTo 



Ill4t. fuba 26rl97I ZfcUS 


b Ar : Si Or^t b72 uF A GC PKUbKAH A l UbMIS 6Y NAbA 4 ^ 211 1^-11 


046 


1434 


L 

I^U 

HLDE 

SWITCHING 

ROUTINES 






43 

REF 

2 

LAST 

1431 

u 7 f 3 3 ^ 6 

6 3487 

1 

K 1 »4- 

AO 

-GYKUMIN 

».4dl 





7 f Jf? jf 7 

0 i’iJ J6 

i 


EXTEND 


’. 4 d2 

REF 

4 

LAST 

1431 

b54t 

6 33^r 

1 


BZMF 

STH lOYRE 

4R3 





j 7 13341 

W 

i 

Kaj-* 

EXTEND 


4cj4 

REF 

2 

LAST 

1431 

0 7 T 3342 

4 3562 

1 


uCb 

G7R0FRAC 

' 4 85 

REF 

39 

LAST 

1431 

Q 7 f 3543 

26 0 71 

u 


DAS 

RUPTKEGl 

■ 486 

REF 

8 

LAST 

1431 

G7 f 3544 

3 .‘>64 

k 

' V 


CA 

11 EaP4 

437" 

"RTF 

3Tr~ 

laSi 

1432 

C / ,3545 

6 47 

T — 


AD " ■ 

BI t 0 

' 488 





'7,3546 

ij K j 

i 


EXTEND 


*'4159 

REF 

19 

FAST 

1432 

7,3547 

G5 14 

1 


WOR 

CHANr4 

i 49C 

REF 

4^ 

LAST 

1434 

j7,355 .. 

4 0070 

1 

— . _ „ 

L 3 

RU^T HE ^ 1 

f 491 

REF 

41 

LAST 

14^4 

0 7,3551 

54 07‘J 

1 


!:> 

RUP r Rtb 1 

4vz 

R tF 

TZ 

LAS 1 

“1431 

07# 355^ 

4T'07r 

C' 


uS 

PUPT RcGZ 

0493 

REF 

11 

LAST 

1431 

o7, 3553 

7 6143 

1 


MASK 

LOW 7 

0 494 





07 ,3554 

4 0 C 0 0 

v> 


COM 


C:495 

REF 

13 

LAST 

1434 

07, j555 

56 C 7 1 

1 


XCH 

RUPTREG2 

v496 ■ 





07 , 355 6 

4 L w 0 . 

G 


COM 


i 4S 7 

REF 

1 



V- 7, 355 7 

1 3417 

1 


TLF 

Gi^cRGt 

i.-49c 





07,356 

V i 7 > . 

1 

G JtS t:LLT 

□GT 

17,^ 

: 499 





07, 3561 

J‘- 

1 

GYRGFKAC 

2DEC 

o2X5 d “ 

-r.4«2o ' 





u7^3562 

6'-aj34 

i , 





UStK'S PAbfc NO. ib _ ...1:3 - ' 
POSSIBLE NEGATIVE uUTPUl 


DEFlNllTE NEGATIVE OUTPUl 

SELECT NEGATIVE TGRGJlNG FOR THIS ./ri.a: 


SET UP 'RUPtREGS TO FALL 1NF0~ G-iEHGh 
ALL NUMEERS PUT INFO GYRUCND ARC 

POSITIVE - BITV GF CHAN 14 ULItKMlOES 

THE SIGN OF THE COMMAND. 


TURN OFF SELECT AND ACTIVITY ITS 




bAP: AbbtMBLc KEVISION OIZ bF AbC PPvOG»RA ;*1 A^TEMli BY NASA 2 - 2 iilA-- il 


FfcB. 26,1971 ZtUS 


46 PAGt 1435 


IKU MUUfc SWITCHING RGUriNES 


USER'S PAGE NO^ 14 


3 S 3 


P t-5' A ■ 

.'5 1 
-*5^2 — 

- 5 . 3 

C 5 G 4 
I 5 0 5 
r5i7 6 C 3 
. 5'6t5 
— »°" 5 Tr' 6 t^ 
. 5 ^ 6 C 9 
t: 5 f *6 13 


5 > 615 
5 617 

5 ( 621 


IMU Moot SWiTCHlNu ROUTlNhS 


IK 
REF 
REF 
REF 
REF 


i^ErF- 

REF 

REF 


HEF 

REF 


63 

0 

1 
41 


375 

1 


65 


LAST 

LAST 

-tAtsT 


LAST 1432 
LAST 12 ; 4 

LASl 1429 


LAST 1431 


1426 

239 

t4r35r 


□7,3563 
g 7 , 3 5 Sy 

.A 'll t 2 C 


REF 298 LAST 1432 


M f f 

07*3565 
C7,3566 
•)7,3567 
fT t 357 1.' 
,:7,357l 
C7,3372 
67,3573 
U 7 ,35/4 


S 7 , 3 D 7 5 
1 7, 3576 

rr 7,3577 

: 7,361 


0 0 


tnr 

7 
6 
1 
3 
u 

iT, r# 


> i' 

rr 
4773 
77o2 
362 o 
4765 
o 




I— — 


0 ^ jL <C 

IL goo 

1 36-^21 


4 1333 1 
7 47o3 C 

10 OOC 0 


CQME HhRE WHEN ACIICK CJHPLlIc 


1 LlMiJiMU tXTENJ 

T: — KETOT JSAL«QUT“ 

1 MASK LiTi 

C AO 'T/Ein' 

1 TCF BAObiiiD +1 

1 CUARSTST OAF ulT4 

1 EXTENU 

-3 — ■ ' " KANO CHA~ri‘2 


6 GS 




it C 0 C 2 0 


CAbtTSTu LS 

Mask 

— — — CtrS~ 

TC 


4< 


LGuTPULS 

i MuU tS 3 t' 
IKUNI laT 

■A 


MUDE IS BAC IF CAGE HAS OCCURED L/K IF 
ISS WAR M 1 NG ~ 1 5 ' ON " . 


5 i c 23 REF 256 LAST 1431 G 7, 3601 3 47/2 1 
Sf 625 REF 11 LAST 1432 C 7,3602 55*324 1 


DONTPULS LAF 

TS 


ZuRU 

LGYRU 


) I ^ 


1 O' 


V 


. 5 ‘ 627 

REF 

-> 

LAST 

142 9 

0 7 , 36 i- 3 

3 

3323 

f , 


Lr AF 

LgWAKE 

'.5 629 

REF 

7 

LAST 

1429 

.>7 f 4 

W 

516 / 

1 


T t 

Jb 3 W AK t 

C 5 u 7 

REF 

3 

LAST 

1422 

07 , 36 C 5 

1 

3625 

1 


TCF 

IMU BAP 

'^ 5 C 9 

REF 

5 

LAST 

1435 

~~ 1 jl, 36 C 6 

3 

4763 

1 

CAGETEST 

CAP 

IMUNITBT 

1 51 ' 

REF 

6 b 

Last 

1435 

C 7 f 36 lf 7 

7 

1333 

1 


MAS K 

IMODtSB. 

— - 

~ R-EF 37 T 

ITAST' 

1435 “ 

C 7 f ^ 0 IC 

~*TP 




CCS 

A 

.512 

REF 

4 

last 

1435 

07,3611 

1 

3625 

1 


TCF 

I A U b A D 

C 513 

REF 

299 

L A ST 

1435 

07,3612 

D 

i J J 2 

b* 


TC 

« 

L 3 i 4 

REF 

o 7 

last 

1433 

*^7 f 36 13 

4 

1333 

1 

C A 6 h T STQ 

cs 

I MUD E S 3 L 

:515 

KEF 

6 

LAST 

1435 

0 7 , jg 14 

7 

4763 

b 


MASK 

.. y-f-E — 

IHUi^ n dT 

— T^r 6 ~ 

-REF 

3 


457 - 

“ CTF 3615 

1 

3503 X 1 


I C F 


'.519 

REF 

Db 

LAST 

1435 

07 , J* 6 i 6 

4 

1333 

1 

C Ab 1 1 ST J 

cs 

1 MOU tS 3 . 

• 52 A 

REF 

7 

LAST 

1435 

0 7,3617 

7 

47 63 

0 


MASK 

IMUNIT ul 

o 521 

REF 

378 

LAST 

1435 

0 7 , 3 o 2 

i i 

V 


CCS 

A 

C 522 

REF 

36 {r 

LAST 

1435 

7 , 3 o 21 


t 

t- ■ 


1 C 

c 

f 5 .l 3 

REF 

257 

LAST 

1435 

07,3622 

4 

4 772 

oZ 

+ 4 

cs 

ZcKU 

C 524 

REF 

3 

LAST 

1225 

j 7 f jio 23 

55*335 

1 


T S 

1 HUC Auk 

C 525 

REF 

7 

LAST 

1427 

■" 7,3624 

1 

26 T 5 

*■ 


TCF 

f LDEEXl I 

(5252 

REF 

2 

LAST 

1435 

07 , 3 o 25 




IMUUAU 

cWUALS 

bAUENU 


SUBROUTINE TU TERMINATE I HU MOT'E 
SWITCH IF IMU HAS BEEN CAGEU^ 


OIKEC TLY.^ 

WITH CtA) = + 

SKIP IF IML NOT BEING CAGEUo 


IF UURiNG HOPE SV/ITCH INI T I AL TZAl 1 Um 
IT IS FOUND THAT THE IMU IS teiNG C'-GED, 
SfcT IMUCADR TO - TO iNDICAlt QP^RAUON 
CUMPLfcTC- EOT FAILED^ RtTUKN IH^'l LU ATELY 


TL SWRETURN 


t 


«’ <hb H'/'WC 1^36 


‘•?A^ ' _ AbSfMB Lfc RL^/ISIQN ^IZ UF rtbC PRJ3KAH ART hMi::> BY NASa 2 2ili4- ill ll:4'' FEB,, ZfcUS 


1. 

Pci526 

R-:528 

1 

CR 

MODE SWITCHING ROUTINES 

GENERALiZtO tibUE SWITCHIiMl, 
AT BA lend FDR AN UNSOCCtSSFUL ONE, 

lERMI NATION*, 

a 

ENTER 

AT GOODE ND FOR 

USER'S PAGE NO,. 2 ^3 

SUCCESSFUL COMPLETION DF AN 1/ 0 uPt k A ' I ur- 

531 

^ EF 

253 

i.AST 

1435 

^7 f 

4 47 72 

U 

BAOtNO 

c s 

ZERO 

FOR FAILURE 


L 535 

RtF 

b 

LAST 

14,3 

-7 f 3626 

54 072 

U 

+ 1 

T;, 

kJI>T RE63 

-■ FAILURE -1 

SUCCESS 

537 

REF 

7 

LAST 

788 ■ 

07,3627 

11*335 

1 


CCS 

NUDECauR 


- 

1538 





C7,363<. 

i 3632 

I 


TCF 

+2 

YtS - WAKE IT 

UPs 

C 53 9 

REF 

I 



07 , 363 1 

1 3641 

c 


TCP 

CNUNQoE 

IF'^, PROGRAM 

rrar IN YET. 

54 (. 

REF 

259 

LAST 

i436 

Olt^Q^iZ 

3 47 72 

1 


CAF 

ZERO 

WAKE SLEEPING 

PROGRAM*. 

.542 

REF 

3 

LAST 

1436 

07,3633 

5 7 * 335 

0 


XCH 

KUUECAiJk 



'54 J 

REF 

T 

L AST 

1435 

J7,3334 

IT 5167 

1 


Tl 

ja3¥AKE 



544 

REF 

7 

LAST 

1436 

07,3635 

4 C072 

4 '■ 

V' 


cs 

RUPTREG3 

advance’ lqc if 

SUCCESSFUL* 

,545 

REF 

21 

last 

1325 

07,3636 

50 064 

u 


INDEX 

LCCCTR 



'•546 

RTF 

it 

* v. f 

LAST 122^ 

u 7 f f 

2b 164 

c 


mrs 

'Tree 



54 7 

REF 

63 

LAST 

1432 

07 ,364'^- 

1 5314 



TCF 

1 ASKUVER 


- 

t)48 

REF 

8 

LAST 

1436 

t- 7 1 3o4 1 

3 CC72 

1 

ENOMQUt 

CA 

HURT KtzaS 

INDICATES OPERATION COMPLETE &U1 

< 55^ 

REF 

9 

LAST 

1436 

J 7 1 36 4 Z 

55*336 

1 


TS 

/^uDCCA JR 

SUCCESSFUL^ 


= SSI 

REF 

6^ 

iTAST 

T43S 

C 7 , 3643 


u 


1 Cf 

i ASkOVeK 




X) 


L 

R b 
RX5tJ 5 

K ^ 33 6 

K 1.337 
R':35 8 

R 0 3 5 Q 

R <; 5tJ i 
K r 562 
R':563 
R ^.564 
Kc565 

— RX56'6r 
RC567 
Rt368 
R C56 9 

Ri 57 : 

— RTsrr 

R* 572 
R' 573 


R 5 74 
Rt'575 


R 576 
R^577 


K6578 

Rv579 

• p; t s - g r 

RC531 

Hi 582 

RC5B3 

RU584 

RC585 

R i 586 


■• 598 
<:.599 

6 A 

L.6rj3 

C6 ?4 


ASSEMBLE KiiVlSION 772 Oh A6L PROGRAM ARThMlS BY NASA 2. 21il4-.il 


il;A. FtBo 26il77i itUb 


4t» R#.iGE 1437 


IRU MCUL i^^ITCHING ROUTINES 


USi h ‘ S i'AGfc NO. 


21 


1-3 S J 


general STALLING RCUTiNt*. USING PROGRAMS CUMc HERE lu WAIT FOR 1/j COMPLhJiaN,. 


PROGRAM OcSCRlPTIGN 


ttnr 


MOD BY- R.MELANSUN TG AOu DGCUMENTAF ION 


DATE- 21 FEb 1967 

sr tmxtt ~i MtrM'OOc switchi-ng- 

ASStMoLY SUNUiSK kEY« 82 


FUNCTIONAL DESCRIPT I ON- 
TO OELAY FURTHER LXECUFION OF THE CALLING ROUTINE UNTIL ITS SELtCTLO 

I/O FUNCTION is CQMPLETE.THE FOLLOWING CHECKS ON THt CALLING RbUIlNE:S 

— M ODECACK AR - ^ tiAOE ANO T nCT TO - U PON 'S ~~~ 

II +' INDICATES INCOMPLETE I/O QPERAT ION. CALL! NG ROUT INL IS PU I TO 

SLc^Po --- 

21 -1 INDICATES CUMPLLTEJ I/O JPERATlQNo STALL BYPASSEg JubSLEEP 
CALL AND RETURNS TU CALLING T^OUTINE AT L+3 

3) -F INDICATES COMPLETED I/O WITH FAILURE. STALL CLEARS MOUECAOR 

— - -ft N U R ETURNS Ttr - C 7 n.t l NX -R i mT 

4) VALUE GREATER THAN C INDICATES TWC ROUTINES CALLING FOR USE OF 
SAME DEVICE. STALL EXITS TO ABORT WHICH EXECUTES a PROGRAM 
RESTART WHICH IN TURN CLEARS ALL MDOECADR REGISTHKb, 


CALLING SEQUENCE- 
E ' — TC BATVKCALL 

L+1 CADR IMUSTALL 


NORMAL-EXIT MODE- 
TCF JUaSLEEP OR TCF MOOEXIT 


ALARM OR ABORT EXIT MOOE- 
PCODCG 2121C 


OLTPUT- 

MUOECADR= CACR IF JUBSLEEP 
— 'MCrO£CAt3<=+C “ ~tf — I/O COMPLfc'TT 

SUF2=L+3 IF I/O COMPLETE AND GOOD. 

SUF2=L42 if I/O complete EUT FAILED. 

ERASABLE IHIT I ALIZAT lON- 

BUF2 CCNTAINS RETURN ADDRESS PLUS l,tL+2) 

BU F2 4T ~ C O N T A T NS F B A CTr S TA L U E ' OF CALrnyG~KOtJTtTTc a 

MODECADR CONTAINS +C, -If OR -i OR CADR RE TURN ADDkESj 


REF 

REF 

It. 

i 

LAST 

1436 

ij T f ci 

' 7 t 3 uh5 

1 

1 


■ l.~ 



r 7 f 3 64 6 

A 

REF 

L 



C7 » 3t>47 

1 

REF 

ll 

LAST 

1437 

C7 f Ju5* 


REF 

3 

LAST 

1435 

07,3651 

1 


1'335 
36 ol 

1 

1 

IMUSTALL 

C T. S 
TCF 

MODECADR 
MODAdUK i 

3535 



TCF 

KOutSLP 

3bjZ 

1 


TCP 

rtOiJt GOtil) 

^ 1 3 j 3 

1 

MG2 


f^UUE wA Jt< 

2675 



ICF 

RODEEXl T 


ALLCi.ABLl STATcS are + f “1 

'trFTRTiTT'DN 'l-NCDMPTrTr; - 

COMPLLTb AND uUiiD IF = -1., 

COMPLFlr AND F.vILED IF - . 

kliucsN td caller^ 


A ' D 


RESIT 


GAP: 

ASSEMBLE K 

H/ISIQN u72 

DF AgC program art EM is BY NASrt 2 

21114- 11 

L 

IRU 

mode 

:>WITCH1NG 

KCUT I JES 






1 6' > 5 

REF 

3 79 

LAST 

1433 

u 7 f 30^^ 

1 0 kj 


MOUEGUUU 

C 6 ^ 

A 

-L 6" 6 

REF 

2 

L AS T 

1437 

07 f J65 B 

1 3661 

1 


TCF 

MCuABORT 

ton 7 

REF 

22 

last 

1426 

Ol f36i4 

24 iJJ 



I NCR 

BUF2 

.6)8 

REF 

i 



G 7, 3655 

1 365L 

0 


TCF 


r6i 9 

REF 

4 

LAST 

571 

C7 f 3u3 6 

6 4663 

C^v, 

MODESLP 

TC 

MAj^tCAUR 

toil 

REF 

12 

LAST 

1437 

07,3657 

55*335 


TS 

MOOrCAuR 

612 

REF 


LAST 

1428 

07,3660 

1 5163 

1 


TuF 

JCGSLEEP 

613 

REF 

9 

LAST 

1339 

U7 f 36 6 1 

J b 7 Z o 

1 

MOD ABORT 

IC 

PGUGOu 

".614 





C7 f 366 Z 

Z 1 2 1 1 

i 


OCT 

2121 


4o ^/Gl 143 S 


11:4. Zbtl^JL Z£US 

UShR'S PAGE Np« 22 t.3 S3 

MAKE SURE INITIAL STATE, -1 

IF SO, INCREMENT RETURN AODRLSa AD 
RETURN immediately, SETTING CADa - + 

CALL FROM SWITCHABLE FIXED UNLY_ 

TWO RRUGRAMS USING SAME DEVIlE. 


oAH AS5£MJLfc HL tflSlQN 72 OF AG G F ROb^AM ARTEMIS BY NASA 2 21114- .11 
L lf*U .^GOt SWITCHING RCUTiNES 


P' 6it) 


CONSTANTS FOR MOUt SWIFCHING ROUTINES 


616 

REF 

4 

LAST 

1039 

3775 

- r6T7~ 

— REF 

1C 

LAbl 

5004 

,ol0 

REF 

Q 

m 

LAST 

14; 2 

301. 1 

“619 

REF 

34 

LAST 

1431 

“ ■ 4Td1 

: 62 





1)7 f 36o3 

621 




— 

07,366^ 

<622 





C 7 , 366 5 

';623 


3 


4E8 

uTf 3133 


BITS3&4 = GCl i4 

— • BITS4S6‘ CCr50 

8iTS4“"5 tjUALS 6iTS4£i5 

IHUSEFLG EQUALS BITS 

77 5v.'. 1 -COMM AX OtC -191 

77477 0 -COMM AX- UtC -ir2 

00074 1 604; MS OtC 6 

fmJF^lTieC ~=^ — IMUf Il'iE 


I ; . 

10^ 

‘i , 



■5 


46 PAGE 1439 
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US»;t<*S PAGE NO 23 


TNTERPRETET^ STilTCH Tc ■ 


L3 S3 




ASSEMBLi: t-ItVISlON HI GF AvaC PKOGRAM ARTtMiS BY rUBA ^ 21114- li 


11:4 IrtiU. Ztfi97L ZtUS 


46 PAbh 144 


I HU Moot SWITCHI NG ilCUTINES 


USE:<*j PmGE no, 24 


B 3 S3 


i’t646 
R T. 647 
Kr64E 
TTCW? 
RC65i; 
Rr651 
R^652 
K 1 653 
Kt 654 

K' 656 

Rr657 
R ' 65 8 
PC 65 9 
RC66 

irreor 

R' 662 
R 1 66 3 
R t664 
RC665 
RU666 
■RT 60 T 

R0668 
R':673 
R r 6 7 4 
R1675 
iO 676 
IT'TGTT 
R‘ 67 8 


PRCGRAM CtSCRlPTlUN 
IHU STATUS CHECK RUUTINE 

NG - 1 


Hi 2 (SU6KUUTINE UllLITY) 


TToBRODBlK '' ' 

FUNCTIUNAL D£ SCRl PTI QiM_ 

TO CHECK WHETHER I MU IS ON AND IF ON WHETHER IT IS ALIGNED TO AN 
ORIENTATION KNOWN BY 'THE CMC, TO REtjOEST SELOCTION OF THF APPROPRIATE 
PROGRAM IF THE IMU IS OFF UK NOT ALIGNED TO AN ORIENTATICN KNOWN 6Y TH 

CPnC^' CALLED THROUGH EANRCALL 

CALLING SEGUENCE- 

L TC 8ANKCALL 

L+1 CADK R02BCTH 

SUBROUTINES CALLED 


VARALARM 
FLAOUP ' 

NCRMAL EXIT MODES 


AT L+2 OF CALLING SEQUENCE 
ALARM UK ABURI tXli MUUcS 

OCTOPGOHf WITH ALARM 
ERASABLE INITIALIZATION REQUIRED 

NONE 

DEBRIS 


CENTRALS-AtQ, L 


U6SC 

REF 

1 



L 1 1 ^ , 





SETLOC' 

K“2 

<681 





L 1,3731 





3 A*MK 


C682 

REF 

1 


— 






COUNTS 

$S/R’2 

684 

REF 

tk 

LAST 

1423 

V 1, 3731 

3 

4754 

u 

R028QTH 

OAF 

RcF^ nBl T 

TBW5 — 

"TTEF' 

— 9 - 

~r75ST^T523 

ni3T32" 

”T~ 

C w 7 7 



rtA SK 

'TXrAvjWRD3 

*,666 

REF 

38o 

LAST 

1438 

V i f 3 7 J J 

1C 

G'.C 

V 


CCS 


6 S 7 

REF 

2 

last 

774 ' 

Cl , 3734 

J 

3745 

1 


TC 

R 2ZcKJ 

C686 

KEF 

69 

LAST 

1435 

.1,3735 

3 

1333 

1 


Cm 

lrtUU4zS3C 

€689 

REF 


LAST 

1418 

1 1 J 7 J 6 

7 

476C 

J 


MASK 

iMUupai T 

— 





1 t 3 / J / 

w 

ij fj 0 



c XT t no 


L691 





Cl, 374m 

1 

3742 

1 


BZF 


C692 

REF 

42 

LAST 

1435 

Cl, 3741 

4 

4765 

0 


cs 

bIT4 

':6S3 

REF 

1 



01,3742 

6 

375w 

M 

-J 


Au 

0CT22’- 

€694 

REF 

4 

LAST 

91 7 

01,3743 

u 

577C 

1 


TC 

VARALAKH 

69 5 

REF 

54 

LAST 

9v7 

if 3744 

.r 

L 

41.iJ 

1 


TC 

GGfOPuOH 


KEF 

71 

LAST 

1359 

1 1 -3 7 4 5 

c 

5 j47 

1 

Ku^ZEKU 

TC 

UPFLaG 

:7^>i 

REF 

4 

LAST 

429 

1 f 3746 

C 

CC 37 

KJ 


ADKES 

IMUSl 

' 7 2 

REF 

7 

LAST 

1426 

w 1 f 3 74 7 

1 

4c>5 1 

Q 


TCP 

SWRt rUi<N 

€7 :- 2 5 




■ 

:.i,375C 

r 

r22 

1 

0CT22-J 

□CT 

22 


ZERO I M US 


IS ISS INITIALIZED 


SEND IHLT ^LARM CLUE 21 
SEND REFSMM ALARM 
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b AP: 

L 

P' /7 >3 

R_ 7.4 

K'.'7 - 5 
Rr717 

Rt 7 -9 


RC71 
"R-*? Xt 


RL71^ 

R>i713 

R^7i6 

RG7ia 


A S S E KB L t REtfl ON 7Z uf AGO PKUGRAM ARTEMIS BY A 2X114- , II IX: 4C FEB«, 26,1971 ZEUS 

IRU HGUh bhITCHING ROUflNES USER'S PAGE NO-. 25 ^3 S3 

PRUGRAR DESCRIPTION Pv o itFEt>67 

TRAN SFER fHE ISS/CMC FROM Th£ OPERATE TO TH E ST ANUBV CUNDlTIONo 

THE NORMAL CONDITION OF KEACINESS OF THE GNCS WHEN NOT IN USE IS STANDBY* IN THIS CONDITION THE IMU 
HEATER POWER IS ON, THE IMU OPET^'ATE POWER IS OFF, THE COMPUT ER PUW ER I S ON, THE OPTICS POWEFT IS OFF* THE 

CMC STANDBY ON THE MAIN AND LEB OISKYS IS ON, 

CALLING sequence: 

- ■■■ — ASTT TO N AtJ T RE Q UEST T H ROUGH DSK Y '“V371: 

Subroutines called: 

GOPERFl 

tiANKCALL 

FLAGDOWN 


I 


p % 


AP 


ASStMtiLh KhViSlON 72 UF A«C PROGRAH AKTEMli. bY NASA 2.2illA- ii 


ll:4( FEbe 26fl971 Z 


^6 t^AGc 1442 


L 

IPU 

MODE 

SWITCHING 

ROUTINES 



- 

USER*S PAGE 

NU® oib !■ 3 

P 8 1 L* 

PRESTAND 

PREPARES FOR STANDBY 

BY SNAPSHOT riNo 

IHE SCALER AND TiMEi 

TIME 2 

« 

K ( (3 i 1 

THE 

LOW 

5 BITS 

OF 1 

iHE SCALER 

ARE' rNSPECTtO TO 

1 N SURE CUM PA J A 8 1 L IT Y 



KCblZ 

BE! Wb LN 

THE SCALER 

READING AND THE TlMEl T1ME2 

REAUlNGo 



1 8125 

REF 

1 



2.i>f ^\ji^ 1 



S E T L OC P 5 P U6 



rsizc 





26t3654 



BANK 



h13 

tF 

2 

LAST 

77 

iOC 6 



taANK= TIMlZSAV 

- — . 

r 

814 

REF 

1 






COUNTS $$/P ’6 



• bl A 5 

REF 

72 

LAST 

144 V 

26t3654 

0 5547 

1 Pjo 

TC UPFLAG 

SET NQDOVB? blT 


^ 0l4 6 

REF 

-5“ 

LAST 

1.3 14 

2b# 3655 

i C ^ 4 

r 

i 

ACRES NCDOFlAG 



‘615 

- - 

- 

- ■ 

- - 

26,3656 

tii Cl OU 4 

^ PRESTANU INHINI 

- 

_ -- . ^ ^ ^ ^ ^ ^ 

C 8 1 o 





26# 365 7 

0 OOOb 

1 

EXTEND 



b 1 f 

RFF' 

~31 

“CAST 

T4X5^ 

Z6 t365T 

3 C 2 2 5 

i ’ 

UCa TlMt 2 ~ 

^NAPSHU \ 1 IHEl 1 lHt2 

v6T8 

REE 

3 

LAST 

1442 

26,3661 

53* jl7 


DXCH TlMc2SAV 



rei9 

REF 

1 



26# 3662 

0 3715 

'T 

i. 

TC SCALPREP 



'.a2>. 

REE 

1 



^6 1 3it>6 3 

C 36^0 

1 

TC PRhSTANC 

T1,T2, SCALER NOT 

COMPAlIBLc 

C821 

REE 

676 

LAST 

1428 

26# 3664 

52 155 

1 

DXCH MPAC 

T1,T2 AND SCALER 

OK - 

C822 

REF 

i 



26# 3665 

33'Ull 

i 

DXCH SC A L SAVE 

STORE SCALER 


C^EZ3 





Z6 f J6t>6 

w 0UC4 

1 * 

V' 

TNHTRT 



L824 

REF 

214 

last 

1066 

26,3667 

0 4636 

1 

w* 

TC BANKCALL 



r825 

REF 

3 

LAST 

162 

26# 36 7 C 

17121 

•f-; 

CAl)R RNJRcFDk 

REPSMM, DRIFT, TjTACK FLAGS DDW, 

V. 3/^6 

KEF 

64 

LAST 

1314 

26,3671 

a 5561 

J 

fC CUWNFLAb 

- 

- — — — — — - - - 

*827 

REF 

5 

LAST 

14 4^^ 

26 #36 7 2 

Qu Oo Y 

u 

ADRES IHUSc 

IMUSE DOWN 


"X¥Z7T ITEF- 

S5~ 

^ LAST' 


26#36T3'' 

J 53 oi 


iC UUWflrLAlj 



'8272 

REF 

U' 

LAST 

628 

26 t J674 

' W ‘ ^ 1 V.' 

Tt 

ADRES RNDVZFlG 

RNDVZFLG DCWN 





(8273 

REF 

66 

last 

1442 

26# 3675 

u 55ol 


C8274 

REF 

11 

1.AST 

6^T 

26,3676 

V " 176 

1 

CB26 

REF 

32 

LAST 

1393 

26 f 367 7 

3 47 5 o 

i 

— 





26, 3 TOC 

T V'Ol^Q 

1 

u83L 

REF 

16 

LAST 

1098 

26 f 3 7u 1 

u5 il3 

c 

0831 

REF 

10 5 

last 

i4vj 6 

2of 3 7u 2 

w 5 4 w 2 

1 

r832 





26, 3 7“ 3 

(-7024 

Ti * 

■fcj- 

ca33 





26,37 4 

' ■' ' - 

2L, ^ 

i ' 

^ 75335' 

"RTF" 

'2~ 

LAS 1 

■I 4'4'2 “ 

roiT 



: 8 34 

REF 

I 



26 « 3 7v 5 

’.jS 73 d 

• .rf‘ 

C834 

REF 

1 



26 f 37u 6 

54062 

1 

L835 

REF 

2 

1.AST 

215 

26, 3707 

3 5 11 

i 

C836 

REF 

215 

LAST 

1442 

26,3710 

w 463 6 

1 ' 

C837 

REF 

11 

LAST 

786 

26 f 6 FI 1 

210o7 

V 

~~re3B — 





26 f 3 f 12 

1 3 /i> / 

1 

C839 





2 Cl r 3 7 1 3 

1 3 7U7 

1 

C84C 





26,3714 

1 37U7 

1 

C 84C 5 

KEF 


last 

1066 

J 11 


QCT 62 


TC down FLAG 

ADRES UTFLAG ' 

CAP Lilli 

EXTEND 

WOR CilAiiiS Stl STANDBY ENABLE BIT 

iC PhA:>CHNG SET RESTART TO PQSlAMU WHEN STa :D‘Y 

OCT 7L24 RECOVERS 

OCT Zjjo., 

■EBA"RK= 'SCArsaVT ^ 

2CADR PUoTANU 

CAF LLTttZ 

TC BANKCALL 

CAUR CuPERFl 

TZT^ ^ — - - -- — — ' 

TCP -N 

TCF -0 

tWOALS ,5stC DEC bi - OCT 62 
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b AP 


ASSEMBLE KEVISIQN '72 OF AOC PROGRAM ARTEMIS BY NASA 2*21114-11 


L INU MCDE SWITCHING ROUTINES 


USER*S PaGu NQ^ 27 


K b41 TFE LOW S BITS OF THE SCALER READS l.^OL'. FOR THE FIRST INTekVAL AFTER A 
H 842 T1 INCREMENTo IF SCALPREP DETECTS THIS INTERVAL THE T1,T2 AND SCALER 

k::B43 CATA are not CQhPATABLS AND RETURN IS TO L+1 FDR AND i HER READING JF THE 

-Rre 4 F 4 - rAT 7 V 7 -t:T-iT£frirrsE ,~ rm~trrr u KT r~ t~ S ' T u Tt 3 ~'i»nTTt^tj^nratrr i-NC- 7 «rstr pi^ep A frcs 

K0845 THE SCALfcR READING FCR COMPUTATION OF THE INCREMENT TO UPDATE T1T2« I THl 

RCe4o 1C MS BIT tBIT 6 1 OF THE SCALER TS INCREMENTED 5 MS CUT OF PHASE FKCM 

R :d47 Tl.i AOCIIiON OF 5 MS (BIT 3) TO THE SCALER READING HAS THE EFFECT OF 

Rr848 ADUUSTiNG SIT 6 IN THc SCALER TO Bt IN PHASE WITH SIT 1 bF T !<, THE LOW 5 

RC849 BITS OF THE SCALER READING ARE THEN SET TO ZERO, TO TRUNCATE THE SCALER 

R T 2S56 DATA-Ttr 1 0 MS» RESULTS ' 'STtl KED ' T ' N MPACr ~»l^~ 


C 85 i 


C 832 

RFF 

679 

- CG33 

REF 

2 

0854 



" IT&55 

“K'ET- 

cfSTT 

•-856 

REF 

34 

0B37 

REF 

190 

r 85 8 

REF 

26 D 

' ?: 839 

REF 

681 

bbtou 

REF 

Q 

— rB61 — 

— fTEF 

632 

6862 

REF 

683 

CB63 

atf 

1 

A C 864 



A*1 86 5 



1606 

REF 

381 

CE67 

rt 1 1" O C ♦t 

(.868 

REF 

686 




26,3715 

u LC jo 

1 

LAST 

1442 

26,3716 

22 136 


LAST 

432 

26,3717 

j 4i>il 

4 



26,372L 

U 3 

1 

t. AST 

"1:44 3~ 

— 2 6l ■37 2'1" 

"TZ 13 3 

1 

LAST 

1419 

26,3722 

3 47 04 

0 

LAST 

1431 

26,3723 

54 b-l 

1 

LAST 

1436 

26,3724 

3 4772 

1 

LAST 

1443 

26,3723 

2i 133 

1 

LAST 

r-l . 

^ i 

pH i 

1 

26, 3726 

4 4342 

1 

tTrST" 

3.44^ 

2 6 f 3T2T 

i cn55 

i 

LAST 

1443 

26 1 ^73G 

36 135 

1 

1 

LAST 

1443 

26, j731 

7 4342 

1 


SCALPREP 


EXTEND 

OXCH MPAL +2 
TC FINE TIME +1 


KELINl 

trXt^M MP A'C 


CA BUG> 

TS “L * 

Ca zero 


DAS RPAC 

C S LOGS 


X C H M P A C 

MASK LCwS 



LaST 144*-. 26, B /s2 Id ■ i.'.. bCS ■* 

LAS T ~py43 26T3T:J3 — 24--rSt> ' 7 ^ INCR’ ~ fT*.AC +2 

LAST 1443 26,j7s4 L - 1:?6 ■ TC RPaC +2 


ADD 5 MS TO THE SCALER KEAUi 


SET LOW 3 BITS OF (SCALEK+SMS) S. Z P. 
• A N D'STDRe RE-$ t?L - TS IN MPAtT- fT 

TEST LUW 5 BITS OF SCALER Fl K THE I T 

INTERVAL after THE T1 INCKEMt. 

(NOW = t'CCCf, SINCE BIT 3 ADDEi ) 

IS IT 1ST INTERVAL AFTER \i i .LkLM. 


YES 


K i 369 
R ,87.. 

RC871 
R-^8 72 
R , E 7 3 
P .;:874 


PCSTAND RECOVERS TIME AFTER STANDBY.THE SoALER IS SNAPSHCrTtU AND THE 
TIMEl TiME2 COUNTER IS SET TO ZERO, THE 1_0W 3 BITS Of THE SCALER ARE 

INSPECTED TO INSURb COHPATABILl TY BETWEEN THt. SCALER READING AND THE 

Ut ElATTl NG llF-^T^T I ME- C t n iN T ETF, “IIT TTfEtT T Cls—TME ER’ENtDr^ TN' SG AttK 

VALUES I IN DPI AND ADOS IHIS TO THE PREVIOUSLY SNAPjHOTTcD VaLULS UF 

TIME! TIf“c2 AND PLACES THIS NED TIME INTO THE TIME! TIME2 COUNTER,, 


C875 REF 1 


COUNT* IS/P 5 


'376 

6 77 

REF 

33 

LAST 

1442 

26, 3 733 

2 Q f -2 7 6 

'878 

0879 

REF 

17 

LAST 

1442 

26,3737 

2 S f 3 7 ^ ^5 

CBBC 

REF 

2oi 

LAST 

1443 

26,3741 

C631 

REF 

191 

LAST 

1443 

26 f 3 742 

■ C832 

1?BF 

3B 

CAST 

1 442" 

?673T43' 

€663 

REF 

2 

LAST 

1442 

26 , 3744 

€834 

€865 

REF 

2 

LAST 

1442 

26,3743 
26,3 74 & 

C886 

REF 

0 

LAST 

1442 

26 f 3 74 7 


4 47S6 

c. 

PQo 1 mND 

L5 

B1 Til 

U uO'jO 

1 


EXTENl; 


*J 3 C i 3 



HAND 

CHAH13 

ij 2 j 4 

J 

+ 3 

INHlNl 


3 477 2 

1 


CA 

ZcRO 

54 ; - i 

1 


T S 

L 


d"' 


DXCH 

TTMuTT 

371 B 

i 


Tb 

aPk^F 

rt 374u 

1 


TC 

FC^TANO 

ji c 6 

1 


t XT r iMiJ 


4 iCll 

1 


DbS 

S-.ALiAV L 


'■■p E C OV 1 K T I M E AFTER STANbiiV 
CLEAR STANDBY cMABLE BIT 


C L E AR TmETTTMCt 

sTuF.E SCALER IN MPAC, MPAC+1 
T1,T2, SCALER NOT COMPAIIBLL 
Ti,T2 AND SCALER UK 



U Al^ 


I • 


ASSfcMBLt KEv/lSlOiM - 72 CF At^C PRUGKAH ARTEMIS bV UA$A 2’;2iiiA- il 
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A 6 


.Or 1 A44 


L 

IHU MUJL 

SWITCHING 

KGUTiWES 





UStB'S PAGE NO.. 2T . 2 0 


t B 7 

REF 666 

LAST 

1443 

2 u f 3 7 i) - 

20 155 

1 

uAo 

.MPAC 

FORM DP DIFFERENCE DF PuST:>T.a:iDBY SCALER 


rOaa 

KEF 3 1> 

last 

1432 

2 6 f J 75 1 

3 4757 


b AF 

bin 

HINUS PkESTaTjOBY SCALER and SHIFT OnOriT ' 


0869 

REF 9 

LAST 

336 

26, 3752 

0 7250 

1 

TC 

SHORTMP 

5 TD ALIGN FITS WITH TIHLlTlH.z 


'T5^2“ 

TTEF ~«r" 

tTrSTT 

1427 

:Zo,3753 

J T224 

1 

' ~nr 

TP'ATiR'cE 



f 893 

REF 687 

LAST 

1444 

26,3754 

10 154 

1 

0 . 

C GB 

PPAl 



‘ C89 A 

R EF 1 



26,3755 

L 3762 

i 

TC 

P JblCiJti 

IF DP DIFF NET +, NO ^CALEfT GVERFLUrt 


0893 

REF 2 

LAST 

1444 

26,3756 

u 3702 

1 

T*, 

P U T L UM 

BETWEEN PHE AND POST STANDBY 


:a96 


- — 


26,3757 

0 376i: 

L' 

TC 

+1 

IF DP DIFF NET SCALER DVEKFLOWED' -auD 


t av7 

REF 36 

LAST 

1444 

26, 3760 

3 47^7 

u 

GAF 

Bin 

olT 1. ILI HIGH DIFF TO CURKECT 


r¥9¥~ 

'BEF~F8¥ ■■ 

LAST 

T'444 

26f 37u 1 

2b 1 p4 

TT~ 

aUS'^ 

mpaC 



.899 




26, 3762 

0 Cu%-.6 

i 

POSTCOM cXlEND 


CtHPAC,+l) IS MAGNITUDE OF DELIA .C.aLEi^ 



REF 4 

LAST 

1442 

26f3T63 

3 i;:7 

1 

OCA 

TInEZSAV 

PRESTANDBY TIHEITIWEZ 


i 9ii 1 

REF 669 

LAST 

1444 

26,3764 

20 13d 

1 

UAS 

MPAl 



€902 

REF 6 

LAST 

1329 

26,3765 

U 7226 

4 . 

TC 

TPAGRb^ 

rCRCE SIGN ACREEMERT 


<'903 

REF 690 

LAST 

1444 

2 6 f 3 7 o 6 

52 155 

1 

DXCH 

HP AC 

UPDATED VALUE FOR T1,T2. 




■■REF 3T” 

LAST 

T443' 

2 6, 37tk ? 

Zu 025 

TT" 

tJA5 

' riME2 

luad iikda f ED Value into TifiZf ssit/? 


9C 4f> 

KEF 67 

LAST 

1442 

26 J 3 77C 

^ 6561 

u 

TC 

caw NF LAG 

CLEAR NODQFLAG 


<'9i' A6 

REF 6 

LAST 

1442 

20,3771 

'CU54 

0 

ADRE5 

NOD JFL AG 


1 

■Q’.b 

REF 55 

LAST 

'144C 

26,3772 

J 41 ..3 

1 

TCGCPQQll TC 

GorcpaoH 




f 0 


I 


> > • 


AS S EM BL^ RE VISiOM ’ll U F AGC P t^ UaRAH ARTbMIS BY NAS A ..11 


L 

KE YRUPT, 

JPkUPT 






j' 

REF 

1 



7 f i- 



SL i LUC 

KEYKUPT 

3 





' 7 1 366 6 



BANK 


^ ' , 4 

REF 

1 






COUNT* 

1 i / 1\ fc: Y U P 

f 'C i. 5 

REF 

25 

L AiT 

1232 

7f J66 6 

54 cib 1 

KtYKUPTl 

T6 

BANKRUPT 

1 O'- - 6 

REF 

3 71 

LAST 

1435 

€7, 3667 

56 702 G 


XCH 


Cl C 7 

REF 

22 

LAST 

1232 

0 7 , 3o 7 V. 

54 * 12 V/ 


T ^ 

CRUPT 

:OU8 

H t f“ 

£ V 

z 

L. AST 

365 

C 7, 36 7 1 

0 4366 {' 


TC 

LOO SAMP T 

<.rv9 

REF 

11 

LAST 

1443 

%i7 f J57 2 

3 4342 


CAF 

LOW 5 

— crtr 





—Q J , Stsl^ 

■tl"'CtS06 1 


EXI EKU 


Lill 

REF 

2 

LAST 

2 '2 

0 7 f 36 7 4 

02 015 1 


KANO 

MNKnYlN 

12 

KEF 

6 

LAST 

14 je - 

67t->675 

!>4 ' 7J i 

KtYCuM 

TS 

RUPfRfcG4 

V • 1 3 

REF 

13 

LAST 

952 

0 7 1 367 6 

4 V 1 3 i L 


US 

FLAUWRD5 

CL 14 

REF 

2 

LAST 

143 

C 7f 3677 

7 4752 1 


MASK - 

OSKY-JIT 

- lib 

REF 

io 

LAST 

144 5 

l7,37GL 

26 iul G 


A as 

FLAGWkD5 

Vl 16 

REF 

D 

LAST 

14o2 

V 1 1 37 0 1 

0 5120 1 

ACC EP TUP 

TC 

NUVAC3.. 

La-. 18 

REF 

b2 

TAST 

391 

1202 



tBANK= 

DSPCUJNT 

L <} 1 9 

REF 

1 



C 7 f j> 7 u 2 

0 2 ^ L.- 


2CAak 

CHAR IN 

C L lO 

REF 

1 


- ■ — 

” C7,37 j3 

60 12 2 1 


- _ _ 


i .. 2'-' 

REF 

7 

LAST 

1445 

C7,37.<4 

3 w J 7 3 u 


CA 

RUPTREG4 

TZ 1 

-R^ 

TZ 

LAST 

“143^ 

— 07,37": 5 "■ 

"Sij u64 0 


INDEX 

LuLCTR 

’ ’ 22 

REF 

691 

LAST 

1444 

C7 , 37l o 

34 154 ^ 


T3 

MPmC 

‘.‘23 

REF 

46 

LAST 

iC 99 

0 7,3 7c 7 

7 5323 7 


TC 

RESUHc 


t. 

I - 
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USER'S PAGE NOr 1 


T XWfc IS SNATCHEU- IN P.UP1 FDK NOUN 6b 


CHECK IF KEYS bM-lM ON 


J 


CNQTt: RUPTREG4 = KtYTEAPlI 


LEAVE b BIT KEY CDE IN MPAC FUR CHAKIN 


» 

J 


oLAP : AS ;aE MBL £ k t Vi Si JN _ f Z UF AoC PKQSRAM ARTbMI^ dY NASA Z Zii 1^- li El -- ^otI971 Z&US 0-46 PaGE 1446 


L 

KEYKUPT, 

UPRUPT 







USt-.'S !-AGt NO. 2 cO S3 

Ft 2^ 

UPRUPI PROGRAM 

- 

— 





- - — - — - — _ _ _ 

K\ Zb 

REF 

26 

L AST 

144 5 

C7f 371^ 

5 4 1 o 

1 

UPRUPT 

TS 

BANKRUPI 


hT^- 2^ 

k t 

302 

LAS t 

1445 

C7,37TT' 

56 V e 2 

0 


XCH 

p. 

•a 


' 1 27 

KEF 

21 

LAST 

1445 

07*3712 

54 .12 

U 


75 

CROP X 


Cj* 2t5 

REF 

3 

last 

1445 

0 7, 3713 

0 436a 

e ’ 


TC 

LODSAHPT 

> 1 TS S:.ATCHEJ IN RUPT F0R"N0JN 65 

iv29 

REF 

262 

LAST 

1443 

07,3714 

3 477 2 

1 


UAF 

ZbkU 


ru3 ' 

REF 

2 

LAST 

2.4 

C7,3715 

56 j43 

U 


XCH 

INLliK' " 


V ' 3 i 

REF 

1 



07, ..716 

54 73 

1 


TS 

KEYTEMPl 


" — r 311 

~REF' 

420' 

LAST 

T42T' 

0 r , 3 f i / 

3 ^ ^ T 5 

f 


A 

Fl aGHRDI 


312 

REF 

3 

LAST 

443 

7 f 3 7 

7 4755 



MASK 

NOPl loi 1 

i. = , MISSIUN IS IN 

313 

REF 

382 

lAST 

1443 

L7 f 1 

if' vvG 

- j» 


r' 1 ' ~ 

A 

3"RELAIJNCH AND UPLINiCTJATA SUM IS EMABLEF 

314 





07,3722 

1 3726 



TCF 

44 

IF FLAGWOKUl blT 12 =1, IT IS NOT 

.'315 

REF 

2 

LAST 

144 o 

C 7, 3723 

3 T : 73 

0 ■ 


Cm 

KEYTEMPI 

.0L1.0WED . - - - 

: '316 

REF 

i 



o7,.i724 

27*116 

1 


ADS 

UPSUM 


Tr^l-r 

K tF 

2 

LAST" 

144^ 

■ 0 7,3 725" 

""ZT^TIT 1 


i Nl k 

UHStJrt + 1 


-.1 32 

REF 

43 

LAST 

1393 

07, 3726 

3 47o6 

1 


C aF 

ti 7 3 

iUt\N ON UPACT LIGHT 

•'33 




— — 

G 7 , 37Z7 

”0^'.' > 6 

1 


EXTEMD 


tSTT 3 X3F CHAT4NEL 11) - - - 

'34 

REF 

28 

LAST 

1435 

07 , 373 V. 

-5 Ml 

1 


ml UR 

eSALMOuT 

1 

; .35 

RFF 

12 

LAST 

1445 

07,3731 

3 4342 


UPRPTl 

XAF 

LQh3 

TEST FDR TRIPLE CHAR REDUNUATICY ' - - - - 

* ^ 36 

REF 

3 

LAST 

1440 

€7,3732 

7 .G73 

1 


MASK 

KEYTEfiPi 

lOAb UF WORD 

^ L 3 7 

REF 

~4“ 

TTTST" 

"1445" 

07,3733“ 

“ 5 - 6 " T73 " 

w 


XUR ~ 

X hY 1 bi^P 1 

LTJW5 IN ID KfcYlhMPl 

- s’3B 





L 7 f 3 ? S 4 

0 GG6 

I 


£ X T E ND 



C';39 

REF 

37 

LAST 

1444 

:.7,3735 

7 4757 

1 


MP 

BIT 1 

SHIFT RIGHT 5 

I 

r / J 

1, _ 2|. i 

REF 

1 



U 7 f 3 7 3 6 

55* 137 

1 


Ts 

KEYT-MP2 


4j. 6 A” 1 

REF 

13 

LAST 

1446 

07,3737 

7 4342 

1 


MASK 

1U«5 

MID 5 

CGA2 

REF 

1 



07 , 374 J 

6 3774 



AG 

F 11 


— nrz;^ 

■RTF" 

j~ 



0 7,3741 

0 3 7 M 

J 


1 L 

'CFTEST 


L l44 

REF 

33 

LAST 

l44o 

•^7 1 3742 

3 4 75 7 

u 


CaF 

J 1 T 1 D 


~ ' 4 5 





07,3743 

0 0 5 

1 


LXTERot 



i ^ ^ 6 

REF 

2 

LAST 

1446 

07 , 3744 

7 1137 

1 


MP 

KEYTEMP2 

SHIFT RIGHT 5 

' ’ 47 

REF 

14 

LAST 

1446 

>7,3745 

7 4342 

1 


MASK 

LGifi 5 

HIGH '5~ 

.>.48 





j7,3746 

4 T>0Uu 

i; 


LUM 



^TyZfQ 

REF 

2 

"rAST~r445' 

C773T4T- 

4 . 3 i / 1 

T" 


TL 

"XPT u >T ^ 


” " • r 5>'.* 

REF 

1 

- 

- 

G 7 f 7 

4 5‘ 

0 

UPOK 

CS 

tCRCUDE 

CUJE IS GOOD. IF'CODE = 'ERROR RESET*,'' 

^ x. i)l 

REF 

5 

LAST 

1446 

07 #3731 

6 LC73 

0 


AU 

KtY i £"Pi 

clear UPLOCKFLISET bIT4 UF FLAGWPD7 = 0) 

- re 52 



— — . 


07,3752 

0 LC 26 

1 


extend 


- IF CODE DCFS NOT = 'ERROR RESET*, ACCEPT 

V e53 

REF 

1 



07,3733 

1 3701 

i ’ 


UZF 

CLUPLUCK 

CODE UNLY IF UPLQCKFL IS CLEAR (=l)o 

V "54 

R EF 

1 



07,^754 

3 4 765 

1 


CAF 

LPLUCgI I 

Ti;:>r UPLQCKFL FOR t OR 1 

' U55 

REF 

2 i 

LAST 

827 

07,3755 

7 t 13 

1 


MASK 

FLAGhRUT 


Cf 56 

REF 

3 93 

LAST 

1446 

07,3756 

It GUO 



CCS 

A 


re 5 7 

TlEF 

47 

LAST 

1445 

07,3757 

0 5323 

c 


TC 

RESUME 

TJPLUCKFL = 1 

'(..5 8 

REF 

1 



c 7 t 3 7 6 f 

w 3 7 G 1 

1 


TC 

ACCEPl Up 

UPLQCKFL = 

. ' 59 

REF 

2 

LAST 

1446 

07,3761 

4 47a5 

r. 

LLUPLiXK 

L:> 

UPLOCUi i 

CLEAk UPLQCKFL ( I . E- , SIT BIT 4 OF 

‘ C 6 :"? 

REF 

21 

LAST 

1446 

07,3762 

7 ' 1 J3 

1 


rt A S K 

FLAUWRuT 

FLAGURD? = r.' ) 

» J 6 1 

REF 

22 

LAST 

1446 

07,3763 

54 10 3 

1 


FS 

FL AGrt.RU/ 


C 62 

REF 

2 

LAST 

1446 

07,3764 

Q 3 701 

1 


TC 

ACCEPl UF 
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L 

KEYRUPT, 

OPRUPT 





•i ' t J 

r ; 64 

REF 23 

LAST 1446 

C7,3763 

4 01J3 1 TMFAl L2 

cs 

FLAGWHD7 

'.;65 

REF J 

LAST 1446 

J 7 f 3 7 6 6 

7 4765 V 

MASK 

oplocbi T 

" “CTT66 

RFF* "Z4r L“ASnTi'47 

" ■■C7T37Er7 

“26' 103 "T 

■ "ADS 


a 6 7 

REF 4B 

LAST 1446 

07,377c 

0 5323 C 

Tu 

RESUMt 

Cl 69 

REF 6 

LAST 1446 

U7, 37 7 1 

6 r:C73 C UPTEST 

ACT 

KEY TEMP 1 

, if : 

KEF 384 

LAST 1446 

J7,3772 

i u - 1 - 

CCS 

A 

V 71 

REF 1 


i' 7, 3 7 73" 

t7''3 7o5 0 

TC 

I MF A I L2 

' -72 



y 7, 3 774 

77 74 ) X Hliv 

□ GT 

7 7 7 4U 


— REF ■■ 2" 

LAS'T'~t4'4T 

— ir7T3T75 

t3 "3765 C 


I Wi A X C 2 I 

V 74 

RtF 3^ 3 

LAST 1446 

07,3776 

J - t ^ ) 

TC 

c 

CC75 

PEF 2 

LAST 224 


ELRCOOE 

equals 

ccr22 

RC076 

•UPLINK 

ACTIVITY LIGHT' IS lURTNED OFF BY «•*•« 



RCC77 


io VBKELDSP 




— Rt*t'7'B“~ 


^RROK RESfcri' 




RF C 79 


UPDATE PRUGRAM(P27) ENTERED BY 

V7j. V? i, 

viz, AND V7 


USER'S PAGE NOo 3 ti S3 

CUOE IS 3 AD 

LOCK OUT FURTHER UPLINK ACTIVITY 
IbY SETllNG UPLOCKFL = 1) UNTIL 
■ ER RO R R E S E T * IS S r N T T r i - A -- U P L ~ f NKG 




■ RCUbt 
R0C81 

RTTBS 

RCC 85 
RTi<;87 
RLC39 


THE reception OF A BAD CODEC I*.c CCC FAILUKEJ LOCKS OCI EUKi HcR UPLINK ACTIVITY BY SETTING BIT4 OF FLAGWRD7 = 
Thi s IND I CA T ION Wilcr BE TKg W SF£RR E I 7~TO THE GKU imLr~BTf THE DU WNtTmC~ Htrrc H DOWNLINKS 'Air FLAGHORPS. ' “ 

WHEN UPLINK ACTIVITY IS LOCKED OUT ,1T C/N BE ALLOWED WHEN THl GROUND UPLINKS AND 'ERROR RESET' CUDEe 
(IT IS RECOMMENDED THAT THL 'ERROR LIGHT RESET* CODE IS PROCEEDED BY 16 BITS THE FIRST OF WHICH IS 1 FOLLOWED 
BY 15 ZEROESe, THIS WILL ELIMINATE cXTRANtOUS SITS FROM INLINK rtHlCH MAY HAVE BEEN LEFT OVER FROM THE GRiGINAL 


ROr.^i FAILURE) 

K’X'92 UPLINK ACTIVITY IS ALSO ALLOWEDl UNLOCKED) DURING FKtSH STAk! WHEN FRESH START SETS BIT4 OF FLAGWRD7 - 



. 4 fa I ' / r. 1 44 b 


fa AP ; 


fc MBLE RE\/ 1SIDN 


7E CF AuC Pf^OfaKAH ARTfcHIS BY NASA E 21114- 'IJ. 


ii:4- Ft Bo 2fail971 ZLUS 


I DISPLAY Ii^TfcKFALE kGUTIMuS 


USER'S PAGE NtJ. 1 . bi 


h M • 1 DISPLAYS CAN BE CLASSlFItU l.ilTD Tilt FOLLOWING C ATtbUHlLb- 


RCbi '2 

R*’-. . s 

R 1 < '7 
K ( c < bJ 

R ( i- 
R ' ‘ 12 


1« PRIORITY DISPLAYS- DISPLAYS WHICH TAKE PRIORITY OVER ALL UIHkR DISPLAYS*. USUALLY THESE DISPLAYS AhE StNT 
C LI UNTJFR'XRHILAL ALARM CUT^inT I DNSo 

2c EXTENDED VERB DISPLAYS- ALL EXTENDED VERBS AND HARK RUUTiNcS SHOULD USt EXTENDED VERB {MaRKJ DISPLAYS 
B, NORMAL DISPLAYS- ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT OUR'lNfa THE NORMAL 
S E'jUENCt uF tVENTS* 

4« MISCo DISPLAYS- ALL DI'SPLAYS NOT HANDLED BY THE DISPLAY rNTERFACEKOUTlNESo THESE IKCLUDE SUCH DISPLAYS AS 
MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PlNBALL« 


Ps^< 12 5* ASTRONAUT INITIATED OlSPLAYb- ALL DISPLAY^ INI Ti A TED EXT EK.N ALLY 

K( 14 THE FCLLGWiNfa TERMS ARE USED TO DESCRIBE THE STATUS UF DlSPLAYfa- 


K wt 13 
R r F 1 7 

RCf 13 
R Ot 2 ' 
R C 2 2 
R OL 2 4 
ROC 2 6 

■rt:C' 2 s 


i« ACTIVE-1 HE DISPLAY WHICH IS (1) BEING DISPLAYED Tu THE ASTRONAUT AND WAITING FOR A RESPONSE OR 
1 X) ^ATTT NG FIRS! — ITT LTTTt ■FaR"THE ASTRONAUr TO FTKISH USIHG THE D SKY UR lOT' tTETTlG' DTSrLTrrF'tJ’OFTTHE' "SKY — 

BUT NOT WAITING FUR A RESPONSE. 

2> INACTIVE -A OISPLaT WHICH HAS ( II BEEN ACTIVE BUT nAS INTERRUPTEDBY A OlfaPLAY OF HIGHER PRIORITY, 

121 BEEN PUT INTO THE WAITING LIST AT TIME 11 WaS REdUeSTEd DUE Tl Tht FACT A HIGHER PRIORITY DISPLAY 
WAS ALREADY GOING, (31 BEFN INTERRUPTED BY THE AST.RONAUT (CALLED A P INBRANCH CONDITION, SINCE THIS'TYPE 
CF INACTIVE DISPLAY IS USUALLY REACT! YAfEO ONLY faY PINBaLLI OR (4) A jISPLAY WHICH HAS FiOlSHED nUT STILL 
HAS IfTFCr SAVErTUfT-RE-ST^l PURPOSES. 


Rt'r29 DISPLAY PRIORITIES WCRK AS FOLLOWS 


RC' S' 
T<TT 3 T 

RrC 33 

RCf 35 

R Lt 3 7 

R7C39 

R 


INTERHCPTS- 

1. Tffir”705TR 07^50 T C AN 1 N I ERRUH' TTITH 

IMEIJSiAL DISPLAYS CAN NOT BE SENT OU I WHtN Tilt aSTKONADI IS USING THE DSKY 


2 c 

3, 

4. 
5« 


AN cX 1 LR.IAr' Di SPLAY RrOGc SI 


PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL falSPLAYS, A PRIDRITY 0I^PL7\T 
PIUDKITY DISPLAY WlLL CAUSE AN ABORT UNLESi 01114 IS Scl FjR THE LINUS RLUTICt, 

A HARK DISPLAY HMTERRUPTS ANY NORMAL DISPLAY, 

A MARK THAT INTERRUPTS A MARK CDMFLEIELY REPLACcb U. 


T 

1 


tiTL ERUPTING ANOTHER 


K - 41 
42 

K _ C43 

R. CF 4 4 

P .' < 45 


ORDER OF WAITING DISPLAYS- 
Ic ASTRONAUT EXTERMAL USE 

2* PRIORITY 

3o INTERRUPTED MARK" 

4. INTERRUPTED NORMAL 


RCC46 5» MARK TO BE RECUESTEC (SEE OcSCRIPTION OF ENDMARKJ 

R0L47 6. MARK WAITING 

RFC4« 7. NCRRAL WAITING 


f 


gap: AS> £ MBL h Rty 1 SIG N y J Z OF AbC PROGRAM A KTcMIS SY NASA 2X2 1 X I A - 11 _ 11:4 F£b. 26,19/1 ZEUS . 4b PAGE 14 ^9 

L OISPLAY INTERFACE RCUTlNtS UShH • S PAGE NO. 2 E S3 

PC' 49 TFE DISPLAY ROUTU 4 ES ARE INTcNOEu TU SERVE AS AN INTERFACE BEIriEEN THE USER ANw PINBALL THE 

k:.«' SI FCLLQVirNG STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND FRIURITY DISPLAYS lA DESCRIPTION DF MARK ROUTINES 

K.i.53 RILL FOLLOW LATER): 


K 34 
R r. 56 

R ' '■ 56 

R-.'v 59 

RC061 

R L t 65 
R tU66 
RDLoT 
R<jV69 
R ' ,'C7T 
R Z^- TZ 
R "l 74 
K ' ( 7 5 



3» 

4« 




ALL KCUTINES THAT END IN K HAVE AN IMMEUIATE RcTUkN TU THE USER® FlR ALL FLAGHliJG DISPLAYS THIS RETURN 
IS TO THE U^SERS CALL C ADR +4^ FUR THE ONLY NON FLASHING rMRPDiATEKETURN”Dl SPLAY IGODSPR) THIS RETURN 

IS TO THE USERS CALLING LuC 'H* 

ALL ROUTINES NOT ENDING IN R 00 NOT DO AN IMMEDIATE RETURN TO THE USER. ----- - 
ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) wiTH USERS JOE PKIORITY 

A lZt.— ROttTt NES ~ NIJ T E N DIN G I N R O lHECTLy T O MAKEPLA Y MAKES THLS E '- trlSPLATS - ~ A-PART^t3F THE 


USERS JOB* 

ALL DISPLAY routines ARE CALLED VIA BANKCALL- 

TO RESTART A DISPLAY THE USER WILL GENERALLY .^SE A PHASE OF ONE 

UESCRIPTION CF RESTARTS)* 

ALL FLASHING DISPLAYS HAVE 3 REIURNS TO THE USER FROM ASTRONAUT 

T O T H E USERS " C A tr t— e AgR -^-t:; A PRUCEEQ tV33 - r- 8 RANCt t ES - To ' THE - tl S t 

IV32) BRANCHES TO THE USERS CALL CADR +3* 

ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL, 


wlTH ijLoIRLD t\E start oROuP (SEE 

RESPONSi-S. . iuDMINATt IV34) BRANCHES 
S'CALL" CADR n tl eW T ' E r f ~ & R~ fr E C Y CtE — 


Rti 76 A DESCrtiPTldN OF EACH RCuTlNE WITH AN EXAMPLE FOLLOWS: 

■r -R 85 GODSPK Ts" THE SAME AS GCDSP ONLY RE TURN ~1 3 Tu'THE USER* 


A •: < b 6 

A \ i 67 

" ACDBe 


CAF VXXNYY 

TC BANK call 

CAOR GODS PR 


A Cl 89 


immediate RblUr N LiF GJuSi K 


R Gt 9* 
RCC'92 


GCFLASH DISPLAYS A FLASHING VERB NoUN WITH NO IMMEDIATE REIURN TU THE USER, 
THE ASTRCNAUT tSEE NC* 7 ABOVE)* 


3 RE f URNS ARE PuSSlcLE FROM 


A».f 93 
— A'^9-4- 

A *1 Ij 9 5 

AT 096 

AUC97 

" ACC98 


CAF VXXNYY VXX NYY WILL BE A FLASHlTo VERB NOUN 

TC jrANKCAtrC ^ 

CAOR GOFLASH 

», TERMINATE RETURN 

PROCEED RETURN 

ElfTtR DR RECYCLE HL TUR 


R ( C 9 9 
RCl' 1 

3 


GCPEkFI is ENTERED WITH DtSlREo CHECKLIST VALUt IN A= GtPERFi WILL DISPLAY THIS 
VCl N25,/i FLASHING PLEASc PERFORM ON CHECKLIST { V5 > N^3) IS THEN DlSPLAYEDc itU 

USER (SEE NO® 7 ABOVE)., 


value in kl BY “mean's” of A 

IMHCulATE RETURN IS MADE TU 


Rrr.4 GOPERFI CLANKS REGISTERS R2 AND P.3 


ACl. 5 
A < 1 6 

A Jin? 

A - 1 S 

A 1 - 9 


Caf ccrxx CODE rop checklist val xx 

Tl cANKCALL 

CADlv GCPEKi-l 

a,, g, lEKMlNATE RlTUHi'^ 

„ . a* PRuCEED RETURri 



3 


1 i:4 FLb> 26rI97l ZfcUS 


b *iF : AbSEMBLb KbViS i ON 7^ OF AGC PKObRAW ARTEMIS Q Y NASA 1 21114-11 


46 PAGE 145 


L DISPLAY If^lTfcRFACfc HOUTINlS 


USER'S PAGE UO. 6 L S3 


A U 



— . ^ 


O « O' _ 

enter rfturn 


- 

R 123 

GCPERF3 

IS USED FUR 

A PLEASE PERFORM UN A PROGRAM NUMBER, THE Ob^IRED PROGRAM NOo IS ENTERED i^i A,. 

GDPERF3 


~RTI2T 

displays 

T H E WD « BY 

KhANi UP A V* 6 Nvh/ |-ULLUVihU 

BY A V !> Nv 

{ FUR A PLEASE PERFORM NO LMbEDlAlt KLIUKN 


Rv 127 

IS MADE 

TO THE USER 

(SEE Nu« 7 ABOVE)* 


- 


- 


K! 123 

GOPERFJ 

BLANKS REGIS 

TERS R2 AND P3 


,, 

_ _ ^ _ 


r 

Aw 1,29 




CAF 

DECXX 

KEUUEST PERFORM UN PXX 



' a ~ 13? ~ 




I L 

baNKcall 




Ai l3 1 




\^AUK 

buP E RF3 




AC 132 





9 ^ 

TERMINATE RETURN “ 



A 9 133 




0 O » 


PROCEED RETURN 



A 0134 




0 4^ 

0 9 

ENTER RETURN 



R : 1 3 5 

GCPtRF4 

IS USED FOR 

A PL..ASE PERFORM ON AN OPTION. THE 

DtSiKtD OPT ION iSENTEREO IN A AND STORED IN UPTIGNl, 


Rf;i37 

30PERF4 

DISPLAYS Ri 

AND R2 BY MEANS OF A Vw4N' 6 

FOLLOW 

ED BY A FLASHINo V5bNu6 FOR A PLEASE PERFORM. 

NO 


RCli*? 

IFMEDIATE RETURN IS 

Made to THE USEk (SEE NOo 7 

AdOVL ) 

■ 




A 14^ 


- 


CAF 

OCfX< 

REQUEST PERFORM ON UP i ION XX 


1 

A 141 




rc 

BANKCALL 




~A- 142“ 




L* A 

GOP bliF 




Av 143 




* J 9 


TERMINATE RETURN 



AC 144 

- • 

_ — - T 

■ 


9*5 

PROCEED RETURN 



Abl45 



_ _ _ ^ 

o ^ 

0 

ENTER RETURN 



R ^146 

GCPEKF 4 

ELANKS REGISTER R3 






L-147 

GODSPRtT 

IS USED TU 

DISPLAY A VERB NOUN ARRIVING 

I N A 

WITH A RETURN 

TO THE USER AFTER THE DISPLAY HAS 

BEEN SENT 


R : 149 

OUT- 







r' 

A ' 1 3 


- - 

- - 

CAF 

VXXNYY 

„ - . . . . . . _ , 

- 

- 

A 151 




T C 

BANKCALL 








CAOK 





A- 153 

- 



a t* 3 

0 9 -i 

REIORN TO USER 

- 



R C 1 54 
Rf 156 


REGOOSP US to TG DISPLAY A VERfc ?>iUUN ARKiVlNG m A, 
ACTIVE NORMAL DISPLAY IF UKE WAS ACTIVL« 


KLijUOSP iS THE SAME AS 


SP ONLY REGOUSP REPl ACES ANY 


A' 157 
A C 1 5 8 

AC 159 


CaF VXXHYY 

TC BANKCALL 

CAUR RuGOJbP 


RCi6 REFLASH IS THE SAME 


AS GOFLASH ONLY k EFLASH R EPLACE S Ai^ T AC TiVt^ NORMAL DISPLAY IF ONE WAS mCT IVEo 


A ^ 162 
AC 16 3 

AC164 

A 165 


CAF 

VXXNYY 

VXX NYY HILL BE A FLASHING VERB NOUN 

TC 

BANKCALL 


CAUK 

KcFL A jd 


# O J 


TERMINATE RETURN 


ah: AiSE.'^BLt KEVISION m GF A^C PRU'JKAH ARtEMiS BY NASA ZlLL^- il 


Ll^Ai FE8. 26,1971 ZFGi, 


46 PAGE 1451 


DISPLAY INTERFACE RUbflNES 


UStR'S PAGE NOo 


bO S3 


A 166 
A 167 


d 9 ^ 
^*3 3 


«3 « ^ 

4^ 


PROCEED RETDRN 
ENTER RETURN 


(<'163 


GOFLASHR is same as GOFLASH only an IMMEClATt KETUKN IS MADE Tu THE USERS CALL CAOR +4 


AC 17- 
A’ 171 
AM 72 
AM7i 
TmL 74 ^ 
A 175 


C A F 
TC 

Cajr 

« O -i 


0 O J 

o • -> 


VXXNYY 

eankcal l 

GOFLASH ft 


0 O 

0 1 

> ‘I ^ 


TERMINATE RETURN 

-P ROCEE D RE T UR N 

ENTER OR RECYCLE RETURN 


AM 76 


9 0 A 


IMMEDIATE RETURN FROM GQFLASHH 


RM7T GGPERFIR Is ThE SAME AS GUPERFl ONLY GOPERFIR HAS AN IMMEDIATE RETURN TCUSERS CALL CADR +4» 


1 C 17 9 


GOPERFIR BLANKS REGISTERS K2 AND Hi 


A'-ISC 

ACIBl 

AM 82 
Ari 33 

AMe 4 

Ari85 


CAF 

TC 

CADR 


0 -i 

9 0^ 


UCTXX 

BANRCALL 

EkFIK 


> -i 

9 9 


CODE FOR CHECKLIST VALUE XX 


TEKMINATE RETURrT 
P RULE ED RETURN 
ENTER RETURN 


A ;136 


# o o 


0 0 6 


IMMEDIATE RETURN FRUM GOPERFlR 


RC197 GCPERF3R IS THE SAME AS GUPERF3 ONLY AN IMMEDIATE RETURN IS MADE TG USERS CALL CADR +4., 


R C 199 


GQPERF3K BLANKS REGISTERS K2 AND R3 


A’'. 2 C,v 

A Z'' 1 


Ai-ECS 

Ar2. 4 
AM -5 


CAF 

TC 


o o ^ 

0 0 9 
6 0 0 


PRUGXX 

eankcall 

tIMit 


0 0^ 
j 

0 C 


PERFORM PROGRAM XX 


TERMINATE RETURN 
PROCEED RETURN 
ENTER RETURN 


A V 2v 6 


9 0 0 


r a 


G0PERF3R If'MEpIATELY RETURNS HERE 


Rf 2 7 GCPcRF4R IS ThE SAME AS G0PERF4 ONLY AN IiMMEPiATE RETUnN IS MAuE TO USERS CALL CACK +4« 


Al2G9 
Af 21 ^^ 

A 211 


A~ZI2 
A ■ 2 1 i 
AC2i4 


c af 

TC 

CAOR 


OC T X X 
£ AN K CALL 

oOPhKF4H 


0 0 .1 
A 0 -f 
0 0 0 


9 o 
» 0 > 

0 0 


keduest perform on optionxx 


Tg R HI NA T r’RETURPf 
PROCEED RE (URN 
ENTER RETURN 


A 215 


0 0 0 


a 'J ^ 


IMMEOTATE return TO USER 


f— 

fr-T 



A Si£ H3L£ KEV ISlOrj €72 OF A^ C PRUbKfeM AKrEMi:^ BY NASA 2 21114 -r il 11:4-^ FEB* 26,1971 ZEUS » - 46 PAGE 1452 

I DISPLAY I.iiTERFACt ROUTINfcS USER'S PAGE NO* 5 E>, S3 

R 2io GCPtRF4R 3LANKS REGISTEK tv3 


R • 1 17 REFLASHK IS THE SA M E AS RcFLASH ONLY AN IM/^EDIATE KfcTURU MAU£ TO THE USERS CALL CAOR -«-4o 


A 219 

CAF 

VXXNYY 

VXX NYY WILL BE_ A FLASHING VERb NOUN 

A '22 - 

rc 

BANKCALL 


A 221 

CADR 

REFLASHR 


A. 222 

c* O ^ 

« 1 

TERMINATE RETURN ’ 

Ac223 

« Q Q 


PROCEED RETURN 


7n:zz4 ~ — ' — rr; rr: enter re i urn 


A 225 ova IMMEDIATE RETURN TO USER 

R<226 KEGOOSPR IS THE SAME AS KEGCOSP ONLY A RETURN t IMMEDIATE J I o MADE TU THE USEK* 


A .228 
A*>229 

A'23'‘ 


Av231 .ov .,0 IMMEDIATE RETURN TO USER 


CAF VXXNYY 

IC BANKCALL 

CAOR REGJDSPR 




IQ 


7 




t 


2 


gap: 

I 

R_238 

K' 

R 246 


A G W B L t Iv L V I SI ON 7 2 OF AbC PROGRAM AHT bM IS BY NASA 2.211 14- ..11 

DISPLAY IWTEKFACt ROUTINES 

tOMAKK IS USED TO DISPLAY A MARK VcRO NOUN ARRIVING IN A, NO kETURN 


11:40 FbBc 26,19 71 ZEU S 

USER'S PAGE NUo 6 
IS MADE TO THE USER, 


• l.‘46 PAGE 1453 


EC S3 


GCM AR KR IS TH E S AME AS GQHmKK ONLY RETURN IS TO TH E USER;, 

GOMAKKF CiSPLAYS A FLASHING MARK VERB NOUN WITH Nu IMMEDIATE RETURN TO ThE USERo 3 RETURNS ARE POSSIBLE FKUM 
THE ASTRONAUT I SEE NC, 7 ABOVE »• 


R' 247 GCXDSPF = GOMARKF 


A^ 2*fro 

UAF 

VXXNYY 

VXXNYY WILL BE" A^FETiSTTlNG MARK VERB NOUN 

A 1249 

TC 

BANKCALL 


A ^25 

CADR 

GOMARKF 

OTHER- EXTENDED VERBS USE CAUR GOXDSPF 

A<.25l 

« « 3 

9 O ■-» 

TERMINATE RETURN 

A (252 

9 0 0 

O • >> 

PROCEED RETURN 

A: 253 

» o 

O & T* 

ENTER UR RECYCLE RETURN 

R 1 254 

GCMARKFK iS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN 

lo MADE TO 

THE UScK CALL CADR +4. 


Rr264 GCMARKi lo USED FOR A PLEASE PERFORM ON A MARK REQUEST WlJH UNLY 1 ASTRuNAUT RETURN TO THE USER* NO IMMEDIATE 

^"*266 RETURN IS T!AOE<, THE DESlKEt HARK PLEASE PERFORM VERB AND DESlRtD NOUN ISENTERED IN A* GOMARKl DISPLAYS Rl, R2t R 

R1268 MEANS OF A VU5NYY FGLLQi^ED BY A FLASHING VSXNYY FOR A PLEASE PERFuRMo THE ASTRUNAUT HILL RESPOND WITH A MARK 

R ■ 2 7 D P MARK RE JEL f UK AN ENTER* T H E - r N T ER IS T HE ONLT "ASTTTONAtrr RES PON SE TH AT TTnrrXOHE- 8 AO K TO THE USER* ' ' " 

Av272 CAF VSXVYY X=l,2i3,4 Y= NOUN 

AC273 TC 6ANKCALL 

4^:274 CADR GOMARKl 


A -275 


9 ^ 


a s « 


ENTER RETURN 


R 276 *** IF BLANKING DESIRED ON NUN R ROUTINES* NUTIFY DiSPLAYtR. 


RC277 
A’ 279 

A v281 


GCMARKIR TS THE 6AME AS A GOMARKl ONLY AN 


IMMEDIATE RE 

C Ar 

— rtr^— 


TORN IS MADE 
VjjXNYY 

trANX uAt L 


CADR GOMARKl R 


10 THE USERS CALL CADR +2* 
X=l,2i3|4 YY - NOUN 


A 


A’ 282 
A 1*283 


f;< 284 
At '23 6 

A *’287 

A :28& 

AC289 

A. 29'-) 

TTTZTl 

r:.313 


• mo 

9*9 


O » * 

a J - 


ASTRONAUT ENTER RETURN 
IMMEDIATE RETURN TC USER 


GC’MARK2 IS THE SAME AS GoMARKl ONLY 3 RETURNS ARE MADE I U THE USER FROM THE ASTRONAUT 

^ ^ 1 J fa f 3 J " 


CAF 

rc 

CADR 


V jXi'jYY 
cANKCALL 
GGMARK2 


YY=NOUN 


e :si 

« 9 '> 


I* 4 


9 9 


» A 


TERMINATE RETURN 
PROCEED RETURN 
EN T ER - F-gTDRH 


W ^ - 

G0MARK4 IS THE SAME AS GUMARK3 ONLY R2 AND Rjk ARE BLANKcL AMU Kl IS DISPLAYED IN OCTAL 


X=it2,3,4 YY^NOUN 


A ^ 3 1 5 
A 316 


CAF 
1 C 


VjXNYY 

BANXCAEL 


^ aP : AS S PMbLc rtt VlSlUN • 7Z CF A^jC P RUG R AH aRT £MIS BY NASA /I J1114~ 11 lii4 FcB^ 26flQ71 ZEUS 46 PAGE 14b 4 


L 

DISPLAY INTERFACE RUUT INcS USER'S PAGE NO. 7 E^ S3 

A 031 7 
Av3ia 

A' 319 

CADR GGMARK4 

terminate RETURN 
... PROCEED RETURN 

~7fT:37" 

0*0 . • EN ILK KE 1 UKN 

' K:32i 
Rv323 

EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING livi A WITH A RETURN MADE Tu THE USER AFTER THE DISPLAY HAS BEEN 

SENT GUT. 

A .32 4 

A' 326 

CAF VXXNYY 

■ ■ -eattkcalt 

CADR LXOSPKET 

A» 327 

,oo .. RETURN TO USER 

R..32e 

KLEENEX CLEANS GUI ALL HARK DISPLAYS (ACTIVE AND INACTIVL). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS 

H^VE BEER CLORED " OUT. - 

A 331 

A’ 332 

TC e^NKCALL 

CADR KLEENEX ' 

A 333 

.o, .0. RETURN TO USER 

K 3 J 4 

MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING Jj£ VAC AREAS (SEE DESCRIPTION OF MARKBRAN bELaW). 

A v336 

A <337 

TG tJANKCALL . „ 

CADR KARKbRAN 

A 336 

BAD RETURN IF MARK DISPLAY NOT ACTIVE 

A . 339 

A 3 4 

(GUOD RETURN TO” IMMEDIATE RETURN LOC OF 

LAST FLASHING MARK R ROUTiNEI 

R- 341 
~TrC343 

FlNeFNCH REESTABL iSF.tS THE LAST ACTIVE FLASHING DISPLAY# IF THcRE IS NO ACTIVE FLASHING DiSPLAYt THE USKY IS 

SUITNKE'J A.-^D CORTKQL IS •’SENT TOHNUJFJOB, 

A. 344 
AC 345 

TC PCSTJUMP 

uADK PlNBRNCh 

K'. 346 

F03^isr‘ 

PRIOD^P IS USED AS A PRIORITY DISPlAY. IT WILL OIgPLAY ^ GUFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM 

■■ T F E' 'TTSTRXi^UT t SEE UU. T AbUVh ) . 


RC349 THE MAIN PURPOSE OF PKlUDSP IS TO REPLACE T He PRt:>e!'.T OiSPLAY WITH A DISPLAY CF HIGHER PRiUKlTY AND TU 

P.:351 PROVIDE A MEANS FOR RESTURING THE OLD DISPLAY WHEN I ht PRIURHY oISPLaY 

RC352 IS RESPONDED TO 6Y THE ASTRONAUT. 

^(.353 THE~FOf^^in}I SPLAY IS RESTORED BY AN AUlUrtATlC B RANCH TJ WAKE UP THE DISPLAY THAT WAS INTERRUPTED bY THE 

RL355 PRIO DISPLAY, 


A< 3S6 
A ' 337 


CAF 

TL 


VaXNYY 

EANKCALL 


VXXNYY WILL bL A FLASHING VERB NOUN 


bAP: ASSEMbLE KEVISION C72 UF AbC PKQCiRAM ARTfcMIo BY NASA ^-.21114-11 


11:4., FEU. 26,19 71 2EUS 


a«46 PAGE 1455 


DISPLAY INTERFACE HOUTINbS 


USER'S PAGE NO 


8 


E' S 


Ai.35e 

Ai359 

Ar36'‘ 

ATT 351 


c adk 

^ 

Oi D e 
• ^ w 


PrtiODSP 

a -0 '• 


0 0 


0 tj 




TERMINATE RETURN 
PROCEED RETURN 
-fIT TER OK RECYCLE -R E TUR N 


K1362 PRIDDSPK IS THE SAHE AS PRlCDSPuNLY AN IRMtUlATE REIURN iS HADE 10 THE USERS CALL CADR +4 


A‘ 364 
A ' 3fc5 

7^*73616 

A i 3 6 7 

A 7368 

AC36g 


CAF 

rc 

9 « o 
O 9 • 
«t « e 


VXXNYY 

BANRCALL 

Pin a OS PR 


VXXNYY WILL BE A FLASHING VERB NOUN 


d tt > 

0 0 t 


TERMINATE RETURN 
PROCEED RETURN - 
ENTER OR RECYCLE RETURN 


AC37 


R' 371 
RC372 

Rl374 


« o ei 


0 0^ 


PBICLARM 

CLEANDSP 

DISPLAYS 


JOES A V05NC9 PKIODSPR. 

CLEANS OUT ALL NORMAL DISPLAYS 

ARE CLEANED OUT ^ 


IMMEDIATE RETURN 


(ACTIVE and INACTIVE). A RETURN IS HADE TC THE USER AFTER NDRMAX 


A 375 
A^TS" 


T r 

UADK 


BANKCALL 

CLEAIVDSF 


A . 377 


0 4'^ 


• ^ -i 


RETURN TO USER 


k • - . assemble Ki vision ‘IZ CF AbC Pr<OGRAM ARlEf^lS BY NAbA 21 li:^:: FEB, 26tlS71 ZEUS ,»’46 PAt?E 1456 


L 

CISPLAY RntRFACH ROUTINES USER*S PAGE NO, 9 L S3 

^37B 

P .379 

GENERAL INFORMATION 

K 1 3 ‘ : 

ALARM OR ABORT EXIT MQDfcS — 

A '.3b 1 

At 3B2 

PRIOBQRT rc AriORl 

GOT X5<)2 

R C3 8 3 
RC385 
^0337 

PHIOBCRT I3 BRANCeO TO WHEN tlJ A NORMAL DISPLAY IG REOUEbTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE 

IREFLASH AND REGODSP ARE hXCEPTIONSI OK (2» A PRIORITY uI^PLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS 

ALRETADY ACTIVE (A PRIORITY WITH LINUS BITi4 IS AN EXCEPTICN ) S 

Rv388 

ERASABLE INITIALIZATION REQUIRED — 

Rv389 

RC391 

RC393 

ACCOMPLISHED BY FRE^H START- 1, FLAGWRD4 lUSEO EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES) 

2« NVSAVE — NORMAL VERB^ AKD NOUN REGISTbRo 

3, EBANKTEM = NORMAL INACTIVE FLAGWORD I ALSO CONTAINS NORMALS EBANK) 

R.39 5 
Rii396 
RC398 

5, RISAVE = MARK6KAN CCNTRUL WORD 

4, RESIREG = priority 3. AND SUPERBANK 3o 

CLTPLT — 

'RC39 9 
R'HDC 

I 

NVWQRD = PRIU VERB ANO' NOUN 

NVftORD +1IRAKKNV) = MARK VERS AND NOUN 

"■■NVWORD +2(NVSAVEJ = NUKWAr'VFRa AWD'NUUN 

R(4 2 
Rt4,3 

Rr4l4 

DSFFLGlEbANKSAV 1 ~= >R10 FLAGWORD (INCLUDING EBANK) 

DSPFLG +1(MARK£BAN) = MARK FLAGwORD (INCLUDING EBANK) 

DSPFLG +2( EBAriKTEM) = NORTTAL FLAGWORD tINCLUOIG EBANK) 

RCAub 
R‘..4' 6 

R':4:7 

CAORFLSH = PKIO USERS CALL CADR +i LOCATIQN 

CADRFLSH +1(MARKFLSH) = MARK USERS CALL CADR LOOAUO^ 

CAORFLSH +2(TEHPFLSH) = NORMAL USERS CALL CAu»R +1 LOOmI ION 

r 

k' A: 3 
RC4 09 

“'RT'AX'’”' 

R ;4ii 
RC412 

R 1.4 14 

R. C 4 i 5 

PRiCTIME = TIME EACH PRIO REQUEST FIRST SENT uOT 

UPTIONi = DESIRED OPTION FROM GuPtRF4 

rOfG«RD4 = BIT WO )=TjlT'rO'RTROi: 'O F' A'LX’ OrSPlAV RUUMNES 

DSPTEMl = R1 INFO FUR ASTRONAUT FROM PERFORM uiSPL AYS ( NuRM AL ) 

SUBROUTINES USED — NVSUB» FLAGuP, FLAGDOWNt ENOOFJOBt bLANKSUB, ABORT t JOBwAKE, JGESLEEPt FINOVACi PRICgHNGi 

JAKTERM, NVSUaUSYt FLAShONf Ei^DlDLE* CHAKGlt BANKJUMPf MAKECADRt NOVAC» 

DEBRIS — (oTQRED INTO 

Rr4I6 

Rt 418 

PC 42-0 

TEMPORARY T EMPORARIF-S- A, Qt Lf MPAC +2f MPAU +3» HPAC +4, MPAC MPAC +6i RUPTREGZf KUPTREG3i CYLt 

EBANK, KLPTREG4, LOG, BAnKSET, MODE, MPAC, MPAC +1 A, FACEREG 

ERASABES (SHARED AND USED wITH OTHER PROGRAMS) CAORSTOR, DSPLIST, LOC, OSPTLMi, OPIIONl 

H i 422 

ERASabL£S(USED only BY DISPLAY ROUriNESi- NVWORD ,+ i , +2 , DbPFL j, + i , + 2 , CADRFLSH , + i , +2 , PRIUllME, FLAGWRD4, 


DiPFL j,+i,+2» CADkFLSHt+i i+2r PRIUTIMEf FLAbWRDA, 
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PAGE 1A57 


OISFLAY I.iTERFACE ROUTINES 


USER'S PAGE NU 


1.. 


E' S3 


R- A2^t RISAVL, HARKZPACf 


R ( A26 
Rr427 


TOSEiniuT NCT” STORE^D lUT □ ) - N UU N REG, V eRbre G , LuCrrH, MONS/rvri 
FLAGrtORO uESCRiPTiUNS — 

FLAGWRlW- SEE DESCRIPTICN UNDER LUG SECTION ERASABLE ASSIGNMENTS 


R ; 428 
429 

RC431 
R9432 
R l43 3 
R' 434 
R 435 


DSPFLo, DSPFLG+1, OSPFLG +2 


R*.43 7 
Ri'4'3S 
R^439 
R C44 ^ 
Ri'44i 
ir^4? 
K 443 
RC 444 
R'. 445 


1 B L ANK nr 

2 BLANK R2 


3 BLANK R3 

4 FLASHING DISPLAY REaUESTED 
PERFORM DISPLAY REQUESTED 
EXOSPRET 


P R 1 0- - Q tSPtAT 


5 

6 
-T 

9 EBANK 

10 EBANK 

11 EBANK 

12 


GbDSPRET 


makk monitor perf 


V99PASTE 


13 2N J P A RT C F ~ PE RP C R n 

14 REPLASH OF REDO 

rtARK KEQUESl 

RESTARTING DISPLAYS — 


REFLASH CR REDD 


H i 446 


RULES FUR THE DSKY OPERATOR 


■■5 


R i 44 7 
R'C449 

RL451 

k'.453 

K C 454 

R<'458 

Rv46 

K '462 
R0464 
Rl 465 
fTOAGG' 
RC466 
R C47T 
R<. 472 
RC474 
RC475 
~irC4T5 
RC47d 


1, 


PRuCEEG AND TERMINATE SERVE AS RESPONSES Tu REUUESTS FDrt ^PLRAT^ RESPONSE (PLASHING V/N).^ AS LONG 
AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONi.£, ANY USE OF PKOCEcD OR TERMINATE WILL ScRVt AS 

RESPONSES TO THAT REQUEST , CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR 
WITH PROCEED AND TERMINATE FCR THIS REASON, 

THE ASTRONAUT MUST RESPOND TL A FRiQRITY DISPLAY NO j»JDNtR THAN 5 SECS FROM THE TIME THE MISSION 
PttOGft-AM S DTSPl - n***. 


DDE TO TIME IT TAKES TU GET DISPLAY SENT OUT,,) IF THE ASTRONAUT KESPJNDS TOO SOON, THE PRIORITY DISPLAY 

IS SENT OUT AGAl,, AND AGAIN UNTIL AN ACCUHULAftD SECS PKLM TIME THE FIRST PKIOKITY DISPLAY WAS S'LNT 

CUT, THE SAME 5 SEC. DELAY rtlLL OC^UK AT ioJ,a4 SEC i OK IN ANY MULTIPLE OF THAT TIME DUE TO PKfGKA 

CJNSIOERAriuN. 

3, KEY RELEASE 8UTTON- 
AT' 


8) 


rF^RE^TCrrTnirarSB-rrGHT -TS: it- S nJn^T--KrL“EA5-E3 the -KEYBOTSTTCT-AN D DI SPL-TIY- for I NTBRWAr-USC. 

IF THE KEY RELEASE HuHT IS OFF# AND IP SOMt REQuE:>l ^ UR GPLRATUR RESPONSE (FLASHING V/N) IS STILL 

THEN IT RE-tSfABLI 5HES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE 


AWAITING RESPONSE - ^ .r,,rc t,.m 

IF AN OPEnATOR HANTS THEREFORE TC RE-ESTABLISH r,Ui CUNu 1 U uN (A) IS ENCOUNTERED, A SECOND uFPRFSsIUN 

KEY RELEASE BUTTON MAY BE NECESSARY, 

4, IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR 'JPERATOR RESPONSE. _ 

^V-TT-I S-- 7 r i:W 71 TS“GUGir PKACTT T:E-“TU-TF^ E— e X T EN D ED" VE RB BHEUKE ASKT^GTa-K AND I HER ONE OTT ThF SAME ONE 

EVER AGAIN. 


R-..479 special CJnSI DERATIONS 
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.-46 P/6t- 145d 


L DISPLAY IfNTtRFACE RUUriNES 


USER'S PAGE NGt, 11 


RC48C K MPAC +2 SAVED ONLY liM MARK DISPLAYS 

KiAdi 2, GJDSP ( R) f KEGdOSP(R) fSGMARKi K) ALWAYS TURK UN TH£ FLASH fF EMeKEO WITH A PASTE VERB REjUEsTo 

K^'4R3 3* ALL NORMAL DISPLAYS ARE HESTARTAeLE EXCEPT GQOSPIR), RbLQDSP(R) 

7177494- 4^^"AlL E X I hiWEITTER'BS W 1 i H U15PLAYS SHUULD SIARl WUH A IL T F 5TXAC 1 AND F INI5F ~ W I TR A T C E N UEXT 

R 460 S. GUDSPtRJ AND REGUDSPtRJ MUST BE IN THE SAME EoANK AND SUPtkBANK AS THE LAST NORMAL DISPLAY RESTAhlED 

R‘488 BY A *1 RESTART PHASE CHANGE. 

K'C4d9 6« IN ORDER TO SET UP A NON DISPLAY .1 RESTAkT PUiNT, THE USER RUST MAKE CERTAIN THAT RESTREG CONTAi iS 

R<’491 CORRECT PRIORITY ‘AND SUPERBANK ATJO THAT EBANKTEM CONTAINS THE CD 

K7*t'^ll 7o IF CLEANUSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALl 


t 
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46 2AGE L459 


CISPLAY Ii4TLKFACt ROUTINES 


USER'S PAGE NO, 12 


S3 


PE492 
AC 49 3 

A 4'^4 

7tr495 


CALLING SeaUENCE FOR tJLANKING 


CaF 

TC 


eiTx 

bLANKE i 


• • d 


^ ft J 


X=1 ,2,3 BL ANR-Rl ,R2 ,-R3 HESPEXTIVL L / 


•RETU RN T O U S ER ' HE RE 


Rr496 

RC4'J6 


IN ORDER TO USE BLANKET CURKECTLY Tht USER MUST 
TO BLANKET AT THE IMMEDIATE RETURN LOC« 


USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED 3^ THE C^LL 


} 1 


)0 



REF 

1 



40 




5E TL OC 

FFTAG4 

“T5trt 





5irr6~ 




(3 ANK 


< 5 . 2 

REF 

1 







cu jn t ^ 

ii/DSPLA 

• 5' 3 

REF 

o92 

last 

1445 

6316 

54 162 

♦ 

BLANKET 

TS 

MPaC +6 

^3^4 

REF 

1 


- 

53 17 

4 0160 

1 


cs 

PLAYTtH4 

i 

REF 

693 

last 

1459 


7 -162 

_ -A .. „ 


MASK 

MPAC +6 

’ 5^'* 6 

— RTF 


“L“A“:rr 

— “5^n — 

161 

1 


I HUtX 

nPAC +5 

T5i 7 

REF 

2 

last 

1439 

5522 

^6 16 V 

1 


ADS 

PLAYTEM4 

•- 5 B 

REF 

3C4 

LAST 

1447 

5523 

3 00^32 

W- 


TC 

C 

>51'. 

REF 

9 

LAST 

793 

5524 

0 5527 

1 

ENDMARK 

TC 

CLcAKMRK 

— r5Ti 

FEF’ 

"ST" 

■~LTrsrr 

T3r9S 

5525' 

"T"4’&3‘5" 

0 


f c 

POST JUHF 

^ 512 

REF 

1 



552o 

21643 

D 


CADR 

MARK OVER 

05121 

REF 

263 

LAST 

1446 

5527 

3 47 72 

1 

CLEAR MRK 

CAF 

ZERO 

75122 

REF 

17 

LAST 

941 

553C 

55*247 

u 


TS 

lxtvbact 

5124 

REF 

1 



555 1 

4 47”7o 

1 


CS 

X0SP3IT 

5125 

REF 

6 

LAST 

59u 

5532 

7 U 1 L : 

1 


MASK 

FLAGWKU4 

5126 

REF 

7 

LAST 

145^ 

5533 

54 i. 

1 


TS 

FLAG iiilKD 4 

LSIlF 

REF 

30 5 

LAST 

1459 

5534 

D i.wj2 

u 

- - 

TC 

c 

RC513 

=f^*ALL EXTEND 

Eu VER3 

ROUTINES 

THAT HAVE 

AT LEAST 

ONE FL 

ASHING DISPLAY 

— Ftt-5-1'5 

f 1 N 1 SHtD tt 








; 5 16 

KEF 

192 

LASi 

1443 

553 5 

56 o l 


VNFLASH 

XCH 

L 

C517 

REF 

1 



5536 

3 5545 

u 


6 Ai- 

VNGAJh 

- l51S 

REF 

1 



5537 

1 5542 

0 


TCF 

VNGODSP 

-5i9 

BEF 

193 

LAST 

1459 

5540 

5o Dul 

i] 

W'iFLASHR 

XcH 

L 

052 

REF 

1 



5541 

3 5546 



CAF 

VNKCAOR 

f521 

REF 

3C6 

LAST 

1459 

5542 

24 602 

0 

VNGODSP 

I NCR 

w 

0522 

REF 

1 



5543 

22 155 

i 


LXCH 

Play T tMi 

0523 

REF 


L A^T 

1195 

5544 

i 4642 

1 


TCF 

SWCALL 

'52^ 

R £F 

1 



5545 

2C732 

G 

VMC ADR 

CADR 

V NF L 5 h 

52 5 

REF 

1 



5546 

2o 73 5 

1 

vnkCadk 

CADH 

Vi^FL jHK 


DISPLAY MUST TCP ENDMARK OR T CF ENDEXT WHi f 


BECAUSE OF RE ST ARTS 


•:527 

.528 


REF 


i <■} , 2.,; w ' . 

lu; , 237 5 


SETLUC Li>PLAYS 
BANK 
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L DISPLAY iMTERFAtE ROUT i.NhS UStR'S PAGE Nuc 13 t S3 


R . r> J 

H L'S 3 4. 

FF 1 

MERDiMLV 

3 RETURNS 

CQUNT/S' $>/DiPLA 

IS USED TO 0 IFF tKb M Ti AT L IHE MARK RUUTiNt WITH ONLY UNb RtrUHN 

1 TO THE USER, THIS ROUTINE IS ONLY USED bY GGMAHKl AND GUMAKKIR 

* * 

T 0 TH £ Us Eft FKUM 1 AllK 1 Mb RbU 1 I ] W I T 


V 5J4 

REF 

264 

last 

1459 

1 t 25 7 6 

3 4772 

1 

KLEENEX CAP 

ZERO 

CLEAN OUT EXTENDED VERdS 


’.SO 5 

REF 

2 

LAST 

1459 

iv,2576 

54 155 

1 

GOMaRKF TS 

PL/4 Y Tt K 1 

FNTiUNCE FOR MAKK GOFLASK 


S J6 

REP 

1 



1 ’ J I id 3 7 7 

3 7 664 

1 

CAF 

MAkKFMsK 

MARK, FLASH 


S37 

REF 

1 



I V. J ^ oil 3 

1 2745 

1 

TOF 

GCFLASH2 



538 

REF 

3 

LAST 

146v' 

iUf 2o. 1 

34 15 3 

1 

G0MAKK2 IS 

FLAYTcMi 

MARK bOPEftFS-3 AST ftetUKiVS 


5 3 <? ■ 

RFF 

1 ’ 



10,2602 

3 3733 

J 

^^ARKFQRf^ lAF^ 

MPERFM5K 

MAT^K, PERFORM, FLASH ' 


.54': 

REF 

2 

LAST 

146^ 

10 , 260 3 

1 2743 

1 

f CF 

GCFLASriZ 

... __ 


s 541 

REF 


LAST 

14 6 ‘J 

1 t Zo J 4 

54 15 5 

1 

G0MARK4 TS 

PLAY T EMI 



''542 

REF 

I — 



IL ,26L 5 

3 3 723 

1 

OAf 

MAKR4MS ^ 

KATsK f P E PP tJRM i FL rit BL ANX 


v543 

REP 

3 

LAST 

1460 

10 f 260 6 

1 2745 

1 

TCP 

GuFLAsHZ 

.. ... 

_ 

' 544 

REF 

5 

LAST 

i46t 

10 , 2 6l, 7 

54 155 

1 

GOMhKKPR T6 

PLAYTi..‘a 

ENTRANCE FOR MARK GDI-LA.jdR 


.545 

REF 

2 

LAST 

14tiO 

1 L r 2 6 1 ' . 

J 7664 

1 

CAF 

KARKFHsK 



34^ 

"REF’ 

I— 



i . , 2611 

1 31.3^ 

1 

’TTF 

GODSPRS 



r5462 

REF 

u 

LAST 

146 > 

IL , ^612 

54 155 

1 

karkmonr rs 

PLAY TEA 1 

USED FOR 'mark MONU'CR 

- - - 

.5463 

REF 

1 



17, 2613 

3 3754 

1 

CAP 

MARKS MS K 



■ 3464 

FEF 

4 

LAST 

146^i 

1 ' , 2614 

172745 

1 

rcF 

G0FLASH2 



547 

REF 

153 

LAST 

1428 

1 C f 2613 

3 4 7 7 u 

u 

NAKfcKAKK CAF 

L.^t: 



“^345 ■ 

“RTF" 

i - 



— 1272313“ 

D 31/2 

J 

TC 

TUPi ES 



' 54 9 

REF 

8 

LAST 

1459 

1 0 f 2 D 1 7 

3 ISO 

0 

GA 

FLAGWKD4 

IS NJft^ QR PRIG bUSY OR nAlTING’ 

■ 

i 55» 

REF 

1 



1.;, 2620 

7 3734 

0 

MASK 

CoT3430C 



:55i 

REF 

335 

LAST 

1447 

1^72621 

10 DiJw 

r? 

CCS 

A ■ 



i 552 

REF 

1 



10,2622 

1 267w 

D 

TCP 

CHKPRIU 



1553 

REF 

Q 

LAST 

146-.' 

10,2623 

3 .1.' 


C A 

FLAG WkD4 

IS MARK SLEEPING DU‘ TU A:>T KC BUSY 


<554 

REF 

i 



iJ,2624 

7 47o: 

- , 

MASK 

FRKNVBIT 



' 555 





1- ,2625 

0 U' ' D 

1 

cXTEND 




C556 

REF 

1 



1 7 2626 

1 ~263 > 

1 

8ZF 

KAKKHLAY 

FjQ 


C557 

REF 

91 

LAST 

1314 

ID, 2627 

1 52. 5 

1 

TCP 

ENDlUFJJb 



c 558 

REF 

28 

L AST 

13 ‘'3 

1 J f 263 

4 47 73 

1 

RAKKPlAY CS 

ri YL 

RESET MARK OYER NORM, Sul MARK 


55 3 

REF 

1. 

LAST 

14 6 C 

iy,2631 

f \ ■ kO ^ 

1 

MASK 

F LAo wku4 


' 

r56c 

REF 

2 

LAST 

1459 

10,2632 

6 477 

J 

AD 

X D 5 P B I T 



<561 

REF 

11 

LAST 

146 : 

1 J, 2633 

54 1 . 

1 


f LAGk/Ka4 



362 





1^ ? f 263 4 


u 

GOSUMmRK zl 


FEKFORW ‘ 


. 562 1 

REF 

1 



10 , 2635 

4 12 74 



H Ai-tKFL A G 



r5622 

REF 

1 



10,2636 

7 4761 

1 

MA SK 

OCMKPERF 



C5623 

REF 

3 £ 

LAST 

146 .• 

i V , 2 6 3 7 

It 0.' 


cos 

^ ■ 



'3624 

- 




1. ,264< 

i 2645 

jr 

U 

TCP 

4 D 
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.‘46 PAGE 146i 


DISPLAY i.'iTERFACE ROUT INtS 


USER'S PAGE NO 


14 


S3 


5c25 

REF 

1 



ii t264i 

3 U367 ■' 


CA 

MARKNV 

'' 5oZ6 

REF 

3 

LAST 

366 

IG f 26^2 

7 '4171 . 


MASK 

M D7 

.5627 

REF 

194 

LAST 

1459 

li ,: f 2643 

54 UOl 1 


TS 

L 

' rtr628' 





lT3 #Z64A 

1 2 $5 1 J 


TCF 


'-5629 

KEF 

2 

LAST 

146 0 

1U|2645 

4 12 74 


5 

rarkflag 


REF 

1 



10.2646 

7 4764 1 


MASK 

P ERF RUST 

564 

REF 

387 

LAST 

146 

lu .264 7 

X C o' '.J ‘i- 0 


CCS 

A 

r565 

REF 

1 

- 


1L,265>.' 

1 2653 1 


TCF 

KARKCUP 

1.56 b 

REF 

2 

LAST 

1461 

10,2651 

4 L3o7 1 


C6 

makknv 

'56 7“ 

' 'KEF 

3 — 

LAST ' 

T4Tj 1” 

— 1'0V2652” 

54 ■ 36“r'l 


1 i 

iM A t\ K N V 

C568 

REF 

154 

LAST 

146 

IJ . 2653 

3 477 w 0 

MARKCUP 

c af 

One 

’;;569 

REF 

1 



1 . T 2654 

54 164 0 


1 5 

CUPlNJtX 

569 5 

REF 

1 



X j 1 2655 

1 3316 i 


TCF 

+1 

.37^ 

REF 

1 



I’J . 2656 

S r 165 t 

COPYTOGU 

CA 

— — 

MPAC2SAV 

- t 5 '71 

T^EF‘ 


“LArST 

T459 

X 1 265 7 

54 1 


T 6 

MrAu +z 

C572 

REF 

2 

LAST 

1461 

10. ii66G 

5i 164 1 

COP YP ACS 

1 NUEX 

C CP INDEX 

i:573 

REF 

i 



1 ,2661 

3 374 ’ 1 


CAP 

PfiiUUCT 

£5 74 

REF 

1 



1 ,2662 

54 162 U 


TS 

GENMASK 

1 575 

REF 

3 

LAST 

1461 

1a^,2663 

50 lb4 1 


INOt X 

COF 1 Nub X 

v5 76 

REF 

2 

LAST 

83 

1 J , 2664 

3 1273 : 


OAF 

E3ANKSAV 

'*577 

REF 

1 



10,2665 

54 1 o ' 1 


TS 

■ TEHPUR2 

i. 5 7d 

REF 

“4 6 

LAST 

1432 

10 1 2666 

54 ‘ J L 3 V 


TS 

EBmNK 

' 579 

REF 

3C 7 

LAST 

1459 

10,2667 

0 0002 : 


TC 

c 


MARK IKUtX 


ACTIVE EPANK AND FLAG 




R ' 53*-' 
R 582 

R -584 

R v586 


Rt537 

Rcsao 


591 

t.5S2 

■’'T93' 

v5S4 


PINCFEK CHECKS TO SEE if THE CJKKErJT MARK REQUEST IS 
I A NORMAL OR A PnlUJ. IF THE ASTRONAUT TRlcS TU HaRK 

REQUEST rS"ENGEO. IF HE TRl £S TO MARK DURING A NORM, 

UNTIL ALL MARKING IS FINISHED. 


MADE BY THE ASTRONAUT WHILE INTERRUPTING A GUPLAY DISPLAY 
DURING A PKIUf THE CHECK FAIL LIGHT GOES ON AND THE MARK 

THE mark is ALLURED. IN THIS CASE THE NORM IS PUT TO SLEEP 


PRIC 

REF 

REF 


IF THE MARK REQUEST CCMES FROM THE FRUGRAM DURING A fj? HE ASTRONAUT I S NOT INTERRUPTiNG A NORMAL 
, THE ^-lARK REQUEST IS PUT TO SLEEP UKTIL THE +KbSENT ACTiVt DIcjPLAY IS KESPOTViDEO TO BY THE ASTRUNAUT, 


12 

2 


C5S5 

L596 


'“597 

L 5'^ 3 
■.54 9 


REF 


REF 

REF 


1 

1 


REF 

REF 

REF 

REF 


4 

1 

1 


LAST 

14o 'Zi 

1;^ f 2o7 ^ 

3 

1 , - 

r* 

CHKPRIU CA 

PL A6vJkD4 

LAST 

25 

1C,2671 

7 

7 646 

J 

w 

MAS K 

14 f 1 2 f 7 

LAST 

"146 X 

lC,2o 1 Z 

1 



^ 

A 



10,2673 

I 

36 7 4j 

1 

TgF 

RAi^.:>LEEP 



1C, 2674 

3 

4/^0 

i 

G AF 

RKUVai 1 



It , 2675 

u 

3755 

u 

rc 

UPb ^4T4^ 



IQ, 2676 

1 

3 ■ 

J 

i CF 

S t r OK M 

last 

1461 

IQ , 267 7 

3 

C 36 7 

i 

u 

KARKPERF GA 

RARKNV 



1 0. f 2 7 L C 

7 

4171 


MASK 

VbK lirtAS K 



1 L 1 2 7 V 1 

1 

335.1 


TCF 

NV5- DSP 


HARK ATTEMPT DURING PRIO 


i>tl MARK OVER NORM 


ll: 4U FEt5e 26tl97 1 
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ZEUS 
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UISPLAY liSJTERFACE RUUTiiNES 


USER'S PAGE NO, 


16 


L S 3 


< bV r 1 

REF 

1 

LAST 

1^60 

1 \j f 2_/_U 2 

54 . 155 

1 

GODSP 

1 S 

PLATTEMl 

- - - — - - - . . _ - 

_____ — 

— 




O' ' 2 

REF 

1 



10,27u3 

3 4772 

1 

G0DSP2 

CAF 

.jSPONLY 







' b . 3 

REF" 



14 6 r 

2 tG4 

“I 2 745 

i' 


TcF 

GUE L ASH2 







6 i 

REF 

3 

LAST 

1462 

1 C 1 2 ? o 5 

54 155 

1 

GODSP RET 

TS 

PLAT rtMl 

ENi RANGE FOR 

A GODSP WITH 

A PASTE 




6 : 2 

R 6 F 

1 

- 

- 

1 u f 2 7 u 6 

3 4763 

1 

- 

CAF 

kET uspy 

SET 3 IT 6 TO 

RETURN TO USER AFTtP 

N V S U 0 



' 6 .;: 3 

REF 

o 

LAST 

1462 

i'",27C7 

i 27^5 

1 


TCF 

GUFLASH2 







V.6 

. 

9 

LAST 

1462 

1 G f 2 7 1 

54 155 

1 

GQOSPR 

TS 

PLAYTEMi 







6' S 

REF 

2 

LAST 

1462 

1G,27H 

3 4772 

1 

GQuSPKi 

C AP 

CiPuNLY 







J # 

b b 

REF 

3 

LAST 

1459 

10,2712 

5^4 1 6 s' 

1 

G0DSPR2 

TS 

PLAYTEH4‘ 







26.7 

REF 

26 5 

LAST 

1460 

10 f 27 1 3 

3 4772 

1 


CAF 

Z £ K 0 

<= DONT MOV E 






i.6-: 8 

REF 

1 



11,2 J 14 

1 31g5 

1 


TCF 

GODSPRSl 







K 0 9 


CLEANDSP 

IS USED FGk C leaking UUT 

A i4uRMAL 

DISPLAY 

THAT IS 

PRESENTLY ACTIVE OR 

A NORMAL DISP 

LAY rhAT 

I i 


- JJ 

K v’ 6 1 1 

SET 

UP 

TC 3E 

STARTED 

DR Kt STARTED^ 











612 


NORFALLY 

THE USER i^lLL NOT NEED 

TO 

USE THIS 

KUOT I iijc 

SINCE A 

NEW NORMAL DISPLAY 

AUTOMATICALLY 

CLEARS 

GOT AN 




R 1.614 CLD DISPLAY 


R bis 


CALLING SEQUENCE FOR CLEaNDSP 


A ^616 









T C 

bankcall 


IT'SIT 









L AUK 

CLEANUST 


618 

REF 

266 

LAST 

1462 

l!/,27i5 

3 4772 

1 

CLbANDSP 

CAF 

ZERO 


'619 

REF 

1 

LAST 

1462 

1 J , 27 1 o 

:>4 155 

1 

KEFlASH 

TS 

PLAYTEMi 


V 62 V’ 

REF 

1 



i ,2717 

3 3722 

W 


CAF 

REDUMASK FLASH AND PERMIT 


— rczr 

K t F 

7 

LAST 

T^h~Z 

TTTZTZT" 

1 2745 

1 


t L h 

GOFL ASHZ 


ro22 

REF 

11 

LAST 

1462 

1 u # 21 7 2 1 

54 155 

1 

R tGUO SP 

TS 

play 1 EMI 


S623 

REF 

1 



1,2 7^2 

3 47d3 

1 


CAF 

R EF LSH 


0624 

REF 

a 

LAST 

1462 

1 .,27*:3 

1 2745 

1 


TCF 

GOr L ASH2 


‘ 625 

REF 

12 

LAST 

1462 

i ^ f 2 7 2 4 

54 155 

1 

K LoOD SP R 

TS 

PLAYTEMI 


626 

REF 

2 

LAST 

1462 

1 ,2725 

3 4753 

1 


CAF 

REFLSH 


1 62 7 

REF 

1 



1^,2726 

1 2712 

J 


IXF 

LjUu 3 PRZ 


62 8 

REF 

13 

LAST 

1462 

11 ,2727 

54 155 

1 

CLOCPLAY 

TS 

PLa YT cMl 


.629 

KEF 

1 



i:,273. 

3 375> 

% 


CAF 

CL QC KC J N 


2 63' • 

REF 

Q 

LAST 

1462 

1C, 2731 

1 2745 

1 


ICF 

GGr LASH 2 


C 631 

REF 

73 

LAST 

1442 

1 ^5 1 ^ 7 3 2 

53^*7 

1 

Vi‘4rL SH 

TC 

L P h L A G 


2 632 

REF 

1 



1 u # 27^ 3 

1 111 

r 


ADRES 

W Nr LAG 



b : ASS t MBL t. e^y l_sj on GF ago PRQGKAH art eh is by NASA 2 2IX 

L DISPLAY INTERFACE KbUTINES 


<■633 

REF 

27 

LAST 

9-; 7 

lb, 2 734 

1 2 744 

i > 


TCP 

GuFlaSH +1 

oJ4 

REF 

74 

LAST 

1462 

1 V t 2 7 3 5 

D 5547 

1 

VNFLSHR 

1 C 

UPFL AG 

''635 “ 

“REf^ 

' 2 ■ 

CTrST 

1462 

1 f 2 7 3 6 

Q Cl 1 1 



ADK£3 

AG 

6 Jb 

REF 

i 



i*. ,2737 

3 47 o5 

1 


CAF 

FLoHKGST 

t 637 

REF 

4 

LAST 

1462 

10^2740 

54 16 ' • 

1 


TS 

PLAYTCM4 

'63 8 

REF 

257 

LAST 

1462 

15 # ^7 4 1 

3 47 7 2 

1 


CAF 

ZERO 

; 63 9 

REF 

2 

LAST 

1462 

10,2742 

1 '3 16 5 

1 


TC F 

GODbPKbl 

^64 

REF 

14 

LAST 

1462 

1>:,2743 

54 155 

1 

GOFLASH 

TS 

PLaYTEMI 

6^1 

REF 

2 

LAST 

i4o3 

10,2744 

3 4763 

1 

+ 1 

CAF 

FLSHkOST 

642 

REF 

5 

LAST 

1463 

lb ,2745 

54 16 ) 

1 

G0FLASH2 

TS 

PLAYTEM4 

i' 6-% 3 

REF 

1 



1 u f ^746 

•k) 3157 

1 


TC 

SAVELlJCS 

644 

REF 

1 



i J,2747 

1 3012 



TCF 

HAKtPLAY 

643 

REF 

15 

LAST 

1463 

10 ,275C 

54 15 5 

1 

PRIQUSPK 

T3 

PLAYrEMl 

646 

REF 

1 



1C, 2751 

3 5ci3 

f ■ 


CAF 

611^7+4 

■ ~647^' 

REF" 

2~ 

LAST 

T4FT3 — 

iir,275Z ■■ 

~L 3 U 3 

1 


1 CF 

bUUSPKS 

1648 

REF 

16 

LAST 

1463 

i;,2/53 

-t 

A 

1 

1 

PRIOJSP 

TS 

PLAYTcMl 

Co4 9 

REF 

2 

LAST 

1463 

1^: , 2754 

3 5 : 1 3 

L-' 

SETPRIQ 

CAF 

8iTS7+4 

65 L 

REF 

lb 

LAST 

1462 

1^,2755 

1 2745 

1 


1 lf 

CUF L A6 Hz 

'651 

REF 

263 

LAST 

14o3 

10,2756 

3 4772 

1 

HAKEPRIO 

CAF 

ZERO 

r652 

REF 

4 

LAST 

1461 

1^,275T~ 

54 1 64 

Lr 


T5 

COPINOEX 

. 653 

REF 

1 



1 "L- 1 2 7 6 V 

U 3623 

v»' 


1C 

LINUSCHP 

654 

KEF 

1 



1 :,2 7ol 

1 27g6 

T 'I f’ L 

u 


TCP 

.ft A ■ - ■ — — 

HIPRIQ 

;651> 

- 1LET 

l'3“- 

CTTST — r4Trr 


5 Cf 1 «J L' 



C A 

rL AGw KU^ 

656 

REF 

1 



13,2763 

7 3747 

i 


MASK 

U1T14+7 

,657 

REF 

3 bS 

LAST 

1^61 

It ,2764 

1 W VJ . 



CCS 

A 

65 8 

REF 

1 



i - ,2765 

1 3b4i 



TCF 

PkI J dUHl 

'.;659 

REF 

14 

LAST 

1463 

1 w t ^766 

3 Lluu 

0 

h IPk I U 

CA 

PLaGNKl/4 

—~r-oh ' 

RFF“ 

— r 



1 b f 2 7 67 

“T" 7 71o 

1 


M a6 K 

ti 1 1 1. + 

(j6o 1 





1C, 277: 

0 v*r. C'; J 6 

1 


EXTEND 


1 662 

REF 

1 



1.^,4771 

1 2774 

u 


BZF 

ASKlriJRH 

^^663 

REF 

269 

LAST 

1463 

1 2,2772 

3 47/2 

1 

SEI MARK 

CAF 

ZERO 

C664 

REF 

1 



1 ,2773 

1 3226 

0 


TCF 

jCgx 6H6 

< 66 5 

REF 

15 

LAST 

1463 

1 ,2774 

3 -iub 

U 

ASKIFNKM 

CA 

PLAGWR04 

‘ 666 

REF 

1 



l'J,2775 

7 3 745 



M A 6 K 

El 113 + 8 

i. 66T 





1 ,2776 

tJ i. j H 2 

1 


cXTEND 


C668 

REF 

1 



l-.,2777 

1 y: 2 

1 


6ZF 

DKTOCJPY 


li:^' FEB* 26, 1971 ZEUS 


.•46 PAGi i46S 


USEE'S PAGE NOa 16 t. S3 


IT'S A FLASHING DISPLAY 
RETURN TD CALLtk'S Q +1 


LEAVE ONLY FLASH BIT SET 


i: 


BRANCH DIRECT WITH NO SEPARATE JOB CALL 


j 


LINUS return 

IS PRIC IN ENDIDLE OK BUSY 
YES, A80RI 

HARK ACTIVE 


NO 


NORMAL ACTIVE 


1 


NO 


I 


u AP 


A S _S E M B t Hfc ./ iSl ON ^ 7£ OF Aot P t< ObKAM AkTEHIS BV NASA 2v211i^- li. 


11 i 4'. FtiBa 26 T 19 / 1 ZEUS 46 . bi i464 


L UlSPLAY INTERFACE ROUTINES USLR*S PAGE NO, 17 



KEF 

155 

LAST 

1461 

I'Jti o. . 

3 477’.. 


StTNURM 

CAF 

CNt 



67 

REF 

2 

LAST 

1463 

1 ; t bUL 1 

1 3226 



TCF 

JlJOxChS 



X 671 

REF 

1 



1 C 1 300^ 

U 31 U 


QKTLiCOPy 

TC 

COPYimOkM 



:6 72 

REF 

i 


— - 

10,3003 

0 3431 

1 


TC 

fs i TCHQNE 

- - - . _ - - 

. 

V 6 7 3 

KEF 

9 

LAST 

1436 

1U,30C4 

G 5167 

1 


re 

JL)3RAKE 


u 

iti74 

REF 

1 



1 C, 3'J05 

U 3445 

1 


TC 

XCHTOEND 



675 

REF 

26 

LAST 

1412 

1 0 f 3 V / C 6 

3 1025 

u* 

RtDOPKlU 

C A 

TlMEl 

SAVE TIME PRIOUSP SENT OUT 


6T6 

REF 

1 



1 1 3 7 

5i'5^v>b5 

1 


TS 

■pRluTIRr 



.677 

REF 

27. 

LAST 

14o3 

i0,3^jl> 

3 4772 

1 

KEEP PR 10 

CAF 

ZEKU 

START UP PRID DISPLAY 


' 67 8 

REF 

1 



10, 3b 11 

1 3oq2 

1 


TCF 

FKi UPLAY 




REF 

28 

LAST 

1218 

1 .',3012 

3 0 lo7 

1 

FAKE PLAY 

LA 

PRIORITY 

SAVE USERS PRIORITY 


':6a' 

REF 

■ 3"“ 

LAST 

374 

1 . , 3 ^13 

7 766.. 

1 


MASK 

PRI 037 



c 681 

REF 

1 



1 >,3bl4 

54 163 

1 


TS 

USERPKUj 

_ _ . . _ - . _ ^ ^ - 


682 

REF 

1 



iO 1 3^15 

3 7655 

l' 


CAF 

PRiu33 

RAISE PRICKITY FOR FAST JOBS AFTE WmKE 


■ ^.6^13 

“RTF' 

~To 

TTfFT 

-^-x — 

■ IT', 3:or6“ 

j bl f b 1 


TC 

PH i UUHiNt 



v.6fa4 

RirF 

6 

LAST 

14 63 

1 L f 3 1 7 

3 01 6C 



Ca 

PLAYTEM4 

IS IT HARK CR PRIG OR NORM - 

- - - — - — 

0685 

REF 

1 



iO,3G2v. 

7 373b 

1 


MASK 

8IT5l3<-7 



C6S6 

REF 

390 

LAST 

1463 

1 0 f 1 

14/ ''v Nv 



C C6 

A 



0687 

REF 

1 



1 0 , 3'- 2 2 

1 2 75 6 

. 


TCF 

iYmKEPKI 0 

ITS PRIG 


UEWB' 

“RTF" 

TT 



~n773rz3" 

1 3^25 



1 CF 

iF LEGAL 



* 609 

REF 

i 



16, 3' 24 

1 2615 

i; 


rcF 

KAKEMARK 

ITS MARK 

, — .. — . - - 


REF 

68 

LAST 

1427 

10,3' 25 

3 47 67 

u 

IrLEUAL 

CAF 

rviQ 


J 

* 691 

REF 

5 

LAST 

1463 

X 0 f 3 ^ Z 6 

54 1 64 

j\ 


TS 

CGP INDEX 

* 


^ " 60 2 " 

REF 

2 

LAST 

1463 

1 nj f 3 3 7 

0 3623 

L 


TC 

LlNUSCri h 



0693 

KEF 

1 



1 , 3 . 3 Vj 

1 3w43 

1 

— - - 

tlf 

CKTOPLAY 

LINUS RETURN 

— 

.694 

REF 

3 

LAST 

212 

10,3 j31 

4 1275 

1 


C b 

EdANKT EH 



^695 

REF 

3 

LAST 

1463 

I 'J , 3032 

7 4765 

D 


FJASK 

FLSHRuST 



* 696 

REF 

391 

LAST 

1464 

,3u33 

ii. OwO 



CCS 

A 



T^97 — 

REF 

r“ 

r 

> 

“I7T64 

1 >i ,3334 

~T“3v4J“l 


TCF 

CXI DPlaV 

NU 


t 69 0 

REF 

lo 

LAST 

1463 

lij,303 5 

3 : 1 j . 

1 • 

SJ' 

- 

CA 

PLAij ViiKL>4 

WAS NORMASLEEP 


699 

REF 

1 



13,3036 

7 3727 

1 


MASK 

NdUSHASK 

AkE any norms ASLEEP 


070 0 





IG I 3 -» 3^ 

C 1 C j 6 

1 


EXTEND 




7 1 

REF 


LAST 

1464 

1C, 3c4t 

1 3.43 

1 


bZF 

OKI cplay 

N J 


0762 

REF 

10 

LAST 

1433 

1 j,3 .41 

a 5726 

1 

PRi uaoRT 

re 

PDOuau 



: 70 3 





1C , 3'y42 

215.2 



□ CT 

215 2 

ILLEGAL FLASHING DISPLAY 


' 704 

RizF 

1 



10,3043 

i. 31/3 

1 

CKTOPLAY 

re 

capifcS2 




I 

U> 


u AP : A S S E MB LE KEtfISION GF AGC PROGRAM AHTfcM iS bY NASA I l\. 1 

L DISPLAY UTEKFACt ROUTINES 


7 

• 7 6 

1 7 : 7 

RFF 

REF 

2 

22 

LAST 

LAST 

1464 

14* 7 

1 ^3044 

1- ,3945 

1 J t 3346 

3 6 163 v; 

C CCOo 1 

L4 0 - J 1 


la 

EXFEND 

ROR 

- - 

- -r;7r-g - ■ 

^ 7‘ .^J 

' 71C 
f711 
712 

KEF^ 

REF 

REF 

REF 

REF 

17 

1 

392 

1 

XAST' 

LAST 

LAST 

"299 — 

1464 

1464 

1 w » J 3 lo > J 

XQt3>w31 7 3731' 1 

Xb,3::5i: 10 oirt' 0 

Ivf3u33 1 3Zlo ( 


TS 

CA 

MASK 

ccs^ 

luF 

' T 1 3 





1 --t 3354 

1 3v.56 0 


TCF 

; 714 

REF 

2 

OAST 

1463 

1. ,3o55 

1 321C-0" 


TCF 

K : 71b 

COULD PUI NORM 3USY 

CHECK HERE TO SAVE 

TIME 


.716 

REF 

2 

LAST 

1464 

16 , 3l 5 6 

u 3431 1 


rc 

-r-p- 

- — Tl'F- 

- -Rff^ 

— 

'tAST" 

^464 ~ 

1 0 J 3b 3 7 

C “5x67 ^1 


1 b 

. 71A 

REF 

2 

L AST 

14b4 

1 f 3 V 6 L_ 

0 3446 1 


T 1# 

P719 

REF 

69 

LAST 

1464 

io.YOel 

3 4767 0 

PLAYJUMl 

CAF 

CIZk. 

REF 

o 

LAST 

1464 

10 #3062 

54 164 0 

PRIOPLaY 

T 3 

v721 

REF 

i 



lG#3u63 

1 3315 1 


TCF 

.722 

KEF 

17 

LAST 

i4d3 

1 *,> f 3 3 6 4 

54 1:j5 1 

EXOSPRET 

TS 

< 723 

REF 

2 

LAST 

16 7 

1% f iObS 

3 7667 i 


CAF 

y r r~ - 

rT24 

— RTF" 

11 ' 

■OTTST- 

14'o3“' 

rO f 3u66 

1 2745 1 


1 Lt“ 


KEF 

2 

last 

769 

1 ;,3 j6 7 

55*25^ V 

GOPERFl 

r s 

t 726 

REF 

1 



1 b J 3'^^7 

3 372^ 1 


C Ah 

IZl 

REF 

la 

LAST 

1465 

1 v. # a : 7 1 

54 155 i 

GUPERFS 

TS 

'^718 

REF 

1 



10,3072 

3 3717 L 


CAF 

C729 

REF 

12 

LAST 

1465 

1C #3973 

1 274d 1 


TCF 

t73': 

ref 

D 

LAST 

903' 

10,3074 

^4 775 0 

GQPEKF4 

Ts 

• 731 

RFF 

2 

LAST 

966 

I 'Of 3v.75 

3 4537 1 


CAF 

' 732 

REF 

19 

LAST 

1465 

1l f 3' 7t» 

54 155 1 


T ^ 

-733 

REF 

i 



1 i f 3 u 7 7 

3 5 7 1 5 1 


CAF 

:734 

REF 

13 

LAST 

1465 

i.-.,31CC 

1 2745 1 


TLh 

C 73 5 

REF 

2 

LAST 

1463 

lv»3ici 

54 155 1 

CUFLASHR 

TS 

7 3 1> 

REF 

4 

LAST 

1464 

10,3162 

3 47 o 5 1 


CAF 

•737 

REF 

7 

LAST 

1464 

1 =,31.3 

54 io i 

COOSPRS 

T C 


. li 


^6 P/UC i 4 o 5 


1 4- . 1 1 

11:4, FEb* 26,1971 ZEUS c 46 PfUC i4o3 

USER'S PAGE NOa 18 . Sj 


USERPkl 0 


SUP EKdrJK 

RESTKE3”' 

_ _ . — 

FLAGNkUA 

frmask 

A ■ 

GOSLEEPS 

PRIG OF^ MARK i^UlNG 

YES 

+2 

GOSLlEPS^ “ 

MARK GGlTsG 

wl TCHONE 
~3trSlFAttE 

IS IT NVSUe BUSY, ENOIDLl or NOur t 


XCHTUEND 


T N3 

CUPINDtX 



UUPLAY 


PLAYTEMl 

... - — — — — •— ■ ^ — — 

B1 Ti5+b 


GUFLASniZ — 


NQKMT,EM 1 

V iN25 

STQRE DESIRED CHECKLIST VALuT 

USED TU DISPLAY CHECKLISI V^LJE IN Ri 


PLAYT LHl 


Pt:i^F MAS K 
GGFLASH2 

LEAVE ONLY FLASH, PERFURM, BLANKING 

LPT I ONI 

Desired option code 

V J4N*' 6 

P L A Y T c M 1 


PERF4MSK 
GOFL ASrtZ 

FLASH, PERFORM, ANi. BLANK R3 

“PLATfEMi 

! L GHKwS T 

leave only flash bit Sei 


i L SHKwS 1 
PLrtYTErtA 


6 > 1 9 7 1 4itLlS 


s' 46 ('AGE 1466 


^ V ASS EMB LE REVISION ^ 7^ UP AbC PROGRAM ARTc iM IS BY NASA 2 21114- 11 ii:4' EF r - 


L 

DISPLAY 

INTERFACE 

RUUTlNtS 



' - 

- 


U6i: - K * ^ ^ A b t: 

NO, i‘- L 

: 7ja 

REF 


LAST 

1432 

Iv, 31t4 

3 6214 

i; 

C AF 

THREE 


— — _ - 

- 

.739 





i c f 2^ i 0 f> 

L 

f 

4a 

GOD SP RSI INH INI 



IMMEDLGtE RETURN 

Is CALL CADI' +4 

74 

KEF 

y 

XTrST" 


T. c t ^ 114 / 6 

54 ',‘72 


1 2> 

HUP i ricijB 




741 

REF 

29 

LAST 

1464 

10,3107 

3 2 167 

1 

CA 

PRl UKl T V 


RAKE DISPLAY OiJE 

HIGHER THAN* US EF 

742 

REF 

4 

LAST 

1464 

10,311^. 

7 7 00 

1 

MASK 

PRia37 




.743 

REF 

11 

LAST 

1217 

^10,3111 

54 7 63 

u 

TS 

NEWP'Kl u 


« — •«. 



<744 

REF 

8 

LAST 

1465 

i ,3112 

3 Li6;,; 


CA 

PLAYThM4 

IS THIS ^ FI ASHING R 

DI SPLAY 


^ 7 4 1> 

REF 

5 

LAST 

1465 

l..,3il3 

7 4765 


MASK 

FL SHRwb T 




746 

REF 

393 

LAST 

1 463 

10,3114 

I ‘ j j 

1 

CCS 

A 




74 7 

REF 

I 



i'",3il5 

1 3123 


TL F 

VACDSP 

YES, HAKt DSPLAY JOB 

A VAC 


:748 

REF 

12 

LAST 

1466 

10 ,3116 

3 0063 

1 

CA 

NErtPRID 

NO, DSPLAY JOB 7 

t NDVAC 


€749 

K EF 

22 

LAST 

1225 

1 U f 5 i 1 7 

L 5121 

1 . 

rc 

NGVAC 




"75C 

" “RXF" 

i‘J 

LAST 

790 

E7il777 



EijsANK- 

«iiU UAKtS 




■ 751 

REF 

1 

LAST 

1463 

1 1 5 1 Z V 

0- 3 V 1 Z 

1 

2CADR 

KAKtPLAY 




'751 





1" ,3121 

2tC67 

1 






752 

REF 

1 

, .. 

.. . _ . 

l‘>,3i22 

1 ->131 

1' 

c 

TCF 

buTHJDdS 


_ . - . — 


753 

REF 

32 

LAST 

1408 

l';,3i23 

3 ^06 6 

1 VAC DSP 

C A 

BBAN.K 




'“754" 





1 • f J I 

'2 Du 06 

i 

EXTENtr 





' 755 

REF 

23 

LAST 

1465 

i^.,3i25 

04 OuT 

i 

ROR 

SUPER8NK 




r 756 

REF 

195 

LAST 

X461 

10,3126 

54" 031 

1 

TS 

L 




^75 7 

REF 

i 



li f 31Z 7 

3 3744 

J 

C AF 

M AKEGLfJ 




C75o 

REF 

2 

LAST 

221 

10,3150 

" U 5146 

1 

T C 

S PVAC 





V 75 9 

REF 2 

LAST 

1463 

10,3131 

W 3157 

1 

SUTHJOaS 

TC 

SA VELUC S 

C 76V 




lv,3i 32 

D i ' - 6 

1 


EXT END 


761 

REF 696 

LAST 

1461 

iJ,3i33 

3 6 6 



uC A 

PPAC +1 

762 

REF 23 

LAST 

1445 

1 u t 3134 

50 . 64 

— % 

1 


INDEX 

LOCCTR 

V 7 6 J 

REF 697 

LAST 

1466 

Iv ,3135 

52 156 

1 


DXLH 

MPAC i-i 

‘ 7o4 
765 

REF 698 

LAST 

1466 

1 v , 3 1 3 6 

10 ,313 7 

VJ C 0 , o 

^ - T 0‘ ■ 

1 

1 

• r 


ti X T E Nd 
DCA 

MPAC fS 

766 

REF 24 

LAST 

1466 

1 C , 3 1 4 ' 

5 ^ j q4 

I 


INDEX 

LCCC fk 

'767 

REF 659 

LAST 

1400 

10,3141 

52 ioC 

1 


DXCH 

HPAC +3' 

■768 

REF 2j 

LAST 

1466 

10,3142 

3 C' JCi4 

\J 


CA 

LQCCrK 

v769 

REF 7^^ 

LAST 

1466 

13,3143 

54 161 

D 

- 

TS 

RPAC +5 

:?7' 

REF 1 



1 ,3144 

0 316^ 

1 


TC 

SAVELUCK 

0771 




10,3145 ' 

0 0<3 -'3 

1 


KELINT 


. 7 72 

REF Q 

LAST 

i4«j2 

iv^,3146 

A 466 3 

1 


TuF 

EANKJUMP 

.773 

REF 3 

LAST 

1465 

10 ,3147 

55 *25 

A 

GUPfcKFlK 

IS 

NuKM ( c H 1 

774 

REF 2 

LAST 

1466 

1 ;,315‘. 

3 372' 

1 


CAP 

V .iN26 


lUPY TEHPS into PtP.MANErslT HEGISTi 
SAVE NVWUKD AND USERS «PAC +E 


o.'vVh USlkS CAUK, flags and EBAri/ 


Call cadk +4 

L Eil", ED checklist VaLUL 




1 iSKLAYS CHECKLIST VALJt t i 


bAp: ASSEMBLE kEVI SIUM 7 2 OF Al>C P K UvjRAM ARTEMIS BY NASA Z 2li..l4 ~.IX 

L DISPLAY LMTfckFACk KuUTINcS 


< 7 76 

REF 

21 

last 

14t>6 

lu, 3151 

54 155 1 

GOPERFHS TS 

PLAYTtHl 

7 /6 

REF 

2 

LAST 

1465 

10,3152 

3 3717 0 

c af 

P E F H MO K 

^TT 


— 3 - 

"ETASri — r463 

XC f 3 1? 3 

i 3103 1 

TCP 

G UD il r rfb 

778 

KEF 

22 

LAST 

14o 7 

10,3154 

54 i 5 5 1 

GaPEKF2R TS 

PLAYTLMl 

kr779 

REF 

1 



1j, 3155 

3 5001 G 

CAF 

PtRF2MSK ‘ 

L78D 

REF 


LAST 


IGf 3136 

1 3103 i 

TtF 

GCDSPRS 

E76 1 





10 , 315 7 _ 

0 0004 j 

SAVELUCS INHINT 


0782 

REF 

4 

LAST 

713 

IS, 316C 

4 Sw'tb 1 

L S 

EBANK7 

C733 

REF 

9 

LAST 

1466 

IL' t 31 6 1 

7 ri6L 1 

MASK 

FLAYTEM4 

j784 

kef 

47 

LAST 

1461 

1 0,316 2 

6 V V 03 3 1 

AD 

-- y..* 

L 6 ANK 

— ZliS3~~ 

RCf 

T!j- 

“TTTrST- 1^6 7 

t7T3^1 6 3 

54 16‘U 1 

1 b 

r LA T 1 Lrl4 

lot 

REF 

3u8 

LAST 

1461 

10,3164 

22 U 62 3 

SAVtLJCR LXCH 

b 

1.737 

REF 

6 

LAST 

1438 

10,3165 

L 4665 b 

TC 

RAKECADk 

{736 

REF 

1 



10,3166 

54 157 S 

TS 

play! crt3 

C789 

REF 

10 

LAST 

1466 

10 , 3 lo7 

6 vv 7 Z 1 

AO 

KURT REGS 

cr9c 

REF 

196 

LAST 

1466 

iO,317C 

iT-OCUl C 

T C 

L 

0791 

REF 

271 

LAST 

1464 

10,3171 

3 4772 1 

CQPYiNORM CAF 

2EKG 

0792 

REF 

r 

LAST 

1465 

10,3172 

54 164 0 

COPIES TS 

COP 1 NuEX 

— C793' 

RFF 

- 11 

LA3T“ 

1467 

1 ^ f ^ X T 3 

”3'^ CTrSTT ^ 

C0PIES2 CTrt 

PLAT \ 

0794 

REF 

0 

LAST 

1467 

1 ,3174 

164 I 

INDEX 

CuP 1 r^iDt X 

"T.795 

REF 

3 

LAST 

1461 

1 , j175 

55*273 1 

TS 

EbANKSAV 

r796 

REF 

1 

-- 


”10", 3176 

7 5004 1 

MASK 

C ADfs. MAS K 

■,707 





10,3177 

G 0006 1 

EXTEND 

_ — — INI-- t -■ — 

k* t A M . 1 

t~T9S^ 

Rtf 

r 




~7L~ 'SZV: 

L> 

0 »V1 T MiJu 

v799 

REF 

2 

LAST 

1467 

1 uj f 3ZC 1 

3 l157 1 

CA 

PLAYTcH3 

•: 8t 1 ' 

REF 

9 

LAST 

1467 

1 .,32v 2 

^ _ 164 1 

INDEX 

CbP 1 ND t X 

tso 1 

I^EF 

2 

LAST 

13i> 

l'.,32f. 3 

54 371 

T S 

CAOiC FL b H 

t 802 

REF 

23 

Tast 

1467 

1 .,320 4 

'3 ',.155 •> 

SKIPADO CA 

PLAYl uMl 

0803 

REF 

1. 

LAST 

14 □ 7 

1 ,3205 

50 lo4 1 

INDEX 

COPi NDLX 

r8':4 

KEF 

1 



10,32l 6 

54 360 1 ^ 

TS 

NVnaKD 

P 8il' 6 

KEF 

1 



1 L I 3Zi-> 7 

1 3454 u 

TCP 

kCL I Nf D 

1 8^6 

REF 

11 

LAST 

1467 

■ 1 , 321. 

5 ij4 1 

bOSLEtFS INUEX 

CUPI NJl'X 

C 8'w 7 

REF 

2 

LAST 

1461 

1 V f 3Z A, 1 

3 374'. 1 

CA 

PRIDUCT 

CE ’::8 

REF 

1 


- 

1. , 3212 

7 5-45 1 

MA SK 

XAI TMASK 

C8u9 

REF 

2 

LAST 

1461 

1 t 3Z1 J 

J 3755 i 

TC 

UPENT 2 

08 ID 

KEF 

166 

LAST 

1464 

i . , 3214 

4 ^77 J 1 

bS 

CNE 


46 


li:4 FEii, zi6,1971 ZEUS 


E‘ t- . O 


4,467 


USER'S PAGE NO £: 


LEAVE ONLY FUA^H, PERFORM, BLAN-.lf-G 


OESI^EO VERE-NiOUN Ti 


U 1 5 »■* L A V r. L , K 4^ , j 


Gi^rS ALL E 8 ANK JITS IF 


NOT USED FCR NON k k.JlI.cj 


rnrewottn 


““EQUIV 10 DSPFL 6 
FLASH AND GOOSPKEl 


VLrTii NOUN 


^ I 


^ r 


uAP; AiSEMBLt RtVioION ' IZ CF AbC PRUGkAH AkTEMIS BY NASA 2 2iil4- ij. 


il:40 FEB. 26,1971 Zi US 


. 46 T/.Gb 



* ' ■ V 


DISPLAY Interface rou tines 


USER'S PAGE NO. 


21 


Gil 

REF 

12 

LAST 

1467 

lu , 3215 

o C 1 6 4 

1 


AU 

CUPliIDEX 



REF 

1 



10,3216 

54 1 54 

0 


TS 

FaCET^EG 


E813 

REF 

2 

last 

1468 

1 f J2 1 7 

50 154 

1 

XCH SLEEP 

INDEX 

FACtREG 


'-Cl 4 

R tF 

i 



1U,322 : 

3 3725 

1 


CAF 

WAKECAUk 


tCiS 

RFF 

li 

LAST 

1465 

lu,3221 

0 5167 

1 


TC 

JCBWAKE 

find CADK in JUB 'AREA 

•'C16 

REF 

3 

LAST 

1463 

1 . , 3222 

3 344:j 

1 


TL 

XCH TJ END 

CACSLS AWAKENED Jdb'TO OJ Td"£ND~uFJDB 

1617 

REF 

3 

LAST 

1463 

1' ,3223 

5. 154 

1 


INDEX 

F ACEREG 

REPLACE SAME CADR BUT Nfc W JUb AREA 

CC18 

REF 

2 

LAST 

1463 

lc,322A 

3 3725 

1 


CAF 

w AKECADR 


C819 

REF 

5 

LAST 

1438 

10,-3223 

1 5163 

1 


TCF 

JGB3LEEP 


t62'- 

REF 

4 

LAST 

146 6 

1^^,3226 

54 154 

i-- 

JObXCHS 

TS 

FACEkihj 

‘ 1:QNrl<“OLS' T YPr.“\:F , ISPLaV put TU SLE'tP 

C821 

REF 

3 

LAST 

1465 

1 O', 32;^ 7 

0 3431 

1 


TC 

Wi I CHDNE 


— ~re22 

"REF" 

"T2r“ 

rAST- 

“1463 

T7“,323rr 

“"J 5167 

T- 


T u 

JlTBWAKE 


^823 

REF 

b 

LAST 

1468 

1 : , 323 1 

3 f 134 

1 


Ca 

F AG ERdG 

■* 

0824 

REF 

2u 

LAST 

1466 

1 ,,3232 

5l r o4 

r~ 

i 


INDEX 

lgcctk 


oezb 

REF 

6 

LAST 

1468 

10,3233 

54 1 54 

1 


T^ 

FAC EREG 

. „ - — — - - 

GC26 

REF 

i 



1 :,3234 

3 3752 

1 


CAF 

XCHwAUU 


' *'827 

REF 

— I 



10,3235 

0 ■ 3'446' 

1 


~TC 

Xl'HH/LUC 


C628 

REF 

7 

LAST 

1468 

1 j f 3^3 6 

50 154 

1 


INDEX 

F ACEREb 

_ — - _ - - 

V 629 

REF 

1 



1 w j 3Z3 7 

3 3741 

^ J 


CA 

K A K R liG 1 


Ce3; 

REF 

1 



1 0,324 <: 

7 3743 

1 


MASK 

lOL'ESL'E P 


. 831 

REF 

1 



1 ,3241 

w 3762 

1 


TC 

GUdNEN r 2 


C8i2 

REF 

■ B* 

■ LAST' 

“1463 

Iv, 3242 

57 154 

or™ 


INDEX 

t AL fc RE 3 

i-rl I oiiGh i T - r^RkliP r tu LulvTo CR. ^lARK 

0833 

REF 

1 



10,3243 

3 47 64 

6 


C A 

krupt bit 

_.IIp FUR HARK, DiT4 FOR NORMAL 

C834 

RFF 

3 

LAST 

1467 

10,3244 

0 3755 

0 ■ 


TC 

0PENT2 


t83S> 

KEF 

13 

lAST 

1465 

10,3245 

3 i - 1 / \ ; 

1 4 


CA 

EL AuWkD4 


C836 

REF 

2 

LAST 

1461 

lTj,3246 

7 4765 


— 

MASK 

KKOVGiT 

IFTIT :■ t ^TARK. OVER- NORM 

U837 

REF 

394 

LAST 

146t> 

10,3247 

1^^ s-OO 



CCS 

1 

M 


— 7538" 

KEF 

2 

LAST- 

T^tlyZ 

Trrszyr 

ij 263t! 

. 1 

b tWHARK 

TC 

“?7E\KKPLAY 

- 5 E -> -2 G E 1 JO dKAj\ E 

1839 

REF 

2 

LAST 

1463 

iC, j25 1 

1 3002 

1 


TCF 

CKTLCuPY 

_ . 

6 64E 

REF 

272 

LAST 

1467 

10,3252 

B 4772 

1 

KARR wake 

CAF 

ZeK J 


€841 

REF 

2 

LAST 

1461 

10,3253 

54 160 

1 

hAKfcPLAY 

TS 

TEHPORZ 

- 

0642 

REF 

3 

LAST 

1468 

1 , 3254 

5C I6v 

L 


INDEX 

TEMPCR2 


CR43 

REF 

1 



1 > , 32 5 3 

3 3736 

v-* 


C A 

0 iTs5+ll 


0844 

REF 

2 

LAST 

146 3 

10,3256 

S 3 7 o 2 

1 


TC 

■ CCWNENT2 


r,e45 

kEF 

4 

LAST 

14 o 8 

10,3257 

5 16 

OJ 


Index 

TEMPGK2 

1 


REF 

3 

LAST 

146B 

rc, 326C 

3 3725 

1 


CAF 

wAKcCADR 


<847 

REF 

13 

LAST 

1468 

iC ,3261 

J dLoI 

1 


rc 

Jl drt AK t 


C84o 

REF 

1 



10,3262 

1 3>5 5 

0 


TCF 

lndket 

- 

R{ 649 


ALL 

-1 RESTARTS 

branch 

DIRtCTLY 

TU 

INlToSP« 

NUR'TAl 

.,iSPLAyS A^ E i 

htU.Ti-Y DISPLAYS aLiUWED 10 Usi. 1 It ST ARTS 

Rttpl 

INITDSP 

FIRST 

RESTORES THE EBANK AND 

THc 

[ SUPER8AUK TO 1 

Hl /.U5T RECENT 

NORMAL ECATiKT :>U!"ERbAN^ 


ASSEMbLt REVISION -.72 CF Ai^C FRQbKAM ARTEMIS BY NASA 2021114- 11 


11; 4 K 


^6,iv7i zru^ 


/ 46 PAGE 1469 


DISPLAY INTERFACE KGUT IN£S 


UoEls'S PAGE NU-. 22 


S3 


K t 8 6 J 

R O' y s 3 


IF THE MOST RECENT NORMAL DISPLAY REOyEST WAS NOT FINI^HcUi O^UNlR.LiS SON. BACK I 0 THE LAST NORMAL USER 
CThERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL TTISPLAY REGS l6 STARTET >P IH^^EDTATELY 


T 857" 

KEF 

4 

LAST 

1464 

i .;,3263 

3 1275 w 

INI TOSP 

C A 

EdAi^Kl cM 

RE-. T.jKI : G:>T RECECT NORMAL 

! 836 

REF 

4d 

LAST 

1467 

12,3264 

54 i .i3 C 


TS 

E8ANK 


(639 

REF 

4 

LAST 

1463 

10 f J265 

3 U365 1 


CA 

K bo 1 Kb b 

5UPtRBAfU AND JG6 PRIORITY 

r86r 





17,3266 " 

OTOO'JG 1 


EXTEND 


■ RES T JHF "AIPTKBANK ' 

t 86i 5 

REF 

24 

LAST 

1466 

1C, 3267 

Gi 007 i 


WRITE 

SUPER8NK 

CHaN 7 

laSbX Rt r 

”3“’ 

LAST ■ 

"1466 

"12, 327~ — 

1 — 


MASK 

PR1l'37 


C862 

KEF 

17 

LAST 

1464 

Id , 327 1 

0 5176 1 


TC 

PKl OOH.^ L 

______ . _ _ _ 

L863 

REF 

31 

LAST 

1466 

14 3272 

4 6214 1 


CS 

THREE 


C 864 

REF 

5 

LAST 

632 

Ivy , 3273 

6 "373 . 


AD 

TFMPFLSH 


1865 

REF 

lA 

LAST 

1466 

10, 3274 

1 466v 1 


TCF 

E AN K JUMP 


r d6o 





IJ, 3275 

.y iiK3 1 

PINBRNCH 

RELINT 


FCR GOPi USERS 

r86? 

REF 

1 



10,3276 

3 1276 0 


CA 

M ARK 2 PA C 

N£-DE^^ ‘ SAVr MPAC +2 FUR 

C668 

REF 

7C1 

LAST 

1466 

1 3277 

54 156 1 


T:> 

KPAC ’•-2 

ONLY 

c ' 86V 

REF 

19 

lAST 

1468 

10, 3360 

5 0 1 w kj J 


CA 

F L Ab 

PlNtiP.A?vCH CUNdITIUN 

rFF — 

REF" 

3- 



lJ,33Dt~ 

7 7673 D 


MASK 

P I Ab K 


<.8 71 

REF 

353 

LAST 

1468 

iC,33t 2 

10 000 0 


CCS 

A 


(872 

— 



- 

i:,33j3 

1 3366 T)" 

^ 

r CF 

+ 3 " 


• 873 

REF 

1 



1U,3304 

1 3713 1 


rcF 

eraser 

nj: himl> in end I dll 

674 

REF 


LAST 

1468 

10r33C5 

1 2630 1 


TCF " 

FARKPLAY 


C875 

REF 

73 

LAST 

1463 

10,3306 

J 5547 1 

NORMbiTCH 

TC 

UPFL Ab 

b ^ 1 ►’^jkajnch Sir 

L676 

REF 

1 



1 f T 

0<^iy5 


A J i< E S 

PlNdRFEG 

- 

(877 

REF 

i 



Id , 3311 

3 4753 1 


CAP 

PKlu JBi T 

HRU. INTERRUPT tD 

r678 

REF 

20 

LAST 

1469 

lur331i 

7 UlUK 1 


MASK 

b L AGfiliiD4 


C879 

REF 

356 

LAST 

1469 

lu,3312 

— ■ — -4 - 

1 L' si '‘-tJ V ■ 

- — I ^ 


CCS 

A 

iiT 



I : 


\ I _ 


to 


t , 


real 

08 8 2 

rea25 

0883 

.884 
C665 
C886 
0837 
038 8 
088 9 “ 


REF 


lu,J314 1 3.61 1 


1 

^ 891 
8912 


REF 

■RTF 

REF 

REF 

REF 

REF 

REF 

FFF 

REF 

REF 

REF 


21 

197 

i. 

iJ 

1 

T4 

2 


2 

397 


L AST 1468 ' 
LAST 1431? 
LAST 1467 


last 1463 


rAST“X4trg' 
LAST 1469 


LAST 1460 
LAST 1469 


TuVssiS 

li,,33l6 
TCT 33T7“ 

1 y f Sjt2C 

1 y,33Zl 
1 3322 
1C, 3323 
10,3324 
rG,33^5^ 

It; , 3326 


22 CC 7 j 
^ 2661 J 

3 

7 4776- t-' 
26 7 1 1 

4 4734 1 

5,. 164 1 

7 1273 1 

-3Tr 164 1 
55*276 1 


NVUSP 


1J,3327 7 4761 1 

X ,336' 1 j 


TCF 

2L 

TC 

6 A 

/iASK 

ADS 

cs 

INDEX 

MASK 

TNOfX 

T S 


MASK 

CCS 


PLAYJUMi 


CGPYPAC^ 
“-TTTPURZ"' 
SEVL 1 
L 

2N0PcKF 
COP INDEX 

cspflg 

• CTTP I NDEX 
DSP F LG 

CCMK PE Kt 
A 


5 L T J F ~ BL AW ir~ 3 rT S"FXlR ' T?VMa riiTrr~TT?~cr7: F 
U^LK kEwULSTS BLANKING MUNITUft 


» 

t' 



assemble RtVlStUN 072 

uF Ai^C PROGRAM AKTEMIS BY NASA 2 2iii4- ii. 

ii:4 F >. 26,1971 

ZEUS 

•> _ 46 P AG t 

L 

uISPLAY 

I.'iTERFACE KQUTINlS 






USER'S PAGE 

NO. 23 

I: 

t 

REF 

1 



iOf 3331 

3 5044 

1 


LA 

OC J 26u 





KEF 

T — 

P 

Last 

1175 

16,3332 

54 141 

1 


TS 

TEMl 




Oti93 

HEF 

702 

Last 

1469 

10,3333 

3 0156 

(] 


GA 

MPAC 




C89^ 

REF 

2 

LAST 

1461 

1‘ , 3334 

54 165 

1 


TS 

MPAC2^hV 





REF 

2 

LAST 

1469 

10, 3335 

55*27o 

1 


TS 

MARK2PAC 

> Fi-R DISK ONLY * 



C896 

REF 

15 

LAST 

1469 

10,3336 

59 164 

1 


INDEX 

CCPINQEX 




0697 

REF 

2 

LAST 

1467 

10,3337 

10 366 

vy 


CCS 

NY KCRD 




C8'98 

RTF" 

1 



1C f 3340 

1 3347^ 

J 

w 


TCF 

NVDS 1^1 




f 899 

REF 

1 



io, 3341 

1 345 5 

1 


TCF 

CLEANEj>iD 




0 90"' 

HFF 

5 

LAST 

1461 

10 , 334:2 

4 0367 

1 


CS ‘ " 

MARKW ‘ 


“ “■ ~ ^ - 

— — _ _ _ . 

<.9* 1 

KEF 

6 

LAST 

147.- 

10,3343 

54 3b7 

i 


Ts 

MA»\KNV 

iN CASE MARKPLAY 

A WAK E NE U 

AFTER oLE 

C902 

FEF 

12 

LA3T 

1434 

10,3344 

7 6043 

1 


MASK 

LQW7 




_ , 

( 903 

REF 

1 



10,3345 

6 37 J 1 

1 


AD 

V ^ jNf . . M 1 




0 vO^ 

R^F 

6 

LAST 

147 } 

10,3346 

6 lA^i 



TTD 

Ttin 




c?C’5 

KEF 

157 

LAST 

1467 

13,3347 

t> 47 7 J 

J 

NYOSPl 

Au 

CNc 




C9C-6 

REF 

1 



IG f 3 33 w 

Lrf ^3 3 

1 

NVSODSP 

TC 

NVMDNuPT 




0 9UT 

KEF 

1 



l.,3351 

1 346/ 

,i J! 


TCF 

K bS T 

iF BUSY 



090 8 

REF 

6 

LAST 

391 

10 , 3352 

0 4417 

1 


TC 

FLA SHOP F 

IN CASE OF EXTENDED VERB 

NON "FlA:?H 

C9C9 

REF 

i 



i ,3353 

L 2656 

J 


TC 

COPY TOO 0 

.iPACS OESTROYEO BY NVSUB 


09 ir 

REF 

1 



1., 3354 

3 3732 

1 


oAr 

uCT7jG 




C'91 L 

FvEF 

3 

LAST 

1463 

10,3355 

ii 3 7oZ 

1 


TC 

OCw NEKTZ 




0912 

REF 

6 

LAST 

1469 

1 Of 3356 

3 C 1 6 > 

L' 

BLrtNKCHK 

L A 

T EMPuRk 

BLANK BITS 1,2,3 

I F S £ T 

- - - - 

C913 

REF 

2 

LAST 

36 b 

10,3^57 

0 4264 



TC 

dLAN:43U t 




“ — r9i^ 

— REF" 

2~ 

LAST 

T46I ■ 

— 11773367 

“1 33 15" 

1 


1 LI" 

NVlJSP' “ 




0 915 

REF 

2 

LAST 

1461 

1 J 1 3 3 D 1 

3 47 64 

r T 

PEKFCHER 

CAF 

PERF Kyj T 

BITS FOR PERFORM 



‘916 

REF 

7 

LAST 

1470 

10 , 3362 

7 CluO 

1 


MA SK 

T E FOR 2 




‘917 

REF 

398 

LAST 

1469 

ir ,3363 

A u ^ ^ 



CCS 

A 

IS THIS A GQPERF 

D1 Sr LAi^ 


'■918 

REF 

1 



10 , 3364 

1 3437 

0 


TCF 

iSTORZNL 

YES 



c919 

REF 

6 

LAST 

14o6 

10 ,3365 

3 47 65 

1 

GOAN I UL E 

LAF 

FL3HK JS T 




' 921. 

REF 

8 

LAST 

14 T 

1 w f 3 3 Q 6 

7 vi'a'. 

1 


MASK 

T EMPUnL 




•921 

REF 

399 

LAST 

147 J 

10,3367 

1 c c w 

t 

-J 


CCS 

A 




922 

REF 

i 



10,337 . 

1 35; 4 

I 


rcF 

FL AS Li 0 

n IS 



>923 

REF 

9 

LAST 

1470 

10,3371 

4 U 16>j 

1 


0 3 

1 L r1 P JK2 

IS This A GODSPRL 

T 


r^922f 

REF 

‘ 2" 

LAST 

‘14F2~ 

— iov33~r2' ■ 

/ 4/63 

IT 


MASK 

.-ETTTjTT 




C925 

REF 

4vJ0. 

LAST 

147 0 

lj,3373 

iO ooc 



uCS 

] ■ 




C926 

REF 

1 



10,33 74 ' 

1 34J1 

•M 


TCF 

1 SI 1 




0927 

REF 

16 

LAST 

147u 

ij,3375 

^0 io4 

1 

- - 

iilOEX 

CdPl iUbX 



- 

0928 

REF 

3 

LAST 

1467 

10,3376 

3 ^371 

1 


CA 

CADi\ FL jH 




— rG2^ 

REF" 

TTr 

LAST 

1470 

— nJT33T7~ 

54 15T 

u 


T S 

“TT'AU~T3 ^ 




93' 

PtF 

i 



1C f 346 w 

i 3 3^2 

i 


TCF 

b r 



- 

t 931 

KEF 

17 

LAST 

147^ 

10 , 34*. 1 

JO 164 

1 

I SIT NO. 

INDEX 

oCPi.,uEX 

1 :> T rt I S A r L 



" 932 

REF 

i 

LAST 

147 J 

10, 34f 2 

3 366 

1 


LA 

N V WuRU 





ili4. Feb,-. 26»19/'L 


US 


OAF: ASS EHBLL R tViSIU N 7 D F PRUORAM ARTEMIS BY NASA d, 21ii-V- Li 

L DISPLAY INTFKFACE ROUTINES 


1 S3S 

KEF 

13 

LAST 

147 L 

i f 3^1 ’ 3 

7 6043 

i 

HASK 

LCM7 

r934 





10* 34l'4 

C v0O6 

1 

LXTtiNu 


-93^ 

REF 

2 

LAST 

- 

10,34G5 

1 35v-+ 

1 


Fl HaU fc> 

V 936 

REF 

92 

LAST 

146. 

i } t 6 

1 52^5 

1 

TCF 

CiNiUUF J U L 

C937 

KEF 

Iv. 

LAST 

1^7 ' 

liJi34v 7 

3 0160 


1ST0R20D CA 

TcMPuRZ 

r938 

REF 

2 

LAST 

1459 

10,341 , 

7 4T54 

1 

MASK 

2NDPTRF 

Q 30 

REF 

i 

LAST 

1475 

10,3411 

1-L’ --/uj 

m _ li ^ ^ 

1 

L 

CCS 

■ f 12 1 

A 




"1" 



“1'' , 3412 ■ 

1 3a 

e. 

1 CF 

ijuArSl 1 DL b 

C 941 

REF 

3 

LAST 

1471 

10,3413 

3 4754 

u 

Cm 

ZTvDF tUF 

I.94Z 

REF 

18 

LAST 

1479 

1 ,3414 

Sir 164 

1 

I NOc X 

CCPl N ulX 

C943 

HEF 

J 

LAST 

1469 

1 ,3415 

27*273 

1 

A Jo 

DSP FIG 

0944 





1 ',3416 

22 Lu7 

0 

ZL 


C945 





1 L/ f 3^i T 

U u ** 6 

1 

extend 


r946 

REF 

I 



10,342 : 

6 2677 

u 

aZKF 

PAKKPERF 

‘947 

REF 

i 

- 

- 

lw,3421 

7 4755 

w 

MASK 

V99PSTE 

1 948 





lij f 3422 

U COuo 

1 

EXTEND 


P?4^ 

“RTF 

j_ 



"1T7, 3423 

“ r 3427 

1 

liZF 

V5JP ASTt 

€9Sb 

REF 

23 

LAST 

738 

1.., j>424 

4 l777 

1 

lS 

NVWQRDi 

0951 

REF 

1 



1' ,3425 

6 3746 

1 

At) 

V97NJ.T 

C952 

REF 

1 

c. 

LAST 

1461 

i u # 342 6 

1 335 j 

* 

TCF 

NV5.. USP 

0953 

REF 

1 



iC, 3427 

3 3721 

i.: 

V5*'.PASTE CAF 

V5YNU0 

l954 

REF 

3 

LAST 

1471 

lv,343. 

i 335. 

t 1 

TCF 

M5 JSP 

C955 

REF 

35 

LAST 

1443 

i'v f 343 i 

4 47 64 

1 

hITCHJNE 

aII5 

C956 




- 

TA ,3432 

^ 6 

1 

uXT ENO 


C957 

REF 

29 

LAST 

1446 

1' , J433 

03 -11 

1 

WAND 

O 3 ALMUUI 

L95a 

REF 

21 

LAST 

1469 

10, 3434 

3 CiOO 

r 

■ 

CA FLAGWRD4 

r9*5r9 

“RTF 




■i-Y i 

■■ / 3 T 3Z ■ 

\ 7 ~ 

FT A ;>T\ TV IX 



l96C 

REF 

4:2 

LAST 

1471 

lvi j4j6 

1 ' J t J 1 # Vi v) 

CCS 

A 

1 2 

C961 

kef 

158 

LAST 

14711 

10,3437 

3 477f. 0 

UAF 

CNc 


■ 962 

REF 

198 

LAST 

1469 

lu,344C 

54 }-l 1 

TS 

L 

U _ 

' 0963 

RFF 

273 

LAST 

1468 

iU,5441 

3 4 772 1 

C af 

ZcKLI 


- 964 

REF 

199 

LAST 

1471 

i«, , 3442 

5 00 1 0 

I NuEX 

— — ... - — — - -v* — 

L 


r965 


~nr- 

"nrsT- 

"3B3 

X j f 4 4 3 

^ T ^ 2 *^5 

XCrl 

^AUrl^ i iJA 

* • 

966 

REF 

3C9 

LAST 

1467 

1 >,3444 

Q i .. J 2 u 

IC 

'mi 

■ ‘i 

V 9o7 

REF 

6 

LAST 

374 

lb , 3445 

3 41 7u xi 

XCHTUEND CAF 

END INST 


1 96 b 

REF 

27 

LAST 

1468 

10, 3446 

56 C 64 0 

XCHNYLUC XCH 

L DC C T R 

7 

— ^^9 ■■ 





“Tnr3''*47“' 

“T“CTr76 1 

t XTENu 



l97^ 

REF 

2 

LAST 

i.46 7 

1 ’j , 3450 

6 3454 i 

bZMF 

HFLINT y 


' 971 

REF 

28 

LAST 

1471 

ib, 3451 

3 0 V' 6 4 w 

X C H 

LUCCTR: 


C972 

REF 

29 

LAST 

1471 

i w f 34 

a -1 U64 lu 

INDEX 

LGCCTR 

S - 

C973 

REF 

41 

LAST 

1436 

1 - # 346 3 

b4 1 u4 ^ 

TS 

Luo 


46 PAGE 1471 
U ^ - • S t AG E r. q Z 4 q- ^3 

CHECK MADE FUR PINBPqjCH AND PRIU ON MARK 
YESt ASbUME PmoTL aLWEYS UN FLASH 

NO I FLA^Hi NUi 0 <jP£FU^» I H ERFUf^ r X I T 


SECONi r 


IS IT MARK 
Y-ES 


NVUWRD1= - IS V97 JS/WUROI^ -4 ' IS V90 


DISPLAY SECOND PART CF GUPERF 


TURN OFF KEY RELEASE LIGHT 


ti~FiV^ 4 Tfi-T«>irfcl 4 P 


TC ENDUFJG6 REPLACES Gi:NADi< IN LOC FOR 
WAS THIS ACDPvtSS SLEEP INo 


NO 

YtS 


i 


ot,'46 PAGE. 1472 


* ASSEMDL I;. KL^I SIGN 72 CE A l>C program ARTE M IS BY NASA 2 ‘21 114- 11 


ll:4 2c >1971 ZfcUS 


L 0 IS FLAY iNlLftFACfc RUOTINtS 


Ui>bK'S FAbb {'40» 2b t S3 


V, . 74 

REF 

3 

LAST 

333 

IL } 3434 

1 5642 

1 

wA 

RELlNTy 

rcF 


i S76 

REF 

2 

LAST 

B27 

10,3435 

3 7654 

I 

CLEANENO 

CaF 

P I 


REF 

3d 

LAST 

1411 

1 . , 3456 

J 5135 

1 J 


TC 

FTNUVAC 

^ O'7'R 

1?ET 

2 LAST 

1 b 

' 0370 




h bANi^= 

“NVSTTVE — 

-S74 

REF 

1 



10 , 345 7 

04247 

i 


2CADK 

J AMT ERM 

'• 97S) 

REF 

1 



i:.,346C 

7 ^ J Q ... 





bd 

REF 

3 

LAST 

1471 

10,3461 

1 35U5 

o' 



TCF 

FL AS HSU B 


SACK TO UShr^ 

uNt LOWL, (Ra-'J jISPLAVS SLEEPING 


V 931 

REF 

22 

LAST 

1471 

10, 3462 

3 vldC 

V- ’ 

ISITPRIU 

C A 

FLAG WKD4 



REF 

1 



i t 3463 

7 7667 

u 


MASK 

ITISMASK 

IS PUsIdFFLG, MARKIDFLG SET 

^'933 





lj,3464 

j 0 70(6 

1 


EXTENu 


_ 1 — 1 —a _ . . _ ^ _ _ ■“ — — ^ 

‘ 984 

REF 

7 

LAST 

1463 

16 1 3465 

i 3041 

0 


32F 

PKi ObbKT 


r9B5 

REF 

93 

LAST 

1471. 

"10,3466 

I 523 5 

1 


TCF 

EN DOF JOB 


' 986 

REF 

11 

LAST 

1471 

1 ^ f 346 7 

11 *2^5 

1 

REST 

CCS 

C ADKSTuk 

IS sou LONE IN END IDLE 

C967 

REF 

94 

LAST 

1472 

i--r,347( 

i 523 5 

1 


TCF 

tNDUFJuL 

YES 

’"96 8 

REF 

1 



10,3471 

1 3473 



TCF 

RE^T^L iz P 


•0939 

REF 

95 

LAST 

1472 

10,3472 

1 52u 5 

1 


TCF 

t;4^iCQF JO b 


F99C 

REF 

2 

LAST 

1461 

10,3473 

3 » 162 

1 

RESTSLEP 

CA 

GENMASK 

SET NVSLEEH BITS 

C991 

REF 

2 

LAST 

1471 

1C , ^474 

7 0? 73^ 

0 


MASK 

NV3USHSK 


C992 

REF 

4 

LAST 

14o& 

IG , 347 5 

Ci 3755 

0 


TC 

UPfcf^lTxl 


t.993 

REF 

1 



10 ,3476 

0 424<> 

u 

NVSUBUSY 

TC 

I SC , 


" " C994 

REF 


LAST 

366 

10,3477 

O' 4356 

Pi 


TC 

PEluSPON 


<995 

REF 

19 

LAST 

1471 

1 0 f 3 5 u L 

3 164 

1 


INDEX 

COP INDEX 


0^6 

RHF' 

1 



i i, 35'> 1 

3 3 /24 

L 


C Ah 

NVLmDR 


i.997 

REF 

6 

LAST 

33d 

1 0, 3502 

55*246 

1 


Is 

CSPL l6T 


C996 

REF 

”6 

LAST 

1468 

10,3503" 

J 3163 

0 


TC 

JOBdLEEP 


G999 

REF 

4 

LAST 

373 

lC,35t 4 

0 436 ' 

i.' 

FLaSHSUB 

TC 

FLAo HO SI 


IjOO 

REF 

2 (- 

LAST 

1472 

10, 350 5 

J '-164 

1 

+ 1 

CA 

CGPIiNJcA 

CUPINDEX DESTROYED BY ENOlDLfc 


ir^Tl RBF “ "1 I'Cr,33L 6 >zr~r5T “DT rT~ CDFTTPTn: 


113 0 2 

REF 

3 

LAST 

14 72 

ii#, 65l 7 

3 Cl62 1 

CA 

GENRASK 


1103 

REF 

1 



10, 351 < 

7 7675 0 

MASK 

IbLh HA5K 


1l0 4 

REF 

5 

LAST 

147 2 

10,3511 

3 3755 0 

TC 

UPENT2 


1C 10 

REF 

12 

LAST 

1472 

10, 3512 

11*245 1 

CCS 

C Al) K ^ T Li K 

SEE IF SUMEGNt ALREADY Ici ENUluLE 

■ — rcn~ 

REF 

1 



~]T735T3~ 

i 3462 C 

1 Of 

IS! TPRTC" 


1012 





10,3514 

1 3516 1 

I CF 

+2 


1(13 

REF 

2 

LAST 

1472 

1 •: , 35 15 

1 3462 0 

TCF 

ISnPRiG 


1114 

REF 

2 

LAST 

1472 

10,3516 

i L 

ENDIDLE TC 

XSCADh+1 


1915 

REF 

1 



Id , 351 7 

3 3557 6 

CA 

LNDiuRET 


— me 

“RET- 

33 

■ LAST 

1A7Z ■ 

"3rC735ZU" 

T/5*245 1 

i S 

CAD RS 1 UK 


117 

REF 

7 

LAST 

1472 

1 ,3521 

J 51 oJ '7 

I c 

UJdSLEEP 


ir 16 

REF 

1 



10,3522 

4 43 54 u 

IDLEKEll CS 

LOWLOaD 


1’ 19 

REF 

7 04 

LAST 

147i_ 

1 .,3523 

(J L lb4 1 

AD 

rPAC 

VEHbKEG 

1C 2: 





1 , 3524 

} j6 i 

EXTEND 





ASSfeMBLE REVISI 


. /2 CF Aoi. PKUGRAH ARTEMIS 8Y NASA 2 ZiiiA- li 


ii:A. FE6, 26,1971 ZEUS 


fi ^ 


46 PAGE 147^ 


DISPLAY INTER FACE RUUTINbS 


USER'S PA^E MU 


26 


Eu S3 


Iv 36 

Trrr 

IE 3 a 


li 21 

REF 

403 

LAST 

1471 

10,3525 

26 

CU.. 

k,‘ 


DIM 

A 

li 22 





it. ,3526 

0 

GOO 6 

1 


tX r END 


1' 23 

KEF 

1 



10,3527 

1 

3703 

1 


faZF 

LCADi r i a 

'trr24~ 


2‘J 


“r4T2^ 

— iTrr353tr— 

i 

L to -J 

w' 

^ KT 0 F WX 

UA r LAUnt^UHr 

125 

KEF 

3 

LAST 

366 

lu,3531 

7 

407 6 

r> 


MASK 

C i 1 !;>/ 14 

li 26 

REF 

404 

LAST 

1473 

10,3532 

1C 

OGu 

u 


CCS 

A 

1.27 

REF 

1 



10,3533 

1 

35 36 

0 


TCF 

1 irttCHcK 

1 28 

REF 

1 



1C ,3534 

1 

3651 

1 


TCF 

NCRHKET 

l‘)29 

KEF 

1 



10,3535 

1 

364ti 

1 


TCF 

MARKfCh; 1 

111 29 5 

REF 

4 

LAST 

1470 

1 1 3S3 6 

3 

1 36o 

1 

TIMECHtK 

uA 

NV4DKD 

1029 6 





1C f i53 7 

U 

COL 6 

1 


cXrCND 


1-297 

REF 

2 

LAST 

1473 

iu,354' 

1 

365 i. 

1 


BZF 

NURi lAt T 

li 3 

REF 

27 

LAST 

I4t»4 

1C ,354 1 

4 

00 2 5 

1 


L:> 

TlMEl 


TTEF" 

~z- 

— CAST 

1454 

rr 7354*2“ 

6 

ICB." 5 

0 


"ATT 

kRI uTI K t 

1L32 

REF 

40 5 

LAST 

1473 

1 w , 3343 

iC 




uCS 

A 

1033 





i : ,3544 

4^ 

L^OtJ 



COM 


i. 34 

REF 

7 

LAST 

1412 

1 J , 3545 

6 

7663 

0 


AD 

lC 7 3/775 

1 C: 3 5 

KEF 

159 

LAST 

1471 

1C ,3546 

6 

4770 

c 


AU 

c.'ih 


REF 


REF 


2 LAST 1469 


TTSyr- 

,3551 


6 3774 
Xj 00U6 

6 3016 


AD 

— EXT 


liZMF 


2SEC 


KEEPPRIO 


V21 OR V22 OR V23 0i\ DSKY 
CH ECR NATURE ' OF ENCIDL ^' 


PRIO ENDIDLE RETURN 
NORMAL ENLIDLE RETURN 
MARK ENDIDLE RETURN 


1039 


REF 


3 LAST 1473 


13,j352 1 36:>1 1 


TuF 


NGRMRt T 


NORMwAKE CAF 


CNE 


- ir 4“I^ 

— RBF' 




lTr,-3554“ 

1"3253 

TT' 


“TCF~“ 

“ItAK^^Tr 

1 42 

KEF 

4 

LAST 

38u 

Iv. , 3555 

11*217 

U 

ENURE T 

CCS 

LC AD ^TAT 

1L43 

REF 

96 

LAST 

1472 

1 ^ f 3^56 

1 52w5 

1 


TCF 

t KuUFjUB 

1:44 

REF 

i 

■ 


10,3557 

21522 

1 

END ID RET 

CADK 

1 UL cKET 1 

1<^ 45 





10,356 

1 3j61 

1 


TCF 

.^1 ■ — 

+i 

— "|L f T- - • ■ ^ — 

-TAe 

-RET=- 

“24 

trA'S'T- 

T4T'3“ 

■ lG,35trl 

3 ^cri'jTr 



w A 

rL.3i'i3inii\u^ 

i 47 

REF 

i 



10,3562 

7 4767 

i 


MASK 

V'LJl 1 

1‘ 48 

REF 

2 

LAST 

14?2 

1"’ I 366 J 

6 Li57 

1 


AU 

CDPMPAC 

1049 

REF 

4 

LAST 

1394 

1 ,3564 

6 6uol 

U 


AD 

j! o'* 

■3-^ 'Is S’" 

Jo. 





1 • 7 f J 6 5 

u ~0006 

1 


EXTEND 


1- 5 1 

REF 

1 



lo,35o6 

1 3 6 ^ f 

1 


BZF 

• -f*’ fr - — ^ — 

Vi>iK[_ 1 

— ‘f- r*^ ri <7 '*^"T~7TT ~ “ 

t« 17-52 

K t F 

*5 

LAST 


— 10,3567" 

IZi / l 


LA 

L 3 A M J 1 A 1 

, 10 53 

R 6F 

7- 

Last 

1465 

10,3570 

6 4767 

■*-1 


AD 

f 

- 1^54 

REF 

3 

last 

1473 

1L,3571 

50 157 

1 

ENURE 11 

INDEX 

clpnpac 

' 1* 55 

KEF 

4 

LAST 

1470 

i ^ f 33 7 2 

u ^ - 371 

i 


AO 

CADK FL 3 H 

>- t 56 

REF 

7 C- 5 

LAST 

1472 

10 , 3:>73 

54 157 

V 

ENURLT2 

TS 

MPAC +3 

1^57 

REF 

4 

LAST 

“1472 

1 > ,3574 

3 0162 

1 


CA 

LcNM ASK 

1 58 

REF 

i 



1 .j j 3 j 7 3 

7 3751 

'J 


MASK 

pin! OMSK 

it 3 9 

REF 

4 

lASI 

147 . 

1^,0576 

^ 37v*2 

1 


1C 

OUWNlNI 2 

i 6 

REF 

52 

LAST 

1469 

1 J, 3577 

4 6214 

1 


c s 

1 Ht\c fn 

1-61 

REF 

2 

LAST 

25G 

1 Cf 36 

0 42 .2 

♦ I 

*♦ 


TC 

[ 4 V 3 U J 


-.=V32 OR E, 

+ i=ENUMAKK 

CANNOT GET HERE 


l~V33 DR P 


2=V34 


IS A^YNPLASn^ 

( a n 2 1 

AND A NORMAL DISPLAY 


remove ENDrOLL AN£)~~PlN8kANCi 




BLANK EVEBYIHING EXCLPT MM 


o 


46 PAGE J.474 


= ASSEMBL E KEVIS IGK 


VL OF AoL PROGK fe H Ai^TLHl^ a Y t>i^SA 2iiX4- 11 


li:4-- F£h« 26,1971 ZEUS 


L DISPLAY li^TERFACE ROUTINES _ USER'S PAGE NO, Z7 __ t 53 


IT 6 2 




1 v; f 366 1 

1 3602 

1 

J C F 


- — — - - . - - 

1.-63 

KEF 3 

LAST 

1465 

1 ;,36G2 

3 i 1 6 J 

"i 

ENun CA 

UsEKPKi U 

RETURN TO USERS PRIORITY 

■ iro-^T ' 

”RTT= 6 

LAST 

'T4W 



1 

M A 5 K 

PR 10 3/ 


063 

REF 18 

LAST 

1469 

1 3604 

u 5 i7o 

1 

Tt- 

PRIQCHNG 


K 66 

KEF 7^6 

LAST 

1473 

1 f 36. 5 

3 C157 

i 

L# /A 

.XPAC +3 


it 6 7 

REF 11 

LAST 

1469 

1 C » 36'.- 6 

i 46 Ui, 

1 

TCF 

bankjump 

- - - - 

1 6 6 

REF 68 

LAST 

1444 

1 I 36^7 

i. 5 ii o 1 

iJ 

VNKiiT rc 

U GWi>(F LAG 


TL 6 9 

“RTF 3“ 

LAST 

T4F3 

iC f 361T 

rrm 


AURTTS 

VNFLAG 


1 7 

REF 6 

LAST 

1473 

iM Joil 

3 I2i 7 

1 

CA 

lcmDsT at 


1C 71 

RTF 161 

LAST 

1473 

1C } 3612 

6 477C 


AD 

CNE 


1(T2 

REF 4“* 6 

LaST 

1A73 

1 » 3613 

!-■ 00 ' ■ 


CCS 

» 

A' 


IV 73 

REF 6 

LAST 

1432 

if' I 3614 

3 77 ‘ 

1 

CAF 

NEG3 

LOADOSTATo-. 

1C 74 

REF 1 



1 ;»3615 

i 3571 

-J 

TCF 

ENDKETi 

CANNOT GET HERE VIA CCS 

"rr75 

REF ~i: 



1 f 3616 

1 3621” 


TCF 

1 cKMFLbH 

LOA'D5TAT=-2 

Iv 76 

REF l62 

LAST 

1474 

1':,3617 

4 477 

i 

cs 

CNc 

COMPENSATE FOR INCREMENTED y IN LEAU-ll 

1^ 77 

RtF 2 

TAST 

1474 

iv r -i62C 

i 3571 


TCF 

ETi 

L0ADSTAT=-1 ' ' 

1 76 

REF 1 



10 1 3621 

3 3733 

1 

T cRM FL^ri uAF 

GCFUUCAD 


1079 

REF i 



■ inT3“622 

1 357 

1 

TCF 

EN0RET2 


a 1 ■ 8 










li c.; 

REF 12 

LAST 

14b7 

li# f 362 3 

4 w 1 6 V 

i 

LINUSCHK Cs 

PLAYTtH4 

is THIS A L INUS 

1. SI 

REF 3 

LAST 

1462 “ 

10 » 3 62 4 

7 4753 

, 5 

Mask 

KtF LSH 


IV S2 

REF 4v7 

LAST 

1^74 

1 J, 3625 

.1 ^ V 'V U 

U 

CCS 

A 


109 3 

REF 5 

LAST 

14 ^2 

1 t 3626 

i 67v6 

1 

TCF 


NO " 

1C 94 

REF 3 

LAST 

14o7 

IGi 3627 

4 t,157 

t • 

« 

cs 

FLAYTEM3 

YES, IS IT ALREADY IN ENDIDLE 

■ r?95 — 

“RTF ZIT 

LATT- 

■T4'72— 

lOTTST" 

5o l64 

1“ 

INDEX' ■ 

CUP 1 MU EX 


iv ?6 

REF 5 

LAST 

1473 

1 C f 3 63 1 

6 . 371 

1 

AO 

Caukflgh 


irs7 




1C,3632 

V i W w 6 

1 

EXTEND 



1C 9 8 




iC,3633 

1 3635 

i- 

BZF 

+ 2 

YES 

1l99 

KEF 310 

last 

1471 

10,3634 

D UOoZ 

U 

TC 

w 

NO 

ITTTC — 

“TTTF 9" 

LAST 

392 ■ 

iri,'56'35' 

ii' 215 

1 

' ■ CCS" 

U > KL UCii 

IS IHt ASTRCfNTTUT bOSt 

llJl 

REF 97 

last 

1473 

13,3636 

L.' 52 w5 

0 

TC 

ENJOFJOL 

END THE NEW DISPLAY, ITs ALREADY ACTIVE 

" 11 2 

REF 311 

LAST 

1474 

10,3637 

V 0C-G2 

D 

TC 




R li 3 
Rll 5 

K 1109 


COULD BE INCuRPUKATED HERE TO MAKE SURE A KEUYCLE IS A RECYCLANO CONVERSLY THAT A LOAD IS A LOAD 
AY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WaS EIlHEK INTERRUPTLO BY A PRIO OR A MARK (MARK 


MORE LOGIC 
L AS TPL 

XWCirmXTTi ATP t N DUPlNG""RTil5KAT^CTTT~aR' L asi nLkM^AL OTsPXaY i»AS KEUUESTEC NhiLl TmiOHLR pRiURilV 
CISPLAY ViAS V.OING KtSULTiNu IN ThC NCRMAL BEING PUT TO SLEtP* 


KillC 

R1112 

Klli4 

TITTB 


IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS » THE NORMAL DISPLAY IS AwAKENED TC GO TO 
UP THE MCST RECENT VALID NQPMAi: DISPLAY. IF THESE 2 CJN;jinuNS DU NOT EXIST t CUNTRCL GOES 

STARTED IMMEDIATELY WITH THE ASSUMPllUN THAT THE MUST KtCENf NORMAL uISPLAY IS AlKEADY IN- 

P IN tJRaTTCHI^TSlTTFrST' A TEST ART HAS UccokkEu anD THE^DISPlAY CaN Bt SIARiLU AS 'A .1 KtsiAH i 


PLAYJUMi WHKH ST 
TO PLAVJUMI WHICH 

CNbT OLE t DURING A 


TS 
IS 


REF 

REF 


3 4760 1 RARKRET CAF KKuVctll 

^ 3762 1 TC a- rtNENTZ 


1116 

1119 


3 LAST 1468 
S LAST 1473 


iC»3640 
lE j 364 i 


.. av: Assemble r evision 072 of agl prqsra.^ artemis by nasa 2 2 1 

L OISPLAV IfJTEKFACE KOUTiNcS 


11 s 

REF 

2 

LAST 

1468 

X ^ f 3 b>42 

1 35^5 



TcF 

1121 

REF 

163 

LAST 

1474 

i ^ p 3u43 

3 47 7 

(t ■ 

NAKKGVER 

CAF 

11 21! ‘ 


T 

L AS T 

■14T4 

1 ^ f 

55^21T 



T S 

1123 

REF 

25 

LAST 

1473 

i , 3645 

3 1^.» \j 



CA 

1124 

REF 

1 

- - • — 


i T f 3646 

7 4346 

1' ■ 


MASK 

1125 

REF 

4 ^ d 

LAST 

1474 

18,3647 

X 'C'Ci.J 



C Lr b 

1126 

REF 

1 



ir , 365C 

i 3 3 j 6 

N 


TCF 

'1127 

WF 


LAST 1475 

iu ,365 1 

3 e x'-* - 

^ ' 

NURMkET 

CA 

1120 

REF 

2 

LAST 

1468 

X vv 1 3o52 

7 3736 

1 



112° 

REF 

409^ 

LAST 

147 5 

Xu t 3633 

1 1 ‘ V U 

T 

Ik t 


w L# 6 

113 

REF 

1 



1C , 3654 

1 32j2 

\ 


TCF 

1131 

REF 

27 

LAST 

14 75 

13, 3655 

j C i ^ ^ 

L 


CA 

— 1132 

“RTF^ 

1 



1 f 365 6 

f ^ i ^ i 'j 


MASK 

1133 

REF 

41- 

LAST 

1475 

i J 1 366 7 

X ^ V/ LJ J 

. t 


CCS 

1134 

REF 

1 



1^' , 366‘- 

1 

I 

10- 


TCF 

1135 

REF 

7 

LAST 

147:. 

1' f 36tJ 1 

3 4765 

1 


CAF 

11355 

REF 

3 

LAST 

147^ 

i f 3662 

o 47 c>3 

1 


ad 

Xr316' 

K tF 

5 

■'LAST 

"1'469 

1 } t 3663 

7 1275' 

I 


MASK 

1137 

REF 

411 

LAST 

1475 

X T f 3664 

X L T V, 



CCS 

1138 

REF 

3 

LAST 

1475 

1C, 3665 

1 3555 



TCF 

1139 

REF 

3 

LAST 

1472 

i 3 f ^666 

3 .:37 



CA 

11^*' 

— - 

— 



in 1 366 7 

D ^ J 6 

1 


EXTEND 

1141 

REF 

4 

LAST 

147 5 

1 367< 

1 355 3 

-■ 


bZF 

1142 

REF 

3 

LAST 

741 

i . ,367 1 

3 5 54 

(- -J 


C aF 

1143 

KEF 

23 

LAST 

1466 

18,3672 

C 5121 

■wh 


TC 

1144 

REF 

5 

LAST 

1473 

.366 




iz 6 AKK— 

1145 

REF 

2 

LAST 

1469 

XT f 3673 

^ 3 ' ' u 1 



2CADR 

1145 





1 L , 367 4 

ZvJ ^6 

1 



1146 

REF 

5 

LAST 

1475 

1C, 3675 

1 355 5 

r 

1 

L ' 


i CF 

1147 

REF 

23 

LAST 

1475 

1 , 3 6 7 6 

3 ClOi. 

L> 

MARSLEtP 

CA 

1148 

REF 

3 

last 

1475 

1 > p 3 6 7 7 

7 37 36 

1 


MASK 

1149 

REF 

^12 

LAST 

1475 

X f 3 7 L- 

1 ' ' -> 0 U 

- 


CCS 

11 5T 

TTEF 9^ 

ITU'S T 

1474 

itr,3TrT 

“d 52T5 

i 


TCF 

1151 

RFF 

3 

LAST 

1463 

i n f 3 7 '-j ^ 

1 321‘ 



TCi" 

1152 

REF 

4 

LAST 

1473 

1 v- f 3 7 , 3 

5. 157 

1 

LuAuI TI S 

Index 

1153 

REF 

5 

LAST 

1475 

l.j,37'C4 

3 L366 

1 


CA 

1154 

REF 

14 

LAST 

1471 

1 *^ 5 f 3 705 

7 6543 

1 


MASK 

1155 





1 ^ f 3 7 l 6 

'“4~cc J'!': 

t 


CCJK 

1156 

REF 

707 

LAST 

1474 

i _ f 3 7 ^ 7 

6 155 



AU 

1157 





1 f 3 7 X 

S-- » V - O 

1 


h X T E NU 

1153 

REF 

1 



X — f 3 7 XX 

1 353. 

-■ 


bZF 

li5S 

REF 

6 

LAST 

453 

1 ',3712 

1 -32 75 

1 . 


rcF 


11:4- F£B« 26,1971 ZfcUS 46 PA;;E 1^1 o 

USER'S PAGE NO. Z'c t :>i 


ENUkET 

ONE 

xt T A PSTrr — 

ELAGiiktJ4 IS ENDIUFLG SET 

0Tri3-14 IS NURI'iAL CK PRIQ IN El^DIOLE 

A 

NCRM3NCH 


flagwkD4 IS mArk sleepTng 

BITS3+11 OR HAITINO 

A - 

R,VR*^AKE 


FLAGirJKD4 NO 

in-r^o^TiT*- — r?~N o r MAL i nt ett ro p ted r m-v ra-i 

A 

NORMS AKE YcS ’ 


FLSHRwoT NQf WAS IT FLASH REQUEST 

RETDSpy UR GODSPRET 

E BANK T E'M ' — — 

A 

ENUKET YES 

i'<Vc>A Vt 


ENJRfcT 


PR I u 13 
NOV AC 

NVwu RJ 

PLAyjURl 


EixJKcT 

i-L^SWRU4 IS MARK ALREADY IN 

.1135+11 

A 

“ENDtJ'FXaB Yr S“ 

GO^ L tt P S 

ccpmpal 

NV A i JKU 
L L li / 


PiPA^ +i 


NUUNREG 


i.KiOEi'll NO r ThtN LCAC l i VAilu 

PINGkhoIv yes, accept LOaC i.bT ASK LAol AGAIN 


•_ HCLb K)7\/ISI0N GF AG C PROGRAM ARTcKI^ BY NASA Z.211LH~ il 

L DiSPL>iY Ii^TEKfACe ROUTIfjt.i> 


TTtTF 

116S 

117*1 

1171 

1172 

1173 


116 

1161 

1162 

REF 

REF 

KEF 

53 

3 

99 

LAST 

LAST 

LAST 

1473 

1473 

147 5 

10. 3713 

10.3714 

10.3715 

4 6214 

0 42 j2 

1 52_:> 

1 

. ^ 

1 

EHAS trt 

GS 

TG 

TGlr 

T Hi<E L 

NtfSUB 

tNOUE JUB 

ITB3 

"KFF 

ICO 

LAST 

1^76 

1 0 f 3 / i. 6 

i 52-^3 

1 


TCF 

fcNUQFjUt 

llu4 





10,3717 

C‘0036 

1 

P ERF MASK 

OCT 

-^^^3 o 

1165 





10,372*. 

vi C 231 

1 

V0iN25 

7N 

*. 125 

1166 





1 :,3721 

144.R 

0 

V50Nuij 

YN 

3GOO 

1167 

REF 

lu 

LAST 

1439 

5< ( 1 



P EK E 2 MSK 

E U U A L ^ 

SITS4E5 


KEF 


3 ■ LA'ST 


KEF 

REF 

REE 


1 

4 

3 


LAST 1469 
LAST 1475 


^TTS 

1U,3722 
10,3723 
1C, 3 724 
i: ,3725 
i:,3726 


iv 

40036 

2i0i>o 


21 ol 


1 

0 

L 


PERF4HSK 

KtDUMASK 
HARK4M3K 
NVCADK 
hAKEC AOK 


EaUAUJ 

OCT 

uCT 

LADR 

CADR 

CAUR 


XJCTT3r~ 
20 U 
40. . 5 6 
k£ J dPRi U 
F.ARKPLAY 
PLaYJUHI 


1174 





1’ ,3727 

1121. 

1 

N BUS MASK 

OCT 

1121 

1175 





1 L , 37 3 . 

66521 

1 

■PMHASK 

Uc T 

66pZ1 

1176 

REF 

4 

LAST 

1461 

417 1 



VER8MASK 


KIJ7 

1177 





i:,3731 ■ 

“(71177 

1 

VuSNOOHl 

□CT 

1177 ■ 

1178 

REF 

5 

LAST 

569 

1 t 257 6 



GOXDSFE 

G wUAL^ 

GOMARKF 

1T79~ 

REE 

~Z" 

TTTSr 


5524 



ENL) tx 1 

Eou alS 

E NuM AKK 

11S( 

REF 

14 

LAST 

1216 

- io3 



EPAC2SAV 

EQUALS 

BANK3E T 

nei 





15,3732 

0€ 7UC- 

L 

NV6USMSK 

OCT 

/xi 

1182 





iij,3r8J 

40 030 

0 

KPERFMSK 

LiGT 

4 .. - 3 

1183 

— 

■ 

* 


10,3734 


0 

CGT 345'. 1. i 

UCT 

340- ■ 

1184 





l:w,3/35 

4C 100 

I 

BIT S15+7 

UCT 


“Tr8K~~ 





1 0 f 3 / 3 6 

"TJZTTZir 

1 

“FTTS5+1T 

UCT 

"Z7ZC 

1190 





1 .j f 3 7 J 7 

L 10 iL 

1 

BITS4+li> 

OCT 

iJlx/ 

1191 

REF 


LAST 

375 

4354 



LOriLOAD 

EQUALS 

V3SF2LD 

1192 

REF 

11 

LAST 

1439 

5‘jl 4 



CAURMASK 

GuUALS 

CCTp 

1195 

REF 

7 

LAST 

1422 

7673 



PINHASK 

EQUALS 

13, 14, 15 

1194 

REF 

3 

LAST 

147. 

10,3315 



GOPLAY 

EQUALS 

NVOoP 

“ ATIKS- 








PRIOSAVF" 

c ^GTAL 5 

r- i -> A V E 

1196 

REF 

708 

I.AST 

14 75 

157 



CUPMPAC 

E QUAL^ 

MPAC -t-i 

1197 

REF 

7G9 

last 

1476 

^ 1 G v 



TEMP0R2 

EQUALS 

FPAC +4 

119*^ 

REE 

42 

LAST 

1471 

. io4 



COP INDEX 

Equals 

LGC 

12r:. 

RFF 

26 

LAST 

11S2 

163 



USERPRIU 

EQUALS 

MODE 

12* 1 

REF 

71^ 

LAST 

1476 

U62 



GENMASK 

tQUAL6 

MPAC +t> 

IZfTZ' 





10 ,3 ^4F 

2L144 1 

k1 00 ct 

UG 1 

2 . 14^, 

12'-. 3 





1 J , 374 1 

42424 

■ j 

MARKOCT 

OCT 

4242", 

12r4 





10,3742 

11254 

1 


□CT 

11254 

12 - 5 


- - 



10 f -j 743 

74 7 o 

V.' 

IDLESLEP 

OCT 

/47 . 

1^ 6 

REF 

13 

LAST 

941 

p516 



LINUS 

E ALo 

BLaNKuT 

- - I2r-T~ 

RFF" 

"TTl 

“FAFF"! 47 u 

"7x54 



hiiCERIEG 

c: wOAL S 

AL 

12 : 8 

KEF 

712 

LAST 

1476 

155 



PLAYTtrti 

h UAL 5 

MPAu +1 

1209 

REF 

713 

LAST 

14 76 

1 p 7 



FLAYT EM3 

LQUALS 

r'.PAC +3 

121 

REF 

714 

LAST 

1476 

i6's 



PLAYTEM4 

EQUALj 

PPAC +4 

1211 

RFF 


LAST 

1466 

i ,3744 

.3; i.2 

1 

RAKE GEN 

GENADk 

KAKcPLAY 


11:4 FE6. 26,1971 ZEUS 


0.46 PAGE 1476 


USER'S PAGE NU» 29 t'l.S3 

BLAN< EVLRYTHINGEXCEPT mm 


FLASH,PERFCBM, BLANK R2 AMO K3 


(OCTAL 3; J FLASH, PERFORM 

FLASH, BLANK 'TT' J 

BITS 4 AND 14 

71ARK, PERFCRff,FLASK;ELAm 2 ANCTJ^ 


(OCT 3761 ( ) 
V~5 MINUS CNE 


611 15,5,4 FOR MARK, PERFORM, FLASH 


DOMT ‘HDVF 

^ DONT MOVE 


r 


FRTU 

MARK 

NORM 


l» AP : 


ASS E MBLE K E V i S ION {.72 C F AoQ PIIOGKAM A K TErtlS b Y NA SA Z.2111^- - li 
L JISPLAY INTERFACE RUUTINtS 


Ul^ 





iuf 3745 

it 

X 

blTi3+8 

□CT 

12 

1213 





lU ,3746 

3r2Co 

0" 

V'37N60 

VN 

9 7: 

1214 





1l ,3747 

ZE 1 

1 

BITi4+7 

OC f 

2 1 . 

1213' 






^4 iJ -3 

1 

CLOCtCCCTM 

tJC T 

2 42j 3 

1216 





it. ,3751 

7 4040 

V 

FIN I OMSK 

UCT 

74iJ4 - 

1217 

HEF 


LA3T 

112? 

7675 

— . _ 


lOLcMASK 

EQUALS 

HIGH 4 

1219 

REP 


LAST 

1465 

7o67 



ITISMASK 

EQUALS 

B i ri J+O 

122- 

REF 

3 

LAST 

1423 

7664 

- 


RARKFMSK 

EQUALS 

CT4’J l:: 

1221 

Rf F 

1 



1-^,3752 

o3217 


XCH JADD 

GhNADR 

KCH SLEEP 

“1222^ 


“3“ 


— 



“Mftr'TMASK' 

tyUALb KKlU-3 

1223 

REF 

3 

LAST 

1472 

1 V , 3 7 3 2 



UCT7lL 


NVgJSMSK 

1224 

REF 

1 



10,3753 

55772 

V 

60PUUCAD 

CAOR 

ICGtiPOUH 

122S 





1 : ,3 754 

4o21' 


MARKiMSK 

OCT 

^ .21 ' 

1226 

REF 

4J1 

LAST 

1425 

4752 



PKKOST 

— 

01115 

1227 

REF 

69 

LAST 

1433 

4753 

A. . ^ ^ 



REFLSH 


iilTi^ 

1223"' 

— REF 

"43" 

LAST" 

i43\; 

^^54 



‘“ZNUPEKr 


b 1 1 1 3 ■ 

122? 

REF 

31 

LAST 

14 1 u 

t755 



V99PS Tt 


31112 

12‘3^ 

REF 

33 

LAST 

1439 

4761 

- 


DCHKPERF 


3 ITS 

1231 

REF 

4t 

LAST 

14'.7 

47b2 



FKlQDSPy 

— 

6117 

1232 

REF 

39 

LAST 

1427 

4763 



RETDSPY 


31 To 

1233 

REF 

36 

LAST 

1471 

4764 



PERFKgST 

— 

til 15 

1234 

“ REF 

~43 

" LAST 

14F4t: — 

4TU5 



FL5HRQST 


B1T4 ” 

1233 

RtF 

44 

i- AST 

1446 

4766 



BLNKR3 

— 

til 1 j> 

1236 

REF 

41 

LAST 

1432 

4767 



BLNKK2 

— 

31X2 

1237 

REF 

bb 

LAST 

1435 

477 



BLNKKi 

— 

eiTi 

1238 

REF 

27^ 

L AST 

1471 

4772 



DSPONLY 

* " 

ZERO 


li:^ FEBt. 26,1 :7I ZEUS 46 

USER PAGE NO 3 

PASTE FDR V9T OR V9 ' 

F L A S H t P E R F OR I^ l » ' V-9 ^~' ~ Cm T 97 ~ P A 3 

ENUIULE ALLOW 


PAGE 1477 


L 33 


n:,R E' Pn N- SH 


Ca CT AL 


46 PAGE 1478 


^ ^'•>1 V . AS S EMbLE f-tEV I SION C7Z LF AuC PRUGKAM ARTEMIS 6Y .'jASA Z 2X114- ii li:4 FEBo 26tl97I 2EUS 

L SLRVICl routines bS£R*S PAGE NU. 1 E SS 


003 B 

REF 

2 

LAST 

1459 

J. Of ^ 




3ETLG0 

DISPLAYS 


rcS9 





10,3755 




BANK 



■t**. d Tk 

^ *t 1 ' 

’^REF 

2 

CAST 

146. TO 

1478: 

624 6244= 


COUNT* 

>1/ DSPLA 



"REF’ 

2D'0 

LAST 

1471 

iaV3755 

34 UTTIT 

7~ 

UPcN 1 2 

TS 

L 


0 C 5 • 

REF 

29 

LAST 

1475 

10,3 756 

4 61u 

1 


cs 

FLAGWRD4 


CE 51 

REF 

201 

LAST 

1478 

1 -p f 3 7 6 7 

7 uOvi 

1 


MASK 

L 

- . ^ 

'"53 

KEF 

3v 

LAST 

1478 

10,376C 

26 luc 

1 


ADS 

FL AGWRU4 


V< 56 

REF 

312 

LAST 

1474 

10,3761 

0 0Ou2 

li 


TC 


RETURN ^ 

':'i-63 





i 0 f 3 7 6 2 

4 LOuO 

0 

GOWN ENT 2 

CuM 


START TO PROCESS INPORMAliGN 

\ A. 66 

REF 

31 

LAST 

1478 

10,37t»3 

7 clOu 

1 


MASK 

FLAGWRU4 


: 68 

T^EF 

32 

LAST 

1478 

10 f 3764 

54~^ n)0 

1 


T5 

FLAGWRD4 

_ ... _ _. 

1 i 71 

REF 

313 

LAST 

1478 10,3765 

0 00^2 

3 


TC 

W 

RETURN 

’:t72 

REF 

22 

LAST 

1469 

4774 



CCT7 

EOUALS 

SEVEN 



5 _ _ ^ 




d 


u AP : AS S EM bL t K U V I S I UN 172 OF AbC PROGRAM ARTEMIS BY NASA 2 21 11^ J 11 


FfcB« 26tiy7i ZEUS 


.146 PAGE 1479 


SERVICE ROUTINES 


USER'S page no. 


E ■' S3 


Pt( 74 
RtOTS 

KU 77 


Rceai 


KCibZ 

R0L-S4 


R'.i'Sb 


Rir86 
R S’ b 7 


IRELY GENERAL FLAG SETTING AND CLEARING SUBROUTINES. USING THEPl» WHETHER OK 
uR CLEAR ANY SlNGLEf NAMED BIT IN ANY ERASABLE KEGISTERi SUBJECT OF COURSE TO 

-THE -traRO~l^- imti-r- WAME TC - R yi At Lr AS SIG I^ E U B Y THE -T U t: 


UPFLAG AND COWNFLAG ARE 
NOT IN INTERRUPT , ONE MAY SET 

tetmK— A' 

ASSEMBLER. 


AT PRESENT THE QNlY NAMED BITS ARE THOSE IN THc FLAGmUKU^ 
NAME ANY 31T IN ERASABLE HEKORY. 


ASSEMBLE,^ CHANGES WILL MAKE IT POSSIBLE Tu 


CALLING SEwUENCES ARE AS FOLLOWS: 


TC UPFLAG 

ADRES NAME OF FLAG 


TC 

AUKtS 


DU W NFL AG 
NAME GF FLAG 


RCCBb 


RETURN IS 

TO THE 

LOCATiCN 

FOLLOWING 

THE "ADRES" A8UUT ,58 MS 

R ’j09G 


UPON 

RETURN A CONTAINS THE 

CURRENT 

FLAGWKD SETTING. 

- 

Ci 92 

REF 

9 

LAST 

141J 

4wbi 



SET LOG 

FH TAGl 

r<:93 



— 


5547 



BANK 


04 

REF 

1 






COUNTS' 

ti/FLAu 

Cl 95 

REF 

314 

LAST 

1478 

p547 


U P F L A b 

CA 

U 

CC96 

REF 

3 

LAST 

278 

555c ~ 

Tr'55o5 i 


T C 

Ccii IT 

CO 9 7 





555 1 

4 OOUG t 


COM 


CD 9 8 



- 


5552 

y Uj 06 1 


EXTEND 


Ci‘99 

REF 

1 b 

LAST 

1132 

555 3 

04 1 1 


RUR 

f" ' Y 

LCHaN 

riTTu — 

— REI^ 

- 36 

LAST 

1^433 


~5t ''61 U 

CUnr L Au 

1 A 

X I 1 1 r Ji, 

1’ 1 

REF 

21 

LAST 

1-21 

5555 

54 l74 


TS 

FLAGWRD' 

; 102 

REF 

4 

LAST 

140 6 

555^6 

22 ^63 1 


LXCH 

ITcMPi' 

V l'ii3 





5557 

U L 0 u J 1 


KtL INT 


'14 

REF 

202 

LAST 

1478 

5560 

G ‘CO.)l i.' 


TC 

L 

Ic 5 

REF 

315 

LAST 

1479 

556 1 

3 L k. 'J 

CUWNFLAG 

CA 

U 

1 i6 

REF 

4 

LAST 

1479 

5562 

0 5565 1 


TC 

rCBi T 

. 107 

REF 

203 

LAST 

1479 

5563 

7 1 ^ ^ 1 1 


HA SK 

L 

’ 1 U 8 

REF 

1 



5564 

1 55^4 1 


TCF 

COMFLAG 

1 V 

REF 

164 

LAST 

1475 

5565 

6 47 7 j ; 

CEBIT 

AD 

C9 _ 

11 





5566 

G COU^ 5 


1 nh inf 


111 

REF 

5 

LAST 

1479 

r»567 

54 u63 0 


TS 

ITCMPI 


112 
- 113 

jllt> 

;116 

Cil7 

CHS 


REF 

ref 


6 

37 

nj' 


LAST 1197 
LAST 1479 


REF 2g4 LAST 1479 
REF 275 last 1477 


j 5 7 C 
5571 
3572 

5573 
d5 74 
^57 5 
j5 76 


3 4777 1 

54 I- . o 1 i 
■iJ~raS 'T 
2'7777 . 
54 CJl 1 
3 4772 1 
0 GCJ6 1 


CA 
I S 

IWEX" 

CA 

TS 

CA 

LXTFNU 


LOW 4 
1 IcHPl 
TTETTFT" 
-1 
L 

Z - b‘J 


+ il5 


BIT ) 


SET BIT 


kcslt bit 


GET 0 E b n 5 


EEC15 


adkes 


ASj tfHSLE REVISION ' IZ LF AuC PROGRAM ARIEMJS B Y NASA 2-211 1 4- ii ll:4‘- H=b«, 26,1^71 ZEUS .< 46 PAGE 148 



StRVICfc 

RJUTINES 

- - - 

— - ' 



- - 

USER'S PAGE 

NOo 

3 Lt S3 

11 J 

REF 

33 

LAST 

14 7:^ 

557 7 

10 .61 

1 

DsJ 

1 TEMPI 

A = FLAGWRD, L = 

(15 - 

BIT J 

12 

REF 

39 

LAST 

143. 

5600 

5 2 062 

1 ■ 

UXCH 

ITENPi 




1,121 

REF 

4u 

LAST 

14 d u 

5osj 1 

5L 051 

0 

1 Nut X 

1 TEMPI 


- 


nz2 

RTF' 

22 

L AS ) 

1479 

56 2 

3 U6 / 4 

X 

trs 

FLAG^ROC 




^'123 

REF 

2'j5 

LAST 

1479 

5663 

54 UOl 

1 

TS 

L 

CURRENT STATE 



. 124 

REF 

24 

LAST 

1432 

36l 4 

50 ;62 

G 

I NDt X 

IT£rHP2 


■ * ' - ' ' — ^ 

^ ^ 

125 

KEF 

49 

LAST 

1477 

5t>i’5 

4 475^ 

1 

cs 

bit 15 

-(15 - BIT) 



( 126 

REF 

316 

LAST 

1479 

j>6C6 

150u2 

■ 4 

TC 

k 





0-146 PAGE 1481 


b AP ; 

L 

Pi 12 ? 

R- 129 
“ 7 rC 13 '' 

Aul31 
a P 132 


ASStHBLli RFVISIUN O/R CF AGO PK UGRA f-1 AKTEMIS 3V NAS A 2 -21114-11 1114 > FEB« 26,1971 ZEUS 

SERVICE RJUTINES USER'S PAGE Nu» 4 

GEi-AYJ06“ A GENERAL ROUTlNt TO DELAY A jCd A SPECIFIC AMOUNT JF FIME BEFCRc PICKING UP AGAIN> 
ENTRANCE REQUIREMENTS. • « 

_ — ^ XTEtrAT joa FUR “DT-t g f vi TrSEtrS 

TC BANKCALL 

CADR CELAYJQB 


t S3 


t.l34 REF i (ji0»2 ^ SETLGC ULAYJUG 

‘.136 00 1 3 73. BANK 


RC136 This MUST REMAIN IN d/vNK 0 


•‘137 

REF 

1 


- — 




GOUNT-!f 

SF/OElAY 


^1371 

REF 

13 

LAST 

788 

OQ } 373. 

3 3 o i D u 

ISECDELY 

CAF 

iSEC 


“138 




- ■ 

'00,3731 

3 “00.4 0 

DELAY J 03 

INHINT 



‘ 139 

REF 

317 

LAST 

14 8 U 

U vji t 3 f 3 2 

54 002 1 


TS 

u 

STUKb DELAY DT IN Q FOR OLY -1 IN 

t 14 

REF 

1 



j 1 3 7 3 3 

3 6214 V 


lAF 

CEL AYNUM 

WAITL 1ST 

-^141 

REF 

42 

last 

1434 

GC, 3734 

54 ^7v. 1 

DEL LOOP 

TS 

RUPTREOl 


142 

REF 

413 

LAST 

1473 

00,3735 

5 .■ GOO 1 


I NOEX 

A 


143 

'REF 

5 

LAST 

204 

00,3736 

3 lUGO 0 

- 

CA 

CcLAYLUC 

IS THIS DELAYLOC' AVAILABLE ' “ 

144 





00,3737 

ij - 3 V- 6 i 


c XTEND 



“143 - 

RTF' 

1“ 



' yjo,374cr" 

1 3741^3“ 


BZF 

0K2DELA1 

tts 

146 

REF 

43 

LAST 

1431 

o:,i741 

1 C t# 7 i 1 


CCS 

RUPTREGi 

NO, TRY NEXT OELAYLOC 

147 

REF 

1 



■J ^,3742 

1 3734 


TCF 

UeLLOGP 


148 

REF 

5 

LAST 

1229 

00,3743 

G 7706 1 


rc 

4i A I L UUT 

NO AVAILABLE LDCS AVAILAiiLE. 

n4? 





00,374^ 

— 31104“ Ci" 


UCT 

31104 



1 1 5 1 

REF 

1 



vj ^ f 3 T 4" 5 

3 37o5 

'j* 

CKZDtLAY CA 

TCiLEEP 


SET WAITLIST 

IMMEDIATE RETURN 

C151 

KEF 

5 

LAST 

1224 

00,3746 

54 . ol 

1 

T S 

A A i \ r A i T 




152 

REF 

3U' 

LAST 

1210 

" *3747 

3 1 Cv> 4 

n 

9 

C A 

FBANK 



H"=Yiir — ‘T' A^it — T At t ■ ^ 

,15-3- 

-KEF 

44- 

LAST- 

1481r~ 

— 1"7 ,375fT 

— cj 


AD 

- KUr 1 KtO 1 


1 UKC DO#4ni\ r 


1154 

REF 

2.6 

LAST 

14 BC 

0 w f ^ 7 1 

3 4 • ^ 1 

1 

IS 

L 





'15 5 
rl56 

REF 

REF 

1 

2 

LAST 

1224 

00,3752 

00,3753 

3 3766 
1 5243 

L 

CAP 

TCF 

w akeca j 

ULY2 -i 

STORE CADR FOR TASK CALL 
CLY IS IN RAllLlST ROUTINE 

15 7 

REF 

6 

LAST 

14 67 

C‘{ , 375^ 

J 46ol> 


TCGtTCAD iC 

R AKECALfK 

GET CALLERS FLADR 

^ 158 
0159 

REF 

REF 

45 

0 

LAST 

LAST 

1^01 

1481 

i- i, , 7 5 5 
0^ , 3736 

50 f. 7* ■ 

5 5 * -• -• . 

1 

I iTDE X 
TS 

RUPTREGI 

CcLAYLuC 

SAVE DELAY CADkS 

tl60 

REF 

3 

LAST 

14/2 

, ,3757 

0 5163 


TC 

JOaSLEEP 


' lol 
162 
• 163 
1164 

REF 

REF 

REF 

REF 

276 

33 

7 

14 

LAST 

LAST 

LAST 

LAST 

iA79 

1466 

1481 

1463 

uj , 376c 
,'.-,3761 

\j ' j , b 76 2 

, :>763 

3 4772 
5 J XJ 0 6 

5 7 * -.'l tv 0 

0 51o? 

1 

1 

1 

hAKER CAF 

1 N JEX 

XCH 

1 C 

ZERO 

BBANK 

GcLAYL JC 

JU3W AKE 

RAKE DELAYLOC AVAILAGcE 


gap: ASSEMatE REVISION ^ /2 GF AGO PKOGRAM AKTfcMIS BY NASA 2^21114-11 11: PEB^ 26,1S7X ZEUS ,046 PAGE 1A82 

L SERVICE RJUTINES USER*_SJ»AG£ NO, 5 t S3. 

Vliilbp HEP 67 LAST 1436 _0^t_3764 ^s^J>314 1 . . TL . JA^OVEK _ 


^ 166 REF 

1 

00f3765 

03752 

1 TCSLEEP 

GENADH ICGETCaD -2 


TT67~’^nTFF~ 

“I 

^ 00,3/66" 

&B 

17 WAREcAD 

GENAOR kAKER 

‘ 


\ i-l • 

J r * 


AbiEMbtt REVISION HZ OF AuC PROGRAM AKIEMiS BY NASA 2 . 21114 -Oli 


li:4 FEB, 26,1971 2LUS 


o 46 PAGE 1463 


L 


SERVICE rtUUTIh 4 ES 


usek's page no 


t S3 


P io 




GENTkAM, A BLOCK TRANSFER ROUTINE^ 


KV 17' 
-RVT.T1 


WRITTEN BY D* EYLES 
KCCr I'BY KERNAK“ 


UTTL ITYT-nTEnr? ll/lB/67' 


:.1722 MOO 2 BY SCHULENBEKG IkEMUVE kELlNTi SKIPPER REV 4 2 / 2 d /66 


RCIT'J 
K< 173 


THIS ROUTINE IS USEFULL FOR TRANSFERING N CONSiit-U l‘ I Vt EKASASLc OR FIXED WUA. 4 TITILS TO S 3 ME CiTHrR a 
CCNSECUTIVE ERASABLE LOCATIONS* IF BOTH BLOCKS OF OATA AkE IsM SWITCHABLE EBANKS, THEY MUST BE IS THE SAME 


RC177 



j ENT RAN IS CALLABLE 

IN A JOB 

AS 

injcLL AS 

A Rupr 

* THE CALLING 

SEQUENCE IS: 

a‘_179 








I 

C A 

N-i 


i) GF QUANTITIES MI 

A\ IB'' 


- 


- - - - ^ . 


— 


I +1 

TC 

GENTRAN 


IN FIXED-FIXED./ 

AG 181 








I +2 

ADRES 

L 

, — — — 


STARTING ADRES GF 

— At“l82 









AUKt i 



i AT^ 1 i lj a l, TkC ^ u r 

A-:i83 








1 +4 




RETURNS HERE- 

IB4 



GENT RAN TAKES 

25 MCT 

*s 13^: 

MICROSECONDS) PER 

ITEM + 5 

MCT* S 

Ibi MlCS) FOR ENTER! 

R - 18o 



A f L 

AND ITEMPl ARE 

NOT PRESERVED* 





C188 

REF 

2 

last 

1459 

4.;CC' 




3ETLQC 

EFTAtPt 



0189 





iui.1 7 




SANK 





REF 

41 

LAST 

146 i 1 

^ T 6i 




E8ANK= 

ITEMPl 



',191 

REF 

1 







C ijUN t ^ 

$i/TRAN 



0192 



- 


56G7 

G i C j4 

0 

GENTRAN 

INHiNT 

- 



<193 

REF 

42 

LAST 

1433 

561 

54 v61 

1 

+ 1 

TS 

il cMPl 


SAVE N”1 

CI 04 

REF 

318 

LAST 

1481 

Soil 

5l 002 



I ND E X 



C ( g > = ADRES L 

1 19 3 





5612 

6 OOov. 

I 


AD 

-A 


ADRES IL + N - 1) -, 



KtF 

-414- 

trAST- 

“14 "Bl 

— 561“3” 

■50 t>OL' 

"t — 


ilStUt \ 

P 



197 





5614 

3 0000 

1 


LA 



C ( ABU VE ) g 

- 1,196 

KEF 

2CT 

LAST 

1481 

5615 

54 001 

1 


Is 

L 


SAVE DATA- 

. 199 

REF 

43 

LAST 

1483 

5616 

3 OO 6 I 

U 


C A 

ITEMPl 




REF 

319 

LAST 

1483 

56 1 7 

5t > >2 

V 


INDEX 

«« 



L201 





562 C 

6 iOjl 

KJ 


AO 

1 




ADRES tM + N “ 1) 

2 

RTF' 

'4T5' 

LAST 

T4H3' 



5C ■OCO" 

1 


TTVO ET 

A 



< 2 -: 3 





5622 

22 -. jUu 

1 


LXCH 



STUFF IT. 

1 , 2 : 4 

REF 

44 

LAST 

1433 

5623 

1 ; C61 

1 


CCS 

H i-MPl 


LOOP UNTIL N“1 = 1 

2 5 

REF 

li 

LAST 

636 

5624 

i 5610 

1 


TCF 

GENT -AN 

+ 1 


r 2-: 7 

REF 

8 

LAST 

14 2 

5o25 

1 671L 

0 


TCF 

(4+2 


RETURN TO CALLER. 


1 


I 


G . assemble K EVISIQN . 72 CF AGC PROGRAM A RTEMIS BY N AS A z: 11:40 hEB, 26,19 71 Z£US . 46 HAGfc 1484 

U SERVICE ROUTINES USEK*^ PAtjfc N08_ 7 l S3 

P 2^’8 35DFF ZtKU BIT 5 OF EXTVDACT, hHiCH IS SET BY TESTXACT. 





MAY BE OSED 

AS NEECED 

1 BY ANY EXTENDED 

VERB WHICH HAS UONt TESTXACT 






^11 

KEF 

1 





COUNT=«' SS/lXTVB 






1212 

REF 

37 

LAST 

147 7 


4 4764 1 B30FF 

cs 

BIT5 






r2i3 

REF 

IS 

LAST 

1459 

^627 

7 1247 C 

MASK 

^EXTVBACT 






214 

REF 

19 

LAST 

1434 

:>63C 

55*247 f 

TS 

EXI VBACT 






' ^ i 5 

■ REF' 

lui 

LaS I 

1476 

5FJI 

"3 5205 7 

TC ■ 

tNiJOFJDB 







12 








B _ 


iS 5 


S _ ^ - 



« 



*5 




4** • 




r. 46 PAGt 1466 


G/iP; 

L 

P ' 216 


A S S fcMBL£ REV ISIO N 072 GF AuC PROGRAM ARTEMIS 6Y N A ^ 2 . 211 14-^11 11; 4u FED^ 26^1971 ZEUS 

SbfVlCt RuUTINES USER'S PAGE NO^ 

SLBRUGTINES TC TURN CPF AND TURN ON TRACKER FAIL LIGHT « 


c S3 


■ 216 5 

KEF 2 

Last i 

45':' To 

1 46 .. ; 

-^5 


COWT* 

i$/DSPLA 

217 




i>63L 

j L- Ti L 4 


TRPAILOF 

IHHINT 


' 21G 

REF 1 



5633 

4 767,: 

V 

— 

CS 

CCT^ ' LC V- 

(21° 

REF 44 

LAST 

1425 

:>6 

7 1241 



HA SK 

DSPTAB +110 

i 22*’ 

KEF 5J 

LAST 

14 3U 

5635 

6 4752 

T' 

— - - 

AD 

cIT15 

221 

REF 45 

LAST 

1435 

b636 

55*241 

6 


1 6 

DSP'IAB +11 D 

TT^t5~ 

Kiri- 

—392^ 

56r37 

■4“ 133 7 



t. s 

t-PTTllJDt S 

. 2216 

REF 5 

LAST 

392 

564-,. 

7 4762 

1 


MASK 

CoDUFBI 1 

> 2217 

REF 33 

LAST 

1435 

564 1 

27*337 

4 

u 


A06 

CPTHODcS 

222 




5642 

G 10003 

1 

B tU 

RELINT 


.223 

REF 32 j 

LAST 

1433 

5643 

0 0002 

0 


TC 


224 




^644 

G , ' * 4 

\j 

TRFAILON 

IN HI NT 


r225 

REF 46 

LAST 

1485 

5645 

4 1241 

4 


CS 

CSPTAB +110 

226 

KEF 2 

LAST 

1435 

5646 

7 767 

r 


Mask 

L L T 4 K J ^ u L 

.2 21 

REF 47 

LAST 

1435 

5647 

27*241 

n 

- 

aD s 

DSPrAB +110 

'22 8 

REF 4 

LAST 

1472 

5o5w 

i 5642 



TCF 

H, tW 

229 

HE F ^ i 6 

LAST 

1483 

1 

1 G ■ ‘ J 

i' 

INCKQCK 

CCS 

A 

.23' 

REF 321 

LAST 

1485 

5o52 

24 0j2 

6 


I NCR 

w 

.231 

REF 322 

LAST 

1485 

^653 

G CC02 

u 


TC 

w 

'2315 

REF 1 




- ^ 

- 


COUNT* 

$J/CFAI L 

‘ 232 

REF 2ua 

LAST 

1483 

56 54 

54 .’i 

i 

C31BT CHK 

TS 

L 

■^233* 

' RTF 5" 

TATT 

~r87 

5655 

“3 t'3T4 



CA 

G3X F 

0234 

REF 1 



!>u56 

7 434 6 

U 


MASK 

FaI L 31 T 

C235 

REF 417 

LAST 

148 5 

5657 

la uoo 

r 


GC^ 

A 

236 

REF 1 



566 L 

i 56 o 7 

1 


TCP 

LStFLBl S 

0237 

- . 



5661 “ 

TJ LUiJ6 

1 


LKTENU 


"23 8 

KEF 6 

LAST 

10 38 

5662 

DO ^''51 

u 


READ 

CHAN31 

.4 

0-23"^ 

— RtF 2JjT 

— trAST" 

14T5 


"7 -J 1 

X 



L 

24' 




5664 

6 ^ i' o 

1 


EXTE HU 


' 241 

REF 9 

LAST 

363 

5665 

1 6711 

1 


bZF 

TCU 

*242 

REF 6 

LAST 

1474 

366u 

1 67o6 

1 


rcF 

4i+i 

'243 

REF 6 

LAST 

1485 

36o7 

3 i> 3 7 4 

i 

USEFLBTS 

CA 

U31 F LWHD 

rz44 ' 

— RTF ‘ “T 



i>6 / C 

■“I 56 63 

0 


TlF 

CiiCMCnK 


TURN OFF TRACKER LIGHT 


T^g~~ltT SUR fc TttAT ' t ?€D t? P AT L W i L L ~6 0~ t j r i 
AGAIN IF IT WAS ON iu ADDITION TU 
TRACKER FA1L« 


TURN ON 


SAVE MASK 


BITS SET 
BITS NOT SET 


4346 


FaILBIT = PKIjj, 


,243 


REF 


14 LAST 1325 


u AP: ASSE MBL E KEtf ISIUN l UF AGC PRQbRAM AKl'LMiS 6Y NASA 2 2 iil^- ii lli4 FE6. 26»197I ZfcUS .46 PAbt indu 

L ALARM AMD ABORT USER'S PAGE N0» 1 L S3 

K 1 IHE FOLLOWING SUDKUUTiNE MAY BE CALLED Tu DISPLAY A NUN-ABORT IV t ALARM CCNDITICIN* IT MAY bt CALL ED 

K i EITHER IN INTERRUPT DR UNDtk EjCFCUTIVE CCNTKUL* ” ^ ' 

K - ^ IS~AS FQLLOWST - ■ 

. b TC ALARM 

K. V' o OCT NNNNN 

RiTC- 7 tKcTURN^ HERE) 


CnC(9 REF i 4uvj SETLQL FFTAG? 


kUV' 





-5571 




BANK — 



6c i 1 

R£F 

Q 

LAST 

393 

„375 

-- 


- 

fcBANK= 

FAILKEG 

- _ _ _ , 

U li 

REF 

1 

- 

- 

— 

- 



COUNT’*' 

*$/ALARM^ 

- ~ - - - - 

R('v‘13 

ALARM TURNS ON 

i Tut 

PROGRAM ALARM LIGHT, 

BUT DOES 

NUT DISPLAY, 


V* 14 





3o7 1 

0 LG-a4 

■ t 

ALARM 

INHINT 




REF 

323 

LAST 

1435 

3672 

3 00U2 

t . 


LA 

g 

A 

*: 16 
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T-STTo^ 

VJ 


1 CF 

ppdg^larPi 


i l3* 

REF 

21z 

LAST 

I486 

3714 

i COul 

1 * 


C A 

L 


» i 31 

REF 

13 

LAST 

1436 

5715 

54 376 

1 


TS 

FAILKEG +1 


'■ .:37 

KEF 

14 

LAST 

i486 

j 716 

22 377 

1 

PKQGL AKM 

LXCH 

FAlLRLb +2 

STOKE AS "MCST RECENT” ALARM CUUE 

ri3Y~ 

REF 

4B 

LAST 

1483 

3717 

4 1241 

'J 


cs 

DSP TAB +110 
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REF S3 LAST 1459 

7 722 

7723 ■ 

7724 

54 17 

5 1 - i 7 

0 4635 

1 

1 

t 

T5 

KESUiML 

TC 

BRUPT 

POST JUMP 

>: f >3S41 HEF 


FAST 

ZTv 

1 725 

IZ7T2 

t 

UTTDK 

enema 

C. 3543 

KEF 

1 

LAST 

14 8 o 

4000 

- 

- 

SET LOG 

FF 1 aG7 

CC 3544 

REF 

Z 

LAST 1486 TU 

1487: 

29 29* 

COUNT* 

$i/ALARM 

i t 8 545 





5726 



BAl^K 


\ * 5 5 46 





5726 

i3 L j 4 

W F GO DOG 

1 NHl NT 


* 3547 

REF 

^Z1 

LAST 

1437 

ttl zl 

3 C- C J ^ 

F.' 

CA 

■ 1, 

‘ 3548 

REF 


LAST 

1487 

573C 

55 » 363 

1 

TS 

ALHCADR 

' CC3549 

REF 

217 

LAST 

1487 

5731 

0 463 6 

0 ’ 

TC 

fc ANKCALL 

CC855 

KEF 

3 

LAST 

1487 

5 732 

40'>jO 

u 

u aor 

V AC 5ST0R 

CCd555 

REF 

11 

LAST 

1488 

57^3 

d 1 * 3o3 


INDEX 

ALMCADK 

^<3556 





5734 

3 c V u 

1 

CAF 

* 

< : S5 57 

REF 

2 

LAST 

1437 

5735 

j 56 76 

0 AdURTZ 

TC 

EUR TENT 

tr 35 5 B 





5736 

77770 

1 CCT7777U 

1 OCT 

7777vj 




3 

LAST 

""8'27 

" 573rr“ 

3 4763 

I 

"TTA 

V3/FCHn 

tC8561 

REF 

25 

LAST 

1447 

574 

7 w-iJ3 

1 

MASK 

EL AG WKl) 7 

' ~Cr8562 

REF 

419 

LAST 

1487 

5741 

IF “nor 

G 

CCS 

A 

ro 856 :j 

REF 

1 



5742 

V- 7717 

I 

TC 

«iil 5 PeR —1 

1 { 6564 

REF 

7j 

LAST 

1477 

5743 

4 4753 

0 

CS 

61T14 

i' a:>65 REP 

~2jr 

TTAST 



i? ^44 

/ 124 V 


MA -^K 

"ETTVETAirr 

:< 8 566 

REF 

423 

LAST 

14S3 

5745 

10 COO 


CC5 

A 

'■t S56 7 

REF 

2 

LAST 

1438 

5746 

~l 7717 

0 

TCP 

rtril.'iPER — i 

iL86 

REF 

69 

LAST 

14 74 

5747 

U 5 56 1 

o 

TC 

DGif^NFLAG 

i( 87 

REF 

3 

LAST 

1349 

5750 

v) C s. 6 7 

0 

AURtS 

ST AT EFLG 

^3.375 

REF 

7i 

LAST 

1438 

5751 

y 5561 

0 

TC 

LCh^NFLAG 

:C377 

REF 

la 

LAST 

743 

5752 

236 

0 

ADRE5 

AUTOSE^ 

CCS 8 

REF 

71 

LAST 

1486 

5753 

o 53ui 


TC 

CUnjNFLAG 

ce69 

REF 

5 

LAST 

1348 

5754 

00 23^ 

L. 

ADKES 

; uINfFcG 

10391 

REF 

72 

LAST 

1483 

b75j 

M 5561 

f. 

TC 

CGriNFLAG 

■ rossz 

REF 

12 

LAST 

1442 

5756 

or 176 

i 

ADKES 

UTFLAG 

UG69 3 

REF 

73 

L^ST 

1433 

5 /5 7 

J 55ol 

u 

TC 

DOKNFLAG 

CC‘894 

REF 

11 

LAST 

1442 

576-: 

V 1 u 

<* 

ACkES 

RNDVZFlG 

CC895 

REF 

1h 

LAST 

1488 

5761 

Cj 5561 

-j 

1C 

CCi^NFLAG 

CU896 ■ 

H'EF ■ 


' L'A'ST" 

"744 

5 762 

nr73i 


A L) K L S 

~TuMoKPLTr 

fC9r 

REF 

75 

LAST 

1488 

5763 

- 5561 


re 

^ (Jri ii.f L AG 

DC? 1 

REF 

7 

LAST 

1444 

37u^ 

0 54 

w 

ACRES 

NQUQFLAC 

V U 9 iL 

REF 

218 

last 

148 6 

>765 

^ 4636 


TC 

EANKCALL 
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USlK'S page AiO« 3 L- S3 

RESUME SENDS CONTROL HERE 


STORE ERASA6LES FOR DEBUGGING PURPOSES^ 


DGfa MOVE 

rS~AVbK7lGE C u'N 

YESv DONT UO POUUOU-. DO BAILOUT a 

DISREGARD ENTRY SETTING 

rx J ENOEU’ V BS ‘set TV'EV 

YES LONT DO POODOD " DU BAIL OUT 


EURUE STOFITATr- 


^ f ^ 
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uj>k: ASSEMELt REVISION U'72 OF AbC PRUuRAM AR TEMIS tiY (USA 11:4' FEB,. 2o,1971 ZtUS i>L46 PAGE 1469 

L ALARH AND AbORT USER'S PAGE NO. A L S3 


(•93 KEF ^ LAST 195 3766 12536 1 CAOR FK. KLEmN 

M'94 RFF 3 LAST 1438 5767 3 772C Q TC i^HiHPER 


TiOB 'REF r ,i LAST 1434 5205 COALARH EQUALS ENUJFJ08 

I<C109 CALLING SEQUENCE FOR VARALARM 

\ Awl 10 CAP (ALARM) 

AOlll " TC VARALARM 


“'K ll2 VARALARM TURNS ON PROGRAM ALARM LIGHT 6UT DUES NOT DISPLAY 


1.113 





577C 

o 00u4 

1 

VARALARM 

INHINT 


_ _ . . _ — « — - - 

114 

REF 

214 

LAST 

1487 

5771 

54 • ,j1 

1 


TS 

L 

SAVE USERS alarm CODE ^ 

4 115 

REF 

328 

LAST 

1488 

5772 

3 OD02 

S’-' 


CA 

u _ 

SAVE USERS g 

^16- 

RFF- 

-TZ- 

LAST- 


5773 


“1“ 


“TS ' 

ALMCADR " 


Cl 17 

REF 

2 

LAST 

1437 

5774 

G 567 7 

1 

- - 

TC 

PRl DENT 

_ _ _ _ _ _ — — - — — — — - . . - , - _ - - - _ _ 

■Alb 





5775 

CGul4 

1 

CCT14 

OCT 

14 

CQNT MOVE 

«. 119 

PEF 

13 

LAST 

1489 

5776 

0 1363 

C 


TC 

ALMCAUR 

RtTURN TO USER 

12 

REF 

o 

LAST 

1431 

77.: 6 



ABORT 

EQUALS 

BAILOUT 

TEMPORARY UNTIL ABORT CALLS OUT 



f 


12 , 

I i _ 


fO 
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j ! ASb fcKbLE KEVlGlON • IZ uF AbC PRObKAH APTEMIS BY NASA 21114~ 1 1 

L UFCATE PROGRAM 

PRUGHAM name: P27 

Km 02 WRITTEf^ BY: KXLRGY/ uE WGtF 


USER'S PAGE MO. 1 L S3 


•— - ■ - 
K‘,1. _ 3 
K ' s - ■- 4 

K ^ 0 i 5 

: < I 6 lCG section: UPCATE PKUGftAM. 


MED NO 
MED BY 

CATE: 


6 

KILRuY 

iuEOd? 


L- 7 
Ki.r‘1. 8 

RCC09 

K t :: 1 «■’ 

■ kcoli 


FONCT, 


OeSCk: 


P27 (THE UPDATE PROGRAM) PRUL ESSES COMMANDS AND DATA 
INSERTIONS REOUcSTED BY THE GROUND VIA UPLINK. 
THE PZ7 PROGRAM WILL ACCEPT UPDATES 
CNLY DURING PUO FOR THE LMf AND ONLY CUR TNG P , 
P02, AND FJ<ESH START FOR THE CSM 


KL' 12 CALLING SEQ: PROGRAM IS INITiATED BY UPLINK ENTRY OF VERBS 7( , ?1, 72 AND 73. 


K^-( 14 SUBROUTINES: TESTKAClf NEWMODEX# NEWMCOEX +3 1 oOXUSPFf BANKLALL t FiNDVACt INTPRBT, INTSTALLt TPAGREEf 

R'tl6 INTWAKEUf ENDEXT, PQSTJUPPf FALTONi NEWPHASEi PHASCHNG 

Rt:i7 NCRMAL EXIT: TC ENQEXT - 


RCne ALARM/ ABORT: TC FAL TON FOLLJWED BY TC ENDEXT 


Rai9 RESIARTS: 
RCC2‘. 

KCC22 

Rroi'S 

RCC25 
Rrr27 
RCK 29 
RCL31 


P27 is RESTART PROT tCT ED IN TWO WAYS... 

1. PRIOR TO VERIFLAb I NVERSlONlwHICH is CAUSED*' BY THE GROUND/ ASTRONAUT * S VERIFICATION OF UPDATE 

DATA BY SENDING A V33E WHEN V2iNt,2 IS FLASHING) 

NU PRUI ECTTWTXlTEPT'TRE^H^ZT’flDDE Is RESTORED, COAST + 'AUIGN' DTJWNEl S I T S SfcLtCTED”'SNU UPLINK 

ACTIVITY LIGHT IS TURNED UFF.lJUST AS IF A V54E WAS SENT DURING H27 DATA LOADS). 

V7C,V71,V72 OR V73 WILL HAVE TO BE COMPLETELY RESENT BY USER. 

2. AFTER VERIFLAG INVERSION IWHEN UPDATE OF THE SPcCIFItC ERASA6LES IS ■iEING PERFORMEL) 

PROTECTED AGAINST RESTARTS. 


k'L32 

DEBRIS: 

UPBUFF 

(2CD) 

RLC33 


UP VERB 

(1) 

' RCr35 


UPOLCHOD 

( 1 ) 

R t C 3 6 


CCMPNUMB 

(1) 

’ Rr-C38 

- - - - - - - 

UPCUUNT 

(11 

Ra 39 


UPTEMP 

(1 ) 


n 


TEMP STWAGE FOR ADDR~ESStS AND CUN T EM S. 

VcKB NUMBER MINUS 7.0 t£.G. F.jR V72, UPVERB = 72D - 700 = 2) 

FOR MAJOR MODE INTERRUPTED BY P27, 

TOTAL NUMBER CP CUMPUNENTS fU BE TRANSMITTED. 

ACTUAL NUMBER OF COMPCNEKTS RECEIVED. 

SCKATCHi BUT USUALLY CONTAINS CCMPCNENT NUMBER TO EE CHANGED DURING VERIFY CYCLE 


Rci4l INPUT: 


RfT 42 


ENTRY 


DESCRIPTION 


RT C43 
K '43 


R IL 4 9 


VTCEXXXXKEXXXXXE (LIFTOFF TIME I NCKEM'EN f ) DOUBL £ PRECiSiUN uCIAL T IHE INCREMENT * XXXXX XXXXX, 

IS ADDLD TO TcPHEMi SUBTRACTED FROM AcC CL JCK IT IME2 i TTMEI ) f SUBTRACTED FROM CSM STAlt 

- VECTOR TlMcI rETC:>H) AND SUoTkACTED FROM LuM STATE VECTOR T I ME ( T ET LEM ) . 

THE DP OCTAL TIME INCREMENT SCALED AT 


FEb. 26,i97i 


ItUS 


G AF: 


fWBL E REVISiGN I Z OF Au C PROGRAM AKTEMIS BY NASA 2 >21114- -li 
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L 


RCC51 

R©v 'jI 

~*ittT“53 
RCi 54 
RCCSS 


UPDATE PROGRAM 


USER'S PAGE 2 EG S3 


V71L*1 It AAAAE 
XXXXXc 

XXXXXE 


tCONTIoOuUS GLOCK UPDATE) il-2 OCTAL CCMPONEixTS, XXXXX, 
ARE LOADED INTO ET^ASABLE STARTING AT ECADKt AAAA., 

IT IS »GE, 3 .AND, . LE« 2LD«t 

AN D TA7^^ ^- '1I~ 31 DOES NDT^3>Kam3CE'~AN’7Wtm:£:3S““lTrTffr 


9 NEXT BANK 


SCALING IS SAME AS 1 NT ERNAL KEGI STtRS . 


K L56 
RCl 5 7 

— Rrcse 

RC.6r 


V72E1IE (SCATTER UPDATE) (II-l)/2 OCTAL CQMPuNENTS i XXXXX, ARE 

AAAAEXXXXXE LUAUED INTO ERASABLE LCLATlQNSf AaAAo 

t^aateetc x XX X e — 11 t- s - , x ^ T~^--rAiqin~GiTrr^--r9tri~ATto-7Ttj^ 

• SCALING IS SAME AS INTERNAL REGIS) ERSo 


Rtl61 V73EXXXXXtXKXX<E (OCTAL CLOCK INCREMENT) DOUBLE PRECIS I LN OCTAL TIME 
Rfre62 INCREMENT XXXXX XXXXX, IS ADDED TO THE AGC CLOCK, IN 

RC..63 CbNTISECUNDS SCALED AT (2i23<, 

-R^*tr6'4 — T HIS LOAD rS -1 ’1^E -T3 CT 7 t t~^jtTI3/A1r€NrnTF^ V55i- 


RCC65 OUTPUT: IN ADDITION TD THE ABOVE REGISTER LOADS, ALL UPDATES 

-RatT66 COMPLEMENT BIT3 OF FLAGWCR07<, 


RCL67 ADDITIONAL NOTES: VERB 71, JUST DEFINED ABOVE WILL BE USED 10 PERFORM BUT NOT LIMITED TO THE FOLLOWING UPDATES 


K<r69 1. CSM/LM STATE VECTOR UPDATE 

ri'C.72 2« REFSMMAT UPDATE 


R 1/(73 

THE 

RCL 74 

1, CSM/LM STJ 

Rt^' 75 

EKTRieS: 

' Frrr77 

V71E^ 

Ril 78 

2iE 

" RLEB' 

aaaae 

Rut 82 

XKXXXE 

- RC'i;83 

- 

Ktc84 

XXXXXEXX XX X£ 

— RCC86 

— XXXXXFXXXXXF" 

R0088 

XXXXXEXX XXX E 

R( i 9<' 

XXXXXEXXXXXE 

RlC-92 

xxxxxexxxxxe 

Rrrs4 

XXXXXEXXXXXE 

R C96 

XXXXXEXXXXXE 

— R ccr9B^ 

V 33 E 

R C144 

2, REFSMMATI 

.<<14 5 

ENT R i E 3 • 


THE FCLLOWING COMMENTS DELINEATE EAoH SPECIAL UPDATE — - 
CSM/LM STATE VECTOR UPDATEIALL DATA ENTRIES IN OCTAL) 


DATA DEFINITION: 

xroNT 

NUMBER CF COMPONENTS FOR 
ECADR OF 'UPSVFLAG* 

STATE VECTOR IDENTIFIER: 


SCALE FACTORS: 


TTcKe 

STATE VEClOR OPCAl L 


jOv.'_ l FOR CSM, 177 fo FOR LEM 
G0UO2 FOR CSM, 77775 FOR LEM 


EARTH SPHERE OF 
LUNAR SPHERE OF 


X PUSITION 
T'PtrsTTnjN — 

Z POSITIUN 
X VELOCITY 
Y VELOCITY 
Z VELOCl fY 

TIKE FRCri AGC CLOCK ZERO 
V ER B S 1 SN ' A r "TRtiT “T 


STORtTT 


DATA ENTRIES IN OCTAL ) 

DATA Definitions: 


scale factuf 


. J 


INFLUENCE SCALING 
INFLUENCE SCALING 


OAP; ASSeMBLh KtVlSI 


CF program ARTEMIS bV f^ASA 2 2111^ li 
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46 PAGE 1492 


L 

UPC^Tt PKJbRAH 

- 

R‘ 14 r 

R ! 14.3 

REIS} 

V71E 

24E 

AAAAE 

CONTIGUOUS BLOCK UPDATE VERB 

number OF UCMPONENTS for kEFSMMAT UPDATE 

ECACR OF 'KEFSMMAT* 

RTr52 ' 

K 1 54 
Rl156 

R c 1 5 b 
RC16r 

; 162 

\ Jt'XTOTFXXXfXE 

XXXXXEXXXAXE 

XXXXXEXXXXXE 

XXXXXtXXXXXE 

XXXXXEXXXXXE 

XXXXXEXXXXXE 

uuw 1 

ROW 1 COLUMN 2 

ROW 1 COLUMN 3 

RUW 2 COLUMN 1 

ROW ZXQLUMN”2 “ 

ROW 2 COLUMN 3 

K TF4 

RE 166 

P lo3 

R 17 ' 

“XXXXXEXXXXXE 

XXXXXEXXXXXE 
XXXXXEXXXXXE “ 
V33E 

ROW 3 UOLUWN 1 

ROW 3 COLUMN 2 

ROW 3 COLUMN 3 

VERB 33 fO SIGNAL THAT REFSMMAl l6 READY 


USER'S PAGE MO 


f- 


S3 


2 (-l) 

2 t-l) 
2 (-l) 
2 (-l) 
2 C-i) 
2 (-l) 
2 t-lJ 
2 {-l i 
Zi-l) 


TO 6E STORED 


17 2 
.173 


H EF 


6 LAST 452 


43 f 2‘^v i. 
43 t 3656 


StlLQC EXTVERbS 
BANK 


1 I 


.y 


Ci74 

REF 

13 

LAST 

1331 

E 3 f i 7l 6 

' - - 


E6AHK= 

175 

REF 

1 






COUNT* 

'■ 17 6" ■ 


— r 



^3 f 3656 

3 ^ f { Z 

1 V/oUPJAl 6Ar 

V 177 

REF 

2 

LAST 

249 

43f 3657 

1 36 63 

f 

>■ • 

TCF 

1 17d 

REF 

i 

• 


43 f 3660 

^ 477,j 

u 

VTIUPUAT OAF 

175 

REF 

3 

LAST 

1492 

43 f 366 1 

1 3665 


TCP 

( 13 C 

REF 

1 



43 1 3o62 

3 47ti7 


V72CPOAi OAF 

* lai 

REF 

4 

LAaT 

1492 

43 f 36u3 

1 3665 


TCF 

:i32 

REF 

r 



43* j6a4 

3 6214' 


V73UPOAT OAF 

‘ 163 

R tF 

1 



43 f 3665 

59 331 

1 

+ 1 f S 

0164 

REF 

la 

LAST 

279 

43 f 366o 

j 2L76 

1 

TO 

Arias 









0186 

REF 

19 

LAST 

14 2 

43 * 3667 

3 1214 

1 

CA 

0187 





4 3 j ^ 6 7 1 

u C 0 'j 6 

1 

ir.XTENu 

(.18 8 

REF 

1 



43 1 :>67 1 

1 3 7v7 

u 

BZF 

C189 

REF 

22 

LAST 

834 

43 f 6 7 ^ 

4 Clo4 


lS 

U19C 

REF 

12 

LAST 

834 

43f j67 3 

7 476u. 

0: 

MASK 

C191 

REF' 

■^fzr 

XSST" 

■T4Tr3~ 

43 1 3674 

"TrU'TT 


LC.> 

0192 





43 f 367 5 

i 7 v ' 2 

1 ' 

1 CF 

O’ 19 3 

REF 

20 

LAST 

1492 

43 1 367 6 

4 1219 

k. 4- 

cs 

€194 

REF 

3 

LAST 

71 

43,3677 

6 4124 

1 

A iJ 


irPT~ 

VT^UPDAT +1 


UP 71 

V 73 UPuAT +1 


GP 72 

V 73 UPOAT +1 


UP 73 


UP 7 t Rb.j V 


f : jT <AUT 


MuORhG 

UPDAThUK 
rLAGrfRuB 
UTbl T 

■jE 

+ D 

MOO REG 
GCT24 ^ 


COHt'S 


HERE UN V7:.t 


COMES HERE ON' V 71 F 


COMES HERE ON V 72 E 


"COMES HErE GN V7JE 


SAVE UPVERB UNTIL IT'S OK TO ENTER P 27 

GRAB DISPLAY IF AVAILAbLEt OTHERWISE 
TURN*OPERATOK cRKOK’!^ ON AND TERM INAT EJOu 


CHECK 

FIRST 

F R E SH 


IF UPUATE ALLOWED 
CHECK for: RIjDREG 

START OR PDu 


= + 


I 


^ A : A 3 S e M B L b K fc VI SION iJZ CF AG C PR OGRAM ARTbM13 ^ NA3 A ^ 4 


L UPDATE PROGRAM 


19 B 

V 190 

REF 

2 

LAST 

1492 

43*37Cv. 
43 , 37'- 1 

V 

1 

l-u .j 6 

3 70 7 

1 

a 

EXTEND 

BZF 

C197 

REF 

72 

LAST 

1487 

43,3702 

4 

4767 

1 

cs 

C198 

REF 

21 

LAST 

1492 

43 , 37U3 

7 

1214 


MASK 

1199 



- 


43,3704 


CC J6 

1 

EXTEND 

( Z' . 





43,3703 

1 

3 7o7 

u 

bZF 

V2C 1 

REF 

1 



43 1 3706 

T 

371/ 

1 

TCF 

! 2-.. 2 

REF 

22 

LAST 

1493 

43,37C7 

31 

*214 

1 

UPDATEDK CAE 

— — — 


TTtP ^ — trAST — TB S 54 3 "! 1 TS 


UPOATluK 


THU 

MOO Kk.G 
+'2 

UPEKRUR 

HQDRcG 

trPO LOMOD 



1-2'. 4 

REF 

2' 

LAST 

1492 

43,3711 

3 331 

1 1 

CAE 

UP V ErifiS V 

'205 

REF 

4 

LAST 

188 

43,3712 

54 3v2 

1 

TS 

UPVERB 

02 v; 6 

REF 

165 

LAST 

1479 

43,3713 

3 477'^ 

u 

CAF 

CNE 

-xrzxrT^ 



TrAST' 

— 13'8 " 

"43'f3TX4~ 


C 

T S 

u rU tJUti l 

v2r>6 

REF 

59 

LAST 

1488 

43,3715 

U 4635 

0 

To 

POST JUMP 

'^'209 

REF 

1 

.... 


43, j716 

b5o26 

err., 

CADR 

UPPARTZ 

0 21" 

RFF" 

r4 

TAsr 

731 " 

43 r 1 7 

w 4362 

1 

LiPiTRKOR TC 

FAITOIi 

• 211 

REF 

3 

LAST 

596 

43 f 3 7^ t 

g 4415 

* 

TC 

UP AC fuF F 

212 

REF 

34 

LA3T 

941 

43,3721 

1 5324 

0 

TCP 

fciJDLXT 

3 

REF 

277 

L A ST 

1481 

4772 



UPTsj EUUALS 

ZERO 

214 

REF 

166 

LAST 

1493 

4 7 7 



UP71 cDUALS 

L l\ t 

^213 

— 'RFF 

73 

'T_A3T'X493 

47 6 7 



UPT 2 EWuAirS 

I 

V Z 1 6 

REF 

5-4^ 

LAST 

1476 

0214 



CP73 ewUALS 

ThKE t 

€216 

REF 

i 


- 

42 ,200t' 



SETLOC 

UPDATES 

<219 





42,3626 



BANK 




t 22 

RtF 

1 






COUNT* 

$$/P27 

1 1 

0221 





42 , 362o 



LPPAKT2 EtiJALS 


« n 

i ZZZ 

REF 

iCb 

LAST 

1-^42 

42, 362 6 

6 54^ 

1 

re 

PhAoCHNb 

1 U 

c223 





42,3627 

T w 2 6 

1 

uC 1 

c /w2o 


^224 





42,363\ 

3000O 

1 

uCT 

3 . ‘ - - 

0 

0225 

REF 

12 

LAST 

187 

t:3<.4 

. . 


EbANK= 

LPuUFF 

r- 

1 

-.226 

REF 

2 

LAST 

X332 

42 f 3o.^ 1 

V 3 7 w 6 

u 

ZCAOK 

opjur i-i 

8 

r226 





42,3632 

561 OC 

x> ■ 



S 

V 227 

REF 

167 

LAST 

1493 

42, 3633 

3 477. 


CAF 

CNE 

6 

, 223 

REF 

1-: 

LAST 

i:97 

42 f 363 4 

54 3S2 

1 

TS 

cnl., r Cuo 

, 

122° 

REF 

11 

LAST 

S' 4 

42, 3635 

0 5344 

1 

re 

N L ii Tut X 

4 

~ f23€ 





42,3636 

0 C 0 33 

1 

DEC 

27 


V 


1 
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<7 


HAGL 149 ^ 


USER»S PAGE NGa 4 13 .>-+ 


P< 2 


UPDATE ALLOWED* 



SET UP VERB TO INDICATE TO P27 
WHICH EXTENDED VERB CALLED 



LEAVE EXTENDED VERB BANK AND 
GO TO UPDATE PROGKAM(P27) BANK. 


TURN UN op; TRRim 

TURN OFF UPLINK ACT LITE 

(RESIART GROUP NOT ESTABLISHED Y I) 


UPDATE PROGRAM - PART 2 

SET restart group 6 TO RESTORE OLU lOl.t 
"ATilO DOWNLIST AWO'TXn — IF RESTART "CCURS" 

PRIURITY SAME AS CHRPRIU 


UUWNL I ST 


= 27 


SET KAjuK Rude 


ij AH 


ASSEHBLH KtVISlUN ,12. LF AoC 


GRAM AKTLMiS i3Y IJASA 2 ZLil^~ il 


ii:Av FEB<. 26fI971 2 h 'J S 


46 FAGh i494 


L UPDATE PRJGKAM USER'S PAGE UDo 5 13 S4 


23 i 

REF 

5 

LAST 

1493 

f T 

5^, 3/2 

U 


INDEX 

UPVtKti 

BRANCH DEPENDING ON WHETHER THt UPDA’b 

slS2 





42 1 364’J 

1 3u4i 

wr 
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LAST 

15-2 

22t Jtr 74 

L' * 1 - 0 2 vj 

TC 

w 
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USER’S PAGE NO« 2 L5 S3 


rc A SINGLE PRECISION 2»S CGMPLEMEi^il ANGLE 

ANSWERT ARRIVES ITM' A AND MPAC. 




MODE IS TP.. 

- - — - — - -- _ . — 


UNAL HPAC +1 UNSPLCI Fle '^ 

^ ^ . , ^ _ IL . . ^ ^ ^ ^ MMJ. M m ~ -- ].I -_ I I ^ll'l 

THIS WAS REVERSE OF MSU* 

AND SKIP ON OVERFLOW. ^ 

CVEkFLCW UNCORRFct~^ij~ IN MSU~ ~ 


I 


UAP: ASSEMBLE RtVlSlUN w72 UF AGC PRGSRAM ARTEMIS bV NASA 2 24114- II 


ii:4', FEB, 26,1971 ZEUS 


':46 Page 15 3 


A <114 
Rf ilo 


RI 6 OP COUbS 

THE ECLLOWING RJJTINE INCREMENTS IN 2S COMPLEMENT IHE REGISTER WHOSE 
gUAKTITY FOUND IN TENZ-j THIS MAY BE USED TO INUREMENT DESIRED IMU AND OPTICS 


USER»S PAGE NC# 3 

ADDRESS iS IN £UF flY 
CDU ANGLES OR ANY OT 


l5 S3 

THc ij ^-DMPL 

2S LDMPL 


R-il8 

{+( 

UNEw 

UAL TG 

- I 

wUANTlTYo 

MAY BE CALLED BY 

BANK CAL L/SrtGALL« 

119 

REF 

5 

LAST 

1365 

22,3675 

54 142 

1 CDU INC 

TS 

TEM2 

:i2 

REF 

12b 

LAST 

1369 

22,3676 

5U 130 

0 

INDEX 

BbF 

‘ 121 





22,3677 

llj L c 


CCS 


:i22 

REF 

17: 

last 

15 2 

22,3701 

6 4770 


AD 

L»4C 

123 





22,b7ui 

1 37J5 

1 

IGF 

— ^ 

+ 4 

— ^vz^- 

— R-ef" 

m 

— LTiST 15Cr3" 

ZZt'ilOT 

”6 ^7 / V' 


Au 


12 5 

KEF 

172 

LAST 

15 3 

22, 3703 

b ^7 7 L 

L- 

AD 


C126 

* 




22, 3 7c 4 

4 UGoO' 

i f 

COM 


^127 

REF 

6 

LAST 

15u3 

22,37^5 

6 (142 

r 

AO 

r tH2 

129 

REF 

435 

LAST 

15'j2 

22,i7c 6 

1. ig w’ *!_/ 

0 

CCS 

-A.4V. .ir- 

A 

- -T-1-3- 


— LYtST 

I3rr3 

— T2n^JT:-T- 

— B~4TTtr 


Au 


M31 





22,371^ 

1 3712 

1 

TCF 

+2 

132 





J 71 1 

4 OCJC 

0 

COM 


.. 13 3 

R£F 

7 

LAST 

i5;>3 

22,3712 

54 142 

1 

TS 

TEMZ 

C134 





22,3713 

1 3717 

1 

TCF 

+4 

C135 

REF 

436 

LAST 

15 3 

22,3714 

5 c< : w 0 

1 

INDEX 

A 

— C 137' 

RFF- 

9 

LAST 

i5rz 

22, OTIS' 

3 475T. 

j 

C AF 

LlHI 1 o 

vl38 

REF 

8 

LAST 

15C3 

Z2. f 3 7 1 6 

t» ci42 

t 

AD 

ThM2 

1 139 

H EF 

127 

LAST 

15 3 

22,3717 

50 130 

1 / 

I. 

INDEX 

euF 

( 140 





Z2,J'tZC 

54 OOU 

Q 

T S 

c . 

^141 

REF 

333 

LAST 

i5i 2 

22,3721 

D U0'J2 

0 

IC 

Q 


IS COMPLoUUANTo ARRIVES IN ACC STORE li 
CHANGE 2S COMPL» ANGLE (IN BUF)1P4T- IS 


OVERF 


HERE IF 2S COMPLo IS 18 


EG. 


SULT MOVES FROM 2ND IQ 3D' OUAD £C’R BACK) 
BACK TO 2S COMPL« 


STORE 14BIT gUANTITY WITH PRESENT IGN 


SIGN. 


37 777 OR 4 r gr 


STORE NEW ANGLE IN 2S COMPLEMENT 


Ab l-V’.ljt i5 4 
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L «IB UP CODES USER'S PAGE NOu 4 rb i.v 


P 14 2 

■ - 


KTB 

TO TUROUE GYROS , 

EXCEPT 

FOR 

THE CALL TO IHUSTaLLo , ECADR 

OF COMMANDS ARRIVES IN XI. 

144 

REF 

38 

LAST 

132j 

22,3722 

57 12.. 

1 

PULSE IMU INDEX 

FIXLOC 

ADDRESS OF GYRO COMMANDS SHOULD BE TN Xl 

' E45 


88 LAST 

“13747 

22 f ^ 7 2 3 

3 l.'d46 

J' ■ 

xJ 

C A 

“XI 


. 146 

REF 

223 

LAST 

1499 

22,3724 

G 4636 

0 

TC 

BANRCALL 


*147 

RET 

7 

last 

755 

22,3725 

17244 

0 

CAOR 

IMUPULSE 


^^148 

REF 

71 

LAST 

i 5 v 2 

22, 3726 

1 

u 

TCP 

DANZIG 



Il l 4 Fru,. Zi Ui 


t» AF • 


A S M BL t: RE>/IS10N 7_Z LF AGO PRUbRAIi ARTEMIS d Y NASA 2.;2 I114~ li 


46 PAGE 15L’5 


L PlbUPCCDES 


USFj ' i li- AGE rX 1> c5 S3 


Pt.l4^' 
R( 151 


EACH rtounwfc TAKES 
WITH THE TRANSPOSE 


A 3X3 NATkIX STUKEU 
KATRlXo TRaNSPI USES 


IN UOUBLE PRECISION IN A FIXED AREA UF fcRASAbLL MEHCRY AND REPLACES IT 
LOCATIONS XN3+^,+l THROUGH XNB>IcB, 17D AND JRAT^SPZ USrS LOCATIONS' 


K 153 XNB1+ f*l THROUGH XNBl + loJ, 17D, EACH MATRIX IS STORED BY RUrtS . 


♦ 154 

REF 

15 

LAST 

1501 

22,3727 

012713 


X N ii E B 

£ Cm D H 

XNB 

€155^ 

REF 

5 

LAST 

■ 299 

22, 373 J 

-:j2554 

I 

XNaiEB 

EC A DR 

XNBi 

M56 

REF 

16 

L AST 

1505 

E5, 1713 




bBANK= 

XN8 

V lfc»4 

REF 

1 



22,3731 

IVI 

1 

1 

C- 

TRANSPI 

CAP 

XN8EB 

■ 165 

REF 

51 

LAST 

149 8 

22,-. 732 

5 4 c J 3 

V 


TS 

E ti A N iV 

166 

REF 

17 

LAST 

150 5 

22,3733 

53*716 

1 


DXCH 

XN3 +2 

* lt>7 

REF 

18 

LAST 

15o 5 

22,5 r34 

53* 722 

U 


DXCH 

XNd +6 

MBS 

REF 

19 

LAST 

15 5 

22,3735 

53* 716 

I 


UXCH 

XNB +2 

iss 

REF 

2U 

LAST 

15^.5 

22,3^36 

53 *72^ 

1 


DX'CH 

XNB +4 

17 

REF 

21 

LAST 

15 5 

22,3737 

53* 73u 

0 


dxlH 

X H ii + i 2 C 

C171 

KEF 

22 

L AST 

1515 

22,3740 

53»T2C 

1 


UXCH 

XNB +4 

m 

REF 

23 

LAST 

15 5 

22,3741 

53* 726 

1 


DXCH 

XNB +i-D 

173 

REF 

24 

LAST 

15^5 

22,3742 

53*732 

1 


UXCH 

XNB +14 D 

_ — 1T4~ 

— REF 

23 

LA5I 

22,3743' 

53 **7 2 6" 

1 


DXCB 

XK*J +XciD 

175 

REF 

72 

LAST 

15' 4 

22, 3 744 

1 6U3L 

u 


TCP 

uAnZ IG 

Ll7b 

REF 

6 

LAST 

15 5 

' ^E 5, 1554 

- 



EBANK= 

XNBl 

C177 

REF 

1 



22,3745 

3 373? 

1 

rKANSP2 

CAF 

XNdiED 

r.i78 

KEF 

52 

LAST 

15 5 

22, 374 6 

54 *0 :3 



TS 

EBANK 

cl 3D 

KEF 

7 

LAST 

15 5 

22,3747 

53* 557 

0 


DXcH 

XNBl +2 

Eiol 

REF 

8 

LAST 

1 5 5 

22,375 

53 • 563 

1 


UXCH 

XNBi +6 

0182 

REF 

- g 

X A ST 

15 j5 

22,3751 

53*557 

, 


DXCH 

XNlil +2 

w 1 33 

REF 

ic 

last 

15^ 

22 1 ^ 7 S 2 

53 * 5tJ 1 



uXCh 

XNbl +4 

1S4 

REF 

11 

LAST 

15< 5 

22 , j753 

53*571 

1 


DXCH 

XNBi +123 

io5 

REF 

12 

LAST 

15l5 

22,3754 

5 J ^ 5£j i 

u 


UXCH 

XNUl +4 

i 1 36 

REF 

13 

last 

15 )5 

22,5755 

53 • 5a7 



UXCH 

AfiBi + 1 . D 

LI 87 

REF 

14 

LAST 

15l 5 

22,^756 

53*573 

0 


UXCH 

XNBI +i4u 

TTDB" 

REF- 

"T5~ 

~rAST'X'5r5' 

~~^2jTryT 


0 


uXCH 

XNol +1 V '1 

191 

REF 

73 

LAST 

15v ^ 

22 f J 

1 6.Jv 

D 


TCP 
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Kia UP CODES 


UEbP.*S PAGE NOo 


C5 S3 


P' 192 
Kt.l93 


THE SUdKOUTlNE SlUNMPAC SETS CCMPAC# HPAu +iJ fu ;ilGN (MPAC ) 

FCR iHISf ONLY FHE CONTENTS Of MPAC ARE EXAMINED, ALSD + YIELDci PDSKAX AMD 


YlcLOS NfcGMAX 


P ' -’1-5 


ENTRY MAY BE BY EITHER Of THE FULLOrtING 


K\ ISb 
RC19 7 

R 


0198 


1 . 

ENTRY 


LIMIT THE SUE OF MPAC ON INTERPRETIVE OVEKFLUWi 

Dova 

SIGNPIPAC 


k‘.199 
Rv 2*- 

R ^ 2 ‘ 1 


2 o 

ENTRY: 


GENERATE IN MPAC THE SIGNUM FUNCTION UF MPAC: 

RTB 

SIgNHPAC 


RC 2 ( 2 


IN EITHER CASEf RETURN IS 7C THE NEXT INTERPRETIVE INSfRUCTlUN IN IHE CaLLI'JG SCQUE1JCL« 


C2P4 





22t3761 

0 (i / » 3 o 

i 

SIGNHPAC 

EXTEND 



2-5 

REF 

3 

LAST 

42w 

22,3762 

3 475' 

1 


DC A 

CPUSMAZ 


1 2 6 

REF 

752 

LAST 

1 5 - 2 

Ziif 3T63 

52 155 

1 


bXCrl 

MPAC 


. 2( 7 

REF 

43 7 

LAST 

15L3 

ZZ f -f 76 4 




CCS 

A 


:2 8 

REF 

283 

LAST 

15 2 

22,37u5 

3 4772 

1 

CPMODE 

CAF 

ZERO' 

SETS MPAC +2 TO ZERO IN THE PROCESo 

•:2' 9 

REF 

3 

LAST 

15; 1 

22,3766 

1 6026 

I 


TCF 

SL0AD2 +2 


rzxrr 





ZZf 376T i 3 i ( 

0 


1 cf 

41 


C211 





ZZfjll. 

u {/' J 6 

1 


tXT END 



*212 

REF 

4 

LAST 

15 6 

ZZtJTJl 

4 475C 

0 


uCS 

CPUS MAX 


c-Zia 

REF 

4 

LAST 

15 6 

zzi^nz 

i 6->24 



TcF 

SLOAD2 



END uF ZEUS 
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w’!-: AS 6 

£ M E L fc K l: 

VISION 0 

12 UF 

AGC 

PROGRAM ARTEMI 

S BY NASA 

2 211 

3 y r\ . 1 J L 1 A 6 L E L 1 1> T i Islb" 

, INCLUDIN 

G OEFINiriON, HEALTH, PAoE 

OF 

DEF, 

S YM 9L L 

D u t- 

H 


REF cHE (SlCc6 


SYMBOL 

OE F 

H 


o E ^23 

26 # 


888 

1 

857 


-MUjTI MJ 

37, 337 J 


841 

, sgb it 

766 

— 


1 



-nCTlT 

61Tr~ 


11T4 

J b o h( 

' 146 

— 

59 

6 

79 i 

877 

-ON 

4 j ,/:33y 


331 

•% 1 « 9 

23,3526 


1362 

2 

603 

1353 

-PHASEl 

1135 


81 

, 3D 

11,375! 


1352 

1 

1323 


-PHASE2 

115 7 


Bl 

^ 5SEC 

5 w 1 1 


1201 

H 

139 

1442 

-PHASE 3 

1161 


bl 

. 5SECDP 

14,3272 


761 

1 

758 


-PHASE4 

1163 


di 

^ t -4 


^1 


, -1^ -A* 




— PH Aabl? 

1 Lu^ 


bl 

+ CECSGN 

4j,22v.’3 


3/i9 

1 



-PHASE6 

1 lb7 


3i 

+ DOWN 

C7 ,26-7 


1 168 

1 

ilo/ 


-KULLl 

4355 


996 

+LIHIT 

^2 f 3246 


350 

1 

35\-' 


-ftuLL2 

1 6 , 3 7 to 3 


996 

+ HGA 

E7 f L 62 


126 

8 

126 

645 

-SLOPE 

16,3757 



+ CN 

4 - ,23i.O 


33u 

3 

33‘J 

368 

-r-3 

15,3374 


1 92 

^ KttL u i 

47 f 3' ■ 


try 5 

1 

tj tj J — 


-""fOTFOUE'" 

'tXjf'^TZZ~ 



+ ROLL 2 

5oi4 


996 

1 

993 


-TPER 

£4, 1 73to 

— 

Jb 

+ TORQUE 

16,3701 


993 

1 

■993 

— 

-UP 

Oii f iZ 61 7 


1 loo 

+ 2ACTDEb 

2< r 2462 


720 

2 

719 


-VOISE T 

4261 


3di 

««. 

^ _ 

, 

, 

^ 


^ ^ ^ i_- 




1 O > 








v n / DO . 

t ^ TtJ c. 


X “ ~ V t 

=^N8SM* 

23,3647 


1367 

1 

3 0 3 


-VKl/18w 

15,34: s 


l'-'92 

^ SMNB*^ 

23 t3o^3 


136'7 

5 

2 98 

940 

-VREL 

— V/ T / 1 r. 

c7 » i5Zii 


122 


-iW 

— 

. 

i^S- MB- 

B-- 

BV 

V 1 / loU 

CO f jLOI ^ 


1X0 

- AYO 

£3,1711 


ar 

>■ -Ap- 

2 

634 

125L 

-Vf/18rE 

Eo,157v 


117 

-Bill' 

6 ,3CUU 


168 

1 

io4 


-i/KB2 

Z6 1 3Z13 


880 

-BIT 14 ^ 

4751 


12C3 

2 

72J 

951 

-1/12 

13,3 757 


1 J53 

-CCSPR 

vf I f 3123 


1218 

1 

1219 


-1/2+2 

O , 2443 


1164 

-CtKJT+1 

20 , B /43 


T r 69 

T 1068 


“1/3 

7 b7^ 


120 3 

-LGHMAX 

C 7 f 3663 


1439 

2 

1421 

1422 

-ICHK 

43 , 322 5 


1395 

-CCMMAX- 

r 7 f 36o4 


1439 

2 

1421 

1422 

-IbOcG S 

C b f 355 7 


156 

-DELAIG 

£6,1676 


115 

5 

115 

1 i7l 

—2.S fc C 

1;.,3 774 


148 7 

-CCLA^5G 

E6,1677 


115 

4 

115 

i;7i 

-4ACTDEG 

2..', 2 461 


72 

-CELACG 

E6,1675 


lib 

3 

-ii 

115 

i 71 

^6 C 

15 f 34Z5 


XZb b 

C T SXT AL 

4 ,33 


— 592” 

1 

"5"?2~ 


f . iO 


oT.4r 

-ELK 

5,3246 


2C5 


2.2 


-7tvDE&S 

v. o t Z51 o 


l66 

-ENUE HAS 

7676 


1273 

1 

1111 

1 1 2 Cl 

-75DEGS 

21,2641 


1 .14 

^ truU V AL 



1 1 


1 I iX 

i LcJ^ 





tRT H BAT 

34 f 23u ij 


541 

i 

539 


/BUF + 

w u f Z / Z <-j 


1172 

-FUURDT 

16 1 2 524 


731 

1 

7^j 


/3UF- 

2v ,2 714 


1171 

- GYRlDFim 

- 7 f 34 J 7 


1431 

2“ 

1431 

14 34 

“7TIP7IT7F” 

~ J ,2766 


~1T73 

^ HS C AL 1 0 

26 ,3317 


889 

1 

654 


/HP AC- 

yy. w f Z ? O Z 


11/3 

-KSCALE 

26,3321 


889 

1 

859 


/NORM 

0u,273i 


1172 

-KVSCALE 

37,3677 


896 

1 

39v 


/N0RH2 

' ,2724 


ii 72 

-FAXADRS 

4344 


1394 

1 

1399 



' — — 



-HAXCELV 

37,315/: 


835 

1 

832 


=o24 

21 ,2o34 


113 

-FATS FT 

ZTtZfiZh 


^4 

4 

7 q4 



17 , 327T 


1 p 3Z^ 

— * -iU J T ( E ) 

37 ,33o6 


841 

1 

841 


=+i4HS 

21,3 75 


iuifc. 


HcALTK KcY: hJOhWALLY CfcFINED UNLtiS FLaGUcJ AG FCLLuWS: 

UW UNDEFINED = DEFINED QY EDUALS J DcFiNED DY 

' BC BADDY DEFINED CD DETINlTltnr“AG30CI ATHI3“W1 f F CUrvFtlCr 


PAi.E 15 7 


14- a 


ii:4, FEBo 2t>,197i 


tf UF REFS, PAGE OF FItsST klF, 


K c F hK E N C t S 


GYHbUL 


AGE UF LAG! 


DEF 


H 




REFERENCES 


3^ 

i 

6 

4 


”533 
33 . 
196 
1 96 
3 196 

3 196 

J 197 
I 994 
i 99J 
3 9 63 

1 1'. 87 
~t — 9^93 
7 93 

1 1167 
ID 
Z 
i 

“D3r 

13 
1 
1 
1 
1 

T 


TTITF 
36B 
1499 
214 
536 
7 3 

1497 


=- IS 
~~£.^ ' 

=~4 

= 14?1S 


17, 32 7 5 
TTTT 

6l t> 1 

17,33G2 


1D52 
= 1^43 

= 1L^8 

1 r 52 


3 

T* 

2 

T 


1C49 

1‘’43 

1 43 
ie 3 B 


1^32 

If,' 56 

1944 

1^52 


997 


A-PCHK 
ABCLQAD - 
ABLOAD 
A8CR ! 
AdORI 2 
ABS 

ABT CONIC 
■AtBVA 


7 79' 

13,3252 
-^• 1,2611 
41,2716 
77 J6 
5733 
y - ^ , 32 2 3 

12,376^ 


H-r 

132 l 

3 5 3- 



It 84 
1'’84 

~rzz 

116 
1083 
6 74 
1343 
1184 
■393' 

5 13^6 


A8VALABS 
ACAUNSa 
381 ACADN85 
1 t:S2 AC8DZY 
AC8D22 

39“ ACCEPTUF 
1^85 ACCEPIWU 
ACLFINFI 
ACCU4P 

Accwo 

ACORBO 
ACOS= 


V ,3175 
24, 3551 
24 , 3553 
17,33 77 
17,3442 
7,3771 


TT 

14 


41,2 .25 
47 7C 
11,2436 
E5,1522 
£6,163* 
f ■ , 36“34' 
1 ACuSABKT ' , 372' 


1489 
1433 
iiei 
13' 4 

lldf 

714 

714 

17 55 

I 56 
7r4-4tr 
334 
”35 
1336 
1 3 
113 
7T8-T 

ll'^-l 


437 

4 

j- 


144 1506 
1317 i33J 
-3-3? 


2 1 
3 1280 1302 


1 

1 

2 

1 

1 

T 

3 

3 

1 

2 

5 


730 


1119 
747 
712 
1 55 
1 55 
37*45 

334 

164 1426 
1344 
441 
113 
11S9 


1 ^ 56 
1797 


1 

155 

ACuSuVF 

\ 1 3 7 1 6 

1191 

1 

1189 


1 

1473 

ACUSSHR 

i ' I 3 7 1 i 

1191 

1 

1189 


1 

719 

ACUSST 

C*' f36ZZ 

1189 

1 

1189 


1 

1277 

ACUSST2 

,3637 

i 1 09 

2 

1189 


I 

dl 3 

AOSSl tKlT' 

C"' ,‘372A“ 

1 1^1 

^ t 

-1-1-89 


1 

155 

ACUSi 

1 - f 364 7 

1 1 : 

1 

1191 


1 

i 1 5 

aC R iU 

1 7 , 3- 1 7 

1' 43 

2 

1C43 





17,3136 

1 47 

2 

1 0 42 

1' 55 

2 

1171 

ACKULL 

17,2747 

1-42 


“ 


2 

1171 

ACTCENT 

L 5 , 1632 

= 97 

3 

98 

479 


1173 

' ACTTVt 

Z2 r 3 3 ^ 4 

-= — 

tr 

475 ■ 

677“ 

2 

1173 

ACT Li M 

Z ' f 3 Z o 1 

974 

2 

967 

971 

1 

1172 

ACT5A 1 

2' ,3614 

9T1 

2 

975 


1 

1172 

AC Y Ch ECK 

17 ,3. 55 

i 44 




- 


acyjets 

17,3152 

1 ' : 4 3 

2 

1 44 

in 55 

1 

i- 12 

aC2Y 

17,3415 

1C 55 

2 

1 55 


5 

lrT49' 



's 114 

IZ 

T14” 

ir 3'^ 

1 

1 14 

AQBVEL 

.6, 1523 

= 112 

4 

1 29 

1 32 


JOKER UR erase ANYwHiKt HO MULTIPLY DEFINED 

- XX WlSCLLLANrOUS TKOtretTE 


o ; ASSjEM^L i UN l l LF AGC P R JU kAM Ai ^TfcMlS bY 
iYKriUL TAtJLt LliTlNGf iNCLUUlNG OtFlNITlUN, HcALTHi Pal-E UP 


G YHciUL 

DEF 

H 


REFER ENgES 


S Y.4 3ijL 

utF H 

ArOlMCi-tF 

33»3^ 42 


445 

1 

445 


A 1 6 

E6ti662 = 

A DUiT ESS 

6r t> z 


TTl' ■ 




"ATG/PIP 

irsvioTr ^ 

A CLi'’ bO 

' 1 16 


7« 

79 

11. a 

1369 

A I NLA 

t5 , 1444 

A UD T L N 

2U ,23^3 


461 

1 

463 


AK 

bd , 147 6 

ALENDEXT 
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1 
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1 
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Hir>iutii i 
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4732 - 

= 1 . a 1 

1 
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3 
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254 





H/SLVE 
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42,3304 


i 

35v. 
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'793 

' 947 

TDAT>3TEM 

Lb 2 

T1 
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1 
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42f3137 

348 

X 
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461 
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i 

1318 
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HOPl 
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40 

1 

4 6u 


IFLEGAL 

i':,3' 25 

i4o4 

I 

1464 
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E6,1425 

6 

1 

949 
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4o - 

1 
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- 

6 

99 

1359 
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43V 

1 
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IGNFL AG 

’ 1 53 

= 6 

1 
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HBN12 

E6, 1427 

1C6 



HOrti SLP 

E6,1775 = 

12 

1 

634 


IGNFLBIT 

4754 
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2 

7 '2 

713 ■ 


HBN2^ 
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lo6 
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1 
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A f f 23 i 2 

3'99"“ 
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66 , 1434 
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63 7 

i 
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IMEDi Ale 

1 1,3561 

1413 

4 

1412 

1415 


H BN3i 

E6,i437 

137 



HOkI Z> 4 

31,3333 

637 

1 

637 


IMOOESSr 

1333 ■ 

.84 

69 

135 

144 


HeN31/2 

E6,144v. 

lc7 



HORIZ, 5 

31,3335 

637 

1 
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IM0DES33 

1334 

83 

4? 

144 

1425 


HBN32 

6671441 

i.:7 

— — 

— 

HORIZ, 6 

31,3324 

63? 

1 

634 


IHPLBURN 

24,2773 

13 

1 

7 2 



HDDT 

E7 ,1740 

= 124 

2 

293 547 

HORIZALT 

1345 

d6 

1 

635 


IMPLCONT 

24,3 16 

1 A 

1 
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“TTI^OPBrr 

4T5& 

= 6^ 

2 
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HORIZON — 

t ? 1 1752 — 
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I j4 
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rMPULHIT^ 

4 f 6 k 

- 51 

2 
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HDSUPFLG 

>232 

= 66 



HPtK 
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j 

291 

646 

IMPULCHK 

24,27 2 
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HEADSUP 

Eo 1 i 7^6 

= 116 

6 

116 853 

HPERMIN 

£4,1711 = 

94 

5 

‘34 

525 

IMPUESii 

44 

= 51 

1 

733 



HERE 

26 f 3 365 

1248 

1 

1248 

HPEriX 

£4,1744 = 

95 

5 

?5 
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IMUaOK 
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1 13 

1 
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= 34 

12 
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42 , 3446 
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2 
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43,2364 
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1 

249 



H lDPl/4 
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4 
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HKCCNi 
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349 

X 
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IT 
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't 
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X mUBA d 
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1 
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1 
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IMUCADF. 

1SJ5 

= 85 

3 
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1435 


HI GUI 

15,3432 
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1 
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HUNTE5T3 

25 ,2561 

865 

i 
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IKUCAGE 

• £ , 2566 
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1 

168 



H IGH2 
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1 
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= 03 

6 
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23,3141 
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1 
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1 
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11 

14 
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= 32 

1 
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H IGH4 

76 75 
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5 

141 1477 
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t6 , 147 v/ 
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2 
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IMUCOARK 
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25^ 

1 
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76TT 

T2CT 

~ '—TT 

“^737 Tirr 

TT^TGTTOf' 
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i:7 

1 
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U*r,2 724 

142 

3 
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35 

1 
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4714 
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1426 

IMUCOARV 
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2 
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UL F 
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RtFEKENCES 


SYMiiUL 


DEF 
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REFERENCES 


i FUCOMP 
tl^UFAIL 

I FUF I Nt. 

I i-'UFINED 

I KUFI NEK 

I MUFI NEV 

I PUF 1 NHT 

inn-iK2r- 

I MUl LBIT 
I RUMUN 
I MUNI TBT 
1 MUUP 
I MUOPBIT 
-mjop^ 

1 MUPULSE 


■1’^ 6 t 2 g ‘-j-'-t 

C 5 V2TJ6 
C 7,3133 
7,3153 
43,2227 
43,2257 


cT> Ttys 

4754 

*6,2167 

4763 

■:6,262C 

476* 

C 7 , 32‘t4 


28 

T5T- 

1424 

1424 

256 

256 

85 

1'43’9 

34 
147 

35 
162 

84 

163 ' 

1427 


1 

r 

2 

1 

1 

5 

yr 

% 

1 

7 

1 

4 

-t- 


3-0 
1 68 

250 

1424 


6 


i5l 

Tmr 

3 J1 
145 
iJl 
lo8 

15*j 

-rsz 


I NCRCCK 

mcTtsvrr 

1439 INOEP 
1429 INOERASE 
INDEX 
1 NOE XI 

1425 INDEX! DC 


1425 


1435 


144u 


1 N D I l*JC 

INDJUMP 

INOWORK 

iNFiNAPO 

INF1N3IT 

INFINF -L-G 


I? 56 


15g4 infinity 12,325g 



T 

H 

1 

1 

1 


168 

T26 

1235 

1112 
ni- 
ls 68 
1112 
rri:2 


1435 


INHIBIT 

TRITLSW 


1286 INROLrjur 
INT-A8FsT 
INT/R 
INTADR 
1194 INTALM 
INTtSAWK “ 


4764 
riTpr 

25,2351 

11, 275 1 

3 5,3 753 

13,2241 

35,2 55 

■lJr3-r44r 


5° 
5^ 

8 62 
1339 
1327 
515 
467 


'Z 

3 

1 

'j 

*— 

1 

1 

1r 


B6i 

1339 

1326 

514 

467 


862 
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1 HUSO 

1 MUSEBIT 

I MUSEFLG 

1 must ALL 

;c -7 
4761 
4761 

C 7,3644 

= 47 

= 47 

= 1439 
1437 

6 

2 

:3 

11 

214 

162 

151 

252 

1442 

212 
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7 bci 

INFLIGHT 

INHLLO 

INXTA 

INITDSP 

23,2:> ^ 
21 fS'tTA 
27,262; 
l..,326i 

1 KU S T L L b 3 3 1 4 1 2.0 

'^t3^ — 

5 

427 

”442” 

INI T lAL W 

27 ,2 622 

I PUVAR 

2 7 ,24ol 

588 

2 

581 

594 

INiTLOCZ 

17,2537 

I NUVARR 

32,2025 

623 

1 

615 

_ _ 

INlTRbT 

_4,3 24 

I MU2EP0 

V 7,2627 

1A18 

2 

252 

427 

INIIKLI 

25 ,2362 

I MUZEFOA 

r7,Z6i7 

1418 

1 

1413 


INi TROLL 

25 f 

I MUZEF02 

i 7 f 7 7 

1419 

1 

141 y 


I NIT ST 

-5,u277 

“ryU'ZEFC3' 

'TrrFZTTTB' 

“^4T9~ 




'ITJl T ST 1 

“353 356 


2 

245 

246 

INI BITi5 

115 

7>‘ 

6 

T 

1112 

o 

nil 

1114 

INTm5+ 

114 

7 

Z 

7‘ 


1 

1112 


INTEGRV 

13,3236 

132 

12 

227 

1329 

2 

1303 


INTEGKVS 

13,3211 

1319 

7 

457 

923 




1NTF.GHV1 

13,324 

132. 

2 

1318 



13# 3243 


— JL' 



:> 

1292 

1295 

INTER B( 

FC,2v 

- 27 

2 

1119 

1152 

1 

1354 


INTERBl 

r - A 4 

. J. t cZ 

= 27 

1 

1192 


1 

1 1 29 


INTERCEP 

16,3761 

996 

1 

989 


1 

591 


1NTERF3 

• f — “'r «* 1 

O; ' 

= 27 

2 

11' 6 

112 

1 

1411 


iNTt xn 

13,3331 

1321 

3 

1323 

1324 


I MUZRCBT 
I F 3 IMF 
1 P3 IMh 
I M331MT 
I NbOUND 
1 NtdIFeiT 
I ^.COftFLG 
I NCORPEX 
1 NCORPl 
I NCOPP2 
I NCURl 
TNCDRITT 
I NCGR IB 
I NCORIC 
I NCGR 2 
I NC0R2AB 
1 NCUH3 

TNCK 

1 NCROCOU 


4764 
C 5, 3247 
766*, 
5* 55 

27,3341 
— 4756' 
j 1 1 7 
£4 , 1641 
36 ,326^ 
3 6 , 34 72 
36,3314 
36, 3323 
36,3352 
36 ,336 . 
36 , 34<il 
36,3451 
36,3455 
j 1,^2 413 
22,311 - 


85 
2k 5 
2 5 
2! 5 

1381 

“156 
56 
93 
1252 


2 

1 

1 

2 

1 


1416 
195 
1 99 
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2369 


1419 


199 


I Ni TSUb 
1 Mi T SUB A 
INXTSUBB 
INITV 
INi TVEL 
ttrl'TVELX 


1 4,2767 
C4,3 ,.2 
o4, 3 j3r 
12 , 3346 

11 ,2'-c'‘ 



0 

1 
2 
1 
1 

1 

T 

2 
3 
1 
2 
2 
2 
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944 
222 
861 


672 
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<;> - 6 

212 

n 


129 8 


211 

222 

1299 

716 


INT P rA^ 

INTFLBIT 

INTGRAIE 

INTIME 

INTINIT 

INTINITl 

iTmnnz 

INTINiT3 
INTI NT 
INTINT2C 
INT1NT3P 
INTLUUP 




TZl =■ 


4753 
11,3275 
E7,15' 2 

13.2 

11.2 0 

C5,2lD‘. 

35,274' 
3 1 , 3 6* 6 
31,3615 
33 , 2i 44 


ST 

65 
1344 
126 
■ 29 
29 
3T 

28 


- 


■ 1 NT Iie T TS“-A-t ,2'nr6 


6 y tj 
686 
467 
335r 


4 

2 

6 

4 

1 

T 

1 

6 

2 

2 

1 


1344 

126 

227 


1325 

1345 

492 

1328 


13Z 6 ' 

133 
4 T9 
6 76 
6o7 
467 


686 


2- 


1233 
T753 
1253 
1253 

1234 
1255 
1255 
llT3r 

418 


■ C 

5 79 

61 6 

INiTVELl 

11,2 22 

4 ^ 

1 

4 V. 


INTO THIS 

13,2176 

514 




5 
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1239 

IN I I VE L 2 

i I , 2-56 

4 V 1 

i 

493 


iNTPKhT 

6v o 

1 18 

245 

211 

1496 

3 

531 

631 

INI TVEL3 

ii,2l 1 

4il 


49i 


intpreti 

26,2.0 

= 31 

1 

12* 5 


3 

582 

632 

INI TVEL4 

11 ,2133 

4 ‘-2 

i 

492 


INI PRET2 

04,2- V 

= 27 

1 

12 6 


1 

1253 


INITVELS 

11,215? 

492 

i 

4 Si. 


INTRSM 

1 
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i 

1 

1 
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1 
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Z 

TTSX' 
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4V J 

1 
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1 rV J \ Ut' 
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i 

12 53 


INI TVEL 7 

1 6 f ^u03 

493 

1 

492 


INTgTALL 
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31 
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1.4 iO 

2 
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INITVELS 
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i 

493 


I NTTEHP 

E6, 15 6 
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2 

1 
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2 

1254 

12oi 

INi TZUP I 

b 6 f S2L3 

172 

i 
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IN 1 VaL 
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445 

2 
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43 Q 

1 
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INLiNK 
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— 4 - 

2 

2 4 

1446 

INI VALUE 
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1 

Sbo 
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2 
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I nT VAR 
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1 
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T' 

IXTS 
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2 
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421 

INRELTAa 
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2 
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3 
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1 35 

TTV 
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I NTWAKE 
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3 
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65 

69 

2 

69 
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1 
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1331 

1 
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- ^ 

69 

3 
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1 
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1 
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3 
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1 
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I 
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IF ’"Zi'So-TVa? 
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ITRTT 

ITR12 
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V 5N7i22 

33,3573 

6r, 

2^ 0 48S fcC 

42S3626 

1493 

UPFART2 

26,3331 

34 

HI UNITY 

2 7 , 2*. U i 

32 

P6' S5 

3 2 1 2 U 0 ^ 

32 

j L L b P L i 

55, 3573 

939 

EPC9RTe 

4 2 f 3 7 5 *, * 

14S5 

UPSTURE 

26-,^33- 

3^ 

HIDPHALT^ 

— 27, 2 9 U 7 

32 ■ 

X2ZSI 

32 # 2 V 'cu 

32 

— n-i trCAtr3“ 

36 , 2 ^^3 

33 

ME AS IMiC 


34 

fc. ATirtKtl 5 

2 6,3 333 

34 

HIUNITX 

27 ,2C Go 

32 

TOF-FF 

32 1 2 V 

32 

P2 . o9 

3 f 2 I 3 c c 

33 

MEASlNCl 

43,200- 

34 

SELFCHEC 

26, 3333 

35 

TH IsAXI S 

27,:2UGD 

32 

UPDATE2 

32,20::o 

32 

HI t 

36,2003 

33 

P15L0C2 

43s20r^ 

389 

PI NT t, ST 

2 6 r 33^3 

443 

i,HCC0NS5 

2 7 f 2 0 ij L> 

32 

V b C P T 

3 3 f 2 s- 

33 

IHUOAL 

3 0 f 2 (j U ) 

33 

P2' 57 

43,2164 

255 

UPTCUAkV 

2 6,3333 

888 

wl9 

27,3544 

136 5 

I COANZIG 

33, 2L > . 

33 

PiiTWO 

3 u f 2 U ^ c 

33 

RTEi 

43V 27 j 6 

271 

V74 

2 6,3333 

£89 

HA L V h 

27, 3556 

1496 

UPPART3 

j 3 1 2 -. c 

33 

Pi 5LUU1 

3o f 203 3 

33 

S3435LUC 

43,2735 

273 

bO SHU SUM 

- 2 ri3333 

"889~ 
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ASSfcMBLt:. KEVISION "7^ OF AbC PKOQRAM ART6M1S tlY f'jASA 2' li 


A. 


l l;4.. F£B» 26^1971 


P'AbE 1562 


P» »i m m M mi 


SUMrIAKy OF SYMBOL TABLE LISIINGS 


DEFINED NORMALLY 


2465 CcFINEO BY EQUALS 


lUa— ^ 


T t f AL : 


7429 



r 


1 







> t 


-1 




• - 


t 




1 


r 



■r^ 







I ' ^ 


- P H ■ * -i- * !•! t*-i 




■(•■I "P 


K._ 




T 




7 


h 


i , 

5 


4 


3 - 




2 




U' 


Ai.SLf'lbLL 


ts 


tflSlLi'J 7 ^ Lt" Ai^t, PKUai 


ARTEMIi L.Y NASA ^ 21 1 11 


ilsA hi, 6 o 26 fX'^^l 


i-'AbL 15 b 3 


.. r ihY IVPt i* AValLAblLlTY DISPLAY 


r 61 Tf: 


■ ). ‘j 7 special or NJNi_<ISTbNT MtMDKY 
AVAILAaCt ERASABLE MEMQKY 

IS7 f- K-t W f WT JTt T 


^ if 14 
-»t i ? bt> 

t A, . 

c 4 1 1 'J S 1 
1 : 5 , 14 ''- 
L, Sf 16 fci. 

i. o, 14 ' l 
L t , ISAI 
1 . 7,1 4 Ci,' 
t 7 , 1426 


TC 

TO 

TC 

TC 

Ti:j 

TL 

ft 

TC 

TO 

TC 


E 3 , 
Eif 
E 4 , 
E 4 , 
Cti , 
ES, 

L 6 , 
E 6 , 
E 7 , 
£ 7 , 


i/6> S4ESERVED SW 
1777 AVAILABLE 3 
IS Si RLSERVETj iW 
1777 AVAILABLE b 

16 -s r - -iv£"S^ iEV-etj"Sn 

1777 AVAILABLE S 

1 S 4 j reserved Sw 

1777 AVAILABLE S 
14 2S REbEKVED SW 
17/7 AVAILAdLL S 


ITCHABLE 
WITCH ABLE 
IlCHAaLE 
Wi TLHABLE 
lltmATStt- 
UlTCHABLE 
I TCHAtiLt 
WITCHABLE 
1 TCHA 8 LE 
WITCHABLE 


ERASABLE "MEMORY 
ERASABLE MEnORY 
ERASABLE MEMORY 

ekAjAble memory 

EtCA STttrt c 1*11:1^ tir<Y ' 
ERASABLE MEMORY 
ERASABLE MEMORY 

erasable memory 

EiUSABLE MEMORY 
ERASABLE MEMORY 


4 . • T C 

77 il TO 


77 3 j RESERVED Fi.XED MEMORY 
77 77 AVAILABLE T^lXtD MEMORY 


, 2 ’ L 


TC «:L ,37 7 i RCSEKVLD SWITCHALiLE FIXED MEMORY 
v ,3772 TO f ,3777 AVAILABLE SWITCHABLE FIXED MEMORY 

lYzr ^rrn'trxiT J — trE-s ^ F r vgp'- sw i t ch able ~r i xwMn^TRY- 

1,3754 rc Li,j 777 AVAILABLE SiaiCHABLE FIXED MEMORY 


,2 < 


4,2 




6 , 2 <-i 

1 1,3775 

12.2 C 

12.3 775 

13.2 '■ V 
13,3774 

14.2 

14.3 776 
i 5 ,.£: Cl 

1 7,377 5 

2 C , 2 


r' 


TO 

TC 

1 C 

TO 

TC 

1C 

1 C 

TC 

IG 

TC 

TC 

1 C 

To 


^ J J 


777 SPECIAL CK NONEXISTENT MEMORY 


, 3 - 7 ^ 3 -Tr 

1 , 2 .. Cl. TC 
1,3774 TC 
2 , 2 C L I T C 
2,3776 TC 
3 , 2 i LO TC 


5 , 3 7 7 o 
r 5 , 377 T~ 

11 , 3 / / 4 

11 .3777 
12,37 74 

12 .37 77 

13.3773 
134 37 77 
1 4 , 3 7 73 

14.3777 

17 . 37 7 -t 
1 / , 3 i 7 7 
2 . ,3752 
-zr~TSTTr 

21.3773 

21.3777 

22 . 3 7 73 

22.3777 

23 .3773 


RESERVED SWITCHABLE F 
TWATLABrC' -SWITCHABLE 
kL-SERVED SwITCHABLE F 
AVAILABLE SWITCHABLE 
RESERVED SWITCHABLE F 
AVAILABLE SWITCHABLE 
RESERVED SWiTCHABLE F 


IXED MEMORY 
FIXEIT -MEttOKT 
IXcD MEMORY 
FIXED MErtUkY 
IXED MEMORY 
FIXED MEMORY 
IXED MEMORY 


RESERVED SWITCHABLE FIXED 
AVAILABLE SWITCHABLE FIXED 
RLSERVED SWITCHABLE FIXED 
AVAILABLE SWITCHABLE FIXED 
RESERVED SWITCHABLE FIXED 
AVAtrACLE SWlTCHAatC—ri'XCCr 


RESERVED SWITCHABLE FIXED 
AVAILABLE SWITCHABLE FIXED 
RESERVEO StaTCHABLE FIXED 
AVAILABLE SWITLHABLE FIXED 
RESERVED SwITCHaBLE FIXtU 


rii 

MEMORY 
MEMORY 
MEMORY 
f'^EMUKY 
MEMORY 
-MCW 3 KY 
MEMORY 
HE MGR Y 
ME MUR Y 
EMORY 
iMEMUKY 


23 * 

24 , 

24 , 

254 ' 

t 

26 , 
26 , 

27 , 

27 , 


7 7 I J 
20 C. TO 
3 773 fU 

— ^. 0 . 


3??4 

2 C 1 : 

j 7 7 o 

; T . 

Ji f 


• 4 - 


ijcrctnj 

3 >,3 77 c^ 
31 ,z^ J . 
31 , 37/3 

32.2 t . 

34. 3 7 73 
3 - 5 ,- 'irb-r 

36 , 2 w w ^ 
36, 3771 

37.2 rcc 

37.3 737 
X* 3 ,270 . 
41,33 61 

42 , 2 '.j w - 


TO 

TO 

To 

ru 

To 

TU 

TO 

10 

To 

TO 

To 

"Ttr 

To 
To 
10 
TO 
To 
-TCr 
T 0 
TO 


43 , 3 723 1 


u 


23 . 3777 
24, 3772 
^4,3777 
tyryTTs- 

iin 

26. 3773 

26.3777 
27, 3767 

27.3777 
3"4 37 ri~ 
3 ,3777 
31,3772 

31. 3777 

34. 3774 

34. 3777 

35 , ^ 7 ^— 

35.3777 
36, 377 

36, 3 777 
3 /, 3 TCo 

37. 3777 
Tn.V 37 >Cr- 

41.3777 
43,3724 

43. 3777 


AVAILABLE Sw ITCH ABLE F 
RESERVED SWITCHABLE FI 

AVAILABLE SWITCHABLE E 
• RESLHV C D S 4 T n CiTABtrt~TT- 
AVAJLAbLE SWITCHABLE F 
RESERVED SWITCHAfilE FI 
AVAILABLE SWITCHABLE f 
RESERVEaSWlTCHABlEa 1 
AVAILABLE SWITCHABLE F 
■Rtst Vfctr~$Tri TC H AB 1 : C ' T t 
AVAILABLE SWilCHABLE F 
RESERVED SWITCHABLE T 1 
AVAILABLE SWITCHABLE F 
RES EKVfcD' SWITCHABLE FI 
AVAILABLE SWITCHABLE F 

-fa- 


l A L 0 M t rt JR Y 
VED ML- i'iaRY 
I* ED memory 
XT t» M EMOR Y 
KLD MEMORY 
HEMORY” 
lAhU MEMORY 
A ED- MJTMORY 
IXED MEMORY 
XED MEMOR Y ' 
IXEu riri'lURY 
XED MEMORY 
IXED MEMORY 
XL 3 MEMOkY 
IXED MEMORY 
X ' g'D H lMORY 


AVAILABLE SWITCHABLE F 
RESEkVEU SWITCHABLE Ft 
AVAILABLE SWITCHABLE F 
RESERVED SWITCHABLE hi 
AVAILABLE SWITCHABLE F 
RESERVED S W I T CHA T S L TT'F't 
AVAILABLE SWITCHABLE F 
RcSEHVEO” SWITCHABLE “FI 
available SWITCHABLE F 


IXED MEMORY 
XED MEMORY ' 
IXED MEMORY 
XED MEMORY 
IXED MEMORY 
Xr- D H rMO RT 
IXEU MEMORY 
XED MEMDFxY 
IXEO MEMORY 


44 , 2 EC j TO 57 , 3777 SPECIAL UR NONEXISTENT MEMORY 


u.., 2 :C, TO 67 , 3777 AVAILABLE SWITCHABLE FIXED MEMORY 
7 C, 2 tJ.. TO 73,3777 SPECIAL CR NlNLXISTLNT MEMORY 


ak: ASSEM^Lh 7^ FKU^jKaH AKffcHlS dV NASm I 211X4- ii 


iuVINl: count 04! a HUH RUUriNE'i LAST R£ACH:TUTAL: LUMUl 


xlu I inl; 


/'■(‘iis .1 C 

/i L LAY 
/I . TER 

1 / L. • ' t C 
1/i \ lk 

l/i‘.sFOU 
1/.<S lA t 


KLr L Ai> I TO Zl' \ 

RLf- 1 LASl 27 TG 139: o7 

REF i LASr 1481 TU 1483: ii 

TTTF Z'L AST ~1 1 52 "TCn:r?27 

REF L LAST 1211 TC 122 269 

REF 1 LAST 1192 TO 12' 157 

REF 3 LAST 1415 TO 1417:' 49 

REF i LAST 23E Tu 238: 225 



, 2 / wA I T 
j/ A larm 

S/OaFEn 

' S /F L GNS 

j/I 1 TtR 
j/A;UT 

4/CHNi3 

4/ ICONS 


i/R 2 

RLF 

1 

last 

144, 

TL 

1442: 

16 

1/wAlT 

REF 

2 

LAST 

1234 

TO 

1236: 

34 

2/ALARR 

REF 

2 

LAST 

148 S 

TQ 

1492; 

41 

2/DAA'K 

r.LF 

1 

LAST 

11’ 4 

TG 

11., 3: 

7 3 



1911 

2083 

213j 

2226 


4/Ml JG 
4/NNKEY 

4/PU J 

4/P3i36 


2/Cf AIL 

REF 

1 

LAST 

1465 

TC 

1486 : 

13 

4;/CiiNl 3 

REF 

1 

LAST 

592 

TU 

592 : 


E/crpsT 

KcF 

1 

LAST 

432 

TG 

435^: 

13 

2/uaPAR 

REF 

1 

LAST 

l.:24 

T U 

1l25: 

4 

r/dapex 

REF 

i 

LAST 

1l37 

TO 

1^38: 

1 

• zTWfitnr 

“RITF 

— ^ 

LAST lc-56 

TG 


13 

2/DSPLA 

REb 

1 

LAST 

1485 

TC 

1485; 

13 

■■2/ EX EC 

REF 


LAST 

122C 

TO 

122 3 ^ 

6 

.. 2/u X 1 VE 

REF 

" 1 

LAST 

1484 

T G 

1486: 

4 

, 2/[ O-CNS 

KEF 

i 

LAST 

120 L 

Tu 

12 2 : 

73 

“^7/1=1 AC 

iTEF“ 

T 

L AS I 

7.479“ 

1 U 

i 4: ^ L * 

5 2 

2/10 CD E 

KEF 

1 

LAST 

1417 

TG 

1418: 

5 

1 T fc H 

REF 

1 

LAST 

1 2C' 7 

TO 

121 8: 

32 

, 2/KALC 

REF 

1 

LAST 

422 

TG 

423; 

21 

j 2/PHASE 

KEF 

4 

LAST 

i4iL 

T G 

1411: 

‘t 

'~rZ7P^^ 

RtP 

6 

“CTTST' 

u ^ 1 U 

j 

1X~ 


13 

2239 

04/P3272 

4 

2243 

4/P3j73 

13 

2261 

4/P5l,33 

4 

2265 

4/P m 

1 

22oo 

^ 4 / S o 1 L. i 

13 

ZTIT 

47V37 

43 

232 2 

1) / GGi‘'i I L 


'2368 

:>/CSI 

4 

2392 

'i b/UL 131 

73 

2465 

. S/DPKOG 

32 

2497 

S/NA 5F 

5 

25U2 

5/ ,4 1 

-rt 

2534 

2555 

5/ ST ART 
./CSI 

T f ■ 

2658 

l/1i„0NP 


2/PCG 

R tF 

1 

LAST 

2.. 6 

TO 

2 6 5 

17 

(TT^ 

^283 4 

7/CSl 

2/Pll 

REP 

1 

LAST 

551 

TO 

552: 

2 


2891 

7 / 1 iH Ju L 

2/P3r 

R E F 

1 

LAST 

652 

TG 

653: 

24 


2915 

,:7/KEYUP 

2/P3272 

K tF 

1 

LAST 

069 

TO 

67 : 


3 

2918 

. 7/R52 

2/P3474 

k t F 

1 

LAST 

487 

TG 

463: 

Cr 


2924 

- 7/oXTrtK 

2 /r<spou 

REF 

2 

LAST 

1414 

TO 

1415: 


(T^ 

2 341-^ 

i ./CC4IC 

. 2/..\LPTS 

R t F 

1 

LAST 

134 

TC 

141: 

4i 

Vx 

2992 

1 /CS I 

2/i;22 

KEF 

1 

LAST 

64 T 

TG 

6 4 '■) : 

5 

5 

2997 

1 /DSPLr 

2/R4C 

REF 

r 

LAST 

713 

TO 

713: 

M 

6 

3 zm 

i / GL'-n’l 

2/ TRAN 

REF 

1 

LAST 

1483 

TO 

1484: 

15 

15 

3wi8 

L , y K A L L 

2/T4RPT 

REF 

1 

LAST 

17 8 

TO 

179; 

4 

4 

3.22 

1 /PHASE 

2/V37 

REF 

1 

LAST 

ii'.* 

TQ 

2C8: 

2 

2 

3l)Z4 

pL / SX T 


11:4. 


FEB. 26,1971 


PAGb 1534 


CoU ii I 


DATA FUR ROUTINE'S LAST CEACH:TOTAL:C JKUL 


REF 3 LAST 1233 TO 1234: 

REF 1 LAST 14'8T TO 14881 

KEF 1 LAST 1065 TU 1-65: 

KcT T" r A ST 12172 ”TCr i2L'5: 

KEF 2 LAST 112,- TU 1152: 

REF 1 LAST 1225 TU 1226: 

REF 1 LAST 592 TO 595: 

RcF 1 LAST 1206 TO 12i 7: 


REF 

i 

LAST 

495 

Tu 

498: 

REF 

2 

LAST 

219 

TO 

219: 

REF 

2 

LAST 

211 

TO 

212: 

KEF 

I 

LAST 

653 

TO 

655: 


1 

16 

6 





31 6 
3122 

3128 


“31 — 

— 31 

3T57 

721 

3 

<2D 

f3^ 

4i 8 5 
i 4 ' fj8 

26 

Z6 

4114 

1“ 

19 

4133 

41 

1- 

41 

2"2 

4174 
4.’3 76 

2 


44 8 

64 

64 

4467 


REF 

i 

LAST 

661 

to 

667 s 

12 

12, 

4587 

REF 

2 

LAST 

66 8 

T U 

669: 


83 

467 

REF 

1 

LAST 

776 

TO 

776: 

11 

11 

4681 

KfcF 

1 

LAST 

219 

TG 

219: 

21 

21 

47 2 

KEF 

1 

LASl 

82-. 

TU 

821: 

1 b 


4726 

REF" 

REF 

1 

LA ST 

LAST 

'224 

1291 

T?Ti2Q2; 

“9T 

29 

' J 

STT" 

5139 

REF 

1 

LAST 

671 

TO 

671: 

21 

21 

516: 

REF 

1 

LAST 

174 

TO 

194: 

24 7 

247 

54' 7 

REF 

1 

LASl 

Iv. 96 

TO 

11' 4: 

160 

.169 , 

bblo 


REF 

“r 

TTTSr 

Vjjjb. 

1 Jj j 




— 91 • 

5667 

REF 

i 

LAST 

133 

T : 

1331: 

16 

16 

5683 

REF 

1 

LAST 

194 

TO 

2( 6: 

447 1 


613 1 

REF 

2 

LA ST 

6 85 

TO' 


17 


6197 

REF 

1 

LAST 

3... 8 

1 U 

326: 

252 

252 

6451 

ITEF — 

2 

LA ST 

r4Z— TTT 

^T5T 

" 672 

l^Z 

7X53" 

KEF 

2 

LAST 

684 

TU 

6 85 s 

8 

56 

72 U 9 

K tF 

1 

LAST 

1418 

TU 

144 1 

343 

543 

7 7 52 

REF 

1 

LAST 

1445 

TC 

1459: 

73 

<2I)" 

7825 

KEF 

i 

LAST 

763 

TU 

766: 

b i 

6 J 

7888 


RFF 

1 

LASl 

241 

I 0 

249: 

288 

288 

8176 

ktF 

I 

LA“ST 

13C2 

TG 

139 3: 

5 

B 

8184 

KEF 

1 

LAST 

68 

Tu 

681: 

6 

6 

82^44 

REF 

3 

LAST 

1487 

TU 

1487: 

X 

Q 


'8886 

REF 

1 

LAST 

3': l 

TU 

*5 ^ 3 - 

35 

35 

8921 

KEF 

i 

LAST 

422 

TL) 

422; 

11 


8932 

kff 

2 

LAST 

14 ii 

T U 

141- : 

56 

(S) 

9 b 

U ?: F 

2 

LASl 

1 76 

T U 

177: 

1 ™ ■ ■ 1 

2b 

44 

9"' 5- , 



AS:^tMbLt btt/iSiLIv 


b72 LF PRUGKAM AKTb « « Y A IIA-C il 


^LUriNL: COUNT JAfA FOR KQUTIf\C*o LAST RC ACH*: T OT AL : CU.-IUL KCJTlNt: 


I /Scz^ : 

kti 

1 

LAST 

821 

TQ 

826: 

J3 

i J 

9 d 3 

16/K'4rttT*' 

1 / TARPT 

REF 

2 

LAST 

177 

TO 

173: 

76 

116 

9199 

lb/,\5:. 

1 1/luMc 

— ♦ — %■ -# -ff # ▼ 4 J 

f ’ E T 

• I- -r . 

1 

LAST 

—4 

iJv 5 

TO 

1313: 

io 

l6 

^215 

r-^' * ^ — 

i d/K3 1 


“ti/ii‘iiTV dht fi-TfST "A9A TC” >r?in — "tz " ^i5/7x:5Tt 


i 1/ 1 I'JT I I'J 

K bf 

1 

LAST 

132» 

TO 

132 : 

7 

7 

93d 9 

i6/S4 , i 

1 l/.iKFl T 

K t F 

3 

L A 31 

i35<t 

ru 

13 52: 

22 

SO 3 

1' 192 

16/a4 o2 

i 1/S5-U.2 

RLF 

1 

Last 

rB2 

TO 

7c3: 

23 

25 

1. 21 7 

1 6 / S 4 - (S 

1 2/COM C 

KtF 

4 

LAST 

130 3 

TO 

13' 5: 

4 J 

S55 

11172 

i6/S4 . 9 

1 2/CS I 

REF 

1 

LAST 

o73 

TO 

673: 

23 

L3 

11195 

1 6 / S 5 1 

1 2/PC 7 

REE 

1 

LAST 

426 

TO 

426: 

6 


112. 

i6/TVCX 

1Z/PJ136 

R EF 

1 

LAST 

657 

TO 

6ol : 

24 

24 

ll^lb 4 

io/4 la 

1 2/P3373 

kef 

1 

LAST 

66B 

TO 

668 * 

ii 

11 

1X235 

1 7/0 ONI C 

‘O/ lN TIN 

l i t ir 

_ 

Tas'T 

132* 

To 

i.326: 

2 J4 

46a 

llTL'l 

17/ OAPJS 

1 3/L 1-LG 

R t r 

1 

LAST 

1236 

TO 

1-^41: 

129 

129 

11831 

1 7/tXTV6 

i3/L sEI T 

kEF 

1 

LAST 

1352 

TO 

1354: 

42 

42 

11372 

IT/INIT 

13/P 7 

REF 

1 

LAST 

424 

TO 

426: 

27 

27 

lio99 

17/ R5 1 

13/P24 

KEF 

1 

LAST 

565 

TO 

567; 

57 

57 

11956 

i7/K5b 

-rr37 P76T7 ' 

TTFF 

i 

“LAST 

— 5X3“ 

TO“ 

“517 : ' 

115 

1 15 

12 / 1 

XT7T6RPT 

1 3/ P 4 1 

KEF 

1 

last 

1326 

To 

i33‘r: 

do 

£9 

12i6>. 

17/4- 13 

1 J/s5f 

KhF 

1 

LAST 

766 

TO 

767: 

7 . 

li 

1223 . 

- /DA PEN 


idO/u APS 
^ /RaLC 

2:-~rPTT 

^ /t^^ ^ 


1 4/ k5 C 

KEF 

2 

LAST 

787 

TO 

7 90: 

25 

68 

12821 

2 - / r 

i 4/K51 

REF 


LAST 

755 

TC 

757; 

39 

93 

12914 

2C/a4l4 6 

i 4/K 52 

KtF 

1 

LAST 

75 7 

ro 

763: 

263 

263 

13177 

2 /34i»2 

" tA/ <53 

—RtrP — 

X 

LAST 


TO 

— rfi^~ 


4 d 

1522^5 

2 / 4 14 

i4/K5 5 

KEF 

1 

LAST 

755 

TO 

755: 

22 

22 

13247 

2 1/DApArt 

14/ST AKS 

REF 

1 

LAST 

64 L 

TO 

64‘.: 

2 

2 

13249 

2 i / iJAPrt 5 

1 5/CCH 

KEF 

1 

LAST 

687 

TQ 

688 : 

ii 

11 

i326w 

A i/oapkc 

1 5/COMC 

REF 

1 

LAST 

128 8 

TO 

1289: 


29 

132B9 

2 1/1-* 1 1 

1 5/Cr<S61 

REF 

1 

LAST 

6 . 2 

TO 

6 0 3 1 

4 , 

4u 

13329 

2 1 /ROSUP 

1 5/DAPEN 

REF 

J 

LAST 

i* 7 

TC 

1C 96: 

653 

719 

14 -48 

22/Oal 

1 5/ST ARS 

REF 

1 

LAST 

136 7 

TO 

1393: 

22 J 

223 

14271 

22/JAPEX 

1 6/C5I 

KEF 

1 
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55607 * 

L5,31Ev 

4 w 0 ' 


G V 7 6 

1 

1 31 u 6 

G 

556 - 7 

' f 


31617 

J 

5562C 

f'-i 

416' 7 

\ 

^ 1. 6 1 

15,3110 

71567 

, 

556 16 


4156 7 


V 1. - 

1 


' 131 36 

1 

61613 

1 

L'-O* lO 

1 

71621 1 

15,3120 

6 lo 1 5 

1 

61614 

1 

2200 7 

* 

5 a - i 



'J 0gU6 

1 

11567 

1* 

W 

C ;b 

1 

13132 L 

1 5,313v 

3 bvl Z*w 

1 

3:3X37" 


5 oG G i 

L 


1 


1156/ 

u 

i l O' ' fa 

1 

r5o2l' 

1 

5550"5 I 

1 5,3140 

33376 

V 

J ■ J -,.1 ' 6 

1 

71621 

1 

55621 

1 

- 

3 j 7 6 

"J 

L OU' ' 6 

1 

7 16! '7 

D 

556-7 0! 

1 5,3150 

34/72 

1 

36711 

< . 

347 7-; 

-f 1 

543o5 



3j. 25 

' J 

64753 

1 

64753 

1 

27712 0 

1 5 f 3 1 6C 

33374 

i 

27712 

V 

447 67 

1 

61621 

o 


0 • V • - o 

1 

63177 

r 

51617 

0 

32634 1 

l5,317v 

3 5o22 

1 

31t>2l 

7 

27712 

u 

*. *Jx- ^ 6 

1 


63201 

1 

34772 

1 

13232 

»; 

447 7' 1 

15,320*. 

b 5o2i 

1 

447 □ 7 

1 

616 : 5 


J . Q 

1 


63213 

1 

3160 5 


27712 

0 

uO"' 6 1 

1 5,3210 

63215 

1 

’ 34772 

1 

13234 


447 7 

1 


556G 5 

1 

4476 Y 

1 

61 6 1 7 

1 

' '• 1 ' ' ' 6 i 

15,3220 

63235 

t 

51620 

1 

32634 

1 

5 561 : 

.. 


316* 7 

1 

27712 

c 

0 C..0'.'6 

1 

63237 1 

1 5,323 

34772 

1 

13236 

1 

55621 

1 

4477 . 

i 


556^ 5 

1 

4477* 

1 

556 '7 

7> 

34772 1 

L 5, J24t 

55611 

1 

55612 

1 

3 56-6 

1 

b36ZZ 

1 


1 ’ . 


13262 

1 

23612 

0 

4477’ 1 

1 5,325v 

536 ‘6 

1 

1 '.o.,. • ; 

? 1 

’ f' 

132 62 


23612 

* 


4477* 

1 

53610 


ll .'0-. 

(7 

13262 0 

1 5,326C 

23612 


6327: 

i 

56 ‘01 

i 

27612 

1 


56 0 1 

1 

64770 


1 5223 

1 

C: C3276 1 

1 5,3270 

31612 

( 

0 .. 6 

1 

- lo> b 


iioll 

1 


V 56 14 

1 

3333 

1 

34767 

1 < 

55611 1 

1 5 1 33 C 

731 j 2 


J JV D 

1 

132 71 

1 

2200 7 



i324a 


417' r 

{' 

7477; 

1 

■» 1 m 

54 'M i 

r5T33Tr 

b oJ\y 0 ■ ■ ^ 

1 

XITI^T 

XI 

ho^li' i 

• 

54^* ♦ 

} 


£) 0 G 1 

1. 

- 2 15 1 

f 

55 / 1 / 

t , 

3vrrz X 

15,332v 

-> \J i3 O 

I 

'^/ li- Jb 


55567 

1 

55711 

1 


0 32 75 

1 

417u5 

t 

' 1 - • t ' ■ 6 

1 

715 o 1 

15,333v 

i. D O 

1 

74753 


27713 

1 

34753 

1 


1 , ' v_/ V J b 

1 

71713 

1 

5547o 

1 

4C b 

15,334' 

5 43 d b 

r 


1 

63346 


w4 714 

1 

c: 

424Z^ 

1 

- 3364 

- 

66 214 

ij 

Dcijub 1 

1 5,335*' 

6 3354 


3 J 25 

i, 

543 C 4 

1 

4477 6 

1 


54it. 5 


ci x* 6 

1 

31702 

0 

5- ‘3; 5 1 

“T5,3'360' 

57324 


" 3X733^ 


5rr3T:» 

"1 ■ 

54325 

I_ 


31623 

r 

■ 54I}ZTr 

1 

5 ' L . a 

1 

b J 3 / 3 1 

1 5,337o 

52113 


6 532j 

•fc 

C: _322o 

i L : 


1 

C: 

7 7464 

1 

C: 23617 

i/ 

C: 144' 


C: fo266 L 
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OCTAL listing FOR PAKAGRAHti U I*;/, Hllrl PmHIIY bIT IN BINARY AT 1 HE RIGHT UF EACH WORUt "c” DENOTES UNUSED FIXED MEMORY 
ALL VALIl) WDKU> Are basic INSTKUgI Ions except these marked "1“ lINTERPRETiVE OPERATOR WOFsDS) OR ‘’C" tCONSTANTS) 


1 , 3 4 

t : 

7v ? J6 

1 

Ci 

0 *,/ 133 


Cl 


1 

i v 1 3 ^ i ' ^ 

Ci 

1. C ^ J 0’ j 

1 

c • 

± U :■ ' 


*crT' 

V 3 V ^ 

IT 

i 5,342: 

C: 


1 

C: 

uCl'.j 

1 

C: 

.J _J 1^; ,, 

i 

i 5,3430 

c; 

1 7665 

1 

Cl 

Vi 1 * -1 

I 

C 1 

:o' 1 

- 

1 5 , 344i' 

C: 

V 7253 

1 

Ci 

74133 


Cl 

4513 ; 

1 

1 5,345',. 

C: 

57j2i 

-1 

C: 

25 5 2 

1 

c • 

2731 



IS 
i 3 

i S 
15 

15 

15 

i 3 

1 5 
1 5 
1 5 


1 5 
15 

i5 

15 

15 
15 
1"5 
1 5 


b 47 l 

BD C 

351- 

052t 

iSBt" 

354: 

355^ 

056-: 

357' 


3 ? V L 

37 lU 


C: 

Zz 

C: 

C: 


G i 

c: 


4 V 1- u 


- — ♦“r 


rrp- 


b 4 o 31 

37767 


7 v.l 34 

-721: 




C i 
C: 


’ .i j / 


.. k.-' - 

ZBl 4 6 
37737 


1 

1 


Ct 

C : 


c; 

C: 

G • 

Ci 

C: 

C: 

C: 


Z7Sn— I 
1634 I 

6-311 1 
43617 ^ 

45o51 1 

£ 1377r ^ 


Cs 63237 1 

C: 02344 . 
C: 01747 i 

C: 6 03 71 1 

nurtTHT 


4 6567 
75735 

53334 

32444 


1 

i 


C* O /BOO ' I 

C: 07512 i 
C: 66425 1 
C: 61251 - 


-trr 

"34175 


Ct 

tuTl f 

1 - 

Cl 

45012 

- 

Cl 

7 3711 

1 

Cl 

1143 7 

1 

Cl 

-3243 

1 

C: 

ra335 

1. 

C 1 

03532 

T 

h- 

Cl 

576 32 

1 

C: 

j337v! 

J 

c • 

4S2T1 

1 

C^“ 

"72371" 

i 

C: 

441 75 

1 

C; 

64424 

1 

C: 

b247 6 

t ' 

Cl 

:5227 

1- 

C : 

76017 

i 

Cl 

b6b46 



C-r * 


w * 


53644 1 
34714 i 

■46rr:3t~t" 

62337 1 


C: ll iiz 1 

i.; 54217 1 

C s 355o 1 
Xrr- 4 j2T3 T” 


C: ' vZaf r 

xn '"irc c i. 

CJ 77467 1 

C: 40vlC 1 


C: 15t.l5 1 
C: 67 3: C - 


Cl ' OOj- 1 

C^~TTDtrrr~t 

77777 
4C ;4C 1 


C 


C: 56124 - 


C: 723;, 7 




C: 41241 
C* loll 

C: 64151 
C: 05764 


C: i72C7 V. 

C: 62031 1 
C: 121/lfT C 

C! 76127 1 

trr-62ti37”t 

C: 7156 1 

C: 64757 : 

Ci 73256 1 

C: 74742 : 


C: 35262 1 
C; 47414 0 

C t- 4 5^-23- t 

Ci 341. 1 


C : 
Ci 

C; 

trr 

Ci 
C : 

C: 

Ci 


55616 G 
11614 1 

67425 ' 

T4 ~ J56- V 

23. '36 vj 

517;i ; 

65757 1 
65735 O 


3 7 3C 


374-. 
3 7 50 

3T6^ 

3 770 


Ci 

xn 

C: 

C: 


3 7 4 


OtTTTT 

j : 3 6 6 

>7 


'ul 

■p 


'J 

1 

1 


C: 25431 
C i ; 14 7 i, 

rr- 2 1775“ I 

Ci g123 7 


C: 

XT' 

Ci 

Ci 

C: 

G : 

“C: 

1 


J 31 54 


14155 

lw 557 

l77 

o24i4 

76745 


1 

T 

i 


1 

1 


— — 




Ci 

Vr 

Ci 

Ci 

C: 

G i 

xn' 

C; 


15267 i 
:^757^-l 
23-. 47 
32115 o 


c; 

xrr 

C: 


1743 j 



13176 
16 4 .4 


CI 75552 i 
C: f*^644^ 

Ci 13247 1 
Ci 655'*-, 1 


Ci 76 5',-* i 
X:zr- 1 T 323 -Xr 

Cl :3342 1 
C : 72703 0 


Ci 

TT 

C; 

C: 

C: 

Ci 

4-r 


i;C'4G(' 

or02C ' i : 

'Bill 1 
15264 L 


(. 


67 :iz 
13262 

61751 




Cl 7:716 G 
C: 76X52 2 

Ci 72436 ' 

-CT— tT^ri T 


C: 

Cl 

Cl 

Li 


63330 

71233 

1412< 

7:6: 7 


1 

1 


1 5,3 6( i: 

Cl 

77 742 


C: 

77151 

1 

Cl 

7 46 1 5 


Cl 

616: J 

C: 

6* p - 3 

1 

C 1 

60 6/5 1 

Cl 

64 345 

1 

C: 

77026 

1 5,361: 

C: 

542r , 

1 

C 1 

7316: 

1 

C 1 

42475 

1 

C 1 

0!.,43 / ■ 

Cl' 

6d6 14 

1 

C: 

06653 1 

Cl 

13 . 72 


C: 

:4"42 

15, 3621 

Cl 

27232 

1 

c; 

62 162 

R ■ 

\ 

Cl 

44274 


'O ■■■ 

-7322 

Gl 

J3iub 

0 

G 1 

3265 > 

C ; 

32741 

1 

C 1 

63467 1 

1 5,363*:.. 

Cl 

5C 364 

r 

Cl 

11655 

1 

G I 

11373 


c « 

75477 1 

Cl 

77366 

1 

Cl 

70425 , 

C: 

51217 

1 

C 1 

r75 5 . 


1 5,364o 

Ci 

32b . 4 

1 

Cl 

1J726 

1 

Cl 

15341 t- 

L : 

72157 1 

C: 

66255 

1 

Cl 

11142 

1 

Cl 

32737 

f 

C: 

642! 

1 

1 5, 365C 

r * 

■ 

4 3 J i 6 

1 

c: 

71316 


Ci 

0^2.1 G 

C : 

lo4' : 1 

Cl 

367b7 

1 

c * 

-1364 

1 

Cl 

1435 

1 

Cl 

75 51 

1 

15,3667 

C: 

60001 


c * 

17227 

1 

C: 

3 16 6 i 1 

Cl 

73321 

C: 

43422 

1 

C: 

77T : 7 

r 

C 1 

51442 

1 

Cl 

11514 

1 

15,367w 

Cl 

325 2 

1 

C: 

63215 

1 

Ct 

4 71 ^ 6 

C : 

..214G J 

Cl 

.2335 

0 

CI 

12716 

1 

Cl 

12356 

1 

Cl 

134 1 



C 1 5465 u 

Cl : 7767 u 

C: ■ 1 -7r 1 

C: I "151 1 


3/176 

- f 

C 1 

1777/ 

L 

C: -.2143 

Cl i /675 i 

C * i ' 2 7 ’ J ^ t J 

C: 

ij J42C 

1 

B 341 

1 

c; 

g75C6 

L 

-.1 14361 r 

Cl 1674 

C: 36075 

Cl 

15736 

1 

13112 

T — 


.2620 

"T 

L. 1 317 57 0 

C: 73"11~^ 

z 6C * 5^ ^ 

C : 

15776 ■ 


35521 

1 

C : 

07573 

1 

C: 2125o , 

Cl io 4 1 

LZ ' J 7 7 b i 

CKSM 

7654 L 

1 


t j i - 1 • 


KtViSiGN OF AGC PROGRAM ARTtiMiS GY NASA R Zlii^~.lL 


il:4 FEBo 26,1'^71 


PAGE 1640 


U/.L LI 51 i No rUR PARAGRAPH /,* ilo. 


WITH parity lilT IN BINARY AI i Hfc RIGHT UF EACH WOKUt "ia” DENOTES UNUSED FIXED NEMORY 


ALL V/;»LIU WORDS Arc EASIC INSTRUlTIUNS EXCtPl THOSE MARKED ”1 " ( INI EkPkO T 1 VE OPERATOR WORDS) OR “C” (CONSTANTS) 


1 tl t cl ' . V 

l: 77773 

1 

Cs u26o3 

‘'U' 

C* H 

R 

'Vr 

I s 

52375 

1 

C: 3t>12 

1 

C: 

I 3576 


C : 

27 646 


C: 

.‘27i 5 

1 

1 6f li. 


1 

Cs 222<£;1 


n~77624 

1 

Cl 

636 '6 

1 

C« 26625 

I 

cs 

( 1 V '■ 7 

1 ■' 

C : 

36617 

1 

C: 

566/ 4 

I 

iG,^< 2 l 

I: 4:3 73 

1 

C ♦ > 2 4 53 

1 

c: • 1 

1 

1 : 

45113 

I ■ 

C: 3546 

T 

C: 

45174 

1 

1 s 

7/624 

1 

cs 

45 3 3 m 


1 t> f A ' 3 ' 

Kj * 2 7472 

' 

C: v3546 

* > 

1 ; 632 1 

1 

cs 

C ^ 1# V X 


cs 2453 

1 

I s 

65325 

1 

C: 

f 2461 

C 

C: 

3663 

1 

16, 20 AC 

is 64 ; 3 25 

1 

C: 3343J 

i 

I; 45 .0,6 

u 

C: 

7 2 7 4 ^ 

1 

is 77624 

1 

cs 

453C4 

1 

I s 

77745 

1 

C: 

3 744 

f j 

1 6, SC 

1 : 7 1 

0 

C: 6:0 7 

1 , 

Is 53313 

0 

C: 

.i354 . 


C s x V , ' • 1 


I S 

47315 

1 

C: 

2611 

•». 

IS 

77656 

1 

■■ 

~^z-TT5Z5^ 

Cl 0 3 / 44 


I ; 4 j3 6 1 

1 

C: 

43 754 


Cl r644 ‘. 



45345 

T. 

■ Cf 

3 413 

1 

cs 

3453 i 

1 

i 5 f 2 7 1 

t: i4j4i 

i 

C i L 36 5o 

1 

Is 7 7623 


L : 

c . 4i 

1 

C: 3/423 

- 

cs 

6165C 

L 

1 s 

77775 

1 

L ; 

3612 

1 

16, 2 ICO 

4 • X 7 7 J. 3 

1 

C: 03413 

1 

C: ;a -41 

1 

1 s 

7 /S21 

1 

Ll * 3656 

1 

C : 

37423 

1 

Cs 

6165G 

1 j 

l: 

4iD75 


16,21 K 

Cs -^3of46 

1 

C: 37721 

1 

Cs 112''... 

> 

-I " 

• F 

i ; 

776 1 


' v' 0 .' X 


I : 

45175 

i 

C : 

A 3632 

f - 

1 . 

C: 

7727c 

i 

I6,2i2i 

l: 7.372 


Cl 34523 

1 

I: 52315 

1 

C s 

3 Q 1 2 

i 

C; 1 3713 

1 

I s 

52341 


C: 

34523 

1 

Is 

72561 


l'6T?T3r 

' Cl 37173“ 

1 ** 

Cl "24" 15^' 

* , 

Cl“ .3/21 

T ’! 

^ * 

41456 


"H T424T' 

• »*’ 

X"i 

t i 15 

i 

C: 

"TTxrrr 

1 1 

w ' 

n 

"51 352 

I 

16,214. 

0 * li C ti 1 3 


CS i4wl3 

I 

C; .3727 

u 

1 s 

56261 

i 

Cs 216:5 

1 

cs 

i 3'.76 

t 

1 : 

63 316 


C: 

Ai:’'ji5 

( 

1 6,213 

Is 7 7o36 

i 

1 : 73421 

1 

1: 76561 

i 

I S 

::»3^55 


u i .,'15 

*'4 

L s 

37 713 

\ 

C: 

5 , 331 

0 

I s 

77775 

1 

16,216.. 

C: ii76t 

a 

Cs 27331 

— 4 

C: .3713 

1 

C: 

JO 37 7 

1 

I s 53435 

r 

y 

C 1 

' 3632 


C: 

34 -r: 7 

1 

Cs 

617:2 

ij 

16,2170 

C: < .315 

1 

l: 37433 

1 

C: : .3w7 

ll 

1 : 

77772 


CS 34323 

1 

C: 

5l 44 4 

( 


('60 '6 

1 

I t 

45 . 1 

1 

i6,22Ct 

C * V 

f 

1 

C: 343^1 

1 

is 77745 

i 

CS 

.3 74 

1 

Cs x 3335 

1 

1 : 

77776 

1 


154 .2 

1 

Cs 

to 35 


1 6 f ^ 4 ^! Iv 

: 6u J6 

i 

IS 31573 

1 

C: 3432 

1 

1 s 

Q 1 2C 6 

1 

C: » 1345 

1 

1 s 

442i 5 

1 . 

( : 

345 33 

G 

1 : 

67241 

i. 

16,2220 

OS 51143 


Cs :l33l 

1 

I : 442 . 5 

0 

C : 

3453 J 


L.S 3335 

1 

C: 

1 3 74 

1 

1 S 

77614 

1 

C: 

■ 1344 


1 6 , 2 2 36 

C * 5 1 Q 0 3 

( , 

1: 774x4 


CS -47>,t 

1 

Ll 

34325 

1 

31465 

1 


74753 

W 


l-M. ■' 

') 


3477 a 


16,224: 

5 U J . . 

1 

3 1421 

1 

35633 

1 



1 

Is 51375 

1 

Cs 

f 3432 

1 

CS 

( 3 7c5 

0 

I ; 

77656 

1 

lc,225o 

I: 41441 

i 

C s . 34o0 

ll 

is :>6244 

J 

Cs 

51137 

. ' 

ui 34632 

i 

I : 

41215 

1 

C: 

li76t 

C 

I : 

7 5 1 

1 

16,2266 

C s 6 j47 

i 

Is 30325 


c • - - » 45 

0 ,, 

C; 

J Li 5 . 

1 

r:“ 77665 

1 

I : 

53664 

i 

C: 

r 0 L' 46 

t‘ 

L: 

576A7 

1 

16,2270 

1 : 4 14. 5 

i 

Cs 34523 

1 

I : 54335 


C: 

J 3 14 

1 

Cs 2'-6i7 

1 

i s 

4 5 42 1 

1 

C: 

74347 

1 

1 1 

77615 

i’ 

16,230! 

C; L lo44 

■A 

V 

C: 17413 

1 

Cs 343-.' 

1 

I : 

5 :... '2d 

1 -■ 

Cs 34527 

L .» 

Cs 

511x2 

K 

1 * 

74375 

J 

.C V 

37 '5 

\ 

<3 

6r6,:Z31.o 

Ci U37:3 

i 

li 32352 

"1 " 

CJ .3432 

"i 

"Tl 

63256^ 

Ll L 34 6 ^ 

1 

1 : 

4 / ZD6 

V 

T r 

LZl 

1 

L • 

1 ' X 1 3^ 

u 

16,232i. 

C: 47633 

1 

is 77761 

1 

CS .^3227 

•Kl • 

C s 

3712o 

'l. 

Ll 316^3 

\ 

1 s 

77545 

1 

C: 

36 534 



3 154 

1 

16,2330 

12242 

r 

I: 43S20 

1 

Cs 03374 

1 

CS 

0x3 . 7 

1 

Cl 3 43 6 * 

'J 

I : 

5i 135 

r 

C : 

3325 

ij 

cs 

61721 

1 

1 6 1 2 3 4 u 

i: 33375 

• 

C: 03327 

1 

C: .3432 

1 

C: 

i 333 D 

1 

is 7777o 

1 


34770 

0 


61724 

1 


55725 

1 

1 6,2350 

V. 54 . 2 

1 

Cs 1 \jO./3 

\ ' 

31725 

n 


d5724 


1 6 J 

1 

I s 

77775 

1 

Cs 

' 3335 

1 

Cs 

3 327 

1 


— ri 77775 

nr 

— Cs ■"■3432“ 

T 

—Ti “53Z'4b'" 

— V 

X 

f' ■ • 
* 

j3 /T73 


'~ur~TTrrr 

c 

' X": 

'T.346C 

( 

I : 

f f 646 

1 i 

L 1 

‘ 3T63 

T_ 

16,2370 

I: 77/76 

1 

J34 '2 

1 

C: 10G35 

A 


06 6 

1 

i: nnt> 

i 

CS 

\ ^46C 

i 

CS 

37721 

1 

Li 

3374 

1 
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CThL LlSlIN'j FOR PMKAGiiAPH ii ill, WITH PmPITY BIT IN BINARY AT THE KlbHT OF EACH hORb, ”aJ« OENOTtS UNUSED FIXED HEMDRY 
Li VALlJ WOKDS c BASIC iNSTRUCTILNS tXCcPT THESE MARKED "I" ( INT ERPKET I VE OPERATOR WORDS) UR "C* (CONSTANTS) 


~i^7Z*r6Tr 
i 6 , 24 7\. 


i *.s , '# 


■s 6i> . JO i 

i: 712.1 1 

c : . >.iuc 1 

w 

C: 11762 

i 

1 : 

43125 

U 

C: 34517 

C 

C: 

' 37v5 0 

C: 

34412 

i 

i ti, _4 ii 

I • 

TTVtS^ 1 

C^ U4'52X'~^ 

1 Jo 1; 6 

1 

Tl 45 , 14 

- 

Cr * 

67!? 
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. 5 , 2 0 J '> 

17 9 

. o t 2 loJ. 

. 1,355^ 

TO 

. 1,3711 

1415 

..5,2g;'1 

TQ 

5,2 52 

13 

fc, 2io7 

■ 1,3 7 12 “ 

'TO' 

ttustj ; 

14i6 

05, 2 >53 

TU 

3 ,211- 

ioi 

j .. / T ■ i^v 

O f jC 1- - .J 

1,3731 

TQ 

y 1 f 3 7 i.- 

144u 

5,2113 

TG 

5,2 145 

185 


> 1,3 7 51 

TC 

> i f 3 ? ::3 2 

27 

5,2145 

I L 

5 ,2210 

1 >5 

6,22-5 

V' 4 f 2 ‘ L 

TO 

4 f 2 . J u 

20 6 

.5,2211 

I U 

>5,2257 

15/ 

L> f 3 ^ / C 
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11 ; -^1 FcL- j' i 


L UCAI I UNS 


fO 5, 2 2 06 
ru '5,2334 


TO V 5, 2 3 66 



TO o5,25:i 
iO -^5,2553 

TO C 5, 2562 

TO 05,263 


PAGE 

.CCUP li-./ 

LOCATIONS 

PAGE 

1 b t 

6 j 2^34 i 

r j 

6 f Z366 

152 


6t 236 q 

TO 

' 6, 24~ 7 

153 

1 s 

6, 24l 

T j 

1 6, 242 5 

154 

IST 

”■6', 2426 


1^5 

1V5 

6, 2452 

TO 

‘v . 6 i 2 5 1 6 

156 

I4w 

6,2517 

TO 

- 6 1 2 536 

157 

197 

6,2537 

TO 

6,2561 

158 

191 

. 6,2562 

TU 

'. 6, 2555 

159 


TO v5,Z1j 

199 

6 t 2566 

TQ 

i. 0,2613 

16. 

TC C5,276i 

2l 

' o t 26 1 4 

TG 

26,2617 

161 

TO e5,3- 25 

2 1 

6 t 262 

TO 

6, 2645 

162 

TO J5 , 3 77 

20 2 

6 f 2645 

TU 

t 6,2652 

163 

TO (5,3153 

j 

”6 , 265 3 

Tu 

i o , 2 S 73 

164 

rO ' 5,3227 

2^4 

6,2674 

TG 

L 0 , 27U 5 

165 

TO 1 5,3265 

2v5 

~6,27r6 

TG 

r 6,2731 

1 66 

TO L 5,3312 

5 71 

6, 2732 

TU 

1 6 t 275 7 

167 

TO V 5, 3 357 

956 

^ 5 i 27 6t 

TO 

i 6,3C0t‘ 

168 

T 0 ■ 3'4rT' 

957 

”6^3771“ 

TD 

r6,3t-54 

Xo'J 

TQ .>1,3445 

Sc 8 

0,3 55 

T U 

t 6,3114 

17 

TG 5,3451 

1C 96 

' 6,3115 

TG 

r 6 1 3174 

171 

Tj ‘.•5,353i 

Iv 97 

6 f 3 1 7 5 

TU 

i 6 f 322 

172 

TD _c,3572 

1C9 8 

6,3221 

TO 

i. 6,3274 

17^ 

I U - 5 f l>642 

1X:99 



^ ot ^5^75 

174 

r J . 5 , 3 695 

llvl 

b V 32 7 5 

TO 

6, 3342 


1 ij » 5 , 6 7 16 

1 1 . 2 



6 1 3 j 4 i 

30 9 

Tu 5,i75’3 

“ 1 * ■' — 

± il*- i. 

6,3344 

TO 

o,34r 1 

31: 

Tj 5,3771 

133 

' 6f34>2 

TU 

(6, 3411 

311 

51-1 - 


- 1 '6 —■ ST'iTT'TOS r 6 ~7 3 '4 1^2 T O' “t tPf 3A^^i 31 Z 


f G 

5,u7?5 

28 


6 , 3454 

Ti> 

- tjf 35 ^0 

313 

TO 

a 1 <1 i 1 

141 


6,35 7 

TU 

6t356 • 

314 

To 

u 0 f 2 - 2 3 

142 


6. f 35 b 1 

TU 

f 5,3632 

315 

I u 

* 5 f 2 7 5 

143 


6t36J3 

ilJ 

V faf 3633 

31 0 

TG 

t 1 f 2 1 i 5 

144 


6 f 36 36 

1 G 

' 6 f 3 6 7 1 

317 

T u 

^ b t ^161 

145 


6 1 3672 

TU 

26,3743 

t>72 

r.j 

6,2166 

146 


0 ,3744 

TO 

' 5,3735 

673 

r.> 

" 6 , 22 ' 4 

14T 


^ 6 1 37 56 

T 0 

: 5,3776 

6 83 

i ' ^ 

. u ,222 3 

14 b 


7,2i '■ 

T(J 

. If 2( 43 

2'41 


6 1 2224 

149 


7 , 2 44 

T u 

7,21' 4 

242 

T u 

6,2271 

15 


' 7,21^ c 

Tu 

'7,2153 

243 

T i 

(3 J ? 34 

151 


7 , 2154 

T'l 

.7,221 

244 


0 mP ! ASbEMbLfc KbVIG 

1 UN . 7 2 

0 F A C P ij K A 

M A 

r-. f ic 1 ^ ii 

{ Ua^a 2 

2 1 1 t4- li 

ULtUf ILL 

LUCATiUNj 

PAGE 

JCCUPibU 

LU 0 

A T 1 u \ 0 

P ' L 

U U 1 ^ 1 1 0 

' 7,2211 

TC v 7,2 20-^ 

245 

1 '-/,2 3b 3 

TO 

1- ,2313 


1 1 f 2 4^ 0 

1 f ^ 

TO 0 7 , 2 33 5 

246 

1 V/ f 2 

TU 

1‘ ,2351 

0 0 ' 

11,2 456 

7 f 3 d L> 

10 ‘ 7 f 24 / 4 

247 

i'*,2352 

TU 

IJ ,2411 

ub X 

11,2535 

T, 24''5 

1C ^ 

248 

r^7 f 2412 

f u 

1,' f 2462 

J2 2 

il7Z’6I'r“ 


10 v7f 2 31*1 

67B 

i/,2453 

fc 

1^. f 2 4 o2 

13 ^ 

11,27-1 

7,23 13 

1 U - 7 f 2 5 i ? 

679 

i f ^4b j 

Tu 

1 . , 2472 

1h 2 

11, u 754 

' 7,252'. 

TC '.7,2 527 

6B4 

1 - ,2473 

Tb 

1 : ,2514 

14 C 

1 1 f 3 3^ 

7,233'. 

TO ‘ 7,2 564 

763 

1 M 1 Z3 l-!i 

TO 

l u f 25 

14. 9 

1 1 f 3115 

7,2565 

IG 7,2 6*16 

764 

L > f Z3 64 

Tu 

1 ^ #2574 

i4j(. - 

11,3177 

/ f 2627 

TU 1:7,2 67': 

1418 

1 ,2575 

TO 

1C ,264b 

■*, r ,■ 

* 

11,3255 

1 f Zbl\ 

10 J 7 1 7 2 3 

1419 

i.,264i 

Tb 

1). ,27bl 

i'tol 

11, 333o 

- 7,2724 

in .7,2772 

142b 

lu,27C2 

Tb 

1 ,2733 


lit 342 J 

7,2773 

T O ? f 3 ’ 

1421 

i 1 j f 2 7 34- 

TC 

IJ ,2777 

146 3 

11 , 3445 

' 7,j 31 

T C -7,3.0/ 

1422 

1 j , 33 .: 

Tu 

1 > f 3 '- *,3 

i4o4 

1 1 , 3524 

7,3 7‘J 

10 f,-7 1 3 

1423 

1 ,3 44 

TO 

1 > f 3 1 .. 0 

L 4o5 

11,3 os.. + 

7,3133 

TO :.7,3iji9- 

1424 

L ,31.4 

Tb 

1 . ,315u 

14u6 

ii 1 3 6b2 

7,3155 

TO .7,3213 

1425 

1 ,3151 

Tu 

1 ,3214 

1467 

11,3664 

1 f ZiL 

lU -7,3243 

1426 

1 ,3215 

TO 

1 . : , 3 2F2 

146 6 

1 1 1 3 743 

' 7,3244 

TO 7,33j6 

142 7 

1 ,3263 

r j 

1 . ,333j 

i4o9 

Ilf 3772 

7,33 ’7 

10 .7,3323 

142 8 

i ,3331 

TO 

1 , 34 u 4 ' 

147 

1 2 f iL L, J 

7 ,3324 

TO >7,3 347 

1429 

Ivj , 34b3 

TO 

1_ , 3453 

1471 

1 2 f 2 > ' 3 

7,3350 

T 0 ’ i 7 f 3 4 ’ j 2 

143 

i_ ,3454 

TO 

lu , 3524 

1472 

i2i 2 cib 


lO C 7,3 445 

T 431 

rC,’3525"‘" 

1 J 

IG f 3 ci.i J 

T4T3 

l2 ,2 jT> . 

L 7,3446 

TC 37,3522 

1432 

JL 0 f 3 1 

TO 

lu ,3641 

1474 

12,2 77 

7,3523 

TO '.7,u535 

1433 

i u f 3 642 

T'u 

10,3712 

14/5 

1 2 f 2 i5G 

T 7,3536 

TO 37,3562 

1434 

10 1 37 13 

TU 

1C ,3744 

147 6 

12,2232 

r. 7,3563 

TO 7,3524 

1435 

1 ,,3743 

Tu 

1C ,3754 

1477 

12, 23iu 

^TT, 3^6Z5 

TCT 3 7,3643 

"1435“ 

12,3 /55 

Tcr 

Iv 1 3 76:> 

14T8 

12 , 236 ', 

w 7, 3 o44 

Tb '.7, 3 6:?! 

1437 

io f ^766 

TO 

lb, 3 776 

1467 

12,2444 

- 7,3652 

Tu c 7 f 3 6uZ 

1438 

1 1 f 2 u '-i w 

ro 

11 ,2U3o 

49 J 

12 f 2462 

07,3663 

TO 37,3665 

1439 

11,2C37 

TO 

11,2116 

491 

12 , 2544 

r 7,3666 

TO 7 1 3 7 'J 7 

1445 

11,2117 

Tu 

11,2165 

492 

12,2577 

7,3710 

TO L 7, 3764 

1 446 

11,2166- 

TC 

11,222; 

493 

12,2654 

7,3765 

TO u7f37/o 

1447 

11,2221 

Tu 

11 ,224o 

494 

12,2723 

1' , 2 ^'‘’'.^' 

TO 1 ,2)45 

175 

11,2247 

Tu 

11,227/ 

IbZ 

i.2 1 3 A 2 

1 C,2' 46 

TO l,.,2l2l 

176 

11,23j: 

Tu 

11,2317 

1 ’ J 5 

12,3 32 

1 ,2122 

TO 16,2174 

177 

Ilf 2 32 Vi 

Tu 

11,2326 

132. 

i2 , 3 1'. 6 

!• ,2175 

TO lv,2237 

178 

11,2327 

Tu 

11 ,2335 

1332 

iZf Iu3 

1 ,2240 

TC in , 2271 

31 

Ilf 2336 

TC 

11,2412 

1333 

12,3237 

1 0,22 72 

TO 1:,22j2 

3! 2 

ii, 2413 

TU 

11 ,243d 

ici.3 4 

12, 3253 
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TO iif24i»5 1335 
lb 11,2534 1336 

TO 11,2616 1337 

Tin I ',“27" r ■ rT3 5 


12,333b TU 12,3414 1297 

1«£,3415 TU 12,3472 1293 

12,3473 J'j 12,3542 12'^^ 

i 2,''55''41'' " TIT- 1 Z,'36 6 13r ' 


TO 

TO 

TO 

TO 


11 ,2733 
11, 3i 32 

It ill/. 


1339 

134'. 

1341 

13^,2 


12,36 7 
12,367 

12,3717 

12,376 


T J 
TO 


1 

13 2 
13 '3 
134 


TO 11,6254 1343 
TO 11,3335 1344 

TU 11,3417 1345 

TO 11,3444 1346 


1^ , 37 6 i 

T b 

12,3771 

i 3 5 

12,377u 

T 0 

12,3773 

29 

13,2. 

Tu 

13,2 12 

227 

13,2 13 

Tu 

13, 2< 35 

228 


TO 11,3523 1347 
TO 11,36< 3 i34d 

TO il,366l 1349 
TC H,3ooi 135i 


13,2 36 

TO 

13,2 55 

TO 

1 3 , 2 ■ 7 1 

TO 

13,212 

TC 


13 , 2i 54 424 

13,2!?. 425 

13,2117 513 

13,22 1 514 


T u 

11,3742 

1351 

13,22-2 

10 

13,2253 

515 

T Q 

Tr73771 

n'52 

r3,2254" 

p 7 

J L ' 

i 05 f 

”565 

TO 

11,3 773 

29 

13,2334 

ru 

13,2344 

56c> 

Tu 

12,2 ' 4 

426 

13,2345 

Tu 

13,2417 

766 


TU 12,2 34 657 

TO 12,2' 47 666 

T iJ 12 , 2'i 7 6 67 3 

TO 12,2147 1277 


13,2426 TO 13,2452 767 

13,2453 TO 13,25' 2 1236 

TTT^n Fu i'3,'2523 T2T7 

13,2524 TO 13,2561 1233 


TO 12,2231 1276 
TO 12,23v7 1279 

Tu 12,2363 126» 

T u 12 ,“2443 1 2^1 


13,2562 TO 13,2613 1239 
13,2614 TO 13,2653 1240 

13,2654 TO 13,27il 1242 

T3rzTr2 — Ttni^rzTrB'iii t ~ 


lb 12,2461 1262 
TO 12,2543 1283 

TC 12,2576 1284 

TO 12,2653 1233 


13,2717 TO 13,2763 1314 
13,2764 TU 13,3i3J 1315 

13,3i34 TO 13,3ir5 1316 

13,3106 TO 13,3144 1317 


TU 12,2722 1266 
TO 12,3 :i 1267 

Tu 12,3 31 1269 

TU 12,31 3 1292 


13,3145 TO 
13,32 4 TO 

13,3236 Tu 

13,3275 TO 


13,32' 3 1313 
13,3235 1319 

13,3274 132 

13,3353 1321 


Tb 12,3162 1293 
1 u 12,3236 1294 

10 12,3254 1295 

fU 12,bu35 1296 


13,3354 TO 
13,3364 TO 

13,3444 TO 

13,3526 TO 


13,3363 1322 
13,3443 1323 

13,3525 1324 

13,3565 1325 
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IJtAbco TG lAfAc ! 7 X3j^c< 

13,361*: 10 13,3co:3 1329 

13,3666 TO 13,3716 133^ 
lTr37I7 TO “13i3T3^ 1-352 


1 5, J735 

TU 

13,3 77 .- 

1353 

15, 2151 

TC 

15,2164 

1U65 

16 f 24^ 

13,3771 

TO 

13,377a 

29 

15,2165 

1 C 

15 ,221 7 

1j7U 

Ici , 242 J 

14,2. : c 

TO 

14,2-31 

64 C 

15, 222 c 

1C 

15,2267 


16 , 25 , 16 

14,2 ' 2 

TO 

X 4 f ^ X 

743 

15,227j 

TO 

15,2313 

1 72 

lu, 2534 

I ^ XI 

Tu 

14,2 '06 

744 

15,2314 

TC 

1> ,2357 

iu73 

i 6 f 2 6 7 

14,2. 67 

ru 

14,2123 

745 

a5,236~ 

TG 

15,2922 

i -74 

luf 2o33 

14,2124 

TO 

14,2171 

746 

13 f 2423 

T Li 

15 ,2427 

1 75 

X u f 2633 

14,2172 

TO 

14, 2 253 

747 

15,243. 

TU 

15,2465 

i - 76 

16,27-2 

i4,2?54~ 

TO 

14,2332 

'T4B 

13 , 2466 

TC 

15,25iu 

X c 7 7 

16,2756 

14,2333 

TO 

14,2435 

74 9 

15,2511 

Tu 

15,2557 

iu7d 

1 6 1 3 /^2 

14,2406 

1C 

14,2927 

75U 

15, 256. 

TG 

15,2£27 

IC / 9 

1 u f 3 2 Q 

1 4,243' 

TU 

14,2511 

751 

15 , 263ij 

TU 

15 , 2 635 

lUo.: 

1 6 f 3 37 


14,2512 TO 14,2573 752 

1 4,:Z5T4 TO T53~ 

14,262,i TC 1^,2674 754 

14,267ji TC 14,2745 755 


14,27 46 
i. 4 , 3 T 

TC 

TG 

14,3- ,>4 
19 ,3.37 

75o 

757 

i-), 3 .55 
15,3132 

TU 

TU 

15,3131 
15 ,3 15;> 

1 65 
i'.;66 

lOf 3 33 i 
luf 3342 

T4,3 4r 

“Tm:4 ,3~T4 

-T5 K ' 

l5, 3154 

TQ 

15 f 3 22C/ 


1 u f 3 -*■ 1 

14,3 75 

TO 

14 f 3 i:>u 

759 

i.:?,322i 

Tu 

15,3272 

1 id8 

16t 34*t-> 

1 4, 3 157 

TO 

14,3234 

76^ 

15, 3273 

TU 

15,3324 

i,/S9 

1 u f 3 3 u w 

14,3235 

TO 

14,33i2 

761 

15,3325 

TO 

15,335w 

i%9:: 

16,3 552 

14,3313 

TO 

14,u372 

762 

15,3351 

TO 

15 ,3373 

1.91 

1 4 :> 

Ibf 3bZj 


1^, 3 3 T3 ttr r4 i 3^3.-3" 763 Tt3—t5 ,-3-4~l- 1 2 — -16,-3^ 66 6 


14,3414 

TG 

14,3415 

773 

15 , 34-2 

TC 

15 f 3436 

lAtift 

X6 1 J ? jO 

14,3416 

TO 

14,3953 

774 

15,343? 

TO 

15 , 3514 

1337 

i 6 f 3 7 ^ 0 

1 4,3454 

TC 

14,3533 

775 

15 , 3515 

Tu 

15,3576 

1 iu d 

lu t 37^4 

1 4,3534 

TO 

1 4f 3567 

776 

15 , 3577 

Tu 

ll> , 366 J 

138 9 

i Of 3766 



14,357 

777 

r 3436 1 

TU 

15,3742 

1390 


14,3571 

TG 

14,3616 

78C 

15,3743 

TO 

15 , 3775 

1391 

i 7,2 U 

14, 3 €17 

TC 

14,365 ; 

781 



15 ,377o 

29 

1 7 f Z '3^ 

14,3651 

TG 

JlA f 3fcu3 

7d6 

16,200u 

lu 

16 ,2t 11 

49 3 

1 7 f 2 .62 

14,3664 

To" 

14#^ 7‘t3 

787 

16, 2ul2 

TC 

1 6 r 2 < ^ 62 

67 / 

17, a1l5 

14,3744 

TO 

14,3772 

788 

i. J 2v 63 

T J 

1 6 f 2 . o4 

673 

i 7 ,2iA5 

1 4 1 -j 7 73 

TO 

14 f J 7 74 

29 

lUf 2 6I1 

r J 

16,2 141 

723 

17,2 1 U.3 

15,2' :u 

TO 

1 ^ f 2 _j 7 

6l 2 

x6 1 2 X 42 

TU 

16,217j> 

724 

1 7,c;l7 7 


15,2636 To 15,26bo 1081 16,3ii;4 

15,2567 nj 15, 274X~r3S2 16,33 63 

15,2742 Tu l5,3*_i-6 1 63 16, 322 a 

15,3 7 TU 15,3:54 1 b4 16,3265 


1^,2 V 4 -j 

15, 2 
13 , 2.63 
^3,2120 


TU 
I o 
Tj 


15 , 2 b47 
15, 25u2 

15 ,2117 

15, 


6o3 


i Cl , 2 1 1 6 

io,2222 


1m1)3 
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LCCAT IONS 

1 u lo , 2221 

TO lo,23.'2 
TO 16,233'. 

PAGE 

725 

726 

727 

OCCUPI rj 

17,225 

17,2322 

17,2366 

LOCATIONS 

Tu i7,2u2i 
TO 17,2365 

TO 17,2431 

P A ij r 

745 

946 

947 

TIj 

16,23 IT^ 

72“5 

IT', 24 3'2 

TXT 

iff 2^-^ f f 

"943 

TO 

16,2424 

729 

17,25 U 

i u 

17^254 

949 

TO 

1 0 f 2 5 .. 5 

131 

17,2541 

Tu 

17,2611 

ii 38 

TG 

lo ,2533 

731 

17,2612 

TC 

17,2653 

1''39 

TO 

16,2567 

732 

17,2654 

TO 

17,27. 2 

1 4. 


TO 

lu t Z63Z 

733 

17,27u3 

TO 

17,2735 

1 41 

TG 

16 1 2654 

767 

17,2736 

TO 

17,2775 

1' 42 

1 U 

1 6 f 2 7 0 1 

763 

1 7 f 27 7 6 

TQ 

17, it 34 

1 j 4 j 

Tu 

16 1 2 75 3 

769 

17,3 : 35 

TO 

17,311 

1 L 44 

Ttr 

16,3: 21 

~77t 

rf,3ini 

To 

1 7 J 3 11 6 

1' . 45 

TO 

iu t 3 25 

919 

17,3117 

TO 

17,3135 

1 46 

TO 

i 6 f J ~ 36 

- 92 * 

17,3136 

TG 

17,3137 

If 47 

TO 

16, 31* 3 

951 

17,314 

TO 

17,3152 

1' 46 


952 


17,3153 


TO* 

T6 , 3Z2r 

■■953 

17,321" 

TO 

16,3264 

961 

17,3217 

TG 

16,333‘ 

962 

17,3263 

TO 

16,3341 

963 

17,3337 

TO 

1 6 f 3 4u , 

987 

17,3346 

T0“ 

"r5T349r4 


n , 3366 

1 0 

16, 3477 

989 

17,3442 

TU 

16 f j55i 

99' 

17,3512 

TU 

1 0 1 3 6 17 

991 

17,3531 

i J 

16f 3665 

99 2 

1 7 f 35 6 D 

'Ttr 

~l6'f37'35^ 


Iff 3oC 0 

TO 

16,3745 

994 

17,3656 

Tu 

lu f 3753 

995 

17, 3727 

TO 

16,3765 

996 

17,3747 

I U 

lu,3775 

1241 

17,3772 


TO 17,3207 i;49 
TTT-rr; 3 2 i6 i t 5? 

Tu 17,3262 1' 51 

TO 17,3336 1*52 

TO 17,3345 1 53 
TO 17,3365 1 54 

TU 17,3511 1 56 


Tu 

TO 

TO 


i7,353t 1 57 

17,3565 1 5G 

17,36u5 I ' 5'-^ 
J. 7, 365 5 "lTrtr“ 


TO 

To 

Tu 




1.61 


126'' 

3 



1 6 f 37 7 u 

3(. 

2i , 2C 0'.. 

ro 

2 J, 2' 41 

223 

TO 

17,2' 32 

274 

28 ,2L42 

TO 

2G , 2 : 63 

224 

T 0 

17, 2‘ 3i 

275 

2* , 2 64 

1 U 

Av ,2134 

42 

TO 

17,21: 4 

778 

, 2 ,2135 

T G 

2 ), 22*2 

421 

T'J 

17,2124 

78 5 

22,22 3 

Tu 

2i ,2211 

423 

1 J 

17,2162 

766 

Z< ,22 lA 

Tu 

2' ,2243 
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TO 

34,3 54 

58G 


3 ^ f 34 H 

TO 

31 , J4t,6 

62v 

32 , 2 ' 55 

T j 

32,2131 

64d 


3 3f 2344 

TO 

3J ff 24 t> 

4J b 

34 1 55 

TO 

34,3136 

581 

3 -,34o<3 

TO 

3t ,3547 

621 

32,2132 

TO 

32 ,221 

649 


3if 24 j6 

TO 

33, 2443 

46 9 

64,3137 

TU 

34,322. 

5b2 

3- ,3350 

TC 

3«: ,3661 

622 

J f 2 2 i i 

TO 

32 1 2267 

65 J 


J j t 2444 

T 6 

33,2521 

44 ; 

34,3221 

TO 

34,3250 

593 

3< ,3632 

TO 

3v f JfOHf 7 

623 

32,227. 

TO 

32,2271 

o3 1 


33, 2 522 

TU 

33,2577 

441 

34,3251 

TG 

34, 3323 

584 

3 ' ,3656 

TU 

3 ,3720 

716 

62,2272 

TC 

32 »23U3 

91- 7 


3 J F 26wu' 

TO 

33,2647 

442 

34,3324 

TO 

34,3374 

585 

3 7,37^1' 

TO 3-t37o6 

7T7 

62, 23^4 

"TT" 

■3Z,‘2lX2“ 

d 


3J, 2 657“* 

T 0 3 J I 27 1 - 

443 

34 1 33 /^5 


3^ 4^' V 5 

'SBo 

31 f 3 7 6 7 

TC 

3 1 3 7 F 0 

32 

32 t 2323 

TG 

32,2337 

9t 9 


33,2711 

Tu 

33,2763 

444 

34, 3406 

TU 

34,3431 

589 

3 1 f 2 • i 1 

TC 

31,2 51 

5L7 

32, 2346 

Tu 

32 ,2421 



33 , 2764 

T U 

33, 3 [ 42 

445 

34, 3432 

T' i 

64,3441 

595 

31,2-- 52 

TC 

31,2162 

508 

32, 2422 

TO 

32,2454 

911 


33, 3 43 

Tu 

33,3117 

44 0 

34 , 3442 

TU 

34,3515 

596 

3 1,2133 

TC 

31,2145 

5C9 

32,2455 

TO 

32,2473 

912 


33, 3120 

TU 

33,3172 

447 

34 J 3516 

TG 

3 4 f 3 5 7 6 

59T 

’3 172X46 

'TU 


510 

'U2,2474“ 

~Tcr 

3272545‘ 

<513 


33,6TT3 

T u 

33 1 ^2 11 

448 - 

34,3577" 

T U 

^,6652 598 

31,22C7 

TO 

31,227u 

511 

2>2 # 2>4a 

Tu 

32 , 2 6l; 5 

915 


33, 3212 

TU 

33,3263 

449 

64, 3653 

TU 

34,373 

599 


3 1, ^2 71 

TO 

31,2337 

512 

32, 26u6 

T b 32 # 2664 

916 

3 1,2340 

TO 

31,233j 

618 

32,2665 

TC 32,274o 

917 

3 1,2351 

TO 

5i,237u 

619 

32,2747 

TU 32, 3^23 

918 

6I7Z3T7 

“00" 

31 , 2436 

ez5~ 

32, 372^ 

TO ”3Z ,03 075 

TT9 


TO 33f334t- 43'. 

33, 3341 Tu 33,3415 451 

33,3410 TO 33,3454 452 

33 ,3455" TU33734T5' ' 5ZT 


34,3731 
34, 3754 

34,3772 

isyzr-r 


TO 34,3755 6'^.' 

TO 34,3771 1336 

Tu 34,3773 33 




45 ti 


3 1,2437 

TC 

31,2443 

627 

32,3076 

TO 

32 , 3 iul 

92.- 

31,2444 

TO 

31,2473 

623 

32,3iu2 

Tu 

32 , 3144 

925 

3 1,24 74 

TO 

31 , 25j4 

629 

J 2, 3 145 

TC 

32,3223 

926 

3 1 f 2555 

TO 

31,2636 

631 

32, 3224 

TO 

32 ,330 J 

>27 

31,2637 

TO 

31,2720 

631 

32 1 3 3 J 1 

TO 

32,3354 

928 

3 1,2721 

TO 

3 1 f - V 1 

632 

32 f 3 355 

TU 

32,3432 

929 

3 1,3 t2 

TU 

31 , Js ul 

633 

32,6433 

TU 

32 t 3463 


31,3 ': 62 

fQ 

3 1 1 3 143 

834 

32 f 346*+ 

TO 

32 1 3 5 3 6 

9j>2 

31,3144 

TC 

31, 3225 

635 

32,3537 

TO 

32 f 3 6 1 5 

':?3 

3 1,3226 

TO 

31,33.7 

636 

i2 1 3616 

IL 

32 , 3664 

93^ 

3 1,3310 

TO 

31,33 ri 

637 

32 f 3665 

TU 

32 ,3714 

93 5 

u 1, 3372 

TO 

31 ,34j J 

638 

U2,3715 

TU 

32 , 3 74-0 

9o> 6 


33 f 347 u 

TO 

33,3537 

52b 

35,2' 34 

TO 

35,2114 

467 

3 5 1 3 545 

TO 

33,36s 7 

53' 

35,2115 

TU 

35,2176 

46 b 

33 f ^ biu 

TU 

33,366: 

531 

35,2177 

TO 

35,22’ 5 

469 

3 i f 3 6b X 

] U 

J J f 3 6 F i 

532 

35 , 22 u 6 

1 } 

35,225. 

4 72 

3 i t 67 d 

1 Li 

33, 3735 

544 

35,2251 

TO 

j5,233'^ 

473 

3 J f 37 3b 

TO 

33,3775 

545 

35,2331 

TU 

35,2412 

474 



33 , 377o 

3 3 

35,2413 

TU 

35,2474 

475 

34 t d . u 

TU 

34,2< 3 

536 

35,2475 

Tu 

35,2556 

476 

34,2 31 

TO 

34,2-. 74 

537 

35,2557 

Tu 

35,256' 

477 

34, 2- 7u 

r u 

3 4 f 2 1 5 2 

538 

35,2561 

Tf 

35 f Zh3d 

479 

34, 2153 

TU 

34,2225 

539 

35, 2633 

TO 

35,2 65 0 

48 

jt + f 2 2 2 ! 6 

1 u 

^4,2271 

54l 

35 1 2b51 

TO 

35,2713 

48L 
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PAGE 

uCcup i to 

^ 1 ' f 4:! 7 1 4 

IL 

J J 1 2- 7 y_ . 

482 

36,3112 

1 J 

36 ,3173 

9i 4 

37 # Z 1‘ 

3 5, 2721 

TO 

35,27/3 

483 

36,3174 

fj 

36 , 3245 

5 

37,324> 

3 3, 2774 

TO 

35 , 3 726 

484 

36 f 324 li 

TO 

36,3257 

9u6 

37,327. 

35,3727 

TTI 

35^3^73 ■ 

465 

3Ij 73Z5 j 

'Ttr 

36,3300 

"l)25Z 

3 / ,533w 

3B,3'. 74 

TO 

3i3 t 3l3o 

486 

^ b f 3 3 X 

TO 

36 f 3 JoZ 

1253 

3 / , >4t.'4 

-.S,3137 

TU 

35,3141 

487 

36 f 3 j>6 3 

TO 

36 ,3444 

1254 

3 / , 3444 

3 3,3142 

TO 

35, 31.>7 

488 

io , 3445 

TU 

36,3471 

1255 

37f J5i6 

J 5,3i6L 

TO 

35,32)4 

b 

3o , 3472 

TO 

36 $ 3524-* 

1256 

37 , 35o7 

j 5 , 3 2 L 5 

TU 

35 , 3241 

6o X 

J6, 3521 

TO 

36,3662 

1257 

3 / ,357i 

35,3242 

TO 

35,3272 

6. 3 

36,3613 

TO 

36,3664 

1258 

3 7 1 3 63 i 

3 5, 3«i73 

TO 

ji f 3 

615 

36 f 3665 

TC 

36 ,374b 

125 9 

37 , 367 / 

35,3331 

TO 

35,3412 

6C6 

30 1 3747 

TO 

36 f 3 7o5 

126 . 

37,37J4 

35,3413 

TO 

35,3432 

6u7 

36 f 3766 

TO 

36,3767 

33 

A i.’ J Z Gl/U 

35,3433 

TO 

35,351 J 

644 

3 7 1 Z 7 G 

T.^ 

37 ,2 '.45 

45 0 

4 -', 2 53 

33,3511 

TO 

35,3533 

645 

37 1 Z 4o 

TO 

37,2127 

45 7 

4) , 2 121 

3 5,3554 

TC 

35,3531 

o71 

37 1 2 13-1 

To 

37,2166 

458 

4 .,22c 2 

3 t 3 6 ^ 

TO 

35,3565 

672 

37,2167 

TO 

37,221^ 

5b7 

4 ,2252 

3 5,3565" 

TTT 

■35',3’57Tr 

T3^“ 

3 7 1 ZZ13 

1 0 

J f f z Zbz 

SO'S 

4 J , zb27 

33,3571 

TO 

35,3634 

936 

37,2263 

TO 

37 ,227:> 

56 9 

4 J f Z 3 7 3 

35,3635 

TO 

35,3676 

939 

37,2276 

TC 

37,2332 

570 

40,2453 

35,3677 

TO 

35,3735 

1326 

3 / , 23'33 

■ TO 

37,2355 

571 

4 J , 25v 5 

35,3726 

TO 

35 1 ji 7o7 

1327 

37,2356 

TC 

37 ,2424 

572 

4 ',2511 

35,37Tr 

—TU "35,3T7T. 

-33 — 

37 I Z4Z5 

td 

37 ,2444 

■6tn“' 


3 6 1 2 U ' . 

TO 

36 f Zi Li 

478 

37 t 2445 

TO 

i7 ,2461 

6 ^ Z 

4 ,26^5 

36,2c 12 

TO 

36,2 A 5 

532 

3 7 f Z 4 6 Z 

Tu 

37 ,2517 

0.-.4 

"4 f Zo3 7 

3 6,2 ‘16 

TO 

3ti , 2 i 21 

552 

37,252^ 

T U 

37 ,2536 

60 5 

4 ,2u74 

3 b, 2 22 

TO 

30 f ^ 1 ^ j 

553 

37,2537 

TO 

37 ,2557 

67 ^ 

f Z 7 Z 3 

-‘^6421 1 

1 U f ^ i^u 

— 554^ 

37 ? ^ 5 6 ij 

T 'j 

3r, 2^C6 


T 3 f Z^ 1 

3fc,2147 

TO 

36,222v 

555 

37,2617 

Tu 

>7,2613 

82 0 

A J f 3 / 5 L 

->6,2221 

TO 

^ 6f ZZul 

53o 

>7 , 261^- 

Tu 

37 ,2651 

0^1 

^ f 3 0 ^ 

3e,22 7( 

TCr 36,234 

557 

37,2652 

T U 

>7,2717 

621 6 

^ 1 3 iZb 

36,2341 

TO 

36 , 24i 4 

55 8 

37,272u 

T U 

37 ,2761 

829 

4 f ^ ioi 

36,2415 

TU 

36 , 2464 

j59 

^ 7 t Z 7 6Z 

Tu 

37 ,2767 

■33 u 

^ f ^ ^ 2 

3 6,2465 

rc 

36 f 2 4 / 3 

560 

3 / ,2T7'^^ 

TO 

37,3 .7 

531 

4 , 3254 

36,2476 

TO 

36,2525 

898 

37,3 

TO 

37,3044 

332 

^ ^ f d 3 ' i 

36,2526 

TO 

-3X>,Zbj7 

6 9 9 

37,3)45 

TO 

37, 311u 

833 


3 6,261*. 

TU 

36 f 2 6 7i 

. 

37, 3111 

Tu 

3 / ,3151 

6 J4 

4 , 3325 

36,2672 

TL 

^ y 2 7 ^ 

y i 

37 , 3152 

TO 

^7 f 3 

d3b 

^ ,3351 

>6,2754 

TC 

6 f J 3 22 

t-' ^ 

37,3154 

TO 

37,317 

ai 6 

4 . T -i*^iZ 

3 1 1 3 ' 33 

TO 

-j* 6 f -y 1 JL X 

9 3 

>7,3171 

TC 

37 ,3177 

.3 ? 

4 ,343*' 
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TG 37,3237 

836 

4 f j4‘7 7 

TO 

4' ' , 3552 

391 

TO 37,3267 

839 

4 ,3553 

TO 

4r ,3620 

392 

TO 37,3327 

84< 

4 -^ ,3621 

Tu 

40,3635 

393 


TC 37 , 34r3 S2»l" 4r ?3'63S — TO 4<’:f'3B76 6^^ 


TO 

37,3443 

891 

4' ,3677 

TO 

4vJ f 376(j 

641 

T ij 

37,3515 

891 

4c ,3761 

TO 

40,3774 

642 

10 

37,3566 

092 

4*’, 3775 

TO 

40,5776 

34 

TO 

37 , 357 :; 

893 

41, 2^*/ 

Tu 

41,2C37 

334 


TO 

37, 3 63 C 

654 

41,2' 40 

TO 

41, 2116 

353 

TO 

37,3676 

895 

41,2117 

TO 

41,2175 

336 

TO 

37, 37"3 

896 

41,2176 

rc 

41,2217 

337 

TO 

37,37C5 

33 

41,2220 

TO 

41,2263 

338 


TU 4. i, 2774 36' 

1 13-4773^47 3u:t 


TO 

^ f Z t 5 z 

326 

41,2264 

Tu 

41,2342 

339 

T 0 

4J ,212 

327 

41, 2343 

TO 

41,2351 

34'* 

TO 

4 :, 22 1 

32C 

41,2352 

TO 

41,2427 

342 

TO 

40,2251 

325 

41,243 

TO 

41,2476 

343 

1 0 

49,2326 

33 'J 

41,2477 

TO 

41,2553 

344 

TCT 

41 , ZJT4 

3^1 

41,2554 

-TTT 

^ i f Zbl ^ ' 

343 

TO 

4j,2452 

332 

41,2611 

TO 

41,2b52 

3 53 

TG 

4 J , 25 '4 

333 

41,2653 

TO 

41,272 

354 

TO 

4U , 251' 

345 

41,2721 

TO 

4 1 f 3 C’ ! 1 

353 

ro 

4j ,256ii 

34b 

41,3(02 

TO 

41, 3i 55 

35o 

TO 

^ J f ZbZ^ 

34 7 

^1 , 56 

TO 

41,3132' 

>57 

TO 

f Zb:jb 

348 

41,3133 

TO 

41,32^2 

358 

TC 

4 c f 267 J 

352 

41,32u3 

TO 

41, 3223 

>5y 

TU 

4 ,2722 

35^ 

4 1", 32 24 

TO 

41,3251 

364 



T G 

4' J 1 3 '- 54 

362 

41,3341 

TU 

41,335 

367 

[ 0 

4 ,3125 

368 

H 1 , 3j5 1 

Tu 

41,3375 

37' 

1 0 

4 - , >160 

36 9'- 

41 ,337b 

TO 

41 ,3432 

37> 

Tu 

4 ,32 1 

3 7 f . 

4l ,3433 

TO 

41,3465 

3 74 


TO 

4 . 1 3Z53 

371 

4 1 f 346b 

1 f 

41,354 

379 

TU 

4 ., 33 ^ 

372 

41,3541 

T u 

41,3555 

38^ 

r u 

4 ' f J3^ b 

'374 

41 , 355u 

T . 

4 i f 3 5 b 7 

34 

TO 

4 ,3324 

375 - 

42,2' ''' 

T 1 

42, 2! 2 

265 

i u' 

4 ^ f 3 3b 

3 / 6 

42,2: 2i 

T u 

4 Z f Z L b 5 

266 

ru 

4" ,3411 

382 

42,2 5o 

1 ■' 

42 , 2114 

^ OZ 

T 0 

4 7 3431 

383 

42,2115 

1 

42,2163 

2 B 3 

i 0 

4 . f -^47 6 

39 .1 

42,2164 

1 _ 

V2,2215 

2 84 
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; : LL JP ic r 

LGL 

A 1 iuN:^ 

P Abt 

UCCUPIEG 

L JL aT I lJN :> 

PA6 = 

i 4 f - 1 u 

1C 

42,2 2 + ' 

^B•> 

4.if 2ii Ji 

1 u 

43 , 2 543 

264 

^ . : , , ' P A 1 

TC 

A2,.l2/2 

226 

4_> , 2 544 

Tb 

43 , 2 55u 

265 

4 4 f 4 2 / b 

TO 

4 f 2 34 J 

267 

‘tJ.PSST 

TU 

43 ,257/ 

Zo 1 

- 9* f m 


4 4 1 2 34'4~ nTI“~477:?37T^“7B"B ^^SiTUUZ TTT^TZtZJ 


4 2,24* 1 

IG 

42,24:> 7 

289 

43,2621 

TO 

43,264 

269 

42,244* 

FL 

4l f 3 i vj 

2^^ . 

4 3 1 6 4 1 

T'_, 

43 , P 7 1 

27 b 

42,25 17 

ID 

^ 4. f 2 ! i> 7 

291 

43 , 27 . -2 

T J 

43,2721 

271 

4 2 , 5 1 4 

70 

42,26j5 

292 

4^ f ZJ ZZ 

Tu 

43,2733 

272 

<*,2,2656 

IL 

A 4^ 1 4. 1 ^ 7 

2 ?3 

43 , 2734 

TO 

4b t 4 ^ 7 7 -> 

273 

4c., 274 . 

lu 

42, 3 i 2i 

294 

43,2774 

TO 

43 f 3 .2 

2/4 

^ 2, 3 22 

lu 

^Z r j 76 

295 

43 f 3b ub 

TO 

43 1 3 V Zl 

2/5 

42, 3> 77 

TO 

42 f 3 1 Q 

296 

43 , 3:22 

TU 

43 , 3u5o 

2/6 


42,3137 

TC 

42,3l4o 

34 d 

<+3 , 3 3 7 

TC 

43 1 3 . 64 

277 

42,3147 

TO 

42,3225 

340 

4 J 1 3 63 

4 U 

43 , J i . 1 

278 

4£,322o 

TO 

42,3365 

35'. 

43,31 2 

ro 

43 I 3 131 

279 

4 2,33 V 6 

TO 

^ Z f 336u 

351 

43 1 3 132 

TO 

43 , 3 I3t» 

452 

42,3361 

TC 

42,3430 

362 

■*,3 , 3 137 

TO 

43,3165 

453 

42,->4li 

“nrir 

^2733113" 

363 

43 f 3 166 

TC 

43 ,3223 

1594 

42,3504 

TO 

42,3537 

94C 

43,322+ 

Tu 

43, 3 27 J 

1395 

42,3560 

TC 

42,3625 

941 

43, 3271 

Tu 

43 1 3345 

i3':^6 

4^2,3626 

TO 

42,3636 

1493 

43 t 3346 

TO 

43 ,3425 

1397 

42,3637 

TO 

42,37u7 

1494 

43 , 3426 

Tu 

43 ,34 7 ; 

139 8 

42,371. 

“Tcr 

“7f273T54 X2t96 

43 , 34/1 

10 

43 , 3547 

139*5 

4 2, 3755 

70 

42,3774 

1496 

+3,3559 

TO 

43,3 62t» 

1 4U b 

4 2, 37 75 

TO 

42 , 37/0 

34 

43,3627 

TO 

43,3655 

14.1 

4 3 f z ^ < < 

TO 

43,2-46 

249 

43 I 3636 

TU 

43,3677 

1492 

4 3,2047 

TO 

43, Z 1X3 

25E 

43 f b 7 A w 

Tu 

43 ,3721 

1493 

43,2TX6 

— r C 43 t'ZIZv 

^51 

4 3 f J / Z2 

T“u 

43 ,3723“ 

34 

43,2121 

TO 

43,2 132 

252 





43,2133 

TC 

43 f Z 143 

253 





43,2144 

TC 

43,21o5 

254 





43,2166 

TO 

43,2226 

255 





43,2227 

TC 

43 f ZZd 

256 





43,2261 

TO 

43,2311 

25? 





43,2312 

TO 

43,235U 

253 





43,2351 

TO 

43 f 23r63 

259 





“43,236^ 

TO 

43,242-. 

260 





43,2421 

TO 

43, 2435 

261 





4 3 f 2 4 36 

TO 

43,2527 

262 





^ 3 1 25 3u 

10 

4 3f Z534 

263 
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[HE SUBHCUl INES IN THIS PROGRAM AKt AS FOLLOWS: 

EKAST0TL«G41 

CIOGENESaOSA 

MEDUSA . j33 

'“ ^ ~mem : laus<,061 

ULYSSES ,\^Z9 
ZEUS »046 


THF^SSFHHO UAS GOOD AND MANjJFAUTURABLEa NU LINES wlRE CUSSEO. 
BINARY RECORDS FCR "ARTEM1S.R072” SUCCESSFULLY STORED- 




